From 1e916603e6b783c25c58b08c2165497b103ccf80 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Thu, 18 Nov 2010 10:16:13 +0200
Subject: UI Designer: minor code cleanup.

---
 uidesigner/vfddesigner.pas |  2 +-
 uidesigner/vfdforms.pas    | 24 ++++++++++++++++--------
 2 files changed, 17 insertions(+), 9 deletions(-)

(limited to 'uidesigner')

diff --git a/uidesigner/vfddesigner.pas b/uidesigner/vfddesigner.pas
index 5966865b..b8fd6b82 100644
--- a/uidesigner/vfddesigner.pas
+++ b/uidesigner/vfddesigner.pas
@@ -678,7 +678,7 @@ var
 begin
   frm := TWidgetOrderForm.Create(nil);
   frm.WindowTitle := cEditOrder[AMode];
-  frm.lblTitle.Text := Format(frm.lblTitle.Text, [cEditOrder[AMode]]);
+  frm.Title := cEditOrder[AMode];
   fi  := 0;
 
   identlevel := 0;
diff --git a/uidesigner/vfdforms.pas b/uidesigner/vfdforms.pas
index 9f25be01..1cb0017b 100644
--- a/uidesigner/vfdforms.pas
+++ b/uidesigner/vfdforms.pas
@@ -84,21 +84,24 @@ type
 
 
   TWidgetOrderForm = class(TVFDDialog)
+  private
+    function    GetTitle: string;
+    procedure   SetTitle(const AValue: string);
   public
     {@VFD_HEAD_BEGIN: WidgetOrderForm}
-
-
     lblTitle: TfpgLabel;
     btnOK: TfpgButton;
     btnCancel: TfpgButton;
     btnUp: TfpgButton;
     btnDown: TfpgButton;
     TreeView1: TfpgTreeView;
-            {@VFD_HEAD_END: WidgetOrderForm}
+    {@VFD_HEAD_END: WidgetOrderForm}
+  public
     constructor Create(AOwner: TComponent); override;
     destructor  Destroy; override;
     procedure   AfterCreate; override;
     procedure   OnButtonClick(Sender: TObject);
+    property    Title: string read GetTitle write SetTitle;
   end;
 
 
@@ -244,6 +247,16 @@ end;
 
 { TWidgetOrderForm }
 
+function TWidgetOrderForm.GetTitle: string;
+begin
+  Result := lblTitle.Text;
+end;
+
+procedure TWidgetOrderForm.SetTitle(const AValue: string);
+begin
+  lblTitle.Text := Format(lblTitle.Text, [AValue]);
+end;
+
 constructor TWidgetOrderForm.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);
@@ -261,11 +274,6 @@ procedure TWidgetOrderForm.AfterCreate;
 begin
   inherited AfterCreate;
   {@VFD_BODY_BEGIN: WidgetOrderForm}
-
-
-
-
-
   Name := 'WidgetOrderForm';
   SetPosition(534, 173, 426, 398);
   WindowTitle := 'Widget order';
-- 
cgit v1.2.3-70-g09d2