paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 22:49:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE, Find/rename identifier dialog: fix localization

Browse Source 
git-svn-id: trunk@28227 -
This commit is contained in:
maxim 2010-11-14 20:41:56 +00:00
parent d6e31c9d2c
commit d18d22986c
2 changed files with 24 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
ide/findrenameidentifier.lfm
View File

@ -3,7 +3,6 @@ object FindRenameIdentifierDialog: TFindRenameIdentifierDialog
Height = 496
Top = 160
Width = 452
ActiveControl = CurrentListBox
BorderStyle = bsSizeToolWin
Caption = 'FindRenameIdentifierDialog'
ClientHeight = 496
@ -15,18 +14,18 @@ object FindRenameIdentifierDialog: TFindRenameIdentifierDialog
LCLVersion = '0.9.29'
object CurrentGroupBox: TGroupBox
Left = 6
Height = 98
Height = 150
Top = 6
Width = 440
Align = alClient
BorderSpacing.Around = 6
Caption = 'CurrentGroupBox'
ClientHeight = 79
ClientHeight = 132
ClientWidth = 436
TabOrder = 0
object CurrentListBox: TListBox
Left = 6
Height = 67
Height = 120
Top = 6
Width = 424
Align = alClient
@ -34,25 +33,24 @@ object FindRenameIdentifierDialog: TFindRenameIdentifierDialog
ClickOnSelChange = False
ItemHeight = 0
TabOrder = 0
TopIndex = -1
end
end
object NewGroupBox: TGroupBox
Left = 6
Height = 86
Top = 110
Height = 74
Top = 162
Width = 440
Align = alBottom
AutoSize = True
BorderSpacing.Around = 6
Caption = 'NewGroupBox'
ClientHeight = 67
ClientHeight = 56
ClientWidth = 436
TabOrder = 1
object NewEdit: TEdit
Left = 6
Height = 27
Top = 34
Height = 21
Top = 29
Width = 424
Align = alTop
BorderSpacing.Around = 6
@ -61,7 +59,7 @@ object FindRenameIdentifierDialog: TFindRenameIdentifierDialog
end
object RenameCheckBox: TCheckBox
Left = 6
Height = 22
Height = 17
Top = 6
Width = 424
Align = alTop
@ -73,20 +71,20 @@ object FindRenameIdentifierDialog: TFindRenameIdentifierDialog
end
object ScopeGroupBox: TGroupBox
Left = 6
Height = 242
Top = 202
Height = 208
Top = 242
Width = 440
Align = alBottom
AutoSize = True
BorderSpacing.Around = 6
Caption = 'ScopeGroupBox'
ClientHeight = 223
ClientHeight = 190
ClientWidth = 436
TabOrder = 2
object ScopeCommentsCheckBox: TCheckBox
Left = 6
Height = 22
Top = 195
Height = 17
Top = 167
Width = 424
Align = alTop
BorderSpacing.Around = 6
@ -95,7 +93,7 @@ object FindRenameIdentifierDialog: TFindRenameIdentifierDialog
end
object ScopeRadioGroup: TRadioGroup
Left = 6
Height = 119
Height = 98
Top = 6
Width = 424
Align = alTop
@ -111,7 +109,7 @@ object FindRenameIdentifierDialog: TFindRenameIdentifierDialog
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 100
ClientHeight = 80
ClientWidth = 420
Items.Strings = (
'in current unit'
@ -123,19 +121,19 @@ object FindRenameIdentifierDialog: TFindRenameIdentifierDialog
end
object ExtraFilesGroupBox: TGroupBox
Left = 6
Height = 58
Top = 131
Height = 51
Top = 110
Width = 424
Align = alTop
AutoSize = True
BorderSpacing.Around = 6
Caption = 'ExtraFilesGroupBox'
ClientHeight = 39
ClientHeight = 33
ClientWidth = 420
TabOrder = 2
object ExtraFilesEdit: TEdit
Left = 6
Height = 27
Height = 21
Top = 6
Width = 408
Align = alTop
@ -147,11 +145,12 @@ object FindRenameIdentifierDialog: TFindRenameIdentifierDialog
end
object ButtonPanel1: TButtonPanel
Left = 6
Height = 40
Top = 450
Height = 34
Top = 456
Width = 440
OKButton.Name = 'OKButton'
OKButton.Caption = '&OK'
OKButton.OnClick = FindOrRenameButtonClick
HelpButton.Name = 'HelpButton'
HelpButton.Caption = '&Help'
HelpButton.Enabled = False

3
ide/findrenameidentifier.pas
View File

@ -519,6 +519,7 @@ begin
CurrentGroupBox.Caption:=lisCodeToolsOptsIdentifier;
ExtraFilesGroupBox.Caption:=lisFRIAdditionalFilesToSearchEGPathPasPath2Pp;
ButtonPanel1.OKButton.Caption:=lisFRIFindReferences;
ButtonPanel1.CancelButton.Caption:=dlgCancel;
NewGroupBox.Caption:=lisFRIRenameTo;
RenameCheckBox.Caption:=lisFRIRename;
ScopeCommentsCheckBox.Caption:=lisFRISearchInCommentsToo;
@ -529,8 +530,6 @@ begin
ScopeRadioGroup.Items[2]:=lisFRIinProjectPackageOwningCurrentUnit;
ScopeRadioGroup.Items[3]:=lisFRIinAllOpenPackagesAndProjects;
ButtonPanel1.OKButton.OnClick:=@FindOrRenameButtonClick;
LoadFromConfig;
end;