paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 12:20:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: sort selection: layout

Browse Source 
git-svn-id: trunk@36747 -
This commit is contained in:
mattias 2012-04-13 15:22:53 +00:00
parent 3716b7ad0b
commit 1966581af5
2 changed files with 30 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
ide/sortselectiondlg.lfm
View File

@ -10,7 +10,7 @@ object SortSelectionDialog: TSortSelectionDialog
OnClose = FormClose
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '0.9.31'
LCLVersion = '1.1'
object PreviewGroupBox: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
@ -18,13 +18,13 @@ object SortSelectionDialog: TSortSelectionDialog
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = DirectionRadioGroup
Left = 6
Height = 167
Height = 218
Top = 6
Width = 481
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
Caption = 'PreviewGroupBox'
ClientHeight = 149
ClientHeight = 202
ClientWidth = 477
TabOrder = 4
inline PreviewSynEdit: TSynEdit
@ -35,7 +35,7 @@ object SortSelectionDialog: TSortSelectionDialog
AnchorSideBottom.Control = PreviewGroupBox
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 137
Height = 190
Top = 6
Width = 465
BorderSpacing.Around = 6
@ -532,8 +532,8 @@ object SortSelectionDialog: TSortSelectionDialog
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = DomainRadioGroup
Left = 6
Height = 52
Top = 179
Height = 30
Top = 230
Width = 481
Anchors = [akLeft, akRight, akBottom]
AutoFill = True
@ -542,13 +542,15 @@ object SortSelectionDialog: TSortSelectionDialog
Caption = 'DirectionRadioGroup'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.HorizontalSpacing = 10
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2
ChildSizing.Layout = cclTopToBottomThenLeftToRight
ChildSizing.ControlsPerLine = 5
ColumnLayout = clVerticalThenHorizontal
Columns = 2
Constraints.MinHeight = 30
OnClick = DirectionRadioGroupClick
TabOrder = 1
end
@ -558,8 +560,8 @@ object SortSelectionDialog: TSortSelectionDialog
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = OptionsCheckGroup
Left = 6
Height = 45
Top = 237
Height = 30
Top = 266
Width = 481
Anchors = [akLeft, akRight, akBottom]
AutoFill = True
@ -568,13 +570,14 @@ object SortSelectionDialog: TSortSelectionDialog
Caption = 'DomainRadioGroup'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.HorizontalSpacing = 10
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 3
ChildSizing.ControlsPerLine = 5
Columns = 3
Constraints.MinHeight = 30
OnClick = DomainRadioGroupClick
TabOrder = 2
end
@ -584,8 +587,8 @@ object SortSelectionDialog: TSortSelectionDialog
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ButtonPanel
Left = 6
Height = 52
Top = 288
Height = 30
Top = 302
Width = 481
Anchors = [akLeft, akRight, akBottom]
AutoFill = True
@ -594,20 +597,21 @@ object SortSelectionDialog: TSortSelectionDialog
Caption = 'OptionsCheckGroup'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.HorizontalSpacing = 10
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2
ChildSizing.ControlsPerLine = 5
Columns = 2
Constraints.MinHeight = 30
OnItemClick = OptionsCheckGroupItemClick
TabOrder = 3
end
object ButtonPanel: TButtonPanel
Left = 6
Height = 26
Top = 346
Height = 34
Top = 338
Width = 481
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True

8
ide/sortselectiondlg.pas
View File

@ -45,7 +45,10 @@ uses
LazarusIDEStrConsts, EditorOptions, MiscOptions, SynEditHighlighter;
type
TSortSelDlgState = (ssdPreviewNeedsUpdate, ssdSortedTextNeedsUpdate);
TSortSelDlgState = (
ssdPreviewNeedsUpdate,
ssdSortedTextNeedsUpdate
);
TSortSelDlgStates = set of TSortSelDlgState;
{ TSortSelectionDialog }
@ -365,6 +368,7 @@ begin
with DirectionRadioGroup do begin
Caption:=dlgDirection;
ChildSizing.EnlargeHorizontal:=crsAnchorAligning;
with Items do begin
BeginUpdate;
Add(lisSortSelAscending);
@ -379,6 +383,7 @@ begin
with DomainRadioGroup do begin
Caption:=lisSortSelDomain;
ChildSizing.EnlargeHorizontal:=crsAnchorAligning;
with Items do begin
BeginUpdate;
Add(lisSortSelLines);
@ -395,6 +400,7 @@ begin
with OptionsCheckGroup do begin
Caption:=lisSortSelOptions;
ChildSizing.EnlargeHorizontal:=crsAnchorAligning;
with Items do begin
BeginUpdate;
Add(lisSortSelCaseSensitive);