paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 21:29:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: find in files dialog: fix localization

Browse Source 
git-svn-id: trunk@26306 -
This commit is contained in:
maxim 2010-06-27 21:13:03 +00:00
parent 91dbe3bee6
commit 496215eb85
2 changed files with 51 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

94
ide/findinfilesdlg.lfm
View File

@ -19,8 +19,8 @@ object LazFindInFilesDialog: TLazFindInFilesDialog
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 83
Top = 68
Height = 70
Top = 56
Width = 504
Anchors = [akTop, akLeft, akRight]
AutoFill = True
@ -54,8 +54,8 @@ object LazFindInFilesDialog: TLazFindInFilesDialog
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 6
Height = 36
Top = 157
Height = 93
Top = 132
Width = 504
Align = alBottom
Anchors = [akTop, akLeft, akRight, akBottom]
@ -73,8 +73,8 @@ object LazFindInFilesDialog: TLazFindInFilesDialog
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 15
ClientWidth = 496
ClientHeight = 75
ClientWidth = 500
ItemIndex = 1
Items.Strings = (
'search all files in project'
@ -89,15 +89,15 @@ object LazFindInFilesDialog: TLazFindInFilesDialog
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 6
Height = 157
Top = 199
Height = 133
Top = 231
Width = 504
Align = alBottom
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Directory Options'
ClientHeight = 136
ClientWidth = 496
ClientHeight = 115
ClientWidth = 500
Enabled = False
TabOrder = 3
object DirectoryLabel: TLabel
@ -105,9 +105,9 @@ object LazFindInFilesDialog: TLazFindInFilesDialog
AnchorSideTop.Control = DirectoryComboBox
AnchorSideTop.Side = asrCenter
Left = 6
Height = 18
Top = 10
Width = 64
Height = 14
Top = 9
Width = 49
BorderSpacing.Left = 6
Caption = 'Directory:'
ParentColor = False
@ -117,9 +117,9 @@ object LazFindInFilesDialog: TLazFindInFilesDialog
AnchorSideTop.Control = DirectoryComboBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 18
Top = 45
Width = 157
Height = 14
Top = 39
Width = 121
BorderSpacing.Left = 6
BorderSpacing.Top = 12
Caption = 'File mask (*;*.*;*.bak?):'
@ -130,15 +130,15 @@ object LazFindInFilesDialog: TLazFindInFilesDialog
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = DirectoryOptionsGroupBox
AnchorSideRight.Control = DirectoryBrowse
Left = 76
Height = 27
Left = 61
Height = 21
Top = 6
Width = 323
Width = 389
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
ItemHeight = 0
ItemHeight = 13
TabOrder = 0
end
object DirectoryBrowse: TBitBtn
@ -146,10 +146,10 @@ object LazFindInFilesDialog: TLazFindInFilesDialog
AnchorSideTop.Control = DirectoryComboBox
AnchorSideRight.Control = DirectoryOptionsGroupBox
AnchorSideRight.Side = asrBottom
Left = 405
Height = 27
Left = 456
Height = 23
Top = 6
Width = 85
Width = 38
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Right = 6
@ -166,13 +166,13 @@ object LazFindInFilesDialog: TLazFindInFilesDialog
AnchorSideRight.Control = DirectoryComboBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 27
Top = 69
Width = 393
Height = 21
Top = 59
Width = 444
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
ItemHeight = 0
ItemHeight = 13
TabOrder = 2
Text = '*.pas;*.pp;*.inc'
end
@ -181,9 +181,9 @@ object LazFindInFilesDialog: TLazFindInFilesDialog
AnchorSideTop.Control = FileMaskComboBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 22
Top = 108
Width = 175
Height = 17
Top = 92
Width = 126
BorderSpacing.Left = 6
BorderSpacing.Top = 12
BorderSpacing.Bottom = 6
@ -193,8 +193,8 @@ object LazFindInFilesDialog: TLazFindInFilesDialog
end
object ButtonPanel1: TButtonPanel
Left = 6
Height = 34
Top = 362
Height = 26
Top = 370
Width = 504
OKButton.Name = 'OKButton'
OKButton.Caption = '&OK'
@ -216,10 +216,10 @@ object LazFindInFilesDialog: TLazFindInFilesDialog
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 91
Height = 27
Top = 35
Width = 419
Left = 68
Height = 21
Top = 29
Width = 442
Anchors = [akTop, akLeft, akRight]
AutoComplete = True
AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactRetainPrefixCase, cbactSearchAscending]
@ -228,7 +228,7 @@ object LazFindInFilesDialog: TLazFindInFilesDialog
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
Enabled = False
ItemHeight = 0
ItemHeight = 13
TabOrder = 5
end
object ReplaceCheckBox: TCheckBox
@ -236,9 +236,9 @@ object LazFindInFilesDialog: TLazFindInFilesDialog
AnchorSideTop.Control = ReplaceTextComboBox
AnchorSideTop.Side = asrCenter
Left = 6
Height = 22
Top = 37
Width = 79
Height = 17
Top = 31
Width = 56
BorderSpacing.Left = 6
Caption = 'Replace'
Enabled = False
@ -250,9 +250,9 @@ object LazFindInFilesDialog: TLazFindInFilesDialog
AnchorSideTop.Control = TextToFindComboBox
AnchorSideTop.Side = asrCenter
Left = 6
Height = 18
Top = 10
Width = 81
Height = 14
Top = 9
Width = 65
BorderSpacing.Left = 6
Caption = 'Text To Find:'
ParentColor = False
@ -263,17 +263,17 @@ object LazFindInFilesDialog: TLazFindInFilesDialog
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 93
Height = 27
Left = 77
Height = 21
Top = 6
Width = 417
Width = 433
Anchors = [akTop, akLeft, akRight]
AutoComplete = True
AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactRetainPrefixCase, cbactSearchAscending]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
ItemHeight = 0
ItemHeight = 13
TabOrder = 0
end
object SelectDirectoryDialog: TSelectDirectoryDialog

6
ide/findinfilesdlg.pas
View File

@ -168,8 +168,10 @@ begin
IncludeSubDirsCheckBox.Caption := lisFindFileIncludeSubDirectories;
ButtonPanel1.OkButton.Caption := lisLazBuildOk;
ButtonPanel1.OKButton.OnClick:= @OKButtonClick;
ButtonPanel1.HelpButton.OnClick:=@HelpButtonClick;
ButtonPanel1.OKButton.OnClick := @OKButtonClick;
ButtonPanel1.HelpButton.Caption := lisMenuHelp;
ButtonPanel1.HelpButton.OnClick := @HelpButtonClick;
ButtonPanel1.CancelButton.Caption := dlgCancel;
ReplaceCheckBox.Enabled:=true;