uidesigner: All dialog titles in vfdforms unit are now localised.

2 files changed, 48 insertions, 12 deletions

diff --git a/uidesigner/vfd_constants.pas b/uidesigner/vfd_constants.pas
index b39cfda0..eb32e308 100644
--- a/uidesigner/vfd_constants.pas
+++ b/uidesigner/vfd_constants.pas
@@ -44,8 +44,12 @@ resourcestring
   rsCompiledOn = 'Compiled on:  %s';
   rsNewUnnamedForm = 'new';
 
-  rsDlgProductInfo = 'Product Information...';
-  rsDlgSetup = 'General Settings...';
+  rsDlgProductInfo = 'Product Information';
+  rsDlgSetup = 'General Settings';
+  rsDlgInsertCustomWidget = 'Insert Custom Widget';
+  rsDlgNewForm = 'New Form';
+  rsDlgEditFormPosition = 'Form Position';
+  rsDlgWidgetOrder = 'Widget Order';
 
   rsErrUnitNotFound = 'The unit <%s> was not found.';
   rsErrLoadingForm = 'Error loading form';
diff --git a/uidesigner/vfdforms.pas b/uidesigner/vfdforms.pas
index f3e6a935..03abaa7f 100644
--- a/uidesigner/vfdforms.pas
+++ b/uidesigner/vfdforms.pas
@@ -1,7 +1,7 @@
 {
     fpGUI  -  Free Pascal GUI Toolkit
 
-    Copyright (C) 2006 - 2010 See the file AUTHORS.txt, included in this
+    Copyright (C) 2006 - 2013 See the file AUTHORS.txt, included in this
     distribution, for details of the copyright.
 
     See the file COPYING.modifiedLGPL, included in this distribution,
@@ -12,7 +12,7 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
     Description:
-      The main uiDesigner forms.
+      This unit defines various forms/dialogs used in the UI Designer.
 }
 
 unit vfdforms;
@@ -49,6 +49,8 @@ type
 
 
   TInsertCustomForm = class(TVFDDialog)
+  protected
+    procedure   SetupCaptions; override;
   public
     l1,
     l2: TfpgLabel;
@@ -56,34 +58,38 @@ type
     edName: TfpgEdit;
     btnOK: TfpgButton;
     btnCancel: TfpgButton;
-    procedure AfterCreate; override;
-    procedure OnButtonClick(Sender: TObject);
+    procedure   AfterCreate; override;
+    procedure   OnButtonClick(Sender: TObject);
   end;
 
 
   TNewFormForm = class(TVFDDialog)
   private
-    procedure OnedNameKeyPressed(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState; var Consumed: boolean);
+    procedure   OnedNameKeyPressed(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState; var Consumed: boolean);
+  protected
+    procedure   SetupCaptions; override;
   public
     l1: TfpgLabel;
     edName: TfpgEdit;
     btnOK: TfpgButton;
     btnCancel: TfpgButton;
-    procedure AfterCreate; override;
-    procedure OnButtonClick(Sender: TObject);
+    procedure   AfterCreate; override;
+    procedure   OnButtonClick(Sender: TObject);
   end;
 
 
   TEditPositionForm = class(TVFDDialog)
   private
-    procedure edPosKeyPressed(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState; var Consumed: boolean);
+    procedure   edPosKeyPressed(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState; var Consumed: boolean);
+  protected
+    procedure   SetupCaptions; override;
   public
     lbPos: TfpgLabel;
     edPos: TfpgEdit;
     btnOK: TfpgButton;
     btnCancel: TfpgButton;
-    procedure AfterCreate; override;
-    procedure OnButtonClick(Sender: TObject);
+    procedure   AfterCreate; override;
+    procedure   OnButtonClick(Sender: TObject);
   end;
 
 
@@ -91,6 +97,8 @@ type
   private
     function    GetTitle: string;
     procedure   SetTitle(const AValue: string);
+  protected
+    procedure   SetupCaptions; override;
   public
     {@VFD_HEAD_BEGIN: WidgetOrderForm}
     lblTitle: TfpgLabel;
@@ -156,6 +164,12 @@ uses
 
 { TInsertCustomForm }
 
+procedure TInsertCustomForm.SetupCaptions;
+begin
+  inherited SetupCaptions;
+  WindowTitle := rsDlgInsertCustomWidget;
+end;
+
 procedure TInsertCustomForm.AfterCreate;
 begin
   {%region 'Auto-generated GUI code' -fold}
@@ -191,6 +205,12 @@ begin
     btnOK.Click;
 end;
 
+procedure TNewFormForm.SetupCaptions;
+begin
+  inherited SetupCaptions;
+  WindowTitle := rsDlgNewForm;
+end;
+
 procedure TNewFormForm.AfterCreate;
 begin
   inherited AfterCreate;
@@ -223,6 +243,12 @@ begin
     btnOK.Click;
 end;
 
+procedure TEditPositionForm.SetupCaptions;
+begin
+  inherited SetupCaptions;
+  WindowTitle := rsDlgEditFormPosition;
+end;
+
 procedure TEditPositionForm.AfterCreate;
 begin
   inherited AfterCreate;
@@ -259,6 +285,12 @@ begin
   lblTitle.Text := Format(lblTitle.Text, [AValue]);
 end;
 
+procedure TWidgetOrderForm.SetupCaptions;
+begin
+  inherited SetupCaptions;
+  WindowTitle := rsDlgWidgetOrder;
+end;
+
 constructor TWidgetOrderForm.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);