diff options
-rw-r--r-- | uidesigner/vfd_constants.pas | 8 | ||||
-rw-r--r-- | uidesigner/vfdforms.pas | 52 |
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); |