* 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.

1 files changed, 0 insertions, 15 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;