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

added resourcestrings, enlarged findrename dlg

Browse Source 
git-svn-id: trunk@9720 -
This commit is contained in:
mattias 2006-08-14 09:05:05 +00:00
parent 076ebce906
commit 58fa336b31
10 changed files with 692 additions and 206 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/checklfmdlg.pas
View File

@ -269,16 +269,12 @@ begin
end;
//debugln('RemoveDanglingEvents ',s);
MsgResult:=QuestionDlg('Missing Events',
'The following methods used by '+DbgSName(RootComponent)
+' are not in the source'#13
+PascalBuffer.Filename+#13
+#13
+s
+#13
+'Remove the dangling references?'
MsgResult:=QuestionDlg(lisMissingEvents,
Format(lisTheFollowingMethodsUsedByAreNotInTheSourceRemoveTh, [DbgSName(
RootComponent), #13, PascalBuffer.Filename, #13, #13, s, #13])
,mtConfirmation,
[mrYes,'Remove',mrIgnore,'Keep them and continue',mrCancel],0);
[mrYes, lisRemoveThem, mrIgnore, lisKeepThemAndContinue, mrCancel],
0);
if MsgResult=mrYes then begin
ClearDanglingEvents(ListOfPInstancePropInfo);
ComponentModified:=true;

135
ide/findrenameidentifier.lfm
View File

@ -1,64 +1,62 @@
object FindRenameIdentifierDialog: TFindRenameIdentifierDialog
Left = 291
Height = 468
Top = 163
Width = 452
HorzScrollBar.Page = 451
VertScrollBar.Page = 467
ActiveControl = CurrentListBox
BorderStyle = bsSizeToolWin
Caption = 'FindRenameIdentifierDialog'
ClientHeight = 439
ClientWidth = 452
OnClose = FindRenameIdentifierDialogClose
OnCreate = FindRenameIdentifierDialogCreate
PixelsPerInch = 96
Position = poScreenCenter
HorzScrollBar.Page = 451
VertScrollBar.Page = 438
Left = 291
Height = 439
Top = 163
Width = 452
object CurrentGroupBox: TGroupBox
Left = 6
Height = 79
Top = 6
Width = 440
Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
Caption = 'CurrentGroupBox'
ClientHeight = 60
ClientWidth = 436
TabOrder = 0
Left = 6
Height = 78
Top = 6
Width = 440
object CurrentListBox: TListBox
Left = 6
Height = 50
Top = 6
Width = 424
Align = alClient
BorderSpacing.Around = 6
ClickOnSelChange = False
TabOrder = 0
Left = 6
Height = 48
Top = 6
Width = 424
TopIndex = -1
end
end
object NewGroupBox: TGroupBox
Left = 6
Height = 85
Top = 91
Width = 440
Align = alTop
BorderSpacing.Around = 6
Caption = 'NewGroupBox'
ClientHeight = 58
ClientWidth = 436
TabOrder = 1
Left = 6
Height = 76
Top = 90
Width = 440
object NewEdit: TEdit
Align = alTop
BorderSpacing.Around = 6
TabOrder = 0
Text = 'NewEdit'
Left = 6
Height = 23
Top = 6
Width = 424
Align = alTop
BorderSpacing.Around = 6
TabOrder = 0
Text = 'NewEdit'
end
object RenameCheckBox: TCheckBox
Left = 6
Height = 20
Top = 35
Width = 424
Align = alTop
AllowGrayed = True
Anchors = [akTop, akRight]
@ -67,38 +65,45 @@ object FindRenameIdentifierDialog: TFindRenameIdentifierDialog
OnChange = RenameCheckBoxChange
TabOrder = 1
UseOnChange = True
Left = 6
Height = 13
Top = 35
Width = 424
end
end
object ScopeGroupBox: TGroupBox
Left = 6
Height = 244
Top = 182
Width = 440
Align = alTop
BorderSpacing.Around = 6
Caption = 'ScopeGroupBox'
ClientHeight = 206
ClientWidth = 436
TabOrder = 2
Left = 6
Height = 224
Top = 172
Width = 440
object ScopeCommentsCheckBox: TCheckBox
Left = 6
Height = 20
Top = 185
Width = 424
Align = alTop
AllowGrayed = True
BorderSpacing.Around = 6
Caption = 'ScopeCommentsCheckBox'
TabOrder = 0
Left = 6
Height = 13
Top = 184
Width = 424
end
object ScopeRadioGroup: TRadioGroup
Left = 6
Height = 112
Top = 6
Width = 424
Align = alTop
AutoFill = True
BorderSpacing.Around = 6
Caption = 'ScopeRadioGroup'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
Items.Strings = (
'in current unit'
'in main project'
@ -106,58 +111,52 @@ object FindRenameIdentifierDialog: TFindRenameIdentifierDialog
'in all open projects and packages'
)
TabOrder = 1
Left = 6
Height = 112
Top = 6
Width = 424
end
object ExtraFilesGroupBox: TGroupBox
Left = 6
Height = 55
Top = 124
Width = 424
Align = alTop
BorderSpacing.Around = 6
Caption = 'ExtraFilesGroupBox'
ClientHeight = 36
ClientWidth = 420
TabOrder = 2
Left = 6
Height = 54
Top = 124
Width = 424
object ExtraFilesEdit: TEdit
Align = alTop
BorderSpacing.Around = 6
TabOrder = 0
Text = 'ExtraFilesEdit'
Left = 6
Height = 23
Top = 6
Width = 408
Align = alTop
BorderSpacing.Around = 6
TabOrder = 0
Text = 'ExtraFilesEdit'
end
end
end
object FindOrRenameButton: TButton
AnchorSideRight.Control = CancelButton
Left = 216
Height = 26
Top = 436
Width = 133
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Right = 8
BorderSpacing.InnerBorder = 4
Caption = 'FindOrRenameButton'
OnClick = FindOrRenameButtonClick
TabOrder = 3
AnchorSideRight.Control = CancelButton
Left = 224
Height = 29
Top = 404
Width = 126
end
object CancelButton: TButton
Left = 357
Height = 26
Top = 436
Width = 89
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.InnerBorder = 4
Caption = 'CancelButton'
ModalResult = 2
TabOrder = 4
Left = 358
Height = 29
Top = 404
Width = 88
end
end

97
ide/findrenameidentifier.lrs
View File

@ -1,48 +1,53 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TFindRenameIdentifierDialog','FORMDATA',[
'TPF0'#27'TFindRenameIdentifierDialog'#26'FindRenameIdentifierDialog'#13'Acti'
+'veControl'#7#14'CurrentListBox'#11'BorderStyle'#7#13'bsSizeToolWin'#7'Capti'
+'on'#6#26'FindRenameIdentifierDialog'#12'ClientHeight'#3#183#1#11'ClientWidt'
+'h'#3#196#1#7'OnClose'#7#31'FindRenameIdentifierDialogClose'#8'OnCreate'#7' '
+'FindRenameIdentifierDialogCreate'#13'PixelsPerInch'#2'`'#8'Position'#7#14'p'
+'oScreenCenter'#18'HorzScrollBar.Page'#3#195#1#18'VertScrollBar.Page'#3#182#1
+#4'Left'#3'#'#1#6'Height'#3#183#1#3'Top'#3#163#0#5'Width'#3#196#1#0#9'TGroup'
+'Box'#15'CurrentGroupBox'#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLef'
+'t'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#15'Cu'
+'rrentGroupBox'#12'ClientHeight'#2'<'#11'ClientWidth'#3#180#1#8'TabOrder'#2#0
+#4'Left'#2#6#6'Height'#2'N'#3'Top'#2#6#5'Width'#3#184#1#0#8'TListBox'#14'Cur'
+'rentListBox'#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#6#16'ClickOn'
+'SelChange'#8#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2'0'#3'Top'#2#6#5'Width'
+#3#168#1#0#0#0#9'TGroupBox'#11'NewGroupBox'#5'Align'#7#5'alTop'#20'BorderSpa'
+'cing.Around'#2#6#7'Caption'#6#11'NewGroupBox'#12'ClientHeight'#2':'#11'Clie'
+'ntWidth'#3#180#1#8'TabOrder'#2#1#4'Left'#2#6#6'Height'#2'L'#3'Top'#2'Z'#5'W'
+'idth'#3#184#1#0#5'TEdit'#7'NewEdit'#5'Align'#7#5'alTop'#20'BorderSpacing.Ar'
+'ound'#2#6#8'TabOrder'#2#0#4'Text'#6#7'NewEdit'#4'Left'#2#6#6'Height'#2#23#3
+'Top'#2#6#5'Width'#3#168#1#0#0#9'TCheckBox'#14'RenameCheckBox'#5'Align'#7#5
+'alTop'#11'AllowGrayed'#9#7'Anchors'#11#5'akTop'#7'akRight'#0#20'BorderSpaci'
+'ng.Around'#2#6#7'Caption'#6#14'RenameCheckBox'#8'OnChange'#7#20'RenameCheck'
+'BoxChange'#8'TabOrder'#2#1#11'UseOnChange'#9#4'Left'#2#6#6'Height'#2#13#3'T'
+'op'#2'#'#5'Width'#3#168#1#0#0#0#9'TGroupBox'#13'ScopeGroupBox'#5'Align'#7#5
+'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6#13'ScopeGroupBox'#12'Clien'
+'tHeight'#3#206#0#11'ClientWidth'#3#180#1#8'TabOrder'#2#2#4'Left'#2#6#6'Heig'
+'ht'#3#224#0#3'Top'#3#172#0#5'Width'#3#184#1#0#9'TCheckBox'#21'ScopeComments'
+'CheckBox'#5'Align'#7#5'alTop'#11'AllowGrayed'#9#20'BorderSpacing.Around'#2#6
+#7'Caption'#6#21'ScopeCommentsCheckBox'#8'TabOrder'#2#0#4'Left'#2#6#6'Height'
+#2#13#3'Top'#3#184#0#5'Width'#3#168#1#0#0#11'TRadioGroup'#15'ScopeRadioGroup'
+#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6#15'ScopeRadio'
+'Group'#13'Items.Strings'#1#6#15'in current unit'#6#15'in main project'#6#30
+'in project/package owning file'#6'!in all open projects and packages'#0#8'T'
+'abOrder'#2#1#4'Left'#2#6#6'Height'#2'p'#3'Top'#2#6#5'Width'#3#168#1#0#0#9'T'
+'GroupBox'#18'ExtraFilesGroupBox'#5'Align'#7#5'alTop'#20'BorderSpacing.Aroun'
+'d'#2#6#7'Caption'#6#18'ExtraFilesGroupBox'#12'ClientHeight'#2'$'#11'ClientW'
+'idth'#3#164#1#8'TabOrder'#2#2#4'Left'#2#6#6'Height'#2'6'#3'Top'#2'|'#5'Widt'
+'h'#3#168#1#0#5'TEdit'#14'ExtraFilesEdit'#5'Align'#7#5'alTop'#20'BorderSpaci'
+'ng.Around'#2#6#8'TabOrder'#2#0#4'Text'#6#14'ExtraFilesEdit'#4'Left'#2#6#6'H'
+'eight'#2#23#3'Top'#2#6#5'Width'#3#152#1#0#0#0#0#7'TButton'#18'FindOrRenameB'
+'utton'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#19'BorderSpacin'
+'g.Right'#2#8#7'Caption'#6#18'FindOrRenameButton'#7'OnClick'#7#23'FindOrRena'
+'meButtonClick'#8'TabOrder'#2#3#23'AnchorSideRight.Control'#7#12'CancelButto'
+'n'#4'Left'#3#224#0#6'Height'#2#29#3'Top'#3#148#1#5'Width'#2'~'#0#0#7'TButto'
+'n'#12'CancelButton'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#7
+'Caption'#6#12'CancelButton'#11'ModalResult'#2#2#8'TabOrder'#2#4#4'Left'#3'f'
+#1#6'Height'#2#29#3'Top'#3#148#1#5'Width'#2'X'#0#0#0
'TPF0'#27'TFindRenameIdentifierDialog'#26'FindRenameIdentifierDialog'#4'Left'
+#3'#'#1#6'Height'#3#212#1#3'Top'#3#163#0#5'Width'#3#196#1#18'HorzScrollBar.P'
+'age'#3#195#1#18'VertScrollBar.Page'#3#211#1#13'ActiveControl'#7#14'CurrentL'
+'istBox'#11'BorderStyle'#7#13'bsSizeToolWin'#7'Caption'#6#26'FindRenameIdent'
+'ifierDialog'#7'OnClose'#7#31'FindRenameIdentifierDialogClose'#8'OnCreate'#7
+' FindRenameIdentifierDialogCreate'#8'Position'#7#14'poScreenCenter'#0#9'TGr'
+'oupBox'#15'CurrentGroupBox'#4'Left'#2#6#6'Height'#2'O'#3'Top'#2#6#5'Width'#3
+#184#1#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akB'
+'ottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#15'CurrentGroupBox'#8'Ta'
+'bOrder'#2#0#0#8'TListBox'#14'CurrentListBox'#4'Left'#2#6#6'Height'#2'2'#3'T'
+'op'#2#6#5'Width'#3#168#1#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#6
+#16'ClickOnSelChange'#8#8'TabOrder'#2#0#8'TopIndex'#2#255#0#0#0#9'TGroupBox'
+#11'NewGroupBox'#4'Left'#2#6#6'Height'#2'U'#3'Top'#2'['#5'Width'#3#184#1#5'A'
+'lign'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6#11'NewGroupBox'#8
+'TabOrder'#2#1#0#5'TEdit'#7'NewEdit'#4'Left'#2#6#6'Height'#2#23#3'Top'#2#6#5
+'Width'#3#168#1#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#8'TabOrder'
+#2#0#4'Text'#6#7'NewEdit'#0#0#9'TCheckBox'#14'RenameCheckBox'#4'Left'#2#6#6
+'Height'#2#20#3'Top'#2'#'#5'Width'#3#168#1#5'Align'#7#5'alTop'#11'AllowGraye'
+'d'#9#7'Anchors'#11#5'akTop'#7'akRight'#0#20'BorderSpacing.Around'#2#6#7'Cap'
+'tion'#6#14'RenameCheckBox'#8'OnChange'#7#20'RenameCheckBoxChange'#8'TabOrde'
+'r'#2#1#11'UseOnChange'#9#0#0#0#9'TGroupBox'#13'ScopeGroupBox'#4'Left'#2#6#6
+'Height'#3#244#0#3'Top'#3#182#0#5'Width'#3#184#1#5'Align'#7#5'alTop'#20'Bord'
+'erSpacing.Around'#2#6#7'Caption'#6#13'ScopeGroupBox'#8'TabOrder'#2#2#0#9'TC'
+'heckBox'#21'ScopeCommentsCheckBox'#4'Left'#2#6#6'Height'#2#20#3'Top'#3#185#0
+#5'Width'#3#168#1#5'Align'#7#5'alTop'#11'AllowGrayed'#9#20'BorderSpacing.Aro'
+'und'#2#6#7'Caption'#6#21'ScopeCommentsCheckBox'#8'TabOrder'#2#0#0#0#11'TRad'
+'ioGroup'#15'ScopeRadioGroup'#4'Left'#2#6#6'Height'#2'p'#3'Top'#2#6#5'Width'
+#3#168#1#5'Align'#7#5'alTop'#8'AutoFill'#9#20'BorderSpacing.Around'#2#6#7'Ca'
+'ption'#6#15'ScopeRadioGroup'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildS'
+'izing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomog'
+'enousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildRe'
+'size'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.'
+'ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToR'
+'ightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#13'Items.Strings'#1
+#6#15'in current unit'#6#15'in main project'#6#30'in project/package owning '
+'file'#6'!in all open projects and packages'#0#8'TabOrder'#2#1#0#0#9'TGroupB'
+'ox'#18'ExtraFilesGroupBox'#4'Left'#2#6#6'Height'#2'7'#3'Top'#2'|'#5'Width'#3
+#168#1#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6#18'Extr'
+'aFilesGroupBox'#8'TabOrder'#2#2#0#5'TEdit'#14'ExtraFilesEdit'#4'Left'#2#6#6
+'Height'#2#23#3'Top'#2#6#5'Width'#3#152#1#5'Align'#7#5'alTop'#20'BorderSpaci'
+'ng.Around'#2#6#8'TabOrder'#2#0#4'Text'#6#14'ExtraFilesEdit'#0#0#0#0#7'TButt'
+'on'#18'FindOrRenameButton'#23'AnchorSideRight.Control'#7#12'CancelButton'#4
+'Left'#3#216#0#6'Height'#2#26#3'Top'#3#180#1#5'Width'#3#133#0#7'Anchors'#11#7
+'akRight'#8'akBottom'#0#8'AutoSize'#9#19'BorderSpacing.Right'#2#8#25'BorderS'
+'pacing.InnerBorder'#2#4#7'Caption'#6#18'FindOrRenameButton'#7'OnClick'#7#23
+'FindOrRenameButtonClick'#8'TabOrder'#2#3#0#0#7'TButton'#12'CancelButton'#4
+'Left'#3'e'#1#6'Height'#2#26#3'Top'#3#180#1#5'Width'#2'Y'#7'Anchors'#11#7'ak'
+'Right'#8'akBottom'#0#8'AutoSize'#9#25'BorderSpacing.InnerBorder'#2#4#7'Capt'
+'ion'#6#12'CancelButton'#11'ModalResult'#2#2#8'TabOrder'#2#4#0#0#0
]);

6
ide/lazarusidestrconsts.pas
View File

@ -2181,6 +2181,8 @@ resourcestring
lisExtToolUnableToRunTheTool = 'Unable to run the tool %s%s%s:%s%s';
lisExtToolExternalTools = 'External tools';
lisExtToolRemove = 'Remove';
lisKeepThemAndContinue = 'Keep them and continue';
lisRemoveThem = 'Remove them';
lisExtToolMoveUp = 'Up';
lisExtToolMoveDown = 'Down';
lisExtToolMaximumToolsReached = 'Maximum Tools reached';
@ -2814,6 +2816,10 @@ resourcestring
+'LCL. The normal fix is to remove these properties from the lfm and fix '
+'the pascal code manually.';
lisFixLFMFile = 'Fix LFM file';
lisMissingEvents = 'Missing Events';
lisTheFollowingMethodsUsedByAreNotInTheSourceRemoveTh = 'The following '
+'methods used by %s are not in the source%s%s%s%s%s%sRemove the dangling '
+'references?';
// extract proc dialog
lisNoCodeSelected = 'No code selected';

14
lcl/include/finddialog.inc
View File

@ -22,18 +22,16 @@ type
{ TFindDialogForm }
TFindDialogForm = class(TForm)
FindButton: TButton;
CancelButton: TButton;
HelpButton: TButton;
WholeWordsOnlyCheckBox: TCheckBox;
ButtonPanel1: TButtonPanel;
CancelButton: TPanelBitBtn;
CaseSensitiveCheckBox: TCheckBox;
EditFind: TEdit;
FindLabel: TLabel;
DirectionRadioGroup: TRadioGroup;
EditFind: TEdit;
FindButton: TPanelBitBtn;
FindLabel: TLabel;
WholeWordsOnlyCheckBox: TCheckBox;
procedure EditFindChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
public
end;
procedure TFindDialogForm.EditFindChange(Sender: TObject);

25
lcl/ldockctrl.pas
View File

@ -345,6 +345,7 @@ var
TargetDocker: TCustomLazControlDocker;
Side: TAlign;
CurDocker: TCustomLazControlDocker;
Anchor: TAnchorKind;
begin
Dlg:=TLazDockControlEditorDlg.Create(nil);
try
@ -369,7 +370,17 @@ begin
// enable Undock button, if Control is docked
Dlg.UndockGroupBox.Enabled:=(Control.Parent<>nil)
and (Control.Parent.ControlCount>1);
// enable enlarge buttons
Dlg.EnlargeLeftSpeedButton.Enabled:=
Manager.Manager.EnlargeControl(Control,akLeft,true);
Dlg.EnlargeTopSpeedButton.Enabled:=
Manager.Manager.EnlargeControl(Control,akTop,true);
Dlg.EnlargeRightSpeedButton.Enabled:=
Manager.Manager.EnlargeControl(Control,akRight,true);
Dlg.EnlargeBottomSpeedButton.Enabled:=
Manager.Manager.EnlargeControl(Control,akBottom,true);
if Dlg.ShowModal=mrOk then begin
// dock or undock
case Dlg.DlgResult of
@ -400,6 +411,18 @@ begin
end;
Manager.Manager.DockControl(Control,Side,TargetDocker.Control);
end;
ldcedrEnlargeLeft,ldcedrEnlargeTop,ldcedrEnlargeRight,ldcedrEnlargeBottom:
begin
// enlarge
case Dlg.DlgResult of
ldcedrEnlargeLeft: Anchor:=akLeft;
ldcedrEnlargeRight: Anchor:=akRight;
ldcedrEnlargeTop: Anchor:=akTop;
ldcedrEnlargeBottom: Anchor:=akBottom;
else RaiseGDBException('TCustomLazControlDocker.ShowDockingEditor ?');
end;
Manager.Manager.EnlargeControl(Control,Anchor);
end;
end;
end;
finally

291
lcl/ldockctrledit.lfm
View File

@ -1,16 +1,13 @@
object LazDockControlEditorDlg: TLazDockControlEditorDlg
Left = 286
Height = 328
Height = 375
Top = 202
Width = 310
HorzScrollBar.Page = 309
VertScrollBar.Page = 327
VertScrollBar.Page = 374
ActiveControl = UndockButton
Caption = 'LazDockControlEditorDlg'
ClientHeight = 328
ClientWidth = 310
OnCreate = FormCreate
PixelsPerInch = 95
object UndockGroupBox: TGroupBox
Left = 8
Height = 53
@ -21,8 +18,6 @@ object LazDockControlEditorDlg: TLazDockControlEditorDlg
Caption = 'UndockGroupBox'
ChildSizing.LeftRightSpacing = 5
ChildSizing.TopBottomSpacing = 5
ClientHeight = 36
ClientWidth = 291
TabOrder = 0
object UndockButton: TButton
Left = 5
@ -30,7 +25,7 @@ object LazDockControlEditorDlg: TLazDockControlEditorDlg
Top = 5
Width = 87
AutoSize = True
BorderSpacing.InnerBorder = 4
Caption = 'UndockButton'
OnClick = UndockButtonClick
TabOrder = 0
@ -49,8 +44,6 @@ object LazDockControlEditorDlg: TLazDockControlEditorDlg
Caption = 'DockGroupBox'
ChildSizing.LeftRightSpacing = 5
ChildSizing.TopBottomSpacing = 5
ClientHeight = 190
ClientWidth = 291
TabOrder = 1
object DockControlLabel: TLabel
AnchorSideTop.Control = DockControlComboBox
@ -73,7 +66,7 @@ object LazDockControlEditorDlg: TLazDockControlEditorDlg
Width = 94
AutoSize = True
BorderSpacing.Top = 5
BorderSpacing.InnerBorder = 4
Caption = 'DockLeftButton'
OnClick = DockLeftButtonClick
TabOrder = 0
@ -88,7 +81,7 @@ object LazDockControlEditorDlg: TLazDockControlEditorDlg
Width = 102
AutoSize = True
BorderSpacing.Top = 5
BorderSpacing.InnerBorder = 4
Caption = 'DockRightButton'
OnClick = DockRightButtonClick
TabOrder = 1
@ -103,7 +96,7 @@ object LazDockControlEditorDlg: TLazDockControlEditorDlg
Width = 95
AutoSize = True
BorderSpacing.Top = 5
BorderSpacing.InnerBorder = 4
Caption = 'DockTopButton'
OnClick = DockTopButtonClick
TabOrder = 2
@ -118,7 +111,7 @@ object LazDockControlEditorDlg: TLazDockControlEditorDlg
Width = 111
AutoSize = True
BorderSpacing.Top = 5
BorderSpacing.InnerBorder = 4
Caption = 'DockBottomButton'
OnClick = DockBottomButtonClick
TabOrder = 3
@ -133,7 +126,7 @@ object LazDockControlEditorDlg: TLazDockControlEditorDlg
Width = 103
AutoSize = True
BorderSpacing.Top = 5
BorderSpacing.InnerBorder = 4
Caption = 'DockPageButton'
OnClick = DockPageButtonClick
TabOrder = 4
@ -155,18 +148,276 @@ object LazDockControlEditorDlg: TLazDockControlEditorDlg
end
end
object CancelButton: TButton
AnchorSideTop.Control = DockGroupBox
AnchorSideTop.Control = EnlargeGroupBox
AnchorSideTop.Side = asrBottom
Left = 112
Left = 110
Height = 26
Top = 284
Width = 85
Top = 341
Width = 89
Anchors = [akTop]
AutoSize = True
BorderSpacing.Top = 10
BorderSpacing.InnerBorder = 4
Caption = 'CancelButton'
ModalResult = 2
TabOrder = 2
end
object EnlargeGroupBox: TGroupBox
Left = 8
Height = 56
Top = 275
Width = 295
Anchors = [akTop, akLeft, akRight]
AutoSize = True
Caption = 'EnlargeGroupBox'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.HorizontalSpacing = 6
ChildSizing.VerticalSpacing = 6
ChildSizing.Layout = cclTopToBottomThenLeftToRight
TabOrder = 3
object EnlargeLeftSpeedButton: TSpeedButton
Left = 6
Height = 27
Top = 6
Width = 25
Color = clBtnFace
Glyph.Data = {
FF0500002F2A2058504D202A2F0A7374617469632063686172202A6772617068
69635B5D203D207B0A2232322032322036312031222C0A222E2063204E6F6E65
222C0A222C20632023464646464646222C0A222D20632023424444374137222C
0A222A20632023334237333034222C0A226120632023333937333038222C0A22
6220632023334237373033222C0A226320632023433744464146222C0A226420
632023433644464144222C0A226520632023414644373843222C0A2266206320
23383742443532222C0A226720632023383542463533222C0A22682063202338
3742463537222C0A226920632023384442443542222C0A226A20632023384542
443541222C0A226B20632023383642443537222C0A226C206320234244444541
35222C0A226D20632023334237373034222C0A226E2063202338364237344622
2C0A226F20632023383442373446222C0A227020632023383442373445222C0A
227120632023424444363944222C0A227220632023334437373033222C0A2273
20632023374242463339222C0A227420632023374642463344222C0A22752063
2023353738433231222C0A227620632023413544373742222C0A227720632023
384443453445222C0A227820632023373342463242222C0A2279206320233737
42463331222C0A227A20632023373342463239222C0A22412063202336374237
3146222C0A224220632023354641463133222C0A224320632023344539453036
222C0A224420632023344238363134222C0A224520632023394543463733222C
0A224620632023384343463445222C0A224720632023363342463046222C0A22
4820632023363342373045222C0A224920632023354642353043222C0A224A20
632023354241463041222C0A224B20632023353641353038222C0A224C206320
23353239443036222C0A224D20632023353239463039222C0A224E2063202341
3543463742222C0A224F20632023333937333034222C0A225020632023354241
463042222C0A225120632023353641373039222C0A2252206320233533394630
37222C0A225320632023303030303030222C0A22542063202333443737303822
2C0A225520632023394644373642222C0A225620632023414444373834222C0A
225720632023323534373034222C0A225820632023334437373034222C0A2259
20632023374241463436222C0A225A20632023413744373733222C0A22302063
2023364242373145222C0A223120632023313732423030222C0A223220632023
363739443335222C0A223320632023413744363737222C0A2234206320234144
44363834222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C
0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E
2E2E2C2C2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2C2E2E2E2E2E
2E2E2E2E2E2C2C2C2C2C2C2C222C0A222E2E2E2E2E2E2E2E2E2E2E2D2A2E2E2E
2E2E2E2E2E2E222C0A222E2E2E2C2E2E2E2E2E2E2E2E2E2E2E2E2E2C2C2C2C2E
222C0A222E2E2E2E2E2E61622E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222C2C
2C2C2C2E2E2E2E2E2E2E2E2E63642E2E2E2E2E2E222C0A222E2E2E2E2E2E2E65
666768696A6A69686B6C6D2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E
6E6F70716D2C2C2C222C0A222C2C722E2E2E73742E2E2E2E2E2E2E2E2E2E2E2E
2E2C222C0A222C2C7275767778797A41422E2E2E43432E2E2E2E2E2E222C0A22
2E2E2E6D4445464748494A4B4C4343434D4E4F2E2E2E222C0A222E2E2E2E2E2E
2E2E2E2E5051524343434D4E4F53532C222C0A222C2C2C2E2E2E542E552E2E56
2E2E2E2E2E2E4F535353222C0A222C2C2C5353535758595A302E2E2E2E2E2A2A
2E2E2E2E222C0A222E2E2E53535353312A3233342A5353535353532E2E2E222C
0A222C2E2E532E2E2E2E2E2E2E2E2E535353535353535353222C0A222C2C2C2E
2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222C2C2C2C535353535353
532E2E2E2E53535353535353222C0A222E2E2E2E2E2E2E535353535353535353
5353532E2E2E222C0A222E2E2E2C2E2E2E2E2E2E2E2E2E2E2E2E53532C2C2C2E
227D0A
}
NumGlyphs = 0
OnClick = EnlargeLeftSpeedButtonClick
ShowHint = True
ParentShowHint = False
end
object EnlargeRightSpeedButton: TSpeedButton
Left = 37
Height = 27
Top = 6
Width = 25
Color = clBtnFace
Glyph.Data = {
D20500002F2A2058504D202A2F0A7374617469632063686172202A6772617068
69635B5D203D207B0A2232322032322035382031222C0A222E2063204E6F6E65
222C0A222C20632023464646464646222C0A222D20632023334237373034222C
0A222A20632023424644454135222C0A226120632023334237333034222C0A22
6220632023424444373944222C0A226320632023433644464137222C0A226420
632023393742463646222C0A226520632023334437373037222C0A2266206320
23423744373945222C0A226720632023383442443533222C0A22682063202338
3742463537222C0A226920632023384442443542222C0A226A20632023384542
443541222C0A226B20632023414644373843222C0A226C206320233836423734
46222C0A226D20632023383642443446222C0A226E2063202338364246344222
2C0A226F20632023383542443441222C0A227020632023413543463737222C0A
227120632023414644373837222C0A227220632023344638353142222C0A2273
20632023303030303030222C0A227420632023373341443335222C0A22752063
2023364241463246222C0A227620632023334437373033222C0A227720632023
413743463746222C0A227820632023353739453130222C0A2279206320233445
39453036222C0A227A20632023373742443333222C0A22412063202337374246
3244222C0A224220632023394443363737222C0A224320632023353339443044
222C0A224420632023344639433036222C0A224520632023353641353038222C
0A224620632023354241463041222C0A224720632023354642353043222C0A22
4820632023363342373045222C0A224920632023384443463441222C0A224A20
632023413544363733222C0A224B20632023344538373137222C0A224C206320
23334237373033222C0A224D20632023353641373039222C0A224E2063202335
4241463042222C0A224F20632023363342353046222C0A225020632023393444
363541222C0A225120632023394443463642222C0A2252206320233433374230
46222C0A225320632023333536423034222C0A22542063202341374345374622
2C0A225520632023354241443044222C0A225620632023363742353145222C0A
225720632023333937333034222C0A225820632023364239443339222C0A2259
20632023304631463030222C0A225A20632023354138453239222C0A22302063
2023333536463033222C0A223120632023303730453030222C0A222E2E2E2E2E
2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E
2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E2C2C2E2E2E2E2E2E2E2E2E
2E2E2E2E2E222C0A222E2C2E2E2E2E2E2E2E2E2E2E2E2E2E2C2C2C2C2C2C2C22
2C0A222E2E2E2E2E2E2E2E2E2D2A2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E
2C2E2E2E2E2E2E2E2E2E2E2E2E2E2C2C2C2C2E222C0A222E2E2E2E2E2E61612E
2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2C2C6162632E2E2E2E2E2E2E2E64
652E2E2E2E2E2E222C0A222E2E2E2D66676768696A6A6968686B2E2E2E2E2E2E
2E222C0A222E2E2E2E2E2E2E2E2E2E2E6C6D6E6F7071722D732C2C222C0A222E
2E2E2E2E2E74752E2E2E2E2E2E2E2E2E2E2E762C2C222C0A222C2C2C2D777879
79792E2E2E2E2E7A412E2E2E2E2E2E222C0A222E2E2E2D424379797979444546
4748494A4B4C2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E4D4E4F5051525373
73732C222C0A222C2C2C612E2E542E542E2E552E2E2E2E2E2E2E737373222C0A
222C2C2C4C61616161612D54562E2E2E2E73732E2E2E2E222C0A222E2E2E7373
73737373575470585759737373732E2E2E222C0A222C2E2E732E2E2E2E2E2E2E
5A30317373737373737373222C0A222C2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
2E2E737373222C0A222C2C2C2C737373732E2E2E2E2E2E2E7373737373737322
2C0A222E2E2E2C2C737373737373737373732E2E2E2E2E2E2E222C0A222E2E2E
2C2E2E2E2E2E2E2E2E2E2E2E2E2E732C2C2C2C227D0A
}
NumGlyphs = 0
OnClick = EnlargeRightSpeedButtonClick
ShowHint = True
ParentShowHint = False
end
object EnlargeTopSpeedButton: TSpeedButton
Left = 68
Height = 27
Top = 6
Width = 25
Color = clBtnFace
Glyph.Data = {
870500002F2A2058504D202A2F0A7374617469632063686172202A6772617068
69635B5D203D207B0A2232322032322035332031222C0A222E2063204E6F6E65
222C0A222C20632023464646464646222C0A222D20632023363339363333222C
0A222A20632023354138463235222C0A226120632023334237333035222C0A22
6220632023334437373036222C0A226320632023333737373036222C0A226420
632023413743453835222C0A226520632023373341463342222C0A2266206320
23364241443244222C0A226720632023363341353146222C0A22682063202335
3739463133222C0A226920632023384542443541222C0A226A20632023364641
373346222C0A226B20632023334237373034222C0A226C206320233432383430
30222C0A226D20632023354138453242222C0A226E2063202342444436394322
2C0A226F20632023384543363545222C0A227020632023374642443437222C0A
227120632023424644463944222C0A227220632023424644453946222C0A2273
20632023424444463944222C0A227420632023373742463333222C0A22752063
2023363742353143222C0A227620632023354542373045222C0A227720632023
354542373043222C0A227820632023354642353043222C0A2279206320233545
41463043222C0A227A20632023413544363742222C0A22412063202341374436
3746222C0A224220632023413744363834222C0A224320632023363342443045
222C0A224420632023363342373045222C0A224520632023414644373746222C
0A224620632023343237463043222C0A224720632023334237373035222C0A22
4820632023333937373034222C0A224920632023334237333034222C0A224A20
632023364243363131222C0A224B20632023414444453836222C0A224C206320
23363742443130222C0A224D20632023364243373131222C0A224E2063202336
4643453133222C0A224F20632023363742463130222C0A225020632023364243
373132222C0A225120632023364643463134222C0A2252206320233733443731
35222C0A225320632023414644463834222C0A22542063202333443737303822
2C0A225520632023364643463133222C0A225620632023414444453834222C0A
225720632023303030303030222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E
222C0A222E2E2E2E2E2E2C2C2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E
2E2E2E2E2E2E2E2E2E2E2E2E2E2C2C2C2C2C2C2C222C0A222E2E2E2E2E2E2E2E
2E2E2D2A2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2C2E2E2E2E2E2E2E2E2E2E
2E2E2E2E2C2C2C2E222C0A222E2E2E2E2E2E2C612E2E2E2E2E2E2E2E2E2E2E2E
2E2E222C0A222E2C2C2C2C2E2E2E2E2E2E2E2E2E62632E2E2E2E2E2E222C0A22
2E2E2E2E2E2E2E2E6465666768692E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E
2E2E2E2E2E2E2E2E2E6A6B6C2C2C2C2C222C0A222E2E2E2E2E2E2E2E2E2E2E2E
2E2E2E2E2E2E2E2E2E2E222C0A222C2C2C6B6D6E6F702E2E2E2E2E2E2E2E2E2E
2E2E2E2E222C0A222E2E2E2E2E7172737475767778797A41422E2E2E2E2E222C
0A222E2E2E2E2E2E2E2E2E2E2E2E434445464748496B2C2C222C0A222C2C2E2E
2E2E492E432E2E4A2E2E2E2E2E2E2E2E2C2C222C0A222C2C2C2C2C2C494B4C4D
4E2E2E2E2E2E2C2C2E2E2E2E222C0A222E2E2E2C2C2C494B4F50515251505354
2C2C2C2E2E2E222C0A222C2E2E2C2E2E2E2E2E2E5055504A56542C2C2C2C2C2C
222C0A222C2C2C2C2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222C2C
5757575749492E2E2E2E2E2E2E4957575757572C222C0A222E2E2E2E2E2E5757
57575757575757572E2E2E2E2E2E222C0A222E2E2E2C2E2E2E2E2E2E2E2E2E2E
575757572C2C2C2C227D0A
}
NumGlyphs = 0
OnClick = EnlargeTopSpeedButtonClick
ShowHint = True
ParentShowHint = False
end
object EnlargeBottomSpeedButton: TSpeedButton
Left = 99
Height = 27
Top = 6
Width = 25
Color = clBtnFace
Glyph.Data = {
1D0600002F2A2058504D202A2F0A7374617469632063686172202A6772617068
69635B5D203D207B0A2232322032322036332031222C0A222E2063204E6F6E65
222C0A222C20632023334237373034222C0A222D20632023334237333034222C
0A222A20632023464646464646222C0A226120632023433644464137222C0A22
6220632023433644454137222C0A226320632023383542373446222C0A226420
632023374242373436222C0A226520632023373341463342222C0A2266206320
23364641463331222C0A226720632023363741373237222C0A22682063202335
4541373143222C0A226920632023413543453835222C0A226A20632023413543
453834222C0A226B20632023413543463746222C0A226C206320233344373730
35222C0A226D20632023424644454135222C0A226E2063202337464244344222
2C0A226F20632023374242373433222C0A227020632023373742353337222C0A
227120632023373342353331222C0A227220632023363742353231222C0A2273
20632023353741373042222C0A227420632023413744363834222C0A22752063
2023414644373835222C0A227620632023413744363746222C0A227720632023
394543373733222C0A227820632023343637463131222C0A2279206320233339
37373033222C0A227A20632023334437373033222C0A22412063202336463946
3432222C0A224220632023424444463944222C0A224320632023384443373533
222C0A224420632023374242463342222C0A224520632023363342373133222C
0A224620632023363342443046222C0A224720632023363742443130222C0A22
4820632023353735373030222C0A224920632023374641443532222C0A224A20
632023423544453844222C0A224B20632023363742373142222C0A224C206320
23363742463130222C0A224D20632023364243363132222C0A224E2063202336
4243373132222C0A224F20632023364643373136222C0A225020632023413744
453646222C0A225120632023374242353437222C0A2252206320233432383430
30222C0A225320632023373343453134222C0A22542063202339444446363322
2C0A225520632023384643373541222C0A225620632023333537373030222C0A
225720632023334637333030222C0A225820632023384543373545222C0A2259
20632023334237333035222C0A225A20632023343337423042222C0A22302063
2023394543453642222C0A223120632023334237373033222C0A223220632023
343637463132222C0A223320632023413744373733222C0A2234206320234144
44373742222C0A223520632023353238453145222C0A22362063202330303030
3030222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A22
2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222E2E2E2E2E2E
2C2D2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222A2A2A2A2A2A2D612E2E2E2E
2E2E2E2D2A2A2A2A2A2A222C0A222E2E2E2E2E2E2D62636465666768692D2E2E
2E2E2E2E222C0A222E2E2E2A2E2E2E2E2E2E2E2E2E2E6A2D2A2A2A2A2A2A222C
0A222E2E2E2E2E2E2D612E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222A2A2A2A
2A2A2D612E2E2E2E2E2E6B2D2E2E2E2E2E2E222C0A222E2E2E2E2E2E6C6D6E6F
70717273746C2E2E2E2E2E2E222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E7576
767778792A2A222C0A222E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2C2A2A2A
222C0A222A2A2A2A7A414243444546472E2E2E2E2E2E2E2E2E2E222C0A222E2E
2E2A482C494A4B464C4D4E4F50516C522A2E2E2E222C0A222E2E2E2E2E2E2E2E
2E2E2E2E5354556C562A2A2A2A2A222C0A222A2A2A2E2E2E572E582E2E4E2E2E
2E2E2E2E2E2E2A2A222C0A222A2A2A2A2A2A2A595A302E2E2E2E2E2E2A2A2E2E
2E2E222C0A222E2E2E2E2E2A2A2A31323334352C2A2A2A2E2E2E2E2E222C0A22
2A2E2E2A2E2E2E2E2E2E2E2E2E2E2A2A2A2A2A2A2A2A222C0A222E2E2E2E2E2E
2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E2E222C0A222A2A36363636362E2E2E2E2E
2E2E2E3636363636362A222C0A222E2E2E2E2E2E2E2E3636363636362E2E2E2E
2E2E2E2E222C0A222E2E2E2A2E2E2E2E2E2E2E2E2E2E2E2E2E362A2A2A2E227D
0A
}
NumGlyphs = 0
OnClick = EnlargeBottomSpeedButtonClick
ShowHint = True
ParentShowHint = False
end
end
end

223
lcl/ldockctrledit.lrs
View File

@ -1,56 +1,175 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TLazDockControlEditorDlg','FORMDATA',[
'TPF0'#24'TLazDockControlEditorDlg'#23'LazDockControlEditorDlg'#4'Left'#3#30#1
+#6'Height'#3'H'#1#3'Top'#3#202#0#5'Width'#3'6'#1#18'HorzScrollBar.Page'#3'5'
+#1#18'VertScrollBar.Page'#3'G'#1#13'ActiveControl'#7#12'UndockButton'#7'Capt'
+'ion'#6#23'LazDockControlEditorDlg'#12'ClientHeight'#3'H'#1#11'ClientWidth'#3
+'6'#1#8'OnCreate'#7#10'FormCreate'#13'PixelsPerInch'#2'_'#0#9'TGroupBox'#14
+'UndockGroupBox'#4'Left'#2#8#6'Height'#2'5'#3'Top'#2#8#5'Width'#3''''#1#7'An'
+'chors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#7'Caption'#6#14'Und'
+#6'Height'#3'w'#1#3'Top'#3#202#0#5'Width'#3'6'#1#18'HorzScrollBar.Page'#3'5'
+#1#18'VertScrollBar.Page'#3'v'#1#13'ActiveControl'#7#12'UndockButton'#7'Capt'
+'ion'#6#23'LazDockControlEditorDlg'#8'OnCreate'#7#10'FormCreate'#0#9'TGroupB'
+'ox'#14'UndockGroupBox'#4'Left'#2#8#6'Height'#2'5'#3'Top'#2#8#5'Width'#3''''
+#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#7'Caption'#6
+#14'UndockGroupBox'#28'ChildSizing.LeftRightSpacing'#2#5#28'ChildSizing.TopB'
+'ottomSpacing'#2#5#8'TabOrder'#2#0#0#7'TButton'#12'UndockButton'#4'Left'#2#5
+#6'Height'#2#26#3'Top'#2#5#5'Width'#2'W'#8'AutoSize'#9#25'BorderSpacing.Inne'
+'rBorder'#2#4#7'Caption'#6#12'UndockButton'#7'OnClick'#7#17'UndockButtonClic'
+'k'#8'TabOrder'#2#0#0#0#0#9'TGroupBox'#12'DockGroupBox'#21'AnchorSideTop.Con'
+'trol'#7#14'UndockGroupBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#8
+#6'Height'#3#207#0#3'Top'#2'C'#5'Width'#3''''#1#7'Anchors'#11#5'akTop'#6'akL'
+'eft'#7'akRight'#0#8'AutoSize'#9#17'BorderSpacing.Top'#2#6#7'Caption'#6#12'D'
+'ockGroupBox'#28'ChildSizing.LeftRightSpacing'#2#5#28'ChildSizing.TopBottomS'
+'pacing'#2#5#12'ClientHeight'#2'$'#11'ClientWidth'#3'#'#1#8'TabOrder'#2#0#0#7
+'TButton'#12'UndockButton'#4'Left'#2#5#6'Height'#2#26#3'Top'#2#5#5'Width'#2
+'W'#8'AutoSize'#9#7'Caption'#6#12'UndockButton'#7'OnClick'#7#17'UndockButton'
+'Click'#8'TabOrder'#2#0#0#0#0#9'TGroupBox'#12'DockGroupBox'#21'AnchorSideTop'
+'.Control'#7#14'UndockGroupBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'
+#2#8#6'Height'#3#207#0#3'Top'#2'C'#5'Width'#3''''#1#7'Anchors'#11#5'akTop'#6
+'akLeft'#7'akRight'#0#8'AutoSize'#9#17'BorderSpacing.Top'#2#6#7'Caption'#6#12
+'DockGroupBox'#28'ChildSizing.LeftRightSpacing'#2#5#28'ChildSizing.TopBottom'
+'Spacing'#2#5#12'ClientHeight'#3#190#0#11'ClientWidth'#3'#'#1#8'TabOrder'#2#1
+#0#6'TLabel'#16'DockControlLabel'#21'AnchorSideTop.Control'#7#19'DockControl'
+'ComboBox'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#9#6'Height'#2#13#3
+'Top'#2#11#5'Width'#2'e'#20'BorderSpacing.Around'#2#2#7'Caption'#6#16'DockCo'
+'ntrolLabel'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#7'TButton'#14'DockLe'
+'ftButton'#21'AnchorSideTop.Control'#7#19'DockControlComboBox'#18'AnchorSide'
+'Top.Side'#7#9'asrBottom'#4'Left'#2#5#6'Height'#2#26#3'Top'#2'#'#5'Width'#2
+'^'#8'AutoSize'#9#17'BorderSpacing.Top'#2#5#7'Caption'#6#14'DockLeftButton'#7
+'OnClick'#7#19'DockLeftButtonClick'#8'TabOrder'#2#0#0#0#7'TButton'#15'DockRi'
+'ghtButton'#22'AnchorSideLeft.Control'#7#14'DockLeftButton'#21'AnchorSideTop'
+'.Control'#7#14'DockLeftButton'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'
+#2#5#6'Height'#2#26#3'Top'#2'B'#5'Width'#2'f'#8'AutoSize'#9#17'BorderSpacing'
+'.Top'#2#5#7'Caption'#6#15'DockRightButton'#7'OnClick'#7#20'DockRightButtonC'
+'lick'#8'TabOrder'#2#1#0#0#7'TButton'#13'DockTopButton'#22'AnchorSideLeft.Co'
+'ntrol'#7#14'DockLeftButton'#21'AnchorSideTop.Control'#7#15'DockRightButton'
+#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#5#6'Height'#2#26#3'Top'#2'a'
+#5'Width'#2'_'#8'AutoSize'#9#17'BorderSpacing.Top'#2#5#7'Caption'#6#13'DockT'
+'opButton'#7'OnClick'#7#18'DockTopButtonClick'#8'TabOrder'#2#2#0#0#7'TButton'
+#16'DockBottomButton'#22'AnchorSideLeft.Control'#7#14'DockLeftButton'#21'Anc'
+'horSideTop.Control'#7#13'DockTopButton'#18'AnchorSideTop.Side'#7#9'asrBotto'
+'m'#4'Left'#2#5#6'Height'#2#26#3'Top'#3#128#0#5'Width'#2'o'#8'AutoSize'#9#17
+'BorderSpacing.Top'#2#5#7'Caption'#6#16'DockBottomButton'#7'OnClick'#7#21'Do'
+'ckBottomButtonClick'#8'TabOrder'#2#3#0#0#7'TButton'#14'DockPageButton'#22'A'
+'nchorSideLeft.Control'#7#14'DockLeftButton'#21'AnchorSideTop.Control'#7#16
+'DockBottomButton'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#5#6'Heigh'
+'t'#2#26#3'Top'#3#159#0#5'Width'#2'g'#8'AutoSize'#9#17'BorderSpacing.Top'#2#5
+#7'Caption'#6#14'DockPageButton'#7'OnClick'#7#19'DockPageButtonClick'#8'TabO'
+'rder'#2#4#0#0#9'TComboBox'#19'DockControlComboBox'#22'AnchorSideLeft.Contro'
+'l'#7#16'DockControlLabel'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#2
+'r'#6'Height'#2#25#3'Top'#2#5#5'Width'#3#172#0#7'Anchors'#11#5'akTop'#6'akLe'
+'ft'#7'akRight'#0#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbac'
+'tSearchAscending'#0#18'BorderSpacing.Left'#2#4#9'MaxLength'#2#0#13'OnEditin'
+'gDone'#7#30'DockControlComboBoxEditingDone'#8'TabOrder'#2#5#4'Text'#6#19'Do'
+'ckControlComboBox'#0#0#0#7'TButton'#12'CancelButton'#21'AnchorSideTop.Contr'
+'ol'#7#12'DockGroupBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'p'#6
+'Height'#2#26#3'Top'#3#28#1#5'Width'#2'U'#7'Anchors'#11#5'akTop'#0#8'AutoSiz'
+'e'#9#17'BorderSpacing.Top'#2#10#7'Caption'#6#12'CancelButton'#11'ModalResul'
+'t'#2#2#8'TabOrder'#2#2#0#0#0
+'pacing'#2#5#8'TabOrder'#2#1#0#6'TLabel'#16'DockControlLabel'#21'AnchorSideT'
+'op.Control'#7#19'DockControlComboBox'#18'AnchorSideTop.Side'#7#9'asrCenter'
+#4'Left'#2#9#6'Height'#2#13#3'Top'#2#11#5'Width'#2'e'#20'BorderSpacing.Aroun'
+'d'#2#2#7'Caption'#6#16'DockControlLabel'#5'Color'#7#6'clNone'#11'ParentColo'
+'r'#8#0#0#7'TButton'#14'DockLeftButton'#21'AnchorSideTop.Control'#7#19'DockC'
+'ontrolComboBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#5#6'Height'
+#2#26#3'Top'#2'#'#5'Width'#2'^'#8'AutoSize'#9#17'BorderSpacing.Top'#2#5#25'B'
+'orderSpacing.InnerBorder'#2#4#7'Caption'#6#14'DockLeftButton'#7'OnClick'#7
+#19'DockLeftButtonClick'#8'TabOrder'#2#0#0#0#7'TButton'#15'DockRightButton'
+#22'AnchorSideLeft.Control'#7#14'DockLeftButton'#21'AnchorSideTop.Control'#7
+#14'DockLeftButton'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#5#6'Heig'
+'ht'#2#26#3'Top'#2'B'#5'Width'#2'f'#8'AutoSize'#9#17'BorderSpacing.Top'#2#5
+#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#15'DockRightButton'#7'OnClic'
+'k'#7#20'DockRightButtonClick'#8'TabOrder'#2#1#0#0#7'TButton'#13'DockTopButt'
+'on'#22'AnchorSideLeft.Control'#7#14'DockLeftButton'#21'AnchorSideTop.Contro'
+'l'#7#15'DockRightButton'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#5#6
+'Height'#2#26#3'Top'#2'a'#5'Width'#2'_'#8'AutoSize'#9#17'BorderSpacing.Top'#2
+#5#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#13'DockTopButton'#7'OnClic'
+'k'#7#18'DockTopButtonClick'#8'TabOrder'#2#2#0#0#7'TButton'#16'DockBottomBut'
+'ton'#22'AnchorSideLeft.Control'#7#14'DockLeftButton'#21'AnchorSideTop.Contr'
+'ol'#7#13'DockTopButton'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#5#6
+'Height'#2#26#3'Top'#3#128#0#5'Width'#2'o'#8'AutoSize'#9#17'BorderSpacing.To'
+'p'#2#5#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#16'DockBottomButton'#7
+'OnClick'#7#21'DockBottomButtonClick'#8'TabOrder'#2#3#0#0#7'TButton'#14'Dock'
+'PageButton'#22'AnchorSideLeft.Control'#7#14'DockLeftButton'#21'AnchorSideTo'
+'p.Control'#7#16'DockBottomButton'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'L'
+'eft'#2#5#6'Height'#2#26#3'Top'#3#159#0#5'Width'#2'g'#8'AutoSize'#9#17'Borde'
+'rSpacing.Top'#2#5#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#14'DockPag'
+'eButton'#7'OnClick'#7#19'DockPageButtonClick'#8'TabOrder'#2#4#0#0#9'TComboB'
+'ox'#19'DockControlComboBox'#22'AnchorSideLeft.Control'#7#16'DockControlLabe'
+'l'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#2'r'#6'Height'#2#25#3'Top'
+#2#5#5'Width'#3#172#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoC'
+'ompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#18'Bo'
+'rderSpacing.Left'#2#4#9'MaxLength'#2#0#13'OnEditingDone'#7#30'DockControlCo'
+'mboBoxEditingDone'#8'TabOrder'#2#5#4'Text'#6#19'DockControlComboBox'#0#0#0#7
+'TButton'#12'CancelButton'#21'AnchorSideTop.Control'#7#15'EnlargeGroupBox'#18
+'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'n'#6'Height'#2#26#3'Top'#3'U'#1
+#5'Width'#2'Y'#7'Anchors'#11#5'akTop'#0#8'AutoSize'#9#17'BorderSpacing.Top'#2
+#10#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#12'CancelButton'#11'Modal'
+'Result'#2#2#8'TabOrder'#2#2#0#0#9'TGroupBox'#15'EnlargeGroupBox'#4'Left'#2#8
+#6'Height'#2'8'#3'Top'#3#19#1#5'Width'#3''''#1#7'Anchors'#11#5'akTop'#6'akLe'
+'ft'#7'akRight'#0#8'AutoSize'#9#7'Caption'#6#15'EnlargeGroupBox'#28'ChildSiz'
+'ing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizi'
+'ng.HorizontalSpacing'#2#6#27'ChildSizing.VerticalSpacing'#2#6#18'ChildSizin'
+'g.Layout'#7#29'cclTopToBottomThenLeftToRight'#8'TabOrder'#2#3#0#12'TSpeedBu'
+'tton'#22'EnlargeLeftSpeedButton'#4'Left'#2#6#6'Height'#2#27#3'Top'#2#6#5'Wi'
+'dth'#2#25#5'Color'#7#9'clBtnFace'#10'Glyph.Data'#10#3#6#0#0#255#5#0#0'/* XP'
+'M */'#10'static char *graphic[] = {'#10'"22 22 61 1",'#10'". c None",'#10'"'
+', c #FFFFFF",'#10'"- c #BDD7A7",'#10'"* c #3B7304",'#10'"a c #397308",'#10
,'"b c #3B7703",'#10'"c c #C7DFAF",'#10'"d c #C6DFAD",'#10'"e c #AFD78C",'#10
+'"f c #87BD52",'#10'"g c #85BF53",'#10'"h c #87BF57",'#10'"i c #8DBD5B",'#10
+'"j c #8EBD5A",'#10'"k c #86BD57",'#10'"l c #BDDEA5",'#10'"m c #3B7704",'#10
+'"n c #86B74F",'#10'"o c #84B74F",'#10'"p c #84B74E",'#10'"q c #BDD69D",'#10
+'"r c #3D7703",'#10'"s c #7BBF39",'#10'"t c #7FBF3D",'#10'"u c #578C21",'#10
+'"v c #A5D77B",'#10'"w c #8DCE4E",'#10'"x c #73BF2B",'#10'"y c #77BF31",'#10
+'"z c #73BF29",'#10'"A c #67B71F",'#10'"B c #5FAF13",'#10'"C c #4E9E06",'#10
+'"D c #4B8614",'#10'"E c #9ECF73",'#10'"F c #8CCF4E",'#10'"G c #63BF0F",'#10
+'"H c #63B70E",'#10'"I c #5FB50C",'#10'"J c #5BAF0A",'#10'"K c #56A508",'#10
+'"L c #529D06",'#10'"M c #529F09",'#10'"N c #A5CF7B",'#10'"O c #397304",'#10
+'"P c #5BAF0B",'#10'"Q c #56A709",'#10'"R c #539F07",'#10'"S c #000000",'#10
+'"T c #3D7708",'#10'"U c #9FD76B",'#10'"V c #ADD784",'#10'"W c #254704",'#10
+'"X c #3D7704",'#10'"Y c #7BAF46",'#10'"Z c #A7D773",'#10'"0 c #6BB71E",'#10
+'"1 c #172B00",'#10'"2 c #679D35",'#10'"3 c #A7D677",'#10'"4 c #ADD684",'#10
+'"......................",'#10'"......................",'#10'"......,,......'
+'........",'#10'"....,..........,,,,,,,",'#10'"...........-*.........",'#10
+'"...,.............,,,,.",'#10'"......ab..............",'#10'",,,,,.........'
+'cd......",'#10'".......efghijjihklm...",'#10'"..............nopqm,,,",'#10
+'",,r...st.............,",'#10'",,ruvwxyzAB...CC......",'#10'"...mDEFGHIJKLC'
+'CCMNO...",'#10'"..........PQRCCCMNOSS,",'#10'",,,...T.U..V......OSSS",'#10
+'",,,SSSWXYZ0.....**....",'#10'"...SSSS1*234*SSSSSS...",'#10'",..S.........S'
+'SSSSSSSS",'#10'",,,...................",'#10'",,,,SSSSSSS....SSSSSSS",'#10
+'".......SSSSSSSSSSSS...",'#10'"...,............SS,,,."}'#10#9'NumGlyphs'#2#0
+#7'OnClick'#7#27'EnlargeLeftSpeedButtonClick'#8'ShowHint'#9#14'ParentShowHin'
+'t'#8#0#0#12'TSpeedButton'#23'EnlargeRightSpeedButton'#4'Left'#2'%'#6'Height'
+#2#27#3'Top'#2#6#5'Width'#2#25#5'Color'#7#9'clBtnFace'#10'Glyph.Data'#10#214
+#5#0#0#210#5#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"22 22 58 1",'
+#10'". c None",'#10'", c #FFFFFF",'#10'"- c #3B7704",'#10'"* c #BFDEA5",'#10
+'"a c #3B7304",'#10'"b c #BDD79D",'#10'"c c #C6DFA7",'#10'"d c #97BF6F",'#10
+'"e c #3D7707",'#10'"f c #B7D79E",'#10'"g c #84BD53",'#10'"h c #87BF57",'#10
+'"i c #8DBD5B",'#10'"j c #8EBD5A",'#10'"k c #AFD78C",'#10'"l c #86B74F",'#10
+'"m c #86BD4F",'#10'"n c #86BF4B",'#10'"o c #85BD4A",'#10'"p c #A5CF77",'#10
+'"q c #AFD787",'#10'"r c #4F851B",'#10'"s c #000000",'#10'"t c #73AD35",'#10
+'"u c #6BAF2F",'#10'"v c #3D7703",'#10'"w c #A7CF7F",'#10'"x c #579E10",'#10
+'"y c #4E9E06",'#10'"z c #77BD33",'#10'"A c #77BF2D",'#10'"B c #9DC677",'#10
+'"C c #539D0D",'#10'"D c #4F9C06",'#10'"E c #56A508",'#10'"F c #5BAF0A",'#10
+'"G c #5FB50C",'#10'"H c #63B70E",'#10'"I c #8DCF4A",'#10'"J c #A5D673",'#10
+'"K c #4E8717",'#10'"L c #3B7703",'#10'"M c #56A709",'#10'"N c #5BAF0B",'#10
+'"O c #63B50F",'#10'"P c #94D65A",'#10'"Q c #9DCF6B",'#10'"R c #437B0F",'#10
+'"S c #356B04",'#10'"T c #A7CE7F",'#10'"U c #5BAD0D",'#10'"V c #67B51E",'#10
+'"W c #397304",'#10'"X c #6B9D39",'#10'"Y c #0F1F00",'#10'"Z c #5A8E29",'#10
+'"0 c #356F03",'#10'"1 c #070E00",'#10'"......................",'#10'"......'
+'................",'#10'"......,,..............",'#10'".,.............,,,,,,'
+',",'#10'".........-*...........",'#10'"...,.............,,,,.",'#10'"......'
+'aa..............",'#10'".,,abc........de......",'#10'"...-fgghijjihhk......'
+'.",'#10'"...........lmnopqr-s,,",'#10'"......tu...........v,,",'#10'",,,-wx'
+'yyy.....zA......",'#10'"...-BCyyyyDEFGHIJKL...",'#10'"...........MNOPQRSsss'
+',",'#10'",,,a..T.T..U.......sss",'#10'",,,Laaaaa-TV....ss....",'#10'"...sss'
+'sssWTpXWYssss...",'#10'",..s.......Z01ssssssss",'#10'",..................ss'
+'s",'#10'",,,,ssss.......sssssss",'#10'"...,,ssssssssss.......",'#10'"...,..'
+'...........s,,,,"}'#10#9'NumGlyphs'#2#0#7'OnClick'#7#28'EnlargeRightSpeedBu'
+'ttonClick'#8'ShowHint'#9#14'ParentShowHint'#8#0#0#12'TSpeedButton'#21'Enlar'
+'geTopSpeedButton'#4'Left'#2'D'#6'Height'#2#27#3'Top'#2#6#5'Width'#2#25#5'Co'
+'lor'#7#9'clBtnFace'#10'Glyph.Data'#10#139#5#0#0#135#5#0#0'/* XPM */'#10'sta'
+'tic char *graphic[] = {'#10'"22 22 53 1",'#10'". c None",'#10'", c #FFFFFF"'
+','#10'"- c #639633",'#10'"* c #5A8F25",'#10'"a c #3B7305",'#10'"b c #3D7706'
+'",'#10'"c c #377706",'#10'"d c #A7CE85",'#10'"e c #73AF3B",'#10'"f c #6BAD2'
+'D",'#10'"g c #63A51F",'#10'"h c #579F13",'#10'"i c #8EBD5A",'#10'"j c #6FA7'
+'3F",'#10'"k c #3B7704",'#10'"l c #428400",'#10'"m c #5A8E2B",'#10'"n c #BDD'
+'69C",'#10'"o c #8EC65E",'#10'"p c #7FBD47",'#10'"q c #BFDF9D",'#10'"r c #BF'
+'DE9F",'#10'"s c #BDDF9D",'#10'"t c #77BF33",'#10'"u c #67B51C",'#10'"v c #5'
+'EB70E",'#10'"w c #5EB70C",'#10'"x c #5FB50C",'#10'"y c #5EAF0C",'#10'"z c #'
+'A5D67B",'#10'"A c #A7D67F",'#10'"B c #A7D684",'#10'"C c #63BD0E",'#10'"D c '
+'#63B70E",'#10'"E c #AFD77F",'#10'"F c #427F0C",'#10'"G c #3B7705",'#10'"H c'
,' #397704",'#10'"I c #3B7304",'#10'"J c #6BC611",'#10'"K c #ADDE86",'#10'"L '
+'c #67BD10",'#10'"M c #6BC711",'#10'"N c #6FCE13",'#10'"O c #67BF10",'#10'"P'
+' c #6BC712",'#10'"Q c #6FCF14",'#10'"R c #73D715",'#10'"S c #AFDF84",'#10'"'
+'T c #3D7708",'#10'"U c #6FCF13",'#10'"V c #ADDE84",'#10'"W c #000000",'#10
+'"......................",'#10'"......................",'#10'"......,,......'
+'........",'#10'"...............,,,,,,,",'#10'"..........-*..........",'#10
+'"...,..............,,,.",'#10'"......,a..............",'#10'".,,,,.........'
+'bc......",'#10'"........defghi........",'#10'"...............jkl,,,,",'#10
+'"......................",'#10'",,,kmnop..............",'#10'".....qrstuvwxy'
+'zAB.....",'#10'"............CDEFGHIk,,",'#10'",,....I.C..J........,,",'#10
+'",,,,,,IKLMN.....,,....",'#10'"...,,,IKOPQRQPST,,,...",'#10'",..,......PUPJ'
+'VT,,,,,,",'#10'",,,,..................",'#10'",,WWWWII.......IWWWWW,",'#10
+'"......WWWWWWWWWW......",'#10'"...,..........WWWW,,,,"}'#10#9'NumGlyphs'#2#0
+#7'OnClick'#7#26'EnlargeTopSpeedButtonClick'#8'ShowHint'#9#14'ParentShowHint'
+#8#0#0#12'TSpeedButton'#24'EnlargeBottomSpeedButton'#4'Left'#2'c'#6'Height'#2
+#27#3'Top'#2#6#5'Width'#2#25#5'Color'#7#9'clBtnFace'#10'Glyph.Data'#10'!'#6#0
+#0#29#6#0#0'/* XPM */'#10'static char *graphic[] = {'#10'"22 22 63 1",'#10'"'
+'. c None",'#10'", c #3B7704",'#10'"- c #3B7304",'#10'"* c #FFFFFF",'#10'"a '
+'c #C6DFA7",'#10'"b c #C6DEA7",'#10'"c c #85B74F",'#10'"d c #7BB746",'#10'"e'
+' c #73AF3B",'#10'"f c #6FAF31",'#10'"g c #67A727",'#10'"h c #5EA71C",'#10'"'
+'i c #A5CE85",'#10'"j c #A5CE84",'#10'"k c #A5CF7F",'#10'"l c #3D7705",'#10
+'"m c #BFDEA5",'#10'"n c #7FBD4B",'#10'"o c #7BB743",'#10'"p c #77B537",'#10
+'"q c #73B531",'#10'"r c #67B521",'#10'"s c #57A70B",'#10'"t c #A7D684",'#10
+'"u c #AFD785",'#10'"v c #A7D67F",'#10'"w c #9EC773",'#10'"x c #467F11",'#10
+'"y c #397703",'#10'"z c #3D7703",'#10'"A c #6F9F42",'#10'"B c #BDDF9D",'#10
+'"C c #8DC753",'#10'"D c #7BBF3B",'#10'"E c #63B713",'#10'"F c #63BD0F",'#10
+'"G c #67BD10",'#10'"H c #575700",'#10'"I c #7FAD52",'#10'"J c #B5DE8D",'#10
+'"K c #67B71B",'#10'"L c #67BF10",'#10'"M c #6BC612",'#10'"N c #6BC712",'#10
+'"O c #6FC716",'#10'"P c #A7DE6F",'#10'"Q c #7BB547",'#10'"R c #428400",'#10
+'"S c #73CE14",'#10'"T c #9DDF63",'#10'"U c #8FC75A",'#10'"V c #357700",'#10
+'"W c #3F7300",'#10'"X c #8EC75E",'#10'"Y c #3B7305",'#10'"Z c #437B0B",'#10
+'"0 c #9ECE6B",'#10'"1 c #3B7703",'#10'"2 c #467F12",'#10'"3 c #A7D773",'#10
+'"4 c #ADD77B",'#10'"5 c #528E1E",'#10'"6 c #000000",'#10'".................'
+'.....",'#10'"......................",'#10'"......,-..............",'#10'"**'
+'****-a.......-******",'#10'"......-bcdefghi-......",'#10'"...*..........j-*'
+'*****",'#10'"......-a..............",'#10'"******-a......k-......",'#10'"..'
+'....lmnopqrstl......",'#10'"..............uvvwxy**",'#10'".................'
+'.,***",'#10'"****zABCDEFG..........",'#10'"...*H,IJKFLMNOPQlR*...",'#10'"..'
+'..........STUlV*****",'#10'"***...W.X..N........**",'#10'"*******YZ0......*'
+'*....",'#10'".....***12345,***.....",'#10'"*..*..........********",'#10'"..'
+'....................",'#10'"**66666........666666*",'#10'"........666666...'
+'.....",'#10'"...*.............6***."}'#10#9'NumGlyphs'#2#0#7'OnClick'#7#29
+'EnlargeBottomSpeedButtonClick'#8'ShowHint'#9#14'ParentShowHint'#8#0#0#0#0
]);

47
lcl/ldockctrledit.pas
View File

@ -42,7 +42,11 @@ type
ldcedrDockRight,
ldcedrDockTop,
ldcedrDockBottom,
ldcedrDockPage
ldcedrDockPage,
ldcedrEnlargeLeft,
ldcedrEnlargeTop,
ldcedrEnlargeRight,
ldcedrEnlargeBottom
);
{ TLazDockControlEditorDlg }
@ -57,6 +61,11 @@ type
DockLeftButton: TButton;
DockGroupBox: TGroupBox;
DockControlLabel: TLabel;
EnlargeGroupBox: TGroupBox;
EnlargeLeftSpeedButton: TSpeedButton;
EnlargeRightSpeedButton: TSpeedButton;
EnlargeTopSpeedButton: TSpeedButton;
EnlargeBottomSpeedButton: TSpeedButton;
UndockButton: TButton;
UndockGroupBox: TGroupBox;
procedure DockBottomButtonClick(Sender: TObject);
@ -65,6 +74,10 @@ type
procedure DockPageButtonClick(Sender: TObject);
procedure DockRightButtonClick(Sender: TObject);
procedure DockTopButtonClick(Sender: TObject);
procedure EnlargeBottomSpeedButtonClick(Sender: TObject);
procedure EnlargeLeftSpeedButtonClick(Sender: TObject);
procedure EnlargeRightSpeedButtonClick(Sender: TObject);
procedure EnlargeTopSpeedButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure UndockButtonClick(Sender: TObject);
private
@ -96,7 +109,13 @@ begin
DockLeftButton.Caption:='Dock to left';
DockGroupBox.Caption:='Dock to control';
DockControlLabel.Caption:='To control';
EnlargeGroupBox.Caption:='Enlarge one side';
EnlargeLeftSpeedButton.Hint:='Left';
EnlargeTopSpeedButton.Hint:='Top';
EnlargeRightSpeedButton.Hint:='Right';
EnlargeBottomSpeedButton.Hint:='Bottom';
CancelButton.Caption:='Cancel';
UpdateButtonEnabled;
@ -133,6 +152,28 @@ begin
CheckSetDlgResult(ldcedrDockTop);
end;
procedure TLazDockControlEditorDlg.EnlargeBottomSpeedButtonClick(Sender: TObject
);
begin
CheckSetDlgResult(ldcedrEnlargeBottom);
end;
procedure TLazDockControlEditorDlg.EnlargeLeftSpeedButtonClick(Sender: TObject);
begin
CheckSetDlgResult(ldcedrEnlargeLeft);
end;
procedure TLazDockControlEditorDlg.EnlargeRightSpeedButtonClick(Sender: TObject
);
begin
CheckSetDlgResult(ldcedrEnlargeRight);
end;
procedure TLazDockControlEditorDlg.EnlargeTopSpeedButtonClick(Sender: TObject);
begin
CheckSetDlgResult(ldcedrEnlargeTop);
end;
procedure TLazDockControlEditorDlg.UndockButtonClick(Sender: TObject);
begin
CheckSetDlgResult(ldcedrUndock);
@ -172,6 +213,8 @@ begin
DockTopButton.Enabled:=SelectionValid;
DockRightButton.Enabled:=SelectionValid;
DockLeftButton.Enabled:=SelectionValid;
end;
initialization

46
lcl/ldocktree.pas
View File

@ -170,6 +170,8 @@ type
procedure UndockControl(Control: TControl; Float: boolean);
procedure InsertControl(Control: TControl; InsertAt: TAlign;
DropCtl: TControl); override;
function EnlargeControl(Control: TControl; Side: TAnchorKind;
Simulate: boolean = false): boolean;
procedure LoadFromStream(Stream: TStream); override;
procedure PaintSite(DC: HDC); override;
procedure PositionDockRect(Client, DropCtl: TControl; DropAlign: TAlign;
@ -1333,6 +1335,50 @@ begin
DockControl(Control, InsertAt, DropCtl);
end;
function TAnchoredDockManager.EnlargeControl(Control: TControl;
Side: TAnchorKind; Simulate: boolean): boolean;
{ If Simulate=true then it will only test if control can be enlarged.
Example: Move one neigbour, enlarge Control. Two splitters are resized.
|#| |# |#| |#
|#| Control |# |#| |#
--+#+---------+# --> --+#| Control |#
===============# ===#| |#
--------------+# --+#| |#
A |# A|#| |#
|# |#| |#
--------------+# --+#+---------+#
================== ===================
Example: Move two neigbours, enlarge Control, resize one splitter, turn the
other splitter.
|#| |#| |#| |#|
|#| Control |#| |#| |#|
--+#+---------+#+-- --> --+#| Control |#+--
=================== ===#| |#===
--------+#+-------- --+#| |#+--
A |#| B A|#| |#|B
|#| |#| |#|
--------+#+-------- --+#+---------+#+--
=================== ===================
}
var
SideControl: TControl;
begin
Result:=false;
if Control=nil then exit;
// find first splitter.
if not (Side in Control.Anchors) then exit;
SideControl:=Control.AnchorSide[Side].Control;
if SideControl=nil then exit;
if SideControl.Parent<>Control.Parent then exit;
if not (SideControl is TLazDockSplitter) then exit;
end;
procedure TAnchoredDockManager.LoadFromStream(Stream: TStream);
begin
RaiseGDBException('TAnchoredDockManager.LoadFromStream TODO');