* Introduced Setter methods for BaseWindow Width and Height properties.

* Fixed a minor bug in ComboBox that maintained it's own Width property. This also fixed the
  issue in the uiDesigner loading forms with comboboxes and not painting the internal button.

2 files changed, 5 insertions, 20 deletions

diff --git a/examples/apps/uidesigner/vfddesigner.pas b/examples/apps/uidesigner/vfddesigner.pas
index 11200d97..b6ee116d 100644
--- a/examples/apps/uidesigner/vfddesigner.pas
+++ b/examples/apps/uidesigner/vfddesigner.pas
@@ -110,7 +110,6 @@ type
     procedure   ClearForm;
     procedure   DefaultHandler(var msg); override;
     procedure   Show;
-    procedure   InitTest;
     function    AddWidget(wg: TfpgWidget; wgc: TVFDWidgetClass): TWidgetDesigner;
     function    WidgetDesigner(wg: TfpgWidget): TWidgetDesigner;
     function    FindWidgetByName(const wgname: string): TfpgWidget;
@@ -475,20 +474,6 @@ begin
   UpdatePropWin;
 end;
 
-procedure TFormDesigner.InitTest;
-var
-  l1: TfpgLabel;
-  ed1: TfpgEdit;
-begin
-//  Exit;
-  writeln('InitTest');
-  l1  := CreateLabel(FForm, 10, 10, 'Test Label');
-  ed1 := CreateEdit(FForm, 10, 50, 150, 0);
-
-  AddWidget(l1, nil);
-  AddWidget(ed1, nil);
-end;
-
 function TFormDesigner.AddWidget(wg: TfpgWidget; wgc: TVFDWidgetClass): TWidgetDesigner;
 var
   cd: TWidgetDesigner;
diff --git a/examples/apps/uidesigner/vfdformparser.pas b/examples/apps/uidesigner/vfdformparser.pas
index e3900f4b..3f2f1eb8 100644
--- a/examples/apps/uidesigner/vfdformparser.pas
+++ b/examples/apps/uidesigner/vfdformparser.pas
@@ -44,11 +44,11 @@ type
     procedure nextline;
   public
     constructor Create(const FormName, FormHead, FormBody: string);
-    destructor Destroy; override;
-    function ParseForm: TFormDesigner;
-    procedure ParseFormProperties;
-    procedure ParseFormWidgets;
-    function ReadWGProperty(propline: string; wg: TfpgWidget; wgc: TVFDWidgetClass): boolean;
+    destructor  Destroy; override;
+    function    ParseForm: TFormDesigner;
+    procedure   ParseFormProperties;
+    procedure   ParseFormWidgets;
+    function    ReadWGProperty(propline: string; wg: TfpgWidget; wgc: TVFDWidgetClass): boolean;
   end;