diff options
author | Graeme Geldenhuys <graemeg@gmail.com> | 2013-12-20 23:49:40 +0000 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@gmail.com> | 2013-12-20 23:49:40 +0000 |
commit | a7631df2e566bfec39d764dcd54eecd8ff42e1c1 (patch) | |
tree | 7deaf071a0e33f63f091a067220e045307e51a2a /uidesigner/vfdforms.pas | |
parent | 39744dfed5965727374d2cf736979521407d449d (diff) | |
download | fpGUI-a7631df2e566bfec39d764dcd54eecd8ff42e1c1.tar.xz |
uidesigner: All dialog titles in vfdforms unit are now localised.
Diffstat (limited to 'uidesigner/vfdforms.pas')
-rw-r--r-- | uidesigner/vfdforms.pas | 52 |
1 files changed, 42 insertions, 10 deletions
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); |