paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-06 23:09:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: improved layout find/replace dialog

Browse Source 
git-svn-id: trunk@23955 -
This commit is contained in:
mattias 2010-03-11 21:09:02 +00:00
parent 7ad2458914
commit 63e493b739
1 changed files with 79 additions and 63 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

142
ide/findreplacedialog.lfm
View File

@ -1,19 +1,19 @@
object LazFindReplaceDialog: TLazFindReplaceDialog object LazFindReplaceDialog: TLazFindReplaceDialog
Left = 308 Left = 308
Height = 373 Height = 346
Top = 229 Top = 229
Width = 420 Width = 441
ActiveControl = TextToFindComboBox ActiveControl = TextToFindComboBox
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
Caption = 'LazFindReplaceDialog' Caption = 'LazFindReplaceDialog'
ClientHeight = 373 ClientHeight = 346
ClientWidth = 420 ClientWidth = 441
Constraints.MinHeight = 312 Constraints.MinHeight = 312
Constraints.MinWidth = 300 Constraints.MinWidth = 300
KeyPreview = True KeyPreview = True
OnChangeBounds = FormChangeBounds OnChangeBounds = FormChangeBounds
OnClose = FormClose OnClose = FormClose
LCLVersion = '0.9.27' LCLVersion = '0.9.29'
object TextToFindLabel: TLabel object TextToFindLabel: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = TextToFindComboBox AnchorSideTop.Control = TextToFindComboBox
@ -35,12 +35,12 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = TextToFindComboBox AnchorSideBottom.Control = TextToFindComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 389 Left = 410
Height = 29 Height = 29
Top = 12 Top = 12
Width = 25 Width = 25
Anchors = [akTop, akRight, akBottom]
AllowAllUp = True AllowAllUp = True
Anchors = [akTop, akRight, akBottom]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Color = clBtnFace Color = clBtnFace
GroupIndex = 1 GroupIndex = 1
@ -69,7 +69,7 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
Left = 110 Left = 110
Height = 29 Height = 29
Top = 12 Top = 12
Width = 279 Width = 300
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoComplete = True AutoComplete = True
AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactRetainPrefixCase, cbactSearchAscending] AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactRetainPrefixCase, cbactSearchAscending]
@ -89,7 +89,7 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
Left = 180 Left = 180
Height = 29 Height = 29
Top = 47 Top = 47
Width = 234 Width = 255
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoComplete = True AutoComplete = True
AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactRetainPrefixCase, cbactSearchAscending] AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactRetainPrefixCase, cbactSearchAscending]
@ -106,16 +106,17 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = BtnPanel AnchorSideBottom.Control = BtnPanel
Left = 6 Left = 6
Height = 237 Height = 214
Top = 82 Top = 82
Width = 199 Width = 226
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
AutoSize = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
Caption = 'OptionsGroupBox' Caption = 'OptionsGroupBox'
ClientHeight = 218 ClientHeight = 195
ClientWidth = 195 ClientWidth = 222
TabOrder = 3 TabOrder = 3
OnResize = OptionsGroupBoxResize OnResize = OptionsGroupBoxResize
object PromptOnReplaceCheckBox: TCheckBox object PromptOnReplaceCheckBox: TCheckBox
@ -123,7 +124,7 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
Left = 6 Left = 6
Height = 22 Height = 22
Top = 148 Top = 148
Width = 183 Width = 210
Align = alTop Align = alTop
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -139,7 +140,7 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
Left = 6 Left = 6
Height = 22 Height = 22
Top = 114 Top = 114
Width = 183 Width = 210
Align = alTop Align = alTop
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -153,7 +154,7 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
Left = 6 Left = 6
Height = 22 Height = 22
Top = 80 Top = 80
Width = 183 Width = 210
Align = alTop Align = alTop
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -167,7 +168,7 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
Left = 6 Left = 6
Height = 22 Height = 22
Top = 46 Top = 46
Width = 183 Width = 210
Align = alTop Align = alTop
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -181,7 +182,7 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
Left = 6 Left = 6
Height = 22 Height = 22
Top = 12 Top = 12
Width = 183 Width = 210
Align = alTop Align = alTop
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -196,10 +197,14 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = OriginGroupBox AnchorSideTop.Control = OriginGroupBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 211 AnchorSideRight.Control = Owner
Height = 74 AnchorSideRight.Side = asrBottom
Top = 162 Left = 238
Width = 199 Height = 63
Top = 151
Width = 197
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'ScopeGroupBox' Caption = 'ScopeGroupBox'
ChildSizing.LeftRightSpacing = 6 ChildSizing.LeftRightSpacing = 6
@ -209,14 +214,14 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
ChildSizing.ShrinkVertical = crsHomogenousSpaceResize ChildSizing.ShrinkVertical = crsHomogenousSpaceResize
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 55 ClientHeight = 44
ClientWidth = 195 ClientWidth = 193
TabOrder = 5 TabOrder = 5
object SelectedRadioButton: TRadioButton object SelectedRadioButton: TRadioButton
Left = 6 Left = 6
Height = 22 Height = 22
Top = 4 Top = 0
Width = 183 Width = 181
Caption = 'SelectedRadioButton' Caption = 'SelectedRadioButton'
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
@ -224,8 +229,8 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
object GlobalRadioButton: TRadioButton object GlobalRadioButton: TRadioButton
Left = 6 Left = 6
Height = 22 Height = 22
Top = 30 Top = 22
Width = 183 Width = 181
Caption = 'GlobalRadioButton' Caption = 'GlobalRadioButton'
Checked = True Checked = True
State = cbChecked State = cbChecked
@ -237,10 +242,14 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ScopeGroupBox AnchorSideTop.Control = ScopeGroupBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 211 AnchorSideRight.Control = Owner
Height = 74 AnchorSideRight.Side = asrBottom
Top = 242 Left = 238
Width = 199 Height = 63
Top = 220
Width = 197
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'DirectionGroupBox' Caption = 'DirectionGroupBox'
ChildSizing.LeftRightSpacing = 6 ChildSizing.LeftRightSpacing = 6
@ -250,14 +259,14 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
ChildSizing.ShrinkVertical = crsHomogenousSpaceResize ChildSizing.ShrinkVertical = crsHomogenousSpaceResize
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 55 ClientHeight = 44
ClientWidth = 195 ClientWidth = 193
TabOrder = 6 TabOrder = 6
object BackwardRadioButton: TRadioButton object BackwardRadioButton: TRadioButton
Left = 6 Left = 6
Height = 22 Height = 22
Top = 4 Top = 0
Width = 183 Width = 181
Caption = 'BackwardRadioButton' Caption = 'BackwardRadioButton'
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
@ -265,8 +274,8 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
object ForwardRadioButton: TRadioButton object ForwardRadioButton: TRadioButton
Left = 6 Left = 6
Height = 22 Height = 22
Top = 30 Top = 22
Width = 183 Width = 181
Caption = 'ForwardRadioButton' Caption = 'ForwardRadioButton'
Checked = True Checked = True
State = cbChecked State = cbChecked
@ -278,10 +287,14 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ReplaceTextComboBox AnchorSideTop.Control = ReplaceTextComboBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 211 AnchorSideRight.Control = Owner
Height = 74 AnchorSideRight.Side = asrBottom
Left = 238
Height = 63
Top = 82 Top = 82
Width = 199 Width = 197
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'OriginGroupBox' Caption = 'OriginGroupBox'
ChildSizing.LeftRightSpacing = 6 ChildSizing.LeftRightSpacing = 6
@ -291,14 +304,14 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
ChildSizing.ShrinkVertical = crsHomogenousSpaceResize ChildSizing.ShrinkVertical = crsHomogenousSpaceResize
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 55 ClientHeight = 44
ClientWidth = 195 ClientWidth = 193
TabOrder = 4 TabOrder = 4
object FromCursorRadioButton: TRadioButton object FromCursorRadioButton: TRadioButton
Left = 6 Left = 6
Height = 22 Height = 22
Top = 4 Top = 0
Width = 183 Width = 181
AutoSize = False AutoSize = False
Caption = 'FromCursorRadioButton' Caption = 'FromCursorRadioButton'
Checked = True Checked = True
@ -308,8 +321,8 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
object EntireScopeRadioButton: TRadioButton object EntireScopeRadioButton: TRadioButton
Left = 6 Left = 6
Height = 22 Height = 22
Top = 30 Top = 22
Width = 183 Width = 181
AutoSize = False AutoSize = False
Caption = 'EntireScopeRadioButton' Caption = 'EntireScopeRadioButton'
TabOrder = 1 TabOrder = 1
@ -318,25 +331,26 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
end end
object BtnPanel: TPanel object BtnPanel: TPanel
Left = 0 Left = 0
Height = 48 Height = 44
Top = 325 Top = 302
Width = 420 Width = 441
Align = alBottom Align = alBottom
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 48 ClientHeight = 44
ClientWidth = 420 ClientWidth = 441
TabOrder = 7 TabOrder = 7
object ReplaceAllButton: TBitBtn object ReplaceAllButton: TBitBtn
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 213 Left = 195
Height = 36 Height = 32
Top = 6 Top = 6
Width = 54 Width = 75
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = '&All' Caption = '&All'
Constraints.MinWidth = 75
Kind = bkAll Kind = bkAll
NumGlyphs = 0 NumGlyphs = 0
OnClick = ReplaceAllButtonClick OnClick = ReplaceAllButtonClick
@ -344,14 +358,15 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
end end
object OKButton: TBitBtn object OKButton: TBitBtn
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 273 Left = 276
Height = 36 Height = 32
Top = 6 Top = 6
Width = 57 Width = 75
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = '&OK' Caption = '&OK'
Constraints.MinWidth = 75
Default = True Default = True
Kind = bkOK Kind = bkOK
NumGlyphs = 0 NumGlyphs = 0
@ -361,8 +376,8 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
object CancelButton: TBitBtn object CancelButton: TBitBtn
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 336 Left = 357
Height = 36 Height = 32
Top = 6 Top = 6
Width = 78 Width = 78
Align = alRight Align = alRight
@ -370,6 +385,7 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Cancel = True Cancel = True
Caption = 'Cancel' Caption = 'Cancel'
Constraints.MinWidth = 75
Kind = bkCancel Kind = bkCancel
ModalResult = 2 ModalResult = 2
NumGlyphs = 0 NumGlyphs = 0
@ -381,9 +397,9 @@ object LazFindReplaceDialog: TLazFindReplaceDialog
AnchorSideBottom.Control = BtnPanel AnchorSideBottom.Control = BtnPanel
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 34 Height = 32
Top = 8 Top = 6
Width = 66 Width = 64
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6