diff options
author | Graeme Geldenhuys <graemeg@gmail.com> | 2013-12-28 00:06:43 +0000 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@gmail.com> | 2013-12-28 00:06:43 +0000 |
commit | 0c1a9bdf628ac9502879b52bd8880c5c053e9b8b (patch) | |
tree | 10386942366b98fdf1a1531067629d8c554671c6 | |
parent | 10a9b06b41cefc293ffad7600c08de5d821c2a89 (diff) | |
download | fpGUI-0c1a9bdf628ac9502879b52bd8880c5c053e9b8b.tar.xz |
uidesigner: completed string constants to resource string for vfdforms.pas unit
-rw-r--r-- | src/corelib/fpg_utils.pas | 2 | ||||
-rw-r--r-- | uidesigner/vfd_constants.pas | 17 | ||||
-rw-r--r-- | uidesigner/vfdforms.pas | 37 |
3 files changed, 48 insertions, 8 deletions
diff --git a/src/corelib/fpg_utils.pas b/src/corelib/fpg_utils.pas index 899d4194..9a135d73 100644 --- a/src/corelib/fpg_utils.pas +++ b/src/corelib/fpg_utils.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, diff --git a/uidesigner/vfd_constants.pas b/uidesigner/vfd_constants.pas index 0621a8c4..908b7436 100644 --- a/uidesigner/vfd_constants.pas +++ b/uidesigner/vfd_constants.pas @@ -51,6 +51,23 @@ resourcestring rsTop = 'Top'; rsWidth = 'Width'; rsHeight = 'Height'; + rsNewClassName = 'Class name'; + rsNewFormName = 'Form name'; + rsPosition = 'Position'; + rsFormTitle = 'Form %s'; + rsUp = 'Up'; + rsDown = 'Down'; + rsGridResolution = 'Grid resolution'; + rsRecentFilesCount = 'Recent files count'; + rsShowFullPathName = 'Show the full file path'; + rsFormDesigner = 'Form designer'; + rsOpenRecentSettings = 'Open Recent menu settings'; + rsVarious = 'Various'; + rsUndoOnPropertyExit = 'Undo on property editor exit'; + rsOneClickSelectAndMove = 'One click select and move'; + rsDefaultFileExt = 'Default file extension'; + rsUseCodeRegions = 'Use code-folding regions in auto-generated code'; + rsIndentType = 'Indent Type for generated code'; rsDlgProductInfo = 'Product Information'; rsDlgSetup = 'General Settings'; diff --git a/uidesigner/vfdforms.pas b/uidesigner/vfdforms.pas index 04812166..9d9b42bd 100644 --- a/uidesigner/vfdforms.pas +++ b/uidesigner/vfdforms.pas @@ -157,6 +157,7 @@ uses fpg_main, fpg_iniutils, fpg_constants, + fpg_utils, vfd_constants, vfdprops; // used to get Object Inspector defaults @@ -167,6 +168,8 @@ procedure TInsertCustomForm.SetupCaptions; begin inherited SetupCaptions; WindowTitle := rsDlgInsertCustomWidget; + l1.Text := fpgAddColon(rsNewClassName); + l2.Text := fpgAddColon(rsName); end; procedure TInsertCustomForm.AfterCreate; @@ -174,7 +177,7 @@ begin {%region 'Auto-generated GUI code' -fold} inherited; WindowPosition := wpScreenCenter; - WindowTitle := 'Insert Custom Widget'; + WindowTitle := 'TInsertCustomForm'; SetPosition(0, 0, 300, 100); l1 := CreateLabel(self, 8, 4, 'Class name:'); @@ -182,8 +185,8 @@ begin edClass.Text := 'Tfpg'; l2 := CreateLabel(self, 8, 48, 'Name:'); edName := CreateEdit(self, 8, 68, 150, 0); - btnOK := CreateButton(self, 180, 20, 100, 'OK', @OnButtonClick); - btnCancel := CreateButton(self, 180, 52, 100, 'Cancel', @OnButtonClick); + btnOK := CreateButton(self, 180, 20, 100, rsOK, @OnButtonClick); + btnCancel := CreateButton(self, 180, 52, 100, rsCancel, @OnButtonClick); {%endregion} end; @@ -208,6 +211,7 @@ procedure TNewFormForm.SetupCaptions; begin inherited SetupCaptions; WindowTitle := rsDlgNewForm; + l1.Text := fpgAddColon(rsNewFormName); end; procedure TNewFormForm.AfterCreate; @@ -215,7 +219,7 @@ begin inherited AfterCreate; WindowPosition := wpScreenCenter; SetPosition(0, 0, 286, 66); - WindowTitle := 'New Form'; + WindowTitle := 'TNewFormForm'; l1 := CreateLabel(self, 8, 8, 'Form name:'); edName := CreateEdit(self, 8, 28, 180, 0); @@ -246,6 +250,7 @@ procedure TEditPositionForm.SetupCaptions; begin inherited SetupCaptions; WindowTitle := rsDlgEditFormPosition; + lbPos.Text := fpgAddColon(rsPosition); end; procedure TEditPositionForm.AfterCreate; @@ -254,10 +259,10 @@ begin WindowPosition := wpScreenCenter; Width := 186; Height := 66; - WindowTitle := 'Position'; + WindowTitle := 'TEditPositionForm'; Sizeable := False; - lbPos := CreateLabel(self, 8, 8, 'Pos: '); + lbPos := CreateLabel(self, 8, 8, 'Pos:'); edPos := CreateEdit(self, 8, 28, 80, 0); edPos.OnKeyPress := @edPosKeyPressed; btnOK := CreateButton(self, 98, 8, 80, rsOK, @OnButtonClick); @@ -288,6 +293,11 @@ procedure TWidgetOrderForm.SetupCaptions; begin inherited SetupCaptions; WindowTitle := rsDlgWidgetOrder; + lblTitle.Text := fpgAddColon(rsFormTitle); + btnOK.Text := rsOK; + btnCancel.Text := rsCancel; + btnUp.Text := rsUp; + btnDown.Text := rsDown; end; constructor TWidgetOrderForm.Create(AOwner: TComponent); @@ -309,7 +319,7 @@ begin {@VFD_BODY_BEGIN: WidgetOrderForm} Name := 'WidgetOrderForm'; SetPosition(534, 173, 426, 398); - WindowTitle := 'Widget order'; + WindowTitle := 'TWidgetOrderForm'; Hint := ''; WindowPosition := wpScreenCenter; @@ -463,6 +473,19 @@ procedure TfrmVFDSetup.SetupCaptions; begin inherited SetupCaptions; WindowTitle := rsDlgSetup; + lb1.Text := fpgAddColon(rsGridResolution); + btnOK.Text := rsOK; + btnCancel.Text := rsCancel; + lblRecentFiles.Text := fpgAddColon(rsRecentFilesCount); + chkFullPath.Text := rsShowFullPathName; + lblName1.Text := rsFormDesigner; + lblName2.Text := rsOpenRecentSettings; + lblName3.Text := rsVarious; + chkUndoOnExit.Text := rsUndoOnPropertyExit; + chkOneClick.Text := rsOneClickSelectAndMove; + Label1.Text := fpgAddColon(rsDefaultFileExt); + chkCodeRegions.Text := rsUseCodeRegions; + lblIndentType.Text := fpgAddColon(rsIndentType); end; procedure TfrmVFDSetup.LoadSettings; |