From a4059e6c08752c3d763b236d9b48cbafff4a6c11 Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Fri, 14 Sep 2007 09:45:57 +0000
Subject: * 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.

---
 examples/apps/uidesigner/vfddesigner.pas   | 15 ---------------
 examples/apps/uidesigner/vfdformparser.pas | 10 +++++-----
 2 files changed, 5 insertions(+), 20 deletions(-)

(limited to 'examples')

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;
 
 
-- 
cgit v1.2.3-70-g09d2