paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 15:59:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: improved layout of TAddFileToAPackageDialog

Browse Source 
git-svn-id: trunk@16109 -
This commit is contained in:
mattias 2008-08-18 09:58:34 +00:00
parent 333854afa9
commit f54fad676b
3 changed files with 182 additions and 134 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

217
packager/addfiletoapackagedlg.lfm
View File

@ -1,140 +1,173 @@
object AddFileToAPackageDialog: TAddFileToAPackageDialog object AddFileToAPackageDialog: TAddFileToAPackageDialog
Caption = 'AddFileToAPackageDialog'
ClientHeight = 363
ClientWidth = 469
OnClose = AddFileToAPackageDlgClose
PixelsPerInch = 96
Position = poScreenCenter
ShowHint = True
HorzScrollBar.Page = 468
VertScrollBar.Page = 362
Left = 347 Left = 347
Height = 363 Height = 424
Top = 221 Top = 221
Width = 469 Width = 469
ActiveControl = FileNameEdit
Caption = 'AddFileToAPackageDialog'
ClientHeight = 424
ClientWidth = 469
OnClose = AddFileToAPackageDlgClose
Position = poScreenCenter
ShowHint = True
LCLVersion = '0.9.25'
object FileGroupBox: TGroupBox object FileGroupBox: TGroupBox
Anchors = [akTop, akLeft, akRight, akBottom] Left = 6
Height = 164
Top = 6
Width = 457
Align = alTop
AutoSize = True
BorderSpacing.Around = 6
Caption = 'FileGroupBox' Caption = 'FileGroupBox'
ClientHeight = 199 ClientHeight = 145
ClientWidth = 450 ClientWidth = 453
ParentColor = True
TabOrder = 0 TabOrder = 0
Left = 8
Height = 217
Top = 8
Width = 454
object UnitNameLabel: TLabel object UnitNameLabel: TLabel
AnchorSideTop.Control = FileNameEdit
AnchorSideTop.Side = asrBottom
Left = 6
Height = 20
Top = 35
Width = 439
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.OnChange = nil BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'UnitNameLabel' Caption = 'UnitNameLabel'
Color = clNone ParentColor = False
Left = 12
Height = 17
Top = 40
Width = 430
end end
object FileTypeRadioGroup: TRadioGroup object FileTypeRadioGroup: TRadioGroup
Anchors = [akLeft, akRight, akBottom] AnchorSideTop.Control = HasRegisterProcCheckBox
BorderSpacing.OnChange = nil AnchorSideTop.Side = asrBottom
Left = 6
Height = 25
Top = 114
Width = 439
Anchors = [akTop, akLeft, akRight]
AutoFill = True
AutoSize = True
BorderSpacing.Around = 6
Caption = 'FileTypeRadioGroup' Caption = 'FileTypeRadioGroup'
ParentColor = True ChildSizing.LeftRightSpacing = 6
Left = 12 ChildSizing.TopBottomSpacing = 6
Height = 72 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
Top = 113 ChildSizing.EnlargeVertical = crsHomogenousChildResize
Width = 430 ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
Constraints.MinHeight = 25
TabOrder = 3
end end
object FileNameEdit: TEdit object FileNameEdit: TEdit
Left = 6
Height = 23
Top = 6
Width = 439
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.OnChange = nil BorderSpacing.Around = 6
ReadOnly = True ReadOnly = True
TabOrder = 0 TabOrder = 0
Text = 'FileNameEdit' Text = 'FileNameEdit'
Left = 12
Height = 23
Top = 8
Width = 430
end end
object UnitNameEdit: TEdit object UnitNameEdit: TEdit
AnchorSideTop.Control = UnitNameLabel
AnchorSideTop.Side = asrBottom
Left = 6
Height = 23
Top = 57
Width = 439
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.OnChange = nil BorderSpacing.Top = 2
TabOrder = 1 TabOrder = 1
Text = 'UnitNameEdit' Text = 'UnitNameEdit'
Left = 12
Height = 23
Top = 56
Width = 430
end end
object HasRegisterProcCheckBox: TCheckBox object HasRegisterProcCheckBox: TCheckBox
AnchorSideTop.Control = UnitNameEdit
AnchorSideTop.Side = asrBottom
Left = 6
Height = 22
Top = 86
Width = 439
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.OnChange = nil BorderSpacing.Top = 6
Caption = 'HasRegisterProcCheckBox' Caption = 'HasRegisterProcCheckBox'
TabOrder = 2 TabOrder = 2
Left = 12
Height = 23
Top = 88
Width = 430
end end
end end
object PackagesGroupBox: TGroupBox object PackagesGroupBox: TGroupBox
Anchors = [akLeft, akRight, akBottom] Left = 6
BorderSpacing.OnChange = nil
Caption = 'PackagesGroupBox'
ClientHeight = 70
ClientWidth = 450
ParentColor = True
TabOrder = 1
Left = 8
Height = 88 Height = 88
Top = 233 Top = 176
Width = 454 Width = 457
Align = alTop
Anchors = [akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'PackagesGroupBox'
ClientHeight = 69
ClientWidth = 453
TabOrder = 1
object PackagesComboBox: TComboBox object PackagesComboBox: TComboBox
Anchors = [akTop, akLeft, akRight] Left = 6
BorderSpacing.OnChange = nil Height = 29
Top = 6
Width = 441
Align = alTop
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
BorderSpacing.Around = 6
MaxLength = 0 MaxLength = 0
TabOrder = 0 TabOrder = 0
Text = 'PackagesComboBox' Text = 'PackagesComboBox'
Left = 12
Height = 21
Top = 8
Width = 430
end end
object ShowAllCheckBox: TCheckBox object ShowAllCheckBox: TCheckBox
Anchors = [akTop, akLeft, akRight] Left = 6
BorderSpacing.OnChange = nil Height = 22
Top = 41
Width = 441
Align = alTop
BorderSpacing.Around = 6
Caption = 'ShowAllCheckBox' Caption = 'ShowAllCheckBox'
OnClick = ShowAllCheckBoxClick OnClick = ShowAllCheckBoxClick
TabOrder = 1 TabOrder = 1
Left = 12
Height = 23
Top = 40
Width = 430
end end
end end
object CancelButton: TButton object BtnPanel: TPanel
Anchors = [akRight, akBottom] Height = 41
Top = 383
Width = 469
Align = alBottom
AutoSize = True AutoSize = True
BorderSpacing.OnChange = nil BevelOuter = bvNone
Caption = 'CancelButton' ClientHeight = 41
ModalResult = 2 ClientWidth = 469
TabOrder = 2 TabOrder = 2
Left = 387 object CancelButton: TButton
Height = 25 Left = 365
Top = 329 Height = 29
Width = 75 Top = 6
end Width = 98
object OkButton: TButton Align = alRight
Anchors = [akTop, akRight] AutoSize = True
AutoSize = True BorderSpacing.Around = 6
BorderSpacing.Right = 10 Caption = 'CancelButton'
Caption = 'OkButton' Constraints.MinWidth = 75
OnClick = OkButtonClick ModalResult = 2
TabOrder = 3 TabOrder = 0
AnchorSideTop.Control = CancelButton end
AnchorSideTop.Side = asrCenter object OkButton: TButton
AnchorSideRight.Control = CancelButton Left = 284
Left = 302 Height = 29
Height = 25 Top = 6
Top = 329 Width = 75
Width = 75 Align = alRight
AutoSize = True
BorderSpacing.Around = 6
Caption = 'OkButton'
Constraints.MinWidth = 75
OnClick = OkButtonClick
TabOrder = 1
end
end end
end end

98
packager/addfiletoapackagedlg.lrs
View File

@ -1,44 +1,58 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TAddFileToAPackageDialog','FORMDATA',[ LazarusResources.Add('TAddFileToAPackageDialog','FORMDATA',[
'TPF0'#24'TAddFileToAPackageDialog'#23'AddFileToAPackageDialog'#7'Caption'#6 'TPF0'#24'TAddFileToAPackageDialog'#23'AddFileToAPackageDialog'#4'Left'#3'['#1
+#23'AddFileToAPackageDialog'#12'ClientHeight'#3'k'#1#11'ClientWidth'#3#213#1 +#6'Height'#3#168#1#3'Top'#3#221#0#5'Width'#3#213#1#13'ActiveControl'#7#12'Fi'
+#7'OnClose'#7#25'AddFileToAPackageDlgClose'#13'PixelsPerInch'#2'`'#8'Positio' +'leNameEdit'#7'Caption'#6#23'AddFileToAPackageDialog'#12'ClientHeight'#3#168
+'n'#7#14'poScreenCenter'#8'ShowHint'#9#18'HorzScrollBar.Page'#3#212#1#18'Ver' +#1#11'ClientWidth'#3#213#1#7'OnClose'#7#25'AddFileToAPackageDlgClose'#8'Posi'
+'tScrollBar.Page'#3'j'#1#4'Left'#3'['#1#6'Height'#3'k'#1#3'Top'#3#221#0#5'Wi' +'tion'#7#14'poScreenCenter'#8'ShowHint'#9#10'LCLVersion'#6#6'0.9.25'#0#9'TGr'
+'dth'#3#213#1#0#9'TGroupBox'#12'FileGroupBox'#7'Anchors'#11#5'akTop'#6'akLef' +'oupBox'#12'FileGroupBox'#4'Left'#2#6#6'Height'#3#164#0#3'Top'#2#6#5'Width'#3
+'t'#7'akRight'#8'akBottom'#0#7'Caption'#6#12'FileGroupBox'#12'ClientHeight'#3 +#201#1#5'Align'#7#5'alTop'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Capt'
+#199#0#11'ClientWidth'#3#194#1#11'ParentColor'#9#8'TabOrder'#2#0#4'Left'#2#8 +'ion'#6#12'FileGroupBox'#12'ClientHeight'#3#145#0#11'ClientWidth'#3#197#1#8
+#6'Height'#3#217#0#3'Top'#2#8#5'Width'#3#198#1#0#6'TLabel'#13'UnitNameLabel' +'TabOrder'#2#0#0#6'TLabel'#13'UnitNameLabel'#21'AnchorSideTop.Control'#7#12
+#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#22'BorderSpacing.OnChange'#13 +'FileNameEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2
+#7'Caption'#6#13'UnitNameLabel'#5'Color'#7#6'clNone'#4'Left'#2#12#6'Height'#2 +#20#3'Top'#2'#'#5'Width'#3#183#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'
+#17#3'Top'#2'('#5'Width'#3#174#1#0#0#11'TRadioGroup'#18'FileTypeRadioGroup'#7 +#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing.Top'#2#6#19'BorderSpacing.Rig'
+'Anchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0#22'BorderSpacing.OnChange'#13 +'ht'#2#6#7'Caption'#6#13'UnitNameLabel'#11'ParentColor'#8#0#0#11'TRadioGroup'
+#7'Caption'#6#18'FileTypeRadioGroup'#11'ParentColor'#9#4'Left'#2#12#6'Height' +#18'FileTypeRadioGroup'#21'AnchorSideTop.Control'#7#23'HasRegisterProcCheckB'
+#2'H'#3'Top'#2'q'#5'Width'#3#174#1#0#0#5'TEdit'#12'FileNameEdit'#7'Anchors' +'ox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#25#3'Top'
+#11#5'akTop'#6'akLeft'#7'akRight'#0#22'BorderSpacing.OnChange'#13#8'ReadOnly' +#2'r'#5'Width'#3#183#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoF'
+#9#8'TabOrder'#2#0#4'Text'#6#12'FileNameEdit'#4'Left'#2#12#6'Height'#2#23#3 +'ill'#9#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#18'FileTypeR'
+'Top'#2#8#5'Width'#3#174#1#0#0#5'TEdit'#12'UnitNameEdit'#7'Anchors'#11#5'akT' +'adioGroup'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpa'
+'op'#6'akLeft'#7'akRight'#0#22'BorderSpacing.OnChange'#13#8'TabOrder'#2#1#4 +'cing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'
+'Text'#6#12'UnitNameEdit'#4'Left'#2#12#6'Height'#2#23#3'Top'#2'8'#5'Width'#3 +#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizi'
+#174#1#0#0#9'TCheckBox'#23'HasRegisterProcCheckBox'#7'Anchors'#11#5'akTop'#6 +'ng.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7
+'akLeft'#7'akRight'#0#22'BorderSpacing.OnChange'#13#7'Caption'#6#23'HasRegis' +#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBotto'
+'terProcCheckBox'#8'TabOrder'#2#2#4'Left'#2#12#6'Height'#2#23#3'Top'#2'X'#5 +'m'#27'ChildSizing.ControlsPerLine'#2#1#21'Constraints.MinHeight'#2#25#8'Tab'
+'Width'#3#174#1#0#0#0#9'TGroupBox'#16'PackagesGroupBox'#7'Anchors'#11#6'akLe' +'Order'#2#3#0#0#5'TEdit'#12'FileNameEdit'#4'Left'#2#6#6'Height'#2#23#3'Top'#2
+'ft'#7'akRight'#8'akBottom'#0#22'BorderSpacing.OnChange'#13#7'Caption'#6#16 +#6#5'Width'#3#183#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderS'
+'PackagesGroupBox'#12'ClientHeight'#2'F'#11'ClientWidth'#3#194#1#11'ParentCo' +'pacing.Around'#2#6#8'ReadOnly'#9#8'TabOrder'#2#0#4'Text'#6#12'FileNameEdit'
+'lor'#9#8'TabOrder'#2#1#4'Left'#2#8#6'Height'#2'X'#3'Top'#3#233#0#5'Width'#3 +#0#0#5'TEdit'#12'UnitNameEdit'#21'AnchorSideTop.Control'#7#13'UnitNameLabel'
+#198#1#0#9'TComboBox'#16'PackagesComboBox'#7'Anchors'#11#5'akTop'#6'akLeft'#7 +#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#23#3'Top'#2'9'
+'akRight'#0#22'BorderSpacing.OnChange'#13#9'MaxLength'#2#0#8'TabOrder'#2#0#4 +#5'Width'#3#183#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpa'
+'Text'#6#16'PackagesComboBox'#4'Left'#2#12#6'Height'#2#21#3'Top'#2#8#5'Width' +'cing.Top'#2#2#8'TabOrder'#2#1#4'Text'#6#12'UnitNameEdit'#0#0#9'TCheckBox'#23
+#3#174#1#0#0#9'TCheckBox'#15'ShowAllCheckBox'#7'Anchors'#11#5'akTop'#6'akLef' +'HasRegisterProcCheckBox'#21'AnchorSideTop.Control'#7#12'UnitNameEdit'#18'An'
+'t'#7'akRight'#0#22'BorderSpacing.OnChange'#13#7'Caption'#6#15'ShowAllCheckB' +'chorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#22#3'Top'#2'V'#5'W'
+'ox'#7'OnClick'#7#20'ShowAllCheckBoxClick'#8'TabOrder'#2#1#4'Left'#2#12#6'He' +'idth'#3#183#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacin'
+'ight'#2#23#3'Top'#2'('#5'Width'#3#174#1#0#0#0#7'TButton'#12'CancelButton'#7 +'g.Top'#2#6#7'Caption'#6#23'HasRegisterProcCheckBox'#8'TabOrder'#2#2#0#0#0#9
+'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#22'BorderSpacing.OnChang' +'TGroupBox'#16'PackagesGroupBox'#4'Left'#2#6#6'Height'#2'X'#3'Top'#3#176#0#5
+'e'#13#7'Caption'#6#12'CancelButton'#11'ModalResult'#2#2#8'TabOrder'#2#2#4'L' +'Width'#3#201#1#5'Align'#7#5'alTop'#7'Anchors'#11#6'akLeft'#7'akRight'#0#8'A'
+'eft'#3#131#1#6'Height'#2#25#3'Top'#3'I'#1#5'Width'#2'K'#0#0#7'TButton'#8'Ok' +'utoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#16'PackagesGroupBox'#12
+'Button'#7'Anchors'#11#5'akTop'#7'akRight'#0#8'AutoSize'#9#19'BorderSpacing.' +'ClientHeight'#2'E'#11'ClientWidth'#3#197#1#8'TabOrder'#2#1#0#9'TComboBox'#16
+'Right'#2#10#7'Caption'#6#8'OkButton'#7'OnClick'#7#13'OkButtonClick'#8'TabOr' +'PackagesComboBox'#4'Left'#2#6#6'Height'#2#29#3'Top'#2#6#5'Width'#3#185#1#5
+'der'#2#3#21'AnchorSideTop.Control'#7#12'CancelButton'#18'AnchorSideTop.Side' +'Align'#7#5'alTop'#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cba'
+#7#9'asrCenter'#23'AnchorSideRight.Control'#7#12'CancelButton'#4'Left'#3'.'#1 +'ctSearchAscending'#0#20'BorderSpacing.Around'#2#6#9'MaxLength'#2#0#8'TabOrd'
+#6'Height'#2#25#3'Top'#3'I'#1#5'Width'#2'K'#0#0#0 +'er'#2#0#4'Text'#6#16'PackagesComboBox'#0#0#9'TCheckBox'#15'ShowAllCheckBox'
+#4'Left'#2#6#6'Height'#2#22#3'Top'#2')'#5'Width'#3#185#1#5'Align'#7#5'alTop'
+#20'BorderSpacing.Around'#2#6#7'Caption'#6#15'ShowAllCheckBox'#7'OnClick'#7
+#20'ShowAllCheckBoxClick'#8'TabOrder'#2#1#0#0#0#6'TPanel'#8'BtnPanel'#6'Heig'
+'ht'#2')'#3'Top'#3''#1#5'Width'#3#213#1#5'Align'#7#8'alBottom'#8'AutoSize'#9
+#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2')'#11'ClientWidth'#3#213#1#8
+'TabOrder'#2#2#0#7'TButton'#12'CancelButton'#4'Left'#3'm'#1#6'Height'#2#29#3
+'Top'#2#6#5'Width'#2'b'#5'Align'#7#7'alRight'#8'AutoSize'#9#20'BorderSpacing'
+'.Around'#2#6#7'Caption'#6#12'CancelButton'#20'Constraints.MinWidth'#2'K'#11
+'ModalResult'#2#2#8'TabOrder'#2#0#0#0#7'TButton'#8'OkButton'#4'Left'#3#28#1#6
+'Height'#2#29#3'Top'#2#6#5'Width'#2'K'#5'Align'#7#7'alRight'#8'AutoSize'#9#20
+'BorderSpacing.Around'#2#6#7'Caption'#6#8'OkButton'#20'Constraints.MinWidth'
+#2'K'#7'OnClick'#7#13'OkButtonClick'#8'TabOrder'#2#1#0#0#0#0
]); ]);

1
packager/addfiletoapackagedlg.pas
View File

@ -52,6 +52,7 @@ type
OkButton: TButton; OkButton: TButton;
HasRegisterProcCheckBox: TCheckBox; HasRegisterProcCheckBox: TCheckBox;
FileTypeRadioGroup: TRadioGroup; FileTypeRadioGroup: TRadioGroup;
BtnPanel: TPanel;
UnitNameEdit: TEdit; UnitNameEdit: TEdit;
FileNameEdit: TEdit; FileNameEdit: TEdit;
FileGroupBox: TGroupBox; FileGroupBox: TGroupBox;