IDE, Goto line dialog: fix ButtonPanel localization

git-svn-id: trunk@27446 -
This commit is contained in:
maxim 2010-09-23 21:52:46 +00:00
parent 49d5d04422
commit 8ce54f82b0
2 changed files with 7 additions and 10 deletions

View File

@ -3,7 +3,6 @@ object frmGoto: TfrmGoto
Height = 101 Height = 101
Top = 427 Top = 427
Width = 250 Width = 250
ActiveControl = Edit1
AutoSize = True AutoSize = True
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
BorderStyle = bsDialog BorderStyle = bsDialog
@ -13,7 +12,7 @@ object frmGoto: TfrmGoto
LCLVersion = '0.9.29' LCLVersion = '0.9.29'
object Label1: TLabel object Label1: TLabel
Left = 6 Left = 6
Height = 18 Height = 14
Top = 6 Top = 6
Width = 238 Width = 238
Align = alTop Align = alTop
@ -22,11 +21,9 @@ object frmGoto: TfrmGoto
ParentColor = False ParentColor = False
end end
object Edit1: TEdit object Edit1: TEdit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 27 Height = 21
Top = 30 Top = 26
Width = 238 Width = 238
Align = alTop Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -35,11 +32,9 @@ object frmGoto: TfrmGoto
Text = 'Edit1' Text = 'Edit1'
end end
object ButtonPanel1: TButtonPanel object ButtonPanel1: TButtonPanel
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 34 Height = 26
Top = 63 Top = 53
Width = 238 Width = 238
Align = alTop Align = alTop
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'

View File

@ -53,6 +53,8 @@ begin
Caption := lisGotoLine; Caption := lisGotoLine;
Label1.Caption := lisUEGotoLine; Label1.Caption := lisUEGotoLine;
ButtonPanel1.OKButton.Caption:=lisOk;
ButtonPanel1.CancelButton.Caption:=dlgCancel;
Edit1.Caption := ''; Edit1.Caption := '';
end; end;