improved autosizing from Darius

git-svn-id: trunk@7854 -
This commit is contained in:
mattias 2005-09-29 18:47:05 +00:00
parent abc306261e
commit 5c83b4fae9
6 changed files with 244 additions and 203 deletions

View File

@ -126,7 +126,7 @@ begin
Name:='WholeWordsOnlyCheckBox'; Name:='WholeWordsOnlyCheckBox';
Parent:=OptionsGroupBox; Parent:=OptionsGroupBox;
SetBounds(CaseSensitiveCheckBox.Left, SetBounds(CaseSensitiveCheckBox.Left,
CaseSensitiveCheckBox.Top+CaseSensitiveCheckBox.Height+5, CaseSensitiveCheckBox.Top+CaseSensitiveCheckBox.Height+2,
CaseSensitiveCheckBox.Width,20); CaseSensitiveCheckBox.Width,20);
Caption:=lisFindFileWholeWordsOnly; Caption:=lisFindFileWholeWordsOnly;
end; end;
@ -136,7 +136,7 @@ begin
Name:='RegularExpressionsCheckBox'; Name:='RegularExpressionsCheckBox';
Parent:=OptionsGroupBox; Parent:=OptionsGroupBox;
SetBounds(CaseSensitiveCheckBox.Left, SetBounds(CaseSensitiveCheckBox.Left,
WholeWordsOnlyCheckBox.Top+WholeWordsOnlyCheckBox.Height+5, WholeWordsOnlyCheckBox.Top+WholeWordsOnlyCheckBox.Height+2,
CaseSensitiveCheckBox.Width,20); CaseSensitiveCheckBox.Width,20);
Caption:=lisFindFileRegularExpressions; Caption:=lisFindFileRegularExpressions;
end; end;
@ -267,19 +267,15 @@ begin
end; end;
with CaseSensitiveCheckBox do begin with CaseSensitiveCheckBox do begin
SetBounds(8,2,OptionsGroupBox.ClientWidth-20,20); Width:=OptionsGroupBox.ClientWidth;
end; end;
with WholeWordsOnlyCheckBox do begin with WholeWordsOnlyCheckBox do begin
SetBounds(CaseSensitiveCheckBox.Left, Width:=OptionsGroupBox.ClientWidth;
CaseSensitiveCheckBox.Top+CaseSensitiveCheckBox.Height+5,
CaseSensitiveCheckBox.Width,20);
end; end;
with RegularExpressionsCheckBox do begin with RegularExpressionsCheckBox do begin
SetBounds(CaseSensitiveCheckBox.Left, Width:=OptionsGroupBox.ClientWidth;
WholeWordsOnlyCheckBox.Top+WholeWordsOnlyCheckBox.Height+5,
CaseSensitiveCheckBox.Width,20);
end; end;
with WhereRadioGroup do begin with WhereRadioGroup do begin

View File

