Designer: Fixed TVFDPropertyList.ParseSourceLine

Designer: fixed using old unitname
graemeg · Feb 8, 2016 · 88ccd96 · 88ccd96
1 parent 95187f1
commit 88ccd96
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git a/uidesigner/vfd_props.pas b/uidesigner/vfd_props.pas
@@ -392,6 +392,7 @@ function TVFDPropertyList.ParseSourceLine(wg: TfpgWidget; const line: string): b
 var
   s: string;
   pval: pointer;
+  sval: String;
 begin
   s      := line;
   Result := False;
@@ -401,9 +402,11 @@ function TVFDPropertyList.ParseSourceLine(wg: TfpgWidget; const line: string): b
   Result := CheckSymbol(s, ':=');
   if Result then
   begin
-    pval   := TListPropertyEditorClass(EditorClass).GetItemFromString(List, s);
+    sval := GetIdentifier(s);
+    pval   := TListPropertyEditorClass(EditorClass).GetItemFromString(List, sval);
     Result := CheckSymbol(s, ';');
-    TListPropertyEditorClass(EditorClass).SetWidgetProperty(wg, Name, pval);
+    if Result then
+      TListPropertyEditorClass(EditorClass).SetWidgetProperty(wg, Name, pval);
   end;
 end;
 

diff --git a/uidesigner/vfd_widgetclass.pas b/uidesigner/vfd_widgetclass.pas
@@ -99,7 +99,7 @@   TVFDWidgetClass = class(TObject)
 implementation
 
 uses
-  TypInfo, vfdprops;
+  TypInfo, vfd_props;
 
 
 type
-Original file line number
+Diff line change
@@ Expand Up / @@ -99,7 +99,7 @@ TVFDWidgetClass = class(TObject) @@
     implementation
     uses
-      TypInfo, vfdprops;
+      TypInfo, vfd_props;
     type
@@ Expand Down @@