diff options
Diffstat (limited to 'uidesigner/vfddesigner.pas')
-rw-r--r-- | uidesigner/vfddesigner.pas | 25 |
1 files changed, 13 insertions, 12 deletions
diff --git a/uidesigner/vfddesigner.pas b/uidesigner/vfddesigner.pas index 568ca96c..70757ba4 100644 --- a/uidesigner/vfddesigner.pas +++ b/uidesigner/vfddesigner.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, @@ -142,13 +142,14 @@ type implementation uses + TypInfo, vfdmain, vfdutils, - TypInfo, + vfd_constants, fpg_tree; const - cEditOrder: array[TfpgEditMode] of string = ('Widget Order', 'Tab Order'); + cEditOrder: array[TfpgEditMode] of string = (rsDlgWidgetOrder, rsDlgTabOrder); { TWidgetDesigner } @@ -739,10 +740,10 @@ begin end; keyF1: - ShowMessage('F11: switch to Properties' + LineEnding + - 'TAB, SHIFT+TAB: select next widget' + LineEnding + - 'F2: edit widget order' + LineEnding {+ - 'F4: edit items' + LineEnding}, 'Small help'); + ShowMessage(rsDesignerHelp1 + LineEnding + + rsDesignerHelp2 + LineEnding + + rsDesignerHelp3 + LineEnding {+ + 'F4: edit items' + LineEnding}, rsDesignerQuickHelp); keyF2: EditWidgetOrTabOrder(emTabOrder); @@ -977,22 +978,22 @@ begin if Sender = frmProperties.btnLeft then begin - frm.lbPos.Text := 'Left:'; + frm.lbPos.Text := rsLeft + ':'; frm.edPos.Text := IntToStr(wg.Left); end else if Sender = frmProperties.btnTop then begin - frm.lbPos.Text := 'Top:'; + frm.lbPos.Text := rsTop + ':'; frm.edPos.Text := IntToStr(wg.Top); end else if Sender = frmProperties.btnWidth then begin - frm.lbPos.Text := 'Width:'; + frm.lbPos.Text := rsWidth + ':'; frm.edPos.Text := IntToStr(wg.Width); end else if Sender = frmProperties.btnHeight then begin - frm.lbPos.Text := 'Height:'; + frm.lbPos.Text := rsHeight + ':'; frm.edPos.Text := IntToStr(wg.Height); end; @@ -1469,7 +1470,7 @@ procedure TDesignedForm.AfterCreate; begin inherited AfterCreate; WindowPosition := wpUser; - WindowTitle := 'New Form'; + WindowTitle := rsDlgNewForm; SetPosition(300, 150, 300, 250); end; |