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