mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-10-03 09:00:33 +02:00
new buildlazdialog look
git-svn-id: trunk@11279 -
This commit is contained in:
paul
parent
3f7e3e3cf8
commit
f0f36ca1c6
@ -1,11 +1,11 @@
|
||||
object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
|
||||
Left = 459
|
||||
Left = 285
|
||||
Height = 500
|
||||
Top = 300
|
||||
Top = 178
|
||||
Width = 500
|
||||
HorzScrollBar.Page = 499
|
||||
VertScrollBar.Page = 499
|
||||
ActiveControl = BuildAllButton
|
||||
ActiveControl = CleanAllCheckBox
|
||||
BorderIcons = [biSystemMenu, biMinimize]
|
||||
BorderStyle = bsSizeToolWin
|
||||
Caption = 'ConfigureBuildLazarusDlg'
|
||||
@ -19,9 +19,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
|
||||
AnchorSideTop.Control = OptionsEdit
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 10
|
||||
Height = 14
|
||||
Top = 284
|
||||
Width = 42
|
||||
Height = 17
|
||||
Top = 283
|
||||
Width = 46
|
||||
Caption = 'Options:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
@ -30,9 +30,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
|
||||
AnchorSideTop.Control = TargetOSEdit
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 10
|
||||
Height = 14
|
||||
Top = 314
|
||||
Width = 54
|
||||
Height = 17
|
||||
Top = 313
|
||||
Width = 55
|
||||
Caption = 'Target OS:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
@ -41,9 +41,9 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
|
||||
AnchorSideTop.Control = TargetDirectoryComboBox
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 10
|
||||
Height = 14
|
||||
Top = 345
|
||||
Width = 84
|
||||
Height = 17
|
||||
Top = 344
|
||||
Width = 88
|
||||
Caption = 'Target Directory:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
@ -52,31 +52,21 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
|
||||
AnchorSideTop.Control = TargetCPUComboBox
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 10
|
||||
Height = 14
|
||||
Top = 375
|
||||
Width = 56
|
||||
Height = 17
|
||||
Top = 374
|
||||
Width = 59
|
||||
Caption = 'Target CPU'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object BuildAllButton: TButton
|
||||
Left = 10
|
||||
Height = 25
|
||||
Top = 12
|
||||
Width = 194
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = 'Set to "Build All"'
|
||||
OnClick = BuildAllButtonClick
|
||||
TabOrder = 0
|
||||
end
|
||||
object CleanAllCheckBox: TCheckBox
|
||||
AnchorSideLeft.Control = LCLInterfaceRadioGroup
|
||||
Left = 338
|
||||
Height = 13
|
||||
Top = 12
|
||||
Width = 61
|
||||
Height = 15
|
||||
Top = 218
|
||||
Width = 63
|
||||
Caption = 'Clean All'
|
||||
TabOrder = 1
|
||||
TabOrder = 0
|
||||
end
|
||||
object OptionsEdit: TEdit
|
||||
Left = 156
|
||||
@ -84,7 +74,7 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
|
||||
Top = 280
|
||||
Width = 331
|
||||
Anchors = [akLeft, akRight, akBottom]
|
||||
TabOrder = 5
|
||||
TabOrder = 4
|
||||
end
|
||||
object TargetOSEdit: TEdit
|
||||
Left = 156
|
||||
@ -92,7 +82,7 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
|
||||
Top = 309
|
||||
Width = 331
|
||||
Anchors = [akLeft, akRight, akBottom]
|
||||
TabOrder = 6
|
||||
TabOrder = 5
|
||||
end
|
||||
object TargetDirectoryComboBox: TComboBox
|
||||
AnchorSideTop.Side = asrBottom
|
||||
@ -104,7 +94,7 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
|
||||
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
|
||||
ItemHeight = 13
|
||||
MaxLength = 0
|
||||
TabOrder = 7
|
||||
TabOrder = 6
|
||||
end
|
||||
object TargetDirectoryButton: TButton
|
||||
Left = 465
|
||||
@ -115,12 +105,12 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = '...'
|
||||
OnClick = TargetDirectoryButtonClick
|
||||
TabOrder = 8
|
||||
TabOrder = 7
|
||||
end
|
||||
object LCLInterfaceRadioGroup: TRadioGroup
|
||||
Left = 338
|
||||
Height = 188
|
||||
Top = 42
|
||||
Top = 11
|
||||
Width = 149
|
||||
Anchors = [akTop, akRight, akBottom]
|
||||
AutoFill = True
|
||||
@ -133,35 +123,35 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 1
|
||||
TabOrder = 3
|
||||
TabOrder = 2
|
||||
end
|
||||
object WithStaticPackagesCheckBox: TCheckBox
|
||||
AnchorSideLeft.Control = LCLInterfaceRadioGroup
|
||||
Left = 338
|
||||
Height = 13
|
||||
Height = 15
|
||||
Top = 248
|
||||
Width = 166
|
||||
Width = 168
|
||||
Anchors = [akLeft, akBottom]
|
||||
Caption = 'WithStaticPackagesCheckBox'
|
||||
TabOrder = 4
|
||||
TabOrder = 3
|
||||
end
|
||||
object RestartAfterBuildCheckBox: TCheckBox
|
||||
Left = 10
|
||||
Height = 13
|
||||
Top = 416
|
||||
Width = 148
|
||||
Height = 15
|
||||
Top = 414
|
||||
Width = 150
|
||||
Anchors = [akLeft, akBottom]
|
||||
Caption = 'RestartAfterBuildCheckBox'
|
||||
TabOrder = 10
|
||||
TabOrder = 9
|
||||
end
|
||||
object ConfirmBuildCheckBox: TCheckBox
|
||||
Left = 10
|
||||
Height = 13
|
||||
Top = 442
|
||||
Width = 127
|
||||
Height = 15
|
||||
Top = 440
|
||||
Width = 129
|
||||
Anchors = [akLeft, akBottom]
|
||||
Caption = 'ConfirmBuildCheckBox'
|
||||
TabOrder = 11
|
||||
TabOrder = 10
|
||||
end
|
||||
object SaveSettingsButton: TButton
|
||||
AnchorSideRight.Control = CancelButton
|
||||
@ -178,7 +168,7 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
|
||||
Caption = 'Save settings'
|
||||
Default = True
|
||||
OnClick = SaveSettingsButtonClick
|
||||
TabOrder = 12
|
||||
TabOrder = 11
|
||||
end
|
||||
object CancelButton: TButton
|
||||
Left = 426
|
||||
@ -191,12 +181,12 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
|
||||
Cancel = True
|
||||
Caption = 'Cancel'
|
||||
OnClick = CancelButtonClick
|
||||
TabOrder = 13
|
||||
TabOrder = 12
|
||||
end
|
||||
object ItemsListBox: TListBox
|
||||
Left = 10
|
||||
Height = 229
|
||||
Top = 42
|
||||
Top = 34
|
||||
Width = 319
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
ItemHeight = 25
|
||||
@ -206,7 +196,7 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
Style = lbOwnerDrawFixed
|
||||
TabOrder = 2
|
||||
TabOrder = 1
|
||||
end
|
||||
object TargetCPUComboBox: TComboBox
|
||||
Left = 156
|
||||
@ -217,7 +207,7 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
|
||||
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
|
||||
ItemHeight = 13
|
||||
MaxLength = 0
|
||||
TabOrder = 9
|
||||
TabOrder = 8
|
||||
end
|
||||
object CompileButton: TButton
|
||||
AnchorSideRight.Control = SaveSettingsButton
|
||||
@ -233,6 +223,16 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = 'Compile'
|
||||
OnClick = CompileButtonClick
|
||||
TabOrder = 14
|
||||
TabOrder = 13
|
||||
end
|
||||
object ItemListHeader: THeaderControl
|
||||
Left = 10
|
||||
Height = 24
|
||||
Top = 10
|
||||
Width = 319
|
||||
Sections = <>
|
||||
OnSectionClick = ItemListHeaderSectionClick
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
OnResize = ItemListHeaderResize
|
||||
end
|
||||
end
|
||||
|
||||
@ -1,83 +1,83 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TConfigureBuildLazarusDlg','FORMDATA',[
|
||||
'TPF0'#25'TConfigureBuildLazarusDlg'#24'ConfigureBuildLazarusDlg'#4'Left'#3
|
||||
+#203#1#6'Height'#3#244#1#3'Top'#3','#1#5'Width'#3#244#1#18'HorzScrollBar.Pag'
|
||||
+'e'#3#243#1#18'VertScrollBar.Page'#3#243#1#13'ActiveControl'#7#14'BuildAllBu'
|
||||
+'tton'#11'BorderIcons'#11#12'biSystemMenu'#10'biMinimize'#0#11'BorderStyle'#7
|
||||
+#13'bsSizeToolWin'#7'Caption'#6#24'ConfigureBuildLazarusDlg'#12'ClientHeight'
|
||||
+#3#244#1#11'ClientWidth'#3#244#1#7'OnClose'#7#9'FormClose'#8'OnCreate'#7#10
|
||||
+'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#8'Position'#7#14'poScreenCenter'
|
||||
+#0#6'TLabel'#12'OptionsLabel'#21'AnchorSideTop.Control'#7#11'OptionsEdit'#18
|
||||
+'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#10#6'Height'#2#14#3'Top'#3#28#1
|
||||
+#5'Width'#2'*'#7'Caption'#6#8'Options:'#5'Color'#7#6'clNone'#11'ParentColor'
|
||||
'TPF0'#25'TConfigureBuildLazarusDlg'#24'ConfigureBuildLazarusDlg'#4'Left'#3#29
|
||||
+#1#6'Height'#3#244#1#3'Top'#3#178#0#5'Width'#3#244#1#18'HorzScrollBar.Page'#3
|
||||
+#243#1#18'VertScrollBar.Page'#3#243#1#13'ActiveControl'#7#16'CleanAllCheckBo'
|
||||
+'x'#11'BorderIcons'#11#12'biSystemMenu'#10'biMinimize'#0#11'BorderStyle'#7#13
|
||||
+'bsSizeToolWin'#7'Caption'#6#24'ConfigureBuildLazarusDlg'#12'ClientHeight'#3
|
||||
+#244#1#11'ClientWidth'#3#244#1#7'OnClose'#7#9'FormClose'#8'OnCreate'#7#10'Fo'
|
||||
+'rmCreate'#9'OnDestroy'#7#11'FormDestroy'#8'Position'#7#14'poScreenCenter'#0
|
||||
+#6'TLabel'#12'OptionsLabel'#21'AnchorSideTop.Control'#7#11'OptionsEdit'#18'A'
|
||||
+'nchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#10#6'Height'#2#17#3'Top'#3#27#1
|
||||
+#5'Width'#2'.'#7'Caption'#6#8'Options:'#5'Color'#7#6'clNone'#11'ParentColor'
|
||||
+#8#0#0#6'TLabel'#13'TargetOSLabel'#21'AnchorSideTop.Control'#7#12'TargetOSEd'
|
||||
+'it'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#10#6'Height'#2#14#3'Top'
|
||||
+#3':'#1#5'Width'#2'6'#7'Caption'#6#10'Target OS:'#5'Color'#7#6'clNone'#11'Pa'
|
||||
+'it'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#10#6'Height'#2#17#3'Top'
|
||||
+#3'9'#1#5'Width'#2'7'#7'Caption'#6#10'Target OS:'#5'Color'#7#6'clNone'#11'Pa'
|
||||
+'rentColor'#8#0#0#6'TLabel'#20'TargetDirectoryLabel'#21'AnchorSideTop.Contro'
|
||||
+'l'#7#23'TargetDirectoryComboBox'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Le'
|
||||
+'ft'#2#10#6'Height'#2#14#3'Top'#3'Y'#1#5'Width'#2'T'#7'Caption'#6#17'Target '
|
||||
+'ft'#2#10#6'Height'#2#17#3'Top'#3'X'#1#5'Width'#2'X'#7'Caption'#6#17'Target '
|
||||
+'Directory:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#14'TargetC'
|
||||
+'PULabel'#21'AnchorSideTop.Control'#7#17'TargetCPUComboBox'#18'AnchorSideTop'
|
||||
+'.Side'#7#9'asrCenter'#4'Left'#2#10#6'Height'#2#14#3'Top'#3'w'#1#5'Width'#2
|
||||
+'8'#7'Caption'#6#10'Target CPU'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#7
|
||||
+'TButton'#14'BuildAllButton'#4'Left'#2#10#6'Height'#2#25#3'Top'#2#12#5'Width'
|
||||
+#3#194#0#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#18'Set to "Build All'
|
||||
+'"'#7'OnClick'#7#19'BuildAllButtonClick'#8'TabOrder'#2#0#0#0#9'TCheckBox'#16
|
||||
+'CleanAllCheckBox'#22'AnchorSideLeft.Control'#7#22'LCLInterfaceRadioGroup'#4
|
||||
+'Left'#3'R'#1#6'Height'#2#13#3'Top'#2#12#5'Width'#2'='#7'Caption'#6#9'Clean '
|
||||
+'All'#8'TabOrder'#2#1#0#0#5'TEdit'#11'OptionsEdit'#4'Left'#3#156#0#6'Height'
|
||||
+#2#23#3'Top'#3#24#1#5'Width'#3'K'#1#7'Anchors'#11#6'akLeft'#7'akRight'#8'akB'
|
||||
+'ottom'#0#8'TabOrder'#2#5#0#0#5'TEdit'#12'TargetOSEdit'#4'Left'#3#156#0#6'He'
|
||||
+'ight'#2#24#3'Top'#3'5'#1#5'Width'#3'K'#1#7'Anchors'#11#6'akLeft'#7'akRight'
|
||||
+#8'akBottom'#0#8'TabOrder'#2#6#0#0#9'TComboBox'#23'TargetDirectoryComboBox'
|
||||
+#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#3#156#0#6'Height'#2#21#3'Top'
|
||||
+#3'V'#1#5'Width'#3'3'#1#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0#16
|
||||
+'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0
|
||||
+#10'ItemHeight'#2#13#9'MaxLength'#2#0#8'TabOrder'#2#7#0#0#7'TButton'#21'Targ'
|
||||
+'etDirectoryButton'#4'Left'#3#209#1#6'Height'#2#19#3'Top'#3'V'#1#5'Width'#2
|
||||
+#22#7'Anchors'#11#7'akRight'#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2#4
|
||||
+#7'Caption'#6#3'...'#7'OnClick'#7#26'TargetDirectoryButtonClick'#8'TabOrder'
|
||||
+#2#8#0#0#11'TRadioGroup'#22'LCLInterfaceRadioGroup'#4'Left'#3'R'#1#6'Height'
|
||||
+#3#188#0#3'Top'#2'*'#5'Width'#3#149#0#7'Anchors'#11#5'akTop'#7'akRight'#8'ak'
|
||||
+'Bottom'#0#8'AutoFill'#9#7'Caption'#6#22'LCLInterfaceRadioGroup'#28'ChildSiz'
|
||||
+'ing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizi'
|
||||
+'ng.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.Enlarge'
|
||||
+'Vertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7
|
||||
+#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'C'
|
||||
+'hildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.Contr'
|
||||
+'olsPerLine'#2#1#8'TabOrder'#2#3#0#0#9'TCheckBox'#26'WithStaticPackagesCheck'
|
||||
+'Box'#22'AnchorSideLeft.Control'#7#22'LCLInterfaceRadioGroup'#4'Left'#3'R'#1
|
||||
+#6'Height'#2#13#3'Top'#3#248#0#5'Width'#3#166#0#7'Anchors'#11#6'akLeft'#8'ak'
|
||||
+'Bottom'#0#7'Caption'#6#26'WithStaticPackagesCheckBox'#8'TabOrder'#2#4#0#0#9
|
||||
+'TCheckBox'#25'RestartAfterBuildCheckBox'#4'Left'#2#10#6'Height'#2#13#3'Top'
|
||||
+#3#160#1#5'Width'#3#148#0#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6
|
||||
+#25'RestartAfterBuildCheckBox'#8'TabOrder'#2#10#0#0#9'TCheckBox'#20'ConfirmB'
|
||||
+'uildCheckBox'#4'Left'#2#10#6'Height'#2#13#3'Top'#3#186#1#5'Width'#2''#7'An'
|
||||
+'chors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#20'ConfirmBuildCheckBox'#8'T'
|
||||
+'abOrder'#2#11#0#0#7'TButton'#18'SaveSettingsButton'#23'AnchorSideRight.Cont'
|
||||
+'rol'#7#12'CancelButton'#24'AnchorSideBottom.Control'#7#12'CancelButton'#21
|
||||
+'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3'D'#1#6'Height'#2#25#3'Top'#3
|
||||
+#208#1#5'Width'#2'\'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#19
|
||||
+'BorderSpacing.Right'#2#10#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#13
|
||||
+'Save settings'#7'Default'#9#7'OnClick'#7#23'SaveSettingsButtonClick'#8'TabO'
|
||||
+'rder'#2#12#0#0#7'TButton'#12'CancelButton'#4'Left'#3#170#1#6'Height'#2#25#3
|
||||
+'Top'#3#208#1#5'Width'#2'='#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSiz'
|
||||
+'e'#9#25'BorderSpacing.InnerBorder'#2#4#6'Cancel'#9#7'Caption'#6#6'Cancel'#7
|
||||
+'OnClick'#7#17'CancelButtonClick'#8'TabOrder'#2#13#0#0#8'TListBox'#12'ItemsL'
|
||||
,'istBox'#4'Left'#2#10#6'Height'#3#229#0#3'Top'#2'*'#5'Width'#3'?'#1#7'Anchor'
|
||||
+'s'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#10'ItemHeight'#2#25#10'On'
|
||||
+'DrawItem'#7#20'ItemsListBoxDrawItem'#11'OnMouseDown'#7#21'ItemsListBoxMouse'
|
||||
+'Down'#10'OnShowHint'#7#20'ItemsListBoxShowHint'#14'ParentShowHint'#8#8'Show'
|
||||
+'Hint'#9#5'Style'#7#16'lbOwnerDrawFixed'#8'TabOrder'#2#2#0#0#9'TComboBox'#17
|
||||
+'TargetCPUComboBox'#4'Left'#3#156#0#6'Height'#2#21#3'Top'#3't'#1#5'Width'#3
|
||||
+'3'#1#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0#16'AutoCompleteText'
|
||||
+#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#10'ItemHeight'#2#13
|
||||
+#9'MaxLength'#2#0#8'TabOrder'#2#9#0#0#7'TButton'#13'CompileButton'#23'Anchor'
|
||||
+'SideRight.Control'#7#18'SaveSettingsButton'#24'AnchorSideBottom.Control'#7
|
||||
+#18'SaveSettingsButton'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3
|
||||
+#249#0#6'Height'#2#25#3'Top'#3#208#1#5'Width'#2'A'#7'Anchors'#11#7'akRight'#8
|
||||
+'akBottom'#0#8'AutoSize'#9#19'BorderSpacing.Right'#2#10#25'BorderSpacing.Inn'
|
||||
+'erBorder'#2#4#7'Caption'#6#7'Compile'#7'OnClick'#7#18'CompileButtonClick'#8
|
||||
+'TabOrder'#2#14#0#0#0
|
||||
+'.Side'#7#9'asrCenter'#4'Left'#2#10#6'Height'#2#17#3'Top'#3'v'#1#5'Width'#2
|
||||
+';'#7'Caption'#6#10'Target CPU'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#9
|
||||
+'TCheckBox'#16'CleanAllCheckBox'#22'AnchorSideLeft.Control'#7#22'LCLInterfac'
|
||||
+'eRadioGroup'#4'Left'#3'R'#1#6'Height'#2#15#3'Top'#3#218#0#5'Width'#2'?'#7'C'
|
||||
+'aption'#6#9'Clean All'#8'TabOrder'#2#0#0#0#5'TEdit'#11'OptionsEdit'#4'Left'
|
||||
+#3#156#0#6'Height'#2#23#3'Top'#3#24#1#5'Width'#3'K'#1#7'Anchors'#11#6'akLeft'
|
||||
+#7'akRight'#8'akBottom'#0#8'TabOrder'#2#4#0#0#5'TEdit'#12'TargetOSEdit'#4'Le'
|
||||
+'ft'#3#156#0#6'Height'#2#24#3'Top'#3'5'#1#5'Width'#3'K'#1#7'Anchors'#11#6'ak'
|
||||
+'Left'#7'akRight'#8'akBottom'#0#8'TabOrder'#2#5#0#0#9'TComboBox'#23'TargetDi'
|
||||
+'rectoryComboBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#3#156#0#6'He'
|
||||
+'ight'#2#21#3'Top'#3'V'#1#5'Width'#3'3'#1#7'Anchors'#11#6'akLeft'#7'akRight'
|
||||
+#8'akBottom'#0#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSe'
|
||||
+'archAscending'#0#10'ItemHeight'#2#13#9'MaxLength'#2#0#8'TabOrder'#2#6#0#0#7
|
||||
+'TButton'#21'TargetDirectoryButton'#4'Left'#3#209#1#6'Height'#2#19#3'Top'#3
|
||||
+'V'#1#5'Width'#2#22#7'Anchors'#11#7'akRight'#8'akBottom'#0#25'BorderSpacing.'
|
||||
+'InnerBorder'#2#4#7'Caption'#6#3'...'#7'OnClick'#7#26'TargetDirectoryButtonC'
|
||||
+'lick'#8'TabOrder'#2#7#0#0#11'TRadioGroup'#22'LCLInterfaceRadioGroup'#4'Left'
|
||||
+#3'R'#1#6'Height'#3#188#0#3'Top'#2#11#5'Width'#3#149#0#7'Anchors'#11#5'akTop'
|
||||
+#7'akRight'#8'akBottom'#0#8'AutoFill'#9#7'Caption'#6#22'LCLInterfaceRadioGro'
|
||||
+'up'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2
|
||||
+#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'Child'
|
||||
+'Sizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.Shrin'
|
||||
+'kHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsSc'
|
||||
+'aleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'Ch'
|
||||
+'ildSizing.ControlsPerLine'#2#1#8'TabOrder'#2#2#0#0#9'TCheckBox'#26'WithStat'
|
||||
+'icPackagesCheckBox'#22'AnchorSideLeft.Control'#7#22'LCLInterfaceRadioGroup'
|
||||
+#4'Left'#3'R'#1#6'Height'#2#15#3'Top'#3#248#0#5'Width'#3#168#0#7'Anchors'#11
|
||||
+#6'akLeft'#8'akBottom'#0#7'Caption'#6#26'WithStaticPackagesCheckBox'#8'TabOr'
|
||||
+'der'#2#3#0#0#9'TCheckBox'#25'RestartAfterBuildCheckBox'#4'Left'#2#10#6'Heig'
|
||||
+'ht'#2#15#3'Top'#3#158#1#5'Width'#3#150#0#7'Anchors'#11#6'akLeft'#8'akBottom'
|
||||
+#0#7'Caption'#6#25'RestartAfterBuildCheckBox'#8'TabOrder'#2#9#0#0#9'TCheckBo'
|
||||
+'x'#20'ConfirmBuildCheckBox'#4'Left'#2#10#6'Height'#2#15#3'Top'#3#184#1#5'Wi'
|
||||
+'dth'#3#129#0#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#20'ConfirmB'
|
||||
+'uildCheckBox'#8'TabOrder'#2#10#0#0#7'TButton'#18'SaveSettingsButton'#23'Anc'
|
||||
+'horSideRight.Control'#7#12'CancelButton'#24'AnchorSideBottom.Control'#7#12
|
||||
+'CancelButton'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3'D'#1#6'Hei'
|
||||
+'ght'#2#25#3'Top'#3#208#1#5'Width'#2'\'#7'Anchors'#11#7'akRight'#8'akBottom'
|
||||
+#0#8'AutoSize'#9#19'BorderSpacing.Right'#2#10#25'BorderSpacing.InnerBorder'#2
|
||||
+#4#7'Caption'#6#13'Save settings'#7'Default'#9#7'OnClick'#7#23'SaveSettingsB'
|
||||
+'uttonClick'#8'TabOrder'#2#11#0#0#7'TButton'#12'CancelButton'#4'Left'#3#170#1
|
||||
+#6'Height'#2#25#3'Top'#3#208#1#5'Width'#2'='#7'Anchors'#11#7'akRight'#8'akBo'
|
||||
+'ttom'#0#8'AutoSize'#9#25'BorderSpacing.InnerBorder'#2#4#6'Cancel'#9#7'Capti'
|
||||
+'on'#6#6'Cancel'#7'OnClick'#7#17'CancelButtonClick'#8'TabOrder'#2#12#0#0#8'T'
|
||||
+'ListBox'#12'ItemsListBox'#4'Left'#2#10#6'Height'#3#229#0#3'Top'#2'"'#5'Widt'
|
||||
+'h'#3'?'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#10'Item'
|
||||
+'Height'#2#25#10'OnDrawItem'#7#20'ItemsListBoxDrawItem'#11'OnMouseDown'#7#21
|
||||
,'ItemsListBoxMouseDown'#10'OnShowHint'#7#20'ItemsListBoxShowHint'#14'ParentS'
|
||||
+'howHint'#8#8'ShowHint'#9#5'Style'#7#16'lbOwnerDrawFixed'#8'TabOrder'#2#1#0#0
|
||||
+#9'TComboBox'#17'TargetCPUComboBox'#4'Left'#3#156#0#6'Height'#2#21#3'Top'#3
|
||||
+'t'#1#5'Width'#3'3'#1#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0#16'Au'
|
||||
+'toCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#10
|
||||
+'ItemHeight'#2#13#9'MaxLength'#2#0#8'TabOrder'#2#8#0#0#7'TButton'#13'Compile'
|
||||
+'Button'#23'AnchorSideRight.Control'#7#18'SaveSettingsButton'#24'AnchorSideB'
|
||||
+'ottom.Control'#7#18'SaveSettingsButton'#21'AnchorSideBottom.Side'#7#9'asrBo'
|
||||
+'ttom'#4'Left'#3#249#0#6'Height'#2#25#3'Top'#3#208#1#5'Width'#2'A'#7'Anchors'
|
||||
+#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#19'BorderSpacing.Right'#2#10#25'B'
|
||||
+'orderSpacing.InnerBorder'#2#4#7'Caption'#6#7'Compile'#7'OnClick'#7#18'Compi'
|
||||
+'leButtonClick'#8'TabOrder'#2#13#0#0#14'THeaderControl'#14'ItemListHeader'#4
|
||||
+'Left'#2#10#6'Height'#2#24#3'Top'#2#10#5'Width'#3'?'#1#8'Sections'#14#0#14'O'
|
||||
+'nSectionClick'#7#26'ItemListHeaderSectionClick'#7'Anchors'#11#5'akTop'#6'ak'
|
||||
+'Left'#7'akRight'#0#8'OnResize'#7#20'ItemListHeaderResize'#0#0#0
|
||||
]);
|
||||
|
||||
@ -41,16 +41,17 @@ uses
|
||||
IDEExternToolIntf,
|
||||
LazarusIDEStrConsts, TransferMacros, LazConf, IDEProcs, DialogProcs,
|
||||
IDEWindowIntf, InputHistory, ExtToolDialog, ExtToolEditDlg,
|
||||
CompilerOptions, ImgList, Themes;
|
||||
CompilerOptions, ImgList, Themes, ComCtrls;
|
||||
|
||||
type
|
||||
{ TBuildLazarusItem }
|
||||
|
||||
TMakeMode = (
|
||||
TMakeMode =
|
||||
(
|
||||
mmNone,
|
||||
mmBuild,
|
||||
mmCleanBuild
|
||||
);
|
||||
);
|
||||
TMakeModes = set of TMakeMode;
|
||||
|
||||
TBuildLazarusFlag = (
|
||||
@ -135,7 +136,7 @@ type
|
||||
procedure Load(XMLConfig: TXMLConfig; const Path: string);
|
||||
procedure Save(XMLConfig: TXMLConfig; const Path: string);
|
||||
procedure Assign(Source: TBuildLazarusOptions);
|
||||
procedure SetBuildAll;
|
||||
procedure SetMakeMode(AMode: TMakeMode);
|
||||
function FindName(const Name: string): TBuildLazarusItem;
|
||||
function CompiledUnitExt(FPCVersion, FPCRelease: integer): string;
|
||||
public
|
||||
@ -170,11 +171,11 @@ type
|
||||
{ TConfigureBuildLazarusDlg }
|
||||
|
||||
TConfigureBuildLazarusDlg = class(TForm)
|
||||
BuildAllButton: TButton;
|
||||
CompileButton: TButton;
|
||||
CancelButton: TButton;
|
||||
CleanAllCheckBox: TCheckBox;
|
||||
ConfirmBuildCheckBox: TCheckBox;
|
||||
ItemListHeader: THeaderControl;
|
||||
ItemsListBox: TListBox;
|
||||
LCLInterfaceRadioGroup: TRadioGroup;
|
||||
SaveSettingsButton: TButton;
|
||||
@ -189,12 +190,14 @@ type
|
||||
TargetOSEdit: TEdit;
|
||||
TargetOSLabel: TLabel;
|
||||
WithStaticPackagesCheckBox: TCheckBox;
|
||||
procedure BuildAllButtonClick(Sender: TObject);
|
||||
procedure CancelButtonClick(Sender: TObject);
|
||||
procedure CompileButtonClick(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure ItemListHeaderResize(Sender: TObject);
|
||||
procedure ItemListHeaderSectionClick(HeaderControl: TCustomHeaderControl;
|
||||
Section: THeaderSection);
|
||||
procedure ItemsListBoxDrawItem(Control: TWinControl; Index: Integer;
|
||||
ARect: TRect; State: TOwnerDrawState);
|
||||
procedure ItemsListBoxMouseDown(Sender: TOBject; Button: TMouseButton;
|
||||
@ -203,14 +206,10 @@ type
|
||||
procedure SaveSettingsButtonClick(Sender: TObject);
|
||||
procedure TargetDirectoryButtonClick(Sender: TObject);
|
||||
private
|
||||
ImageIndexNone: Integer;
|
||||
ImageIndexBuild: Integer;
|
||||
ImageIndexCleanBuild: Integer;
|
||||
Options: TBuildLazarusOptions;
|
||||
function GetMakeModeAtX(const X: Integer; var MakeMode: TMakeMode): boolean;
|
||||
function MakeModeToInt(MakeMode: TMakeMode): integer;
|
||||
function IntToMakeMode(i: integer): TMakeMode;
|
||||
function ImageList: TCustomImageList;
|
||||
public
|
||||
procedure Load(SourceOptions: TBuildLazarusOptions);
|
||||
procedure Save(DestOptions: TBuildLazarusOptions);
|
||||
@ -242,6 +241,7 @@ const
|
||||
MakeModeNames: array[TMakeMode] of string = (
|
||||
'None', 'Build', 'Clean+Build' );
|
||||
DefaultTargetDirectory = ''; // empty will be replaced by '$(ConfDir)/bin';
|
||||
ButtonSize = 24;
|
||||
|
||||
function GetTranslatedMakeModes(MakeMode: TMakeMode): string;
|
||||
begin
|
||||
@ -667,13 +667,35 @@ var
|
||||
begin
|
||||
Caption := Format(lisConfigureBuildLazarus, ['"', '"']);
|
||||
|
||||
ImageIndexNone := IDEImages.LoadImage(16, 'menu_close');
|
||||
ImageIndexBuild := IDEImages.LoadImage(16, 'menu_build');
|
||||
ImageIndexCleanBuild := IDEImages.LoadImage(16, 'menu_build_clean');
|
||||
ItemListHeader.Images := IDEImages.Images_16;
|
||||
with ItemListHeader.Sections.Add do
|
||||
begin
|
||||
Width := ButtonSize;
|
||||
ImageIndex := IDEImages.LoadImage(16, 'menu_close');
|
||||
end;
|
||||
with ItemListHeader.Sections.Add do
|
||||
begin
|
||||
Width := ButtonSize;
|
||||
ImageIndex := IDEImages.LoadImage(16, 'menu_build');
|
||||
end;
|
||||
with ItemListHeader.Sections.Add do
|
||||
begin
|
||||
Width := ButtonSize;
|
||||
ImageIndex := IDEImages.LoadImage(16, 'menu_build_clean');
|
||||
end;
|
||||
with ItemListHeader.Sections.Add do
|
||||
begin
|
||||
Width := ItemListHeader.Width - 90 - 3 * ButtonSize;
|
||||
Text := 'Part';
|
||||
end;
|
||||
with ItemListHeader.Sections.Add do
|
||||
begin
|
||||
Width := 90;
|
||||
Text := 'Action';
|
||||
end;
|
||||
|
||||
Options := TBuildLazarusOptions.Create;
|
||||
CleanAllCheckBox.Caption := lisLazBuildCleanAll;
|
||||
BuildAllButton.Caption := Format(lisLazBuildSetToBuildAll, ['"', '"']);
|
||||
OptionsLabel.Caption := lisLazBuildOptions;
|
||||
LCLInterfaceRadioGroup.Caption := lisLazBuildLCLInterface;
|
||||
for LCLInterface := Low(TLCLPlatform) to High(TLCLPlatform) do begin
|
||||
@ -699,9 +721,21 @@ begin
|
||||
Options.Free;
|
||||
end;
|
||||
|
||||
function TConfigureBuildLazarusDlg.ImageList: TCustomImageList;
|
||||
procedure TConfigureBuildLazarusDlg.ItemListHeaderResize(Sender: TObject);
|
||||
begin
|
||||
Result := IDEImages.Images_16;
|
||||
if ItemListHeader.Sections.Count >= 3 then
|
||||
ItemListHeader.Sections[3].Width := ItemListHeader.Width - 90 - 3 * ButtonSize;
|
||||
end;
|
||||
|
||||
procedure TConfigureBuildLazarusDlg.ItemListHeaderSectionClick(
|
||||
HeaderControl: TCustomHeaderControl; Section: THeaderSection);
|
||||
begin
|
||||
if Section.Index in [0..2] then
|
||||
begin
|
||||
Save(Options);
|
||||
Options.SetMakeMode(IntToMakeMode(Section.Index));
|
||||
Load(Options);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TConfigureBuildLazarusDlg.ItemsListBoxDrawItem(Control: TWinControl;
|
||||
@ -709,9 +743,7 @@ procedure TConfigureBuildLazarusDlg.ItemsListBoxDrawItem(Control: TWinControl;
|
||||
var
|
||||
ButtonState: TThemedButton;
|
||||
ButtonDetails: TThemedElementDetails;
|
||||
x: Integer;
|
||||
ButtonWidth: Integer;
|
||||
ButtonHeight: Integer;
|
||||
x, cx, cy: Integer;
|
||||
ButtonRect: TRect;
|
||||
CurItem: TBuildLazarusItem;
|
||||
CurStr: String;
|
||||
@ -729,47 +761,37 @@ begin
|
||||
ItemsListBox.Canvas.FillRect(CurRect);
|
||||
// draw the buttons
|
||||
x:=0;
|
||||
ButtonWidth := 24;
|
||||
ButtonHeight := ButtonWidth;
|
||||
for mm:=Low(TMakeMode) to High(TMakeMode) do begin
|
||||
for mm:=Low(TMakeMode) to High(TMakeMode) do
|
||||
begin
|
||||
// draw button
|
||||
ButtonRect.Left:=x;
|
||||
ButtonRect.Top:=ARect.Top+((ARect.Bottom-ARect.Top-ButtonWidth) div 2);
|
||||
ButtonRect.Right:=x+ButtonWidth;
|
||||
ButtonRect.Bottom:=ButtonRect.Top+ButtonHeight;
|
||||
ButtonRect.Top:=ARect.Top+((ARect.Bottom-ARect.Top-ButtonSize) div 2);
|
||||
ButtonRect.Right:=x+ButtonSize;
|
||||
ButtonRect.Bottom:=ButtonRect.Top + ButtonSize;
|
||||
|
||||
ButtonState := tbPushButtonNormal;
|
||||
|
||||
if CurItem.MakeMode = mm then // Pushed
|
||||
begin
|
||||
// when we have no themes we need to paint then ourself and define bg color
|
||||
ItemsListBox.Canvas.Brush.Color := clHighlight;
|
||||
inc(ButtonState, 2);
|
||||
end
|
||||
if CurItem.MakeMode = mm then // checked
|
||||
ButtonState := tbRadioButtonCheckedNormal
|
||||
else
|
||||
ItemsListBox.Canvas.Brush.Color := clBtnFace;
|
||||
ButtonState := tbRadioButtonUncheckedNormal;
|
||||
|
||||
ButtonDetails := ThemeServices.GetElementDetails(ButtonState);
|
||||
if ThemeServices.HasTransparentParts(ButtonDetails) then
|
||||
ItemsListBox.Canvas.FillRect(ButtonRect);
|
||||
ThemeServices.DrawElement(ItemsListBox.Canvas.GetUpdatedHandle([csBrushValid,csPenValid]), ButtonDetails, ButtonRect);
|
||||
ButtonRect := ThemeServices.ContentRect(ItemsListBox.Canvas.Handle, ButtonDetails, ButtonRect);
|
||||
// TODO: Use theme services to draw icon when ImageList will be ready
|
||||
// draw icon
|
||||
case mm of
|
||||
mmBuild: ImgIndex:=ImageIndexBuild;
|
||||
mmCleanBuild: ImgIndex:=ImageIndexCleanBuild;
|
||||
else
|
||||
ImgIndex:=ImageIndexNone;
|
||||
end;
|
||||
|
||||
ImageList.Draw(
|
||||
ItemsListBox.Canvas,
|
||||
ARect.Left + x + ((ButtonWidth - ImageList.Width) div 2),
|
||||
ARect.Top + ((ARect.Bottom - ARect.Top - ImageList.Height) div 2),
|
||||
ImgIndex
|
||||
) ;
|
||||
Inc(x, ButtonWidth);
|
||||
// how to get cx and cy?
|
||||
cx := 13;//GetSystemMetrics(SM_CXMENUCHECK);
|
||||
cy := 13;//GetSystemMetrics(SM_CYMENUCHECK);
|
||||
|
||||
if (cx <> -1) and (cy <> -1) then
|
||||
begin
|
||||
ButtonRect.Left := (ButtonRect.Left + ButtonRect.Right - cx) div 2;
|
||||
ButtonRect.Right := ButtonRect.Left + cx;
|
||||
ButtonRect.Top := (ButtonRect.Top + ButtonRect.Bottom - cy) div 2;
|
||||
ButtonRect.Bottom := ButtonRect.Top + cy;
|
||||
end;
|
||||
|
||||
ThemeServices.DrawElement(ItemsListBox.Canvas.GetUpdatedHandle([csBrushValid,csPenValid]), ButtonDetails, ButtonRect);
|
||||
Inc(x, ButtonSize);
|
||||
end;
|
||||
|
||||
// draw description
|
||||
@ -790,9 +812,11 @@ var
|
||||
NewMakeMode: TMakeMode;
|
||||
i: Integer;
|
||||
begin
|
||||
if not GetMakeModeAtX(X, NewMakeMode) then exit;
|
||||
i:=ItemsListBox.GetIndexAtY(Y);
|
||||
if (i<0) or (i>=Options.Count) then exit;
|
||||
if not GetMakeModeAtX(X, NewMakeMode) then
|
||||
exit;
|
||||
i := ItemsListBox.GetIndexAtY(Y);
|
||||
if (i < 0) or (i >= Options.Count) then
|
||||
exit;
|
||||
Options.Items[i].MakeMode:=NewMakeMode;
|
||||
ItemsListBox.Invalidate;
|
||||
end;
|
||||
@ -839,12 +863,10 @@ end;
|
||||
function TConfigureBuildLazarusDlg.GetMakeModeAtX(const X: Integer;
|
||||
var MakeMode: TMakeMode): boolean;
|
||||
var
|
||||
ButtonWidth: Integer;
|
||||
i: integer;
|
||||
begin
|
||||
Result:=True;
|
||||
ButtonWidth := 24;
|
||||
i := X div ButtonWidth;
|
||||
i := X div ButtonSize;
|
||||
case i of
|
||||
0: MakeMode:=mmNone;
|
||||
1: MakeMode:=mmBuild;
|
||||
@ -940,13 +962,6 @@ begin
|
||||
IDEDialogLayoutList.SaveLayout(Self);
|
||||
end;
|
||||
|
||||
procedure TConfigureBuildLazarusDlg.BuildAllButtonClick(Sender: TObject);
|
||||
begin
|
||||
Save(Options);
|
||||
Options.SetBuildAll;
|
||||
Load(Options);
|
||||
end;
|
||||
|
||||
{ TBuildLazarusItem }
|
||||
|
||||
function TBuildLazarusItem.GetCommands(Mode: TMakeMode): string;
|
||||
@ -1292,12 +1307,12 @@ begin
|
||||
FItemExamples:=FindName('Examples');
|
||||
end;
|
||||
|
||||
procedure TBuildLazarusOptions.SetBuildAll;
|
||||
procedure TBuildLazarusOptions.SetMakeMode(AMode: TMakeMode);
|
||||
var
|
||||
i: Integer;
|
||||
begin
|
||||
FCleanAll:=true;
|
||||
for i:=0 to Count-1 do Items[i].MakeMode:=mmBuild;
|
||||
for i := 0 to Count - 1 do
|
||||
Items[i].MakeMode := AMode;
|
||||
end;
|
||||
|
||||
function TBuildLazarusOptions.FindName(const Name: string): TBuildLazarusItem;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user