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

lcl: fix layout of replace dialog by Anton

Browse Source 
git-svn-id: trunk@28990 -
This commit is contained in:
paul 2011-01-13 12:47:01 +00:00
parent c210e42e3f
commit 897c403425
1 changed files with 13 additions and 136 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

149
lcl/forms/replacedlgunit.lfm
View File

@ -3,52 +3,26 @@ object ReplaceDialogForm: TReplaceDialogForm
Height = 162
Top = 391
Width = 432
HelpContext = 0
ActiveControl = EditFind
BorderIcons = [biSystemMenu, biHelp]
Caption = 'Replace text'
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
ClientHeight = 162
ClientWidth = 432
Font.Height = 0
Font.Style = []
LCLVersion = '0.9.27'
LCLVersion = '0.9.31'
object TextLabel: TLabel
Left = 4
Height = 18
Height = 16
Top = 19
Width = 70
HelpContext = 0
Alignment = taLeftJustify
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Width = 61
Caption = 'Text to find'
FocusControl = EditFind
ParentColor = False
end
object ReplaceLabel: TLabel
Left = 4
Height = 18
Height = 16
Top = 48
Width = 79
HelpContext = 0
Alignment = taLeftJustify
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Width = 68
Caption = 'Replace with'
FocusControl = EditReplace
ParentColor = False
@ -58,15 +32,7 @@ object ReplaceDialogForm: TReplaceDialogForm
Height = 23
Top = 10
Width = 257
HelpContext = 0
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
TabOrder = 0
Text = 'EditFind'
end
@ -75,53 +41,25 @@ object ReplaceDialogForm: TReplaceDialogForm
Height = 23
Top = 42
Width = 257
HelpContext = 0
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
TabOrder = 1
Text = 'EditReplace'
end
object WholeWordsOnlyCheckBox: TCheckBox
Left = 4
Height = 22
Height = 19
Top = 80
Width = 133
HelpContext = 0
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Width = 115
Caption = 'Whole words only'
State = cbUnchecked
TabOrder = 2
UseOnChange = False
end
object CaseSensitiveCheckBox: TCheckBox
Left = 4
Height = 22
Height = 19
Top = 104
Width = 116
HelpContext = 0
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Width = 93
Caption = 'Case sensitive'
State = cbUnchecked
TabOrder = 3
UseOnChange = False
end
object FindMoreButton: TButton
Tag = 1
@ -129,15 +67,7 @@ object ReplaceDialogForm: TReplaceDialogForm
Height = 25
Top = 11
Width = 91
HelpContext = 0
Anchors = [akTop, akRight]
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'Find more'
Default = True
TabOrder = 4
@ -148,33 +78,17 @@ object ReplaceDialogForm: TReplaceDialogForm
Height = 25
Top = 40
Width = 91
HelpContext = 0
Anchors = [akTop, akRight]
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'Replace'
TabOrder = 5
end
object ReplaceAllButton: TButton
Tag = 3
Left = 336
Left = 337
Height = 25
Top = 68
Width = 91
HelpContext = 0
Anchors = [akTop, akRight]
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'Replace all'
TabOrder = 6
end
@ -183,15 +97,7 @@ object ReplaceDialogForm: TReplaceDialogForm
Height = 25
Top = 96
Width = 91
HelpContext = 0
Anchors = [akTop, akRight]
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Cancel = True
Caption = 'Cancel'
ModalResult = 2
@ -202,15 +108,7 @@ object ReplaceDialogForm: TReplaceDialogForm
Height = 25
Top = 129
Width = 91
HelpContext = 0
Anchors = [akRight, akBottom]
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'Help'
TabOrder = 8
end
@ -219,30 +117,19 @@ object ReplaceDialogForm: TReplaceDialogForm
Height = 45
Top = 80
Width = 184
HelpContext = 0
AutoFill = True
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'Direction'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2
ClientHeight = 26
ClientHeight = 27
ClientWidth = 180
Columns = 2
Ctl3D = False
Items.Strings = (
'Forward'
'Backward'
@ -251,20 +138,10 @@ object ReplaceDialogForm: TReplaceDialogForm
end
object EntireScopeCheckBox: TCheckBox
Left = 4
Height = 22
Height = 19
Top = 128
Width = 132
HelpContext = 0
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Width = 107
Caption = 'Search entire file'
State = cbUnchecked
TabOrder = 10
UseOnChange = False
end
end