@ -1,10 +1,11 @@
object FindRenameIdentifierDialog: TFindRenameIdentifierDialog object FindRenameIdentifierDialog: TFindRenameIdentifierDialog
BorderStyle = bsSizeToolWin
Caption = 'FindRenameIdentifierDialog' Caption = 'FindRenameIdentifierDialog'
ClientHeight = 435 ClientHeight = 435
ClientWidth = 452 ClientWidth = 452
OnClose = FindRenameIdentifierDialogClose OnClose = FindRenameIdentifierDialogClose
OnCreate = FindRenameIdentifierDialogCreate OnCreate = FindRenameIdentifierDialogCreate
PixelsPerInch = 112 PixelsPerInch = 96
Position = poScreenCenter Position = poScreenCenter
HorzScrollBar.Page = 451 HorzScrollBar.Page = 451
VertScrollBar.Page = 434 VertScrollBar.Page = 434
@ -13,81 +14,100 @@ object FindRenameIdentifierDialog: TFindRenameIdentifierDialog
Top = 163 Top = 163
Width = 452 Width = 452
object CurrentGroupBox: TGroupBox object CurrentGroupBox: TGroupBox
Anchors = [akTop, akLeft, akRight] Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
Caption = 'CurrentGroupBox' Caption = 'CurrentGroupBox'
ClientHeight = 55 ClientHeight = 56
ClientWidth = 434 ClientWidth = 436
ParentColor = True ParentColor = True
TabOrder = 0 TabOrder = 0
Left = 8 Left = 6
Height = 72 Height = 74
Top = 8 Top = 6
Width = 438 Width = 440
object CurrentListBox: TListBox object CurrentListBox: TListBox
Align = alClient Align = alClient
BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
ClickOnSelChange = False ClickOnSelChange = False
TabOrder = 0 TabOrder = 0
TopIndex = -1 Left = 6
Height = 55 Height = 44
Width = 434 Top = 6
Width = 424
end end
end end
object NewGroupBox: TGroupBox object NewGroupBox: TGroupBox
Anchors = [akTop, akLeft, akRight] Align = alTop
BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
Caption = 'NewGroupBox' Caption = 'NewGroupBox'
ClientHeight = 36 ClientHeight = 58
ClientWidth = 434 ClientWidth = 436
ParentColor = True ParentColor = True
TabOrder = 1 TabOrder = 1
Left = 8 Left = 6
Height = 53 Height = 76
Top = 91 Top = 86
Width = 438 Width = 440
object NewEdit: TEdit object NewEdit: TEdit
Anchors = [akTop, akLeft, akRight] Align = alTop
BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
TabOrder = 0 TabOrder = 0
Text = 'NewEdit' Text = 'NewEdit'
Left = 6 Left = 6
Height = 23 Height = 23
Top = 6 Top = 6
Width = 262 Width = 424
end end
object RenameCheckBox: TCheckBox object RenameCheckBox: TCheckBox
Align = alTop
AllowGrayed = True AllowGrayed = True
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
Caption = 'RenameCheckBox' Caption = 'RenameCheckBox'
OnChange = RenameCheckBoxChange OnChange = RenameCheckBoxChange
TabOrder = 1 TabOrder = 1
UseOnChange = True UseOnChange = True
Left = 276 Left = 6
Height = 23 Height = 13
Top = 6 Top = 35
Width = 151 Width = 424
end end
end end
object ScopeGroupBox: TGroupBox object ScopeGroupBox: TGroupBox
Anchors = [akTop, akLeft, akRight] Align = alTop
BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
Caption = 'ScopeGroupBox' Caption = 'ScopeGroupBox'
ClientHeight = 211 ClientHeight = 206
ClientWidth = 435 ClientWidth = 436
ParentColor = True ParentColor = True
TabOrder = 2 TabOrder = 2
Left = 8 Left = 6
Height = 228 Height = 224
Top = 156 Top = 168
Width = 439 Width = 440
object ScopeCommentsCheckBox: TCheckBox object ScopeCommentsCheckBox: TCheckBox
Align = alTop
AllowGrayed = True AllowGrayed = True
Anchors = [akTop, akLeft, akRight] BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
Caption = 'ScopeCommentsCheckBox' Caption = 'ScopeCommentsCheckBox'
TabOrder = 0 TabOrder = 0
Left = 6 Left = 6
Height = 24 Height = 13
Top = 181 Top = 184
Width = 419 Width = 424
end end
object ScopeRadioGroup: TRadioGroup object ScopeRadioGroup: TRadioGroup
Anchors = [akTop, akLeft, akRight] Align = alTop
BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
Caption = 'ScopeRadioGroup' Caption = 'ScopeRadioGroup'
Items.Strings = ( Items.Strings = (
'in current unit' 'in current unit'
@ -98,46 +118,53 @@ object FindRenameIdentifierDialog: TFindRenameIdentifierDialog
ParentColor = True ParentColor = True
Left = 6 Left = 6
Height = 112 Height = 112
Top = 5 Top = 6
Width = 419 Width = 424
end end
object ExtraFilesGroupBox: TGroupBox object ExtraFilesGroupBox: TGroupBox
Anchors = [akTop, akLeft, akRight] Align = alTop
BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
Caption = 'ExtraFilesGroupBox' Caption = 'ExtraFilesGroupBox'
ClientHeight = 27 ClientHeight = 36
ClientWidth = 415 ClientWidth = 420
ParentColor = True ParentColor = True
TabOrder = 2 TabOrder = 2
Left = 6 Left = 6
Height = 44 Height = 54
Top = 125 Top = 124
Width = 419 Width = 424
object ExtraFilesEdit: TEdit object ExtraFilesEdit: TEdit
Anchors = [akTop, akLeft, akRight] Align = alTop
BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
TabOrder = 0 TabOrder = 0
Text = 'ExtraFilesEdit' Text = 'ExtraFilesEdit'
Left = 6 Left = 6
Height = 23 Height = 23
Width = 406 Top = 6
Width = 408
end end
end end
end end
object FindOrRenameButton: TButton object FindOrRenameButton: TButton
Anchors = [akTop, akRight] Anchors = [akRight, akBottom]
BorderSpacing.OnChange = nil
Caption = 'FindOrRenameButton' Caption = 'FindOrRenameButton'
OnClick = FindOrRenameButtonClick OnClick = FindOrRenameButtonClick
TabOrder = 3 TabOrder = 3
Left = 90 Left = 120
Height = 25 Height = 25
Top = 400 Top = 400
Width = 233 Width = 233
end end
object CancelButton: TButton object CancelButton: TButton
Anchors = [akTop, akRight] Anchors = [akRight, akBottom]
BorderSpacing.OnChange = nil
Caption = 'CancelButton' Caption = 'CancelButton'
ModalResult = 2 ModalResult = 2
TabOrder = 4 TabOrder = 4
Left = 338 Left = 357
Height = 25 Height = 25
Top = 400 Top = 400
Width = 89 Width = 89

View File

@ -1,46 +1,54 @@
{ This is an automatically generated lazarus resource file } { This is an automatically generated lazarus resource file }
LazarusResources.Add('TFindRenameIdentifierDialog','FORMDATA',[ LazarusResources.Add('TFindRenameIdentifierDialog','FORMDATA',[
'TPF0'#27'TFindRenameIdentifierDialog'#26'FindRenameIdentifierDialog'#7'Capti' 'TPF0'#27'TFindRenameIdentifierDialog'#26'FindRenameIdentifierDialog'#11'Bord'
+'on'#6#26'FindRenameIdentifierDialog'#12'ClientHeight'#3#179#1#11'ClientWidt' +'erStyle'#7#13'bsSizeToolWin'#7'Caption'#6#26'FindRenameIdentifierDialog'#12
+'h'#3#196#1#7'OnClose'#7#31'FindRenameIdentifierDialogClose'#8'OnCreate'#7' ' +'ClientHeight'#3#179#1#11'ClientWidth'#3#196#1#7'OnClose'#7#31'FindRenameIde'
+'FindRenameIdentifierDialogCreate'#13'PixelsPerInch'#2'p'#8'Position'#7#14'p' +'ntifierDialogClose'#8'OnCreate'#7' FindRenameIdentifierDialogCreate'#13'Pix'
+'oScreenCenter'#18'HorzScrollBar.Page'#3#195#1#18'VertScrollBar.Page'#3#178#1 +'elsPerInch'#2'`'#8'Position'#7#14'poScreenCenter'#18'HorzScrollBar.Page'#3
+#4'Left'#3'#'#1#6'Height'#3#179#1#3'Top'#3#163#0#5'Width'#3#196#1#0#9'TGroup' +#195#1#18'VertScrollBar.Page'#3#178#1#4'Left'#3'#'#1#6'Height'#3#179#1#3'Top'
+'Box'#15'CurrentGroupBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Ca' +#3#163#0#5'Width'#3#196#1#0#9'TGroupBox'#15'CurrentGroupBox'#5'Align'#7#5'al'
+'ption'#6#15'CurrentGroupBox'#12'ClientHeight'#2'7'#11'ClientWidth'#3#178#1 +'Top'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#22'BorderSpa'
+#11'ParentColor'#9#8'TabOrder'#2#0#4'Left'#2#8#6'Height'#2'H'#3'Top'#2#8#5'W' +'cing.OnChange'#13#20'BorderSpacing.Around'#2#6#7'Caption'#6#15'CurrentGroup'
+'idth'#3#182#1#0#8'TListBox'#14'CurrentListBox'#5'Align'#7#8'alClient'#16'Cl' +'Box'#12'ClientHeight'#2'8'#11'ClientWidth'#3#180#1#11'ParentColor'#9#8'TabO'
+'ickOnSelChange'#8#8'TabOrder'#2#0#8'TopIndex'#2#255#6'Height'#2'7'#5'Width' +'rder'#2#0#4'Left'#2#6#6'Height'#2'J'#3'Top'#2#6#5'Width'#3#184#1#0#8'TListB'
+#3#178#1#0#0#0#9'TGroupBox'#11'NewGroupBox'#7'Anchors'#11#5'akTop'#6'akLeft' +'ox'#14'CurrentListBox'#5'Align'#7#8'alClient'#22'BorderSpacing.OnChange'#13
+#7'akRight'#0#7'Caption'#6#11'NewGroupBox'#12'ClientHeight'#2'$'#11'ClientWi' +#20'BorderSpacing.Around'#2#6#16'ClickOnSelChange'#8#8'TabOrder'#2#0#4'Left'
+'dth'#3#178#1#11'ParentColor'#9#8'TabOrder'#2#1#4'Left'#2#8#6'Height'#2'5'#3 +#2#6#6'Height'#2','#3'Top'#2#6#5'Width'#3#168#1#0#0#0#9'TGroupBox'#11'NewGro'
+'Top'#2'['#5'Width'#3#182#1#0#5'TEdit'#7'NewEdit'#7'Anchors'#11#5'akTop'#6'a' +'upBox'#5'Align'#7#5'alTop'#22'BorderSpacing.OnChange'#13#20'BorderSpacing.A'
+'kLeft'#7'akRight'#0#8'TabOrder'#2#0#4'Text'#6#7'NewEdit'#4'Left'#2#6#6'Heig' +'round'#2#6#7'Caption'#6#11'NewGroupBox'#12'ClientHeight'#2':'#11'ClientWidt'
+'ht'#2#23#3'Top'#2#6#5'Width'#3#6#1#0#0#9'TCheckBox'#14'RenameCheckBox'#11'A' +'h'#3#180#1#11'ParentColor'#9#8'TabOrder'#2#1#4'Left'#2#6#6'Height'#2'L'#3'T'
+'llowGrayed'#9#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Caption'#6#14'RenameChe' +'op'#2'V'#5'Width'#3#184#1#0#5'TEdit'#7'NewEdit'#5'Align'#7#5'alTop'#22'Bord'
+'ckBox'#8'OnChange'#7#20'RenameCheckBoxChange'#8'TabOrder'#2#1#11'UseOnChang' +'erSpacing.OnChange'#13#20'BorderSpacing.Around'#2#6#8'TabOrder'#2#0#4'Text'
+'e'#9#4'Left'#3#20#1#6'Height'#2#23#3'Top'#2#6#5'Width'#3#151#0#0#0#0#9'TGro' +#6#7'NewEdit'#4'Left'#2#6#6'Height'#2#23#3'Top'#2#6#5'Width'#3#168#1#0#0#9'T'
+'upBox'#13'ScopeGroupBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Ca' +'CheckBox'#14'RenameCheckBox'#5'Align'#7#5'alTop'#11'AllowGrayed'#9#7'Anchor'
+'ption'#6#13'ScopeGroupBox'#12'ClientHeight'#3#211#0#11'ClientWidth'#3#179#1 +'s'#11#5'akTop'#7'akRight'#0#22'BorderSpacing.OnChange'#13#20'BorderSpacing.'
+#11'ParentColor'#9#8'TabOrder'#2#2#4'Left'#2#8#6'Height'#3#228#0#3'Top'#3#156 +'Around'#2#6#7'Caption'#6#14'RenameCheckBox'#8'OnChange'#7#20'RenameCheckBox'
+#0#5'Width'#3#183#1#0#9'TCheckBox'#21'ScopeCommentsCheckBox'#11'AllowGrayed' +'Change'#8'TabOrder'#2#1#11'UseOnChange'#9#4'Left'#2#6#6'Height'#2#13#3'Top'
+#9#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#21'ScopeCommen' +#2'#'#5'Width'#3#168#1#0#0#0#9'TGroupBox'#13'ScopeGroupBox'#5'Align'#7#5'alT'
+'tsCheckBox'#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2#24#3'Top'#3#181#0#5'Wid' +'op'#22'BorderSpacing.OnChange'#13#20'BorderSpacing.Around'#2#6#7'Caption'#6
+'th'#3#163#1#0#0#11'TRadioGroup'#15'ScopeRadioGroup'#7'Anchors'#11#5'akTop'#6 +#13'ScopeGroupBox'#12'ClientHeight'#3#206#0#11'ClientWidth'#3#180#1#11'Paren'
+'akLeft'#7'akRight'#0#7'Caption'#6#15'ScopeRadioGroup'#13'Items.Strings'#1#6 +'tColor'#9#8'TabOrder'#2#2#4'Left'#2#6#6'Height'#3#224#0#3'Top'#3#168#0#5'Wi'
+#15'in current unit'#6#15'in main project'#6#30'in project/package owning fi' +'dth'#3#184#1#0#9'TCheckBox'#21'ScopeCommentsCheckBox'#5'Align'#7#5'alTop'#11
+'le'#6'!in all open projects and packages'#0#11'ParentColor'#9#4'Left'#2#6#6 +'AllowGrayed'#9#22'BorderSpacing.OnChange'#13#20'BorderSpacing.Around'#2#6#7
+'Height'#2'p'#3'Top'#2#5#5'Width'#3#163#1#0#0#9'TGroupBox'#18'ExtraFilesGrou' +'Caption'#6#21'ScopeCommentsCheckBox'#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2
+'pBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#18'ExtraFi' +#13#3'Top'#3#184#0#5'Width'#3#168#1#0#0#11'TRadioGroup'#15'ScopeRadioGroup'#5
+'lesGroupBox'#12'ClientHeight'#2#27#11'ClientWidth'#3#159#1#11'ParentColor'#9 +'Align'#7#5'alTop'#22'BorderSpacing.OnChange'#13#20'BorderSpacing.Around'#2#6
+#8'TabOrder'#2#2#4'Left'#2#6#6'Height'#2','#3'Top'#2'}'#5'Width'#3#163#1#0#5 +#7'Caption'#6#15'ScopeRadioGroup'#13'Items.Strings'#1#6#15'in current unit'#6
+'TEdit'#14'ExtraFilesEdit'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'T' +#15'in main project'#6#30'in project/package owning file'#6'!in all open pro'
+'abOrder'#2#0#4'Text'#6#14'ExtraFilesEdit'#4'Left'#2#6#6'Height'#2#23#5'Widt' +'jects and packages'#0#11'ParentColor'#9#4'Left'#2#6#6'Height'#2'p'#3'Top'#2
+'h'#3#150#1#0#0#0#0#7'TButton'#18'FindOrRenameButton'#7'Anchors'#11#5'akTop' +#6#5'Width'#3#168#1#0#0#9'TGroupBox'#18'ExtraFilesGroupBox'#5'Align'#7#5'alT'
+#7'akRight'#0#7'Caption'#6#18'FindOrRenameButton'#7'OnClick'#7#23'FindOrRena' +'op'#22'BorderSpacing.OnChange'#13#20'BorderSpacing.Around'#2#6#7'Caption'#6
+'meButtonClick'#8'TabOrder'#2#3#4'Left'#2'Z'#6'Height'#2#25#3'Top'#3#144#1#5 +#18'ExtraFilesGroupBox'#12'ClientHeight'#2'$'#11'ClientWidth'#3#164#1#11'Par'
+'Width'#3#233#0#0#0#7'TButton'#12'CancelButton'#7'Anchors'#11#5'akTop'#7'akR' +'entColor'#9#8'TabOrder'#2#2#4'Left'#2#6#6'Height'#2'6'#3'Top'#2'|'#5'Width'
+'ight'#0#7'Caption'#6#12'CancelButton'#11'ModalResult'#2#2#8'TabOrder'#2#4#4 +#3#168#1#0#5'TEdit'#14'ExtraFilesEdit'#5'Align'#7#5'alTop'#22'BorderSpacing.'
+'Left'#3'R'#1#6'Height'#2#25#3'Top'#3#144#1#5'Width'#2'Y'#0#0#0 +'OnChange'#13#20'BorderSpacing.Around'#2#6#8'TabOrder'#2#0#4'Text'#6#14'Extr'
+'aFilesEdit'#4'Left'#2#6#6'Height'#2#23#3'Top'#2#6#5'Width'#3#152#1#0#0#0#0#7
+'TButton'#18'FindOrRenameButton'#7'Anchors'#11#7'akRight'#8'akBottom'#0#22'B'
+'orderSpacing.OnChange'#13#7'Caption'#6#18'FindOrRenameButton'#7'OnClick'#7
+#23'FindOrRenameButtonClick'#8'TabOrder'#2#3#4'Left'#2'x'#6'Height'#2#25#3'T'
+'op'#3#144#1#5'Width'#3#233#0#0#0#7'TButton'#12'CancelButton'#7'Anchors'#11#7
+'akRight'#8'akBottom'#0#22'BorderSpacing.OnChange'#13#7'Caption'#6#12'Cancel'
+'Button'#11'ModalResult'#2#2#8'TabOrder'#2#4#4'Left'#3'e'#1#6'Height'#2#25#3
+'Top'#3#144#1#5'Width'#2'Y'#0#0#0
]); ]);

View File

@ -1,107 +1,117 @@
object InstallPkgSetDialog: TInstallPkgSetDialog object InstallPkgSetDialog: TInstallPkgSetDialog
BorderStyle = bsSizeToolWin
Caption = 'InstallPkgSetDialog' Caption = 'InstallPkgSetDialog'
ClientHeight = 371 ClientHeight = 373
ClientWidth = 529 ClientWidth = 529
OnCreate = InstallPkgSetDialogCreate OnCreate = InstallPkgSetDialogCreate
OnDestroy = InstallPkgSetDialogDestroy OnDestroy = InstallPkgSetDialogDestroy
OnResize = InstallPkgSetDialogResize OnResize = InstallPkgSetDialogResize
PixelsPerInch = 96 PixelsPerInch = 96
HorzScrollBar.Page = 528 HorzScrollBar.Page = 528
VertScrollBar.Page = 370 VertScrollBar.Page = 372
Left = 319 Left = 319
Height = 371 Height = 373
Top = 178 Top = 178
Width = 529 Width = 529
object InstallPkgGroupBox: TGroupBox object InstallPkgGroupBox: TGroupBox
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.OnChange = nil BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
Caption = 'InstallPkgGroupBox' Caption = 'InstallPkgGroupBox'
ClientHeight = 285 ClientHeight = 307
ClientWidth = 236 ClientWidth = 251
ParentColor = True ParentColor = True
TabOrder = 0 TabOrder = 0
Left = 16 Left = 6
Height = 303 Height = 325
Top = 16 Top = 6
Width = 240 Width = 255
object InstallListBox: TListBox object InstallListBox: TListBox
Align = alTop Align = alClient
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.OnChange = nil BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
ClickOnSelChange = False ClickOnSelChange = False
MultiSelect = True MultiSelect = True
OnSelectionChange = InstallListBoxSelectionChange OnSelectionChange = InstallListBoxSelectionChange
TabOrder = 0 TabOrder = 0
Height = 184 Left = 6
Width = 236 Height = 202
Top = 6
Width = 239
end end
object UninstallButton: TButton object UninstallButton: TButton
Anchors = [akLeft, akRight, akBottom] Align = alBottom
BorderSpacing.OnChange = nil BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
Caption = 'UninstallButton' Caption = 'UninstallButton'
OnClick = UninstallButtonClick OnClick = UninstallButtonClick
TabOrder = 1 TabOrder = 1
Left = 6 Left = 6
Height = 25 Height = 25
Top = 192 Top = 214
Width = 224 Width = 239
end end
object ImportButton: TButton object ImportButton: TButton
Anchors = [akLeft, akRight, akBottom] Align = alBottom
BorderSpacing.OnChange = nil BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
Caption = 'ImportButton' Caption = 'ImportButton'
OnClick = ImportButtonClick OnClick = ImportButtonClick
TabOrder = 2 TabOrder = 2
Left = 6 Left = 6
Height = 25 Height = 25
Top = 224 Top = 245
Width = 224 Width = 239
end end
object ExportButton: TButton object ExportButton: TButton
Anchors = [akLeft, akRight, akBottom] Align = alBottom
BorderSpacing.OnChange = nil BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
Caption = 'ExportButton' Caption = 'ExportButton'
OnClick = ExportButtonClick OnClick = ExportButtonClick
TabOrder = 3 TabOrder = 3
Left = 6 Left = 6
Height = 25 Height = 25
Top = 256 Top = 276
Width = 224 Width = 239
end end
end end
object AvailablePkgGroupBox: TGroupBox object AvailablePkgGroupBox: TGroupBox
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
BorderSpacing.OnChange = nil BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
Caption = 'AvailablePkgGroupBox' Caption = 'AvailablePkgGroupBox'
ClientHeight = 285 ClientHeight = 307
ClientWidth = 236 ClientWidth = 251
ParentColor = True ParentColor = True
TabOrder = 1 TabOrder = 1
Left = 272 Left = 267
Height = 303 Height = 325
Top = 16 Top = 6
Width = 240 Width = 255
object AvailableListBox: TListBox object AvailableListBox: TListBox
Align = alTop Align = alClient
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.OnChange = nil BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
ClickOnSelChange = False ClickOnSelChange = False
MultiSelect = True MultiSelect = True
OnSelectionChange = AvailableListBoxSelectionChange OnSelectionChange = AvailableListBoxSelectionChange
TabOrder = 0 TabOrder = 0
Height = 249 Left = 6
Width = 236 Height = 264
Top = 6
Width = 239
end end
object AddToInstallButton: TButton object AddToInstallButton: TButton
Anchors = [akLeft, akRight, akBottom] Align = alBottom
BorderSpacing.OnChange = nil BorderSpacing.OnChange = nil
BorderSpacing.Around = 6
Caption = 'AddToInstallButton' Caption = 'AddToInstallButton'
OnClick = AddToInstallButtonClick OnClick = AddToInstallButtonClick
TabOrder = 1 TabOrder = 1
Left = 6 Left = 6
Height = 25 Height = 25
Top = 256 Top = 276
Width = 224 Width = 239
end end
end end
object CancelButton: TButton object CancelButton: TButton
@ -112,33 +122,33 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
Caption = 'CancelButton' Caption = 'CancelButton'
ModalResult = 2 ModalResult = 2
TabOrder = 2 TabOrder = 2
Left = 16 Left = 6
Height = 22 Height = 25
Top = 336 Top = 338
Width = 81 Width = 84
end end
object SaveAndRebuildButton: TButton object SaveAndRebuildButton: TButton
Anchors = [akLeft, akBottom] Anchors = [akBottom]
AutoSize = True AutoSize = True
BorderSpacing.OnChange = nil BorderSpacing.OnChange = nil
Caption = 'SaveAndRebuildButton' Caption = 'SaveAndRebuildButton'
OnClick = InstallButtonClick OnClick = InstallButtonClick
TabOrder = 3 TabOrder = 3
Left = 183 Left = 199
Height = 22 Height = 25
Top = 336 Top = 338
Width = 73 Width = 130
end end
object SaveAndExitButton: TButton object SaveAndExitButton: TButton
Anchors = [akLeft, akBottom] Anchors = [akRight, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.OnChange = nil BorderSpacing.OnChange = nil
Caption = 'SaveAndExitButton' Caption = 'SaveAndExitButton'
OnClick = SaveAndExitButtonClick OnClick = SaveAndExitButtonClick
TabOrder = 4 TabOrder = 4
Left = 328 Left = 409
Height = 22 Height = 25
Top = 336 Top = 338
Width = 113 Width = 113
end end
end end

View File

@ -1,50 +1,50 @@
{ This is an automatically generated lazarus resource file } { This is an automatically generated lazarus resource file }
LazarusResources.Add('TInstallPkgSetDialog','FORMDATA',[ LazarusResources.Add('TInstallPkgSetDialog','FORMDATA',[
'TPF0'#20'TInstallPkgSetDialog'#19'InstallPkgSetDialog'#7'Caption'#6#19'Insta' 'TPF0'#20'TInstallPkgSetDialog'#19'InstallPkgSetDialog'#11'BorderStyle'#7#13
+'llPkgSetDialog'#12'ClientHeight'#3's'#1#11'ClientWidth'#3#17#2#8'OnCreate'#7 +'bsSizeToolWin'#7'Caption'#6#19'InstallPkgSetDialog'#12'ClientHeight'#3'u'#1
+#25'InstallPkgSetDialogCreate'#9'OnDestroy'#7#26'InstallPkgSetDialogDestroy' +#11'ClientWidth'#3#17#2#8'OnCreate'#7#25'InstallPkgSetDialogCreate'#9'OnDest'
+#8'OnResize'#7#25'InstallPkgSetDialogResize'#13'PixelsPerInch'#2'`'#18'HorzS' +'roy'#7#26'InstallPkgSetDialogDestroy'#8'OnResize'#7#25'InstallPkgSetDialogR'
+'crollBar.Page'#3#16#2#18'VertScrollBar.Page'#3'r'#1#4'Left'#3'?'#1#6'Height' +'esize'#13'PixelsPerInch'#2'`'#18'HorzScrollBar.Page'#3#16#2#18'VertScrollBa'
+#3's'#1#3'Top'#3#178#0#5'Width'#3#17#2#0#9'TGroupBox'#18'InstallPkgGroupBox' +'r.Page'#3't'#1#4'Left'#3'?'#1#6'Height'#3'u'#1#3'Top'#3#178#0#5'Width'#3#17
+#7'Anchors'#11#5'akTop'#6'akLeft'#8'akBottom'#0#22'BorderSpacing.OnChange'#13 +#2#0#9'TGroupBox'#18'InstallPkgGroupBox'#22'BorderSpacing.OnChange'#13#20'Bo'
+#7'Caption'#6#18'InstallPkgGroupBox'#12'ClientHeight'#3#29#1#11'ClientWidth' +'rderSpacing.Around'#2#6#7'Caption'#6#18'InstallPkgGroupBox'#12'ClientHeight'
+#3#236#0#11'ParentColor'#9#8'TabOrder'#2#0#4'Left'#2#16#6'Height'#3'/'#1#3'T' +#3'3'#1#11'ClientWidth'#3#251#0#11'ParentColor'#9#8'TabOrder'#2#0#4'Left'#2#6
+'op'#2#16#5'Width'#3#240#0#0#8'TListBox'#14'InstallListBox'#5'Align'#7#5'alT' +#6'Height'#3'E'#1#3'Top'#2#6#5'Width'#3#255#0#0#8'TListBox'#14'InstallListBo'
+'op'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#22'BorderSpac' +'x'#5'Align'#7#8'alClient'#22'BorderSpacing.OnChange'#13#20'BorderSpacing.Ar'
+'ing.OnChange'#13#16'ClickOnSelChange'#8#11'MultiSelect'#9#17'OnSelectionCha' +'ound'#2#6#16'ClickOnSelChange'#8#11'MultiSelect'#9#17'OnSelectionChange'#7
+'nge'#7#29'InstallListBoxSelectionChange'#8'TabOrder'#2#0#6'Height'#3#184#0#5 +#29'InstallListBoxSelectionChange'#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#3
+'Width'#3#236#0#0#0#7'TButton'#15'UninstallButton'#7'Anchors'#11#6'akLeft'#7 +#202#0#3'Top'#2#6#5'Width'#3#239#0#0#0#7'TButton'#15'UninstallButton'#5'Alig'
+'akRight'#8'akBottom'#0#22'BorderSpacing.OnChange'#13#7'Caption'#6#15'Uninst' +'n'#7#8'alBottom'#22'BorderSpacing.OnChange'#13#20'BorderSpacing.Around'#2#6
+'allButton'#7'OnClick'#7#20'UninstallButtonClick'#8'TabOrder'#2#1#4'Left'#2#6 +#7'Caption'#6#15'UninstallButton'#7'OnClick'#7#20'UninstallButtonClick'#8'Ta'
+#6'Height'#2#25#3'Top'#3#192#0#5'Width'#3#224#0#0#0#7'TButton'#12'ImportButt' +'bOrder'#2#1#4'Left'#2#6#6'Height'#2#25#3'Top'#3#214#0#5'Width'#3#239#0#0#0#7
+'on'#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0#22'BorderSpacing.OnCha' +'TButton'#12'ImportButton'#5'Align'#7#8'alBottom'#22'BorderSpacing.OnChange'
+'nge'#13#7'Caption'#6#12'ImportButton'#7'OnClick'#7#17'ImportButtonClick'#8 +#13#20'BorderSpacing.Around'#2#6#7'Caption'#6#12'ImportButton'#7'OnClick'#7
+'TabOrder'#2#2#4'Left'#2#6#6'Height'#2#25#3'Top'#3#224#0#5'Width'#3#224#0#0#0 +#17'ImportButtonClick'#8'TabOrder'#2#2#4'Left'#2#6#6'Height'#2#25#3'Top'#3
+#7'TButton'#12'ExportButton'#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0 +#245#0#5'Width'#3#239#0#0#0#7'TButton'#12'ExportButton'#5'Align'#7#8'alBotto'
+#22'BorderSpacing.OnChange'#13#7'Caption'#6#12'ExportButton'#7'OnClick'#7#17 +'m'#22'BorderSpacing.OnChange'#13#20'BorderSpacing.Around'#2#6#7'Caption'#6
+'ExportButtonClick'#8'TabOrder'#2#3#4'Left'#2#6#6'Height'#2#25#3'Top'#3#0#1#5 +#12'ExportButton'#7'OnClick'#7#17'ExportButtonClick'#8'TabOrder'#2#3#4'Left'
+'Width'#3#224#0#0#0#0#9'TGroupBox'#20'AvailablePkgGroupBox'#7'Anchors'#11#5 +#2#6#6'Height'#2#25#3'Top'#3#20#1#5'Width'#3#239#0#0#0#0#9'TGroupBox'#20'Ava'
+'akTop'#6'akLeft'#8'akBottom'#0#22'BorderSpacing.OnChange'#13#7'Caption'#6#20 +'ilablePkgGroupBox'#7'Anchors'#11#5'akTop'#6'akLeft'#8'akBottom'#0#22'Border'
+'AvailablePkgGroupBox'#12'ClientHeight'#3#29#1#11'ClientWidth'#3#236#0#11'Pa' +'Spacing.OnChange'#13#20'BorderSpacing.Around'#2#6#7'Caption'#6#20'Available'
+'rentColor'#9#8'TabOrder'#2#1#4'Left'#3#16#1#6'Height'#3'/'#1#3'Top'#2#16#5 +'PkgGroupBox'#12'ClientHeight'#3'3'#1#11'ClientWidth'#3#251#0#11'ParentColor'
+'Width'#3#240#0#0#8'TListBox'#16'AvailableListBox'#5'Align'#7#5'alTop'#7'Anc' +#9#8'TabOrder'#2#1#4'Left'#3#11#1#6'Height'#3'E'#1#3'Top'#2#6#5'Width'#3#255
+'hors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#22'BorderSpacing.OnCha' +#0#0#8'TListBox'#16'AvailableListBox'#5'Align'#7#8'alClient'#22'BorderSpacin'
+'nge'#13#16'ClickOnSelChange'#8#11'MultiSelect'#9#17'OnSelectionChange'#7#31 +'g.OnChange'#13#20'BorderSpacing.Around'#2#6#16'ClickOnSelChange'#8#11'Multi'
+'AvailableListBoxSelectionChange'#8'TabOrder'#2#0#6'Height'#3#249#0#5'Width' +'Select'#9#17'OnSelectionChange'#7#31'AvailableListBoxSelectionChange'#8'Tab'
+#3#236#0#0#0#7'TButton'#18'AddToInstallButton'#7'Anchors'#11#6'akLeft'#7'akR' +'Order'#2#0#4'Left'#2#6#6'Height'#3#8#1#3'Top'#2#6#5'Width'#3#239#0#0#0#7'TB'
+'ight'#8'akBottom'#0#22'BorderSpacing.OnChange'#13#7'Caption'#6#18'AddToInst' +'utton'#18'AddToInstallButton'#5'Align'#7#8'alBottom'#22'BorderSpacing.OnCha'
+'allButton'#7'OnClick'#7#23'AddToInstallButtonClick'#8'TabOrder'#2#1#4'Left' +'nge'#13#20'BorderSpacing.Around'#2#6#7'Caption'#6#18'AddToInstallButton'#7
+#2#6#6'Height'#2#25#3'Top'#3#0#1#5'Width'#3#224#0#0#0#0#7'TButton'#12'Cancel' +'OnClick'#7#23'AddToInstallButtonClick'#8'TabOrder'#2#1#4'Left'#2#6#6'Height'
+'Button'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#22'BorderSpacin' +#2#25#3'Top'#3#20#1#5'Width'#3#239#0#0#0#0#7'TButton'#12'CancelButton'#7'Anc'
+'g.OnChange'#13#6'Cancel'#9#7'Caption'#6#12'CancelButton'#11'ModalResult'#2#2 +'hors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#22'BorderSpacing.OnChange'#13
+#8'TabOrder'#2#2#4'Left'#2#16#6'Height'#2#22#3'Top'#3'P'#1#5'Width'#2'Q'#0#0 +#6'Cancel'#9#7'Caption'#6#12'CancelButton'#11'ModalResult'#2#2#8'TabOrder'#2
+#7'TButton'#20'SaveAndRebuildButton'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8 +#2#4'Left'#2#6#6'Height'#2#25#3'Top'#3'R'#1#5'Width'#2'T'#0#0#7'TButton'#20
+'AutoSize'#9#22'BorderSpacing.OnChange'#13#7'Caption'#6#20'SaveAndRebuildBut' +'SaveAndRebuildButton'#7'Anchors'#11#8'akBottom'#0#8'AutoSize'#9#22'BorderSp'
+'ton'#7'OnClick'#7#18'InstallButtonClick'#8'TabOrder'#2#3#4'Left'#3#183#0#6 +'acing.OnChange'#13#7'Caption'#6#20'SaveAndRebuildButton'#7'OnClick'#7#18'In'
+'Height'#2#22#3'Top'#3'P'#1#5'Width'#2'I'#0#0#7'TButton'#17'SaveAndExitButto' +'stallButtonClick'#8'TabOrder'#2#3#4'Left'#3#199#0#6'Height'#2#25#3'Top'#3'R'
+'n'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#22'BorderSpacing.OnC' +#1#5'Width'#3#130#0#0#0#7'TButton'#17'SaveAndExitButton'#7'Anchors'#11#7'akR'
+'hange'#13#7'Caption'#6#17'SaveAndExitButton'#7'OnClick'#7#22'SaveAndExitBut' +'ight'#8'akBottom'#0#8'AutoSize'#9#22'BorderSpacing.OnChange'#13#7'Caption'#6
+'tonClick'#8'TabOrder'#2#4#4'Left'#3'H'#1#6'Height'#2#22#3'Top'#3'P'#1#5'Wid' +#17'SaveAndExitButton'#7'OnClick'#7#22'SaveAndExitButtonClick'#8'TabOrder'#2
+'th'#2'q'#0#0#0 +#4#4'Left'#3#153#1#6'Height'#2#25#3'Top'#3'R'#1#5'Width'#2'q'#0#0#0
]); ]);

View File

@ -292,15 +292,15 @@ end;
procedure TInstallPkgSetDialog.InstallPkgSetDialogResize(Sender: TObject); procedure TInstallPkgSetDialog.InstallPkgSetDialogResize(Sender: TObject);
var var
x: Integer;
w: Integer; w: Integer;
x: Integer;
begin begin
x:=10; x := 6;
w:=(ClientWidth-3*x) div 2; w := (ClientWidth - 3 * x) div 2;
with InstallPkgGroupBox do InstallPkgGroupBox.SetBounds(x, x, w, Height - 48);
SetBounds(x,Top,w,Height); AvailablePkgGroupBox.SetBounds(2 * x + w, x, w, Height - 48);
with AvailablePkgGroupBox do
SetBounds(x+w+x,Top,w,Height); SaveAndRebuildButton.Left := (Width - SaveAndRebuildButton.Width) div 2 ;
end; end;
procedure TInstallPkgSetDialog.SaveAndExitButtonClick(Sender: TObject); procedure TInstallPkgSetDialog.SaveAndExitButtonClick(Sender: TObject);