Included is the patch which presents a few basic options i.e. All, LCL
and Packages, and an Advanced button which shows everything.
Giuliano
Index: ide/buildlazdialog.pas
===================================================================
--- ide/buildlazdialog.pas (revisione 11609)
+++ ide/buildlazdialog.pas (copia locale)
@@ -175,6 +175,7 @@
CancelButton: TButton;
CleanAllCheckBox: TCheckBox;
ConfirmBuildCheckBox: TCheckBox;
+ BuildOptionsGroupBox: TGroupBox;
ItemListHeader: THeaderControl;
ItemsListBox: TListBox;
LCLInterfaceRadioGroup: TRadioGroup;
@@ -182,6 +183,10 @@
OptionsEdit: TEdit;
OptionsLabel: TLabel;
RestartAfterBuildCheckBox: TCheckBox;
+ BuildAllSpeedButton: TSpeedButton;
+ BuildLCLSpeedButton: TSpeedButton;
+ AdvancedSpeedButton: TSpeedButton;
+ PackageBuildSpeedButton: TSpeedButton;
TargetCPUComboBox: TComboBox;
TargetCPULabel: TLabel;
TargetDirectoryButton: TButton;
@@ -190,11 +195,16 @@
TargetOSEdit: TEdit;
TargetOSLabel: TLabel;
WithStaticPackagesCheckBox: TCheckBox;
+ procedure BuildLCLSpeedButtonMouseUp(Sender: TObject; Button: TMouseButton;
+ Shift: TShiftState; X, Y: Integer);
procedure CancelButtonClick(Sender: TObject);
procedure CompileButtonClick(Sender: TObject);
+ procedure AdvancedSpeedButtonMouseUp(Sender: TObject;
+ Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
+ procedure FormShow(Sender: TObject);
procedure ItemListHeaderResize(Sender: TObject);
procedure ItemListHeaderSectionClick(HeaderControl: TCustomHeaderControl;
Section: THeaderSection);
@@ -203,9 +213,14 @@
procedure ItemsListBoxMouseDown(Sender: TOBject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ItemsListBoxShowHint(Sender: TObject; HintInfo: PHintInfo);
+ procedure PackageBuildSpeedButtonMouseUp(Sender: TObject;
+ Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure SaveSettingsButtonClick(Sender: TObject);
+ procedure BuildAllSpeedButtonMouseUp(Sender: TObject; Button: TMouseButton;
+ Shift: TShiftState; X, Y: Integer);
procedure TargetDirectoryButtonClick(Sender: TObject);
private
+ FQuick: TPoint;
Options: TBuildLazarusOptions;
function GetMakeModeAtX(const X: Integer; var MakeMode: TMakeMode): boolean;
function MakeModeToInt(MakeMode: TMakeMode): integer;
@@ -213,6 +228,7 @@
public
procedure Load(SourceOptions: TBuildLazarusOptions);
procedure Save(DestOptions: TBuildLazarusOptions);
+ procedure SetAdvanced (Advanced:boolean);
end;
function ShowConfigureBuildLazarusDlg(
@@ -721,6 +737,13 @@
Options.Free;
end;
+procedure TConfigureBuildLazarusDlg.FormShow(Sender: TObject);
+begin
+ FQuick.X := BuildOptionsGroupBox.Left;
+ FQuick.Y := BuildOptionsGroupBox.Top;
+ SetAdvanced(False);
+end;
+
procedure TConfigureBuildLazarusDlg.ItemListHeaderResize(Sender: TObject);
begin
if ItemListHeader.Sections.Count >= 3 then
@@ -837,6 +860,78 @@
ModalResult:=mrOk;
end;
+procedure TConfigureBuildLazarusDlg.BuildAllSpeedButtonMouseUp(Sender: TObject;
+ Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+var
+ i: Integer;
+ Spb: TSpeedButton;
+ mm: TMakeMode;
+begin
+ Spb := Sender as TSpeedButton;
+ if not Spb.Down then exit;
+ if CleanAllCheckBox.Checked then mm := mmCleanBuild
+ else mm := mmBuild;
+ for i := 0 to OPtions.Count-1 do begin
+ Options.Items[i].MakeMode := mm;
+ end;
+ ItemsListBox.Invalidate;
+ SetAdvanced(False);
+end;
+
+procedure TConfigureBuildLazarusDlg.BuildLCLSpeedButtonMouseUp(Sender: TObject;
+ Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+var
+ i: Integer;
+ Spb: TSpeedButton;
+ mm: TMakeMode;
+begin
+ Spb := Sender as TSpeedButton;
+ if not Spb.Down then exit;
+ if CleanAllCheckBox.Checked then mm := mmCleanBuild
+ else mm := mmBuild;
+ for i := 0 to OPtions.Count-1 do begin
+ If Options.Items[i].Description = 'LCL' then
+ Options.Items[i].MakeMode := mm
+ else
+ Options.Items[i].MakeMode := mmNone;
+ end;
+ ItemsListBox.Invalidate;
+ SetAdvanced(False);
+
+end;
+
+procedure TConfigureBuildLazarusDlg.PackageBuildSpeedButtonMouseUp(
+ Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+var
+ i: Integer;
+ Spb: TSpeedButton;
+ mm: TMakeMode;
+begin
+ Spb := Sender as TSpeedButton;
+ if not Spb.Down then exit;
+ if CleanAllCheckBox.Checked then mm := mmCleanBuild
+ else mm := mmBuild;
+ for i := 0 to OPtions.Count-1 do begin
+ If Options.Items[i].Description = 'IDE' then
+ Options.Items[i].MakeMode := mm
+ else
+ Options.Items[i].MakeMode := mmNone;
+ end;
+ WithStaticPackagesCheckBox.Checked := True;
+ ItemsListBox.Invalidate;
+ SetAdvanced(False);
+end;
+
+procedure TConfigureBuildLazarusDlg.AdvancedSpeedButtonMouseUp(
+ Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+var
+ Spb: TSpeedButton;
+begin
+ Spb := Sender as TSpeedButton;
+ if not Spb.Down then exit;
+ SetAdvanced(True);
+end;
+
procedure TConfigureBuildLazarusDlg.TargetDirectoryButtonClick(Sender: TObject);
var
AFilename: String;
@@ -941,6 +1036,27 @@
DestOptions.Assign(Options);
end;
+procedure TConfigureBuildLazarusDlg.SetAdvanced(Advanced: boolean);
+begin
+ if Advanced then begin
+ If ItemListHeader.Visible then exit;
+ BuildOptionsGroupBox.Left := Width - BuildOptionsGroupBox.Width - 8;//FQuick.X;
+ BuildOptionsGroupBox.Top := Height - BuildOptionsGroupBox.Height - CompileButton.Height - 8;//FQuick.Y;
+ BuildOptionsGroupBox.Anchors := [akRight,akBottom];
+ ItemListHeader.Show;
+ ItemsListBox.Show;
+ ItemsListBox.Invalidate;
+ end
+ else begin
+ If not ItemListHeader.Visible then exit;
+ BuildOptionsGroupBox.Left := ItemsListBox.Left;
+ BuildOptionsGroupBox.Top := ItemsListBox.Top + ItemsListBox.Height div 2 -
+ BuildOptionsGroupBox.Height div 2;
+ ItemListHeader.Hide;
+ ItemsListBox.Hide;
+ end;
+end;
+
procedure TConfigureBuildLazarusDlg.CancelButtonClick(Sender: TObject);
begin
ModalResult:=mrCancel;
Index: ide/buildlazdialog.lrs
===================================================================
--- ide/buildlazdialog.lrs (revisione 11609)
+++ ide/buildlazdialog.lrs (copia locale)
@@ -7,55 +7,54 @@
+'heckBox'#11'BorderIcons'#11#12'biSystemMenu'#0#7'Caption'#6#24'ConfigureBui'
+'ldLazarusDlg'#12'ClientHeight'#3#224#1#11'ClientWidth'#3#229#1#21'Constrain'
+'ts.MinHeight'#3#224#1#20'Constraints.MinWidth'#3#229#1#7'OnClose'#7#9'FormC'
- +'lose'#8'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#8'Positio'
- +'n'#7#14'poScreenCenter'#0#6'TLabel'#12'OptionsLabel'#22'AnchorSideLeft.Cont'
- +'rol'#7#12'ItemsListBox'#21'AnchorSideTop.Control'#7#12'ItemsListBox'#18'Anc'
- +'horSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#14#3'Top'#3#26#1#5
- +'Width'#2'*'#17'BorderSpacing.Top'#2#18#7'Caption'#6#8'Options:'#5'Color'#7#6
- +'clNone'#11'ParentColor'#8#0#0#6'TLabel'#13'TargetOSLabel'#22'AnchorSideLeft'
+ +'lose'#8'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#6'OnShow'
+ +#7#8'FormShow'#8'Position'#7#14'poScreenCenter'#0#6'TLabel'#12'OptionsLabel'
+ +#22'AnchorSideLeft.Control'#7#12'ItemsListBox'#21'AnchorSideTop.Control'#7#12
+ +'ItemsListBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2
+ +#13#3'Top'#3#28#1#5'Width'#2'/'#17'BorderSpacing.Top'#2#18#7'Caption'#6#8'Op'
+ +'tions:'#11'ParentColor'#8#0#0#6'TLabel'#13'TargetOSLabel'#22'AnchorSideLeft'
+'.Control'#7#12'OptionsLabel'#21'AnchorSideTop.Control'#7#12'TargetOSEdit'#4
- +'Left'#2#6#6'Height'#2#14#3'Top'#3'6'#1#5'Width'#2'6'#7'Caption'#6#10'Target'
- +' OS:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#20'TargetDirecto'
- +'ryLabel'#22'AnchorSideLeft.Control'#7#13'TargetOSLabel'#21'AnchorSideTop.Co'
- +'ntrol'#7#23'TargetDirectoryComboBox'#4'Left'#2#6#6'Height'#2#14#3'Top'#3'R'
- +#1#5'Width'#2'T'#7'Caption'#6#17'Target Directory:'#5'Color'#7#6'clNone'#11
- +'ParentColor'#8#0#0#6'TLabel'#14'TargetCPULabel'#22'AnchorSideLeft.Control'#7
- +#20'TargetDirectoryLabel'#21'AnchorSideTop.Control'#7#17'TargetCPUComboBox'#4
- +'Left'#2#6#6'Height'#2#14#3'Top'#3'm'#1#5'Width'#2'8'#7'Caption'#6#10'Target'
- +' CPU'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#9'TCheckBox'#16'CleanAllCh'
- +'eckBox'#22'AnchorSideLeft.Control'#7#22'LCLInterfaceRadioGroup'#21'AnchorSi'
- +'deTop.Control'#7#22'LCLInterfaceRadioGroup'#18'AnchorSideTop.Side'#7#9'asrB'
- +'ottom'#24'AnchorSideBottom.Control'#7#26'WithStaticPackagesCheckBox'#4'Left'
- +#3'@'#1#6'Height'#2#13#3'Top'#3#232#0#5'Width'#2'='#7'Anchors'#11#6'akLeft'#8
- +'akBottom'#0#17'BorderSpacing.Top'#2#18#20'BorderSpacing.Bottom'#2#6#7'Capti'
- +'on'#6#9'Clean All'#8'TabOrder'#2#0#0#0#5'TEdit'#11'OptionsEdit'#21'AnchorSi'
- +'deTop.Control'#7#12'OptionsLabel'#23'AnchorSideRight.Control'#7#5'Owner'#20
- +'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#156#0#6'Height'#2#22#3'Top'#3
- +#26#1#5'Width'#3'C'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#19'Borde'
- +'rSpacing.Right'#2#6#8'TabOrder'#2#4#0#0#5'TEdit'#12'TargetOSEdit'#21'Anchor'
- +'SideTop.Control'#7#11'OptionsEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#23
- +'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'
- +#4'Left'#3#156#0#6'Height'#2#22#3'Top'#3'6'#1#5'Width'#3'C'#1#7'Anchors'#11#5
- +'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#8'TabOrder'#2#5#0
- +#0#9'TComboBox'#23'TargetDirectoryComboBox'#22'AnchorSideLeft.Control'#7#12
- +'TargetOSEdit'#21'AnchorSideTop.Control'#7#12'TargetOSEdit'#18'AnchorSideTop'
- +'.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#21'TargetDirectoryButto'
- +'n'#4'Left'#3#156#0#6'Height'#2#21#3'Top'#3'R'#1#5'Width'#3''''#1#7'Anchors'
- +#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#22'cbactEndOfLin'
- +'eComplete'#20'cbactSearchAscending'#0#10'ItemHeight'#2#13#9'MaxLength'#2#0#8
- +'TabOrder'#2#6#0#0#7'TButton'#21'TargetDirectoryButton'#21'AnchorSideTop.Con'
- +'trol'#7#12'TargetOSEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSid'
- +'eRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'Ancho'
- +'rSideBottom.Control'#7#23'TargetDirectoryComboBox'#21'AnchorSideBottom.Side'
- +#7#9'asrBottom'#4'Left'#3#201#1#6'Height'#2#21#3'Top'#3'R'#1#5'Width'#2#22#7
- +'Anchors'#11#5'akTop'#7'akRight'#8'akBottom'#0#18'BorderSpacing.Left'#2#6#19
+ +'Left'#2#6#6'Height'#2#13#3'Top'#3'8'#1#5'Width'#2'='#7'Caption'#6#10'Target'
+ +' OS:'#11'ParentColor'#8#0#0#6'TLabel'#20'TargetDirectoryLabel'#22'AnchorSid'
+ +'eLeft.Control'#7#13'TargetOSLabel'#21'AnchorSideTop.Control'#7#23'TargetDir'
+ +'ectoryComboBox'#4'Left'#2#6#6'Height'#2#13#3'Top'#3'T'#1#5'Width'#2'^'#7'Ca'
+ +'ption'#6#17'Target Directory:'#11'ParentColor'#8#0#0#6'TLabel'#14'TargetCPU'
+ +'Label'#22'AnchorSideLeft.Control'#7#20'TargetDirectoryLabel'#21'AnchorSideT'
+ +'op.Control'#7#17'TargetCPUComboBox'#4'Left'#2#6#6'Height'#2#13#3'Top'#3'o'#1
+ +#5'Width'#2'A'#7'Caption'#6#10'Target CPU'#11'ParentColor'#8#0#0#9'TCheckBox'
+ +#16'CleanAllCheckBox'#22'AnchorSideLeft.Control'#7#22'LCLInterfaceRadioGroup'
+ +#21'AnchorSideTop.Control'#7#22'LCLInterfaceRadioGroup'#18'AnchorSideTop.Sid'
+ +'e'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#26'WithStaticPackagesCheck'
+ +'Box'#4'Left'#3'@'#1#6'Height'#2#20#3'Top'#3#220#0#5'Width'#2'O'#7'Anchors'
+ +#11#6'akLeft'#8'akBottom'#0#17'BorderSpacing.Top'#2#18#20'BorderSpacing.Bott'
+ +'om'#2#6#7'Caption'#6#9'Clean All'#8'TabOrder'#2#0#0#0#5'TEdit'#11'OptionsEd'
+ +'it'#21'AnchorSideTop.Control'#7#12'OptionsLabel'#23'AnchorSideRight.Control'
+ +#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#156#0#6'Height'
+ +#2#22#3'Top'#3#28#1#5'Width'#3'C'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRig'
+ +'ht'#0#19'BorderSpacing.Right'#2#6#8'TabOrder'#2#4#0#0#5'TEdit'#12'TargetOSE'
+ +'dit'#21'AnchorSideTop.Control'#7#11'OptionsEdit'#18'AnchorSideTop.Side'#7#9
+ +'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7
+ +#9'asrBottom'#4'Left'#3#156#0#6'Height'#2#22#3'Top'#3'8'#1#5'Width'#3'C'#1#7
+ +'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#8
+ +'TabOrder'#2#5#0#0#9'TComboBox'#23'TargetDirectoryComboBox'#22'AnchorSideLef'
+ +'t.Control'#7#12'TargetOSEdit'#21'AnchorSideTop.Control'#7#12'TargetOSEdit'
+ +#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#21'Targ'
+ +'etDirectoryButton'#4'Left'#3#156#0#6'Height'#2#21#3'Top'#3'T'#1#5'Width'#3
+ +''''#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11
+ +#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#9'MaxLength'#2#0#8'Ta'
+ +'bOrder'#2#6#0#0#7'TButton'#21'TargetDirectoryButton'#21'AnchorSideTop.Contr'
+ +'ol'#7#12'TargetOSEdit'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideR'
+ +'ight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorS'
+ +'ideBottom.Control'#7#23'TargetDirectoryComboBox'#21'AnchorSideBottom.Side'#7
+ +#9'asrBottom'#4'Left'#3#201#1#6'Height'#2#21#3'Top'#3'T'#1#5'Width'#2#22#7'A'
+ +'nchors'#11#5'akTop'#7'akRight'#8'akBottom'#0#18'BorderSpacing.Left'#2#6#19
+'BorderSpacing.Right'#2#6#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#3'.'
+'..'#7'OnClick'#7#26'TargetDirectoryButtonClick'#8'TabOrder'#2#7#0#0#11'TRad'
+'ioGroup'#22'LCLInterfaceRadioGroup'#22'AnchorSideLeft.Control'#7#14'ItemLis'
+'tHeader'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7
+#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9
+'asrBottom'#24'AnchorSideBottom.Control'#7#16'CleanAllCheckBox'#4'Left'#3'@'
- +#1#6'Height'#3#208#0#3'Top'#2#6#5'Width'#3#159#0#7'Anchors'#11#5'akTop'#7'ak'
+ +#1#6'Height'#3#196#0#3'Top'#2#6#5'Width'#3#159#0#7'Anchors'#11#5'akTop'#7'ak'
+'Right'#8'akBottom'#0#8'AutoFill'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6
+#22'LCLInterfaceRadioGroup'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSiz'
+'ing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogen'
@@ -65,54 +64,69 @@
+'htThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#8'TabOrder'#2#2#0#0#9
+'TCheckBox'#26'WithStaticPackagesCheckBox'#22'AnchorSideLeft.Control'#7#22'L'
+'CLInterfaceRadioGroup'#21'AnchorSideTop.Control'#7#16'CleanAllCheckBox'#18
- ,'AnchorSideTop.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#12'ItemsL'
- +'istBox'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3'@'#1#6'Height'#2
- +#13#3'Top'#3#251#0#5'Width'#3#166#0#7'Anchors'#11#6'akLeft'#8'akBottom'#0#17
+ +'AnchorSideTop.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#12'ItemsL'
+ ,'istBox'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3'@'#1#6'Height'#2
+ +#20#3'Top'#3#246#0#5'Width'#3#194#0#7'Anchors'#11#6'akLeft'#8'akBottom'#0#17
+'BorderSpacing.Top'#2#6#7'Caption'#6#26'WithStaticPackagesCheckBox'#8'TabOrd'
+'er'#2#3#0#0#9'TCheckBox'#25'RestartAfterBuildCheckBox'#22'AnchorSideLeft.Co'
+'ntrol'#7#14'TargetCPULabel'#21'AnchorSideTop.Control'#7#17'TargetCPUComboBo'
- +'x'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#13#3'Top'#3
- +#148#1#5'Width'#3#148#0#17'BorderSpacing.Top'#2#18#7'Caption'#6#25'RestartAf'
+ +'x'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#20#3'Top'#3
+ +#150#1#5'Width'#3#176#0#17'BorderSpacing.Top'#2#18#7'Caption'#6#25'RestartAf'
+'terBuildCheckBox'#8'TabOrder'#2#9#0#0#9'TCheckBox'#20'ConfirmBuildCheckBox'
+#22'AnchorSideLeft.Control'#7#25'RestartAfterBuildCheckBox'#21'AnchorSideTop'
+'.Control'#7#25'RestartAfterBuildCheckBox'#18'AnchorSideTop.Side'#7#9'asrBot'
- +'tom'#4'Left'#2#6#6'Height'#2#13#3'Top'#3#167#1#5'Width'#2''#17'BorderSpaci'
- +'ng.Top'#2#6#7'Caption'#6#20'ConfirmBuildCheckBox'#8'TabOrder'#2#10#0#0#7'TB'
- +'utton'#18'SaveSettingsButton'#23'AnchorSideRight.Control'#7#12'CancelButton'
- +#24'AnchorSideBottom.Control'#7#12'CancelButton'#21'AnchorSideBottom.Side'#7
- +#9'asrBottom'#4'Left'#3'4'#1#6'Height'#2#25#3'Top'#3#193#1#5'Width'#2'\'#7'A'
- +'nchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#19'BorderSpacing.Right'#2
- +#18#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#13'Save settings'#7'Defau'
- +'lt'#9#7'OnClick'#7#23'SaveSettingsButtonClick'#8'TabOrder'#2#11#0#0#7'TButt'
- +'on'#12'CancelButton'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRi'
- +'ght.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#5'Owner'#21'AnchorS'
- +'ideBottom.Side'#7#9'asrBottom'#4'Left'#3#162#1#6'Height'#2#25#3'Top'#3#193#1
- +#5'Width'#2'='#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20'Borde'
- +'rSpacing.Around'#2#6#25'BorderSpacing.InnerBorder'#2#4#6'Cancel'#9#7'Captio'
- +'n'#6#6'Cancel'#7'OnClick'#7#17'CancelButtonClick'#8'TabOrder'#2#12#0#0#8'TL'
- +'istBox'#12'ItemsListBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSid'
- +'eTop.Control'#7#14'ItemListHeader'#18'AnchorSideTop.Side'#7#9'asrBottom'#23
- +'AnchorSideRight.Control'#7#14'ItemListHeader'#20'AnchorSideRight.Side'#7#9
- +'asrBottom'#4'Left'#2#6#6'Height'#3#234#0#3'Top'#2#30#5'Width'#3'4'#1#7'Anch'
- +'ors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#18'BorderSpacing.Left'#2
- +#6#10'ItemHeight'#2#25#10'OnDrawItem'#7#20'ItemsListBoxDrawItem'#11'OnMouseD'
- +'own'#7#21'ItemsListBoxMouseDown'#10'OnShowHint'#7#20'ItemsListBoxShowHint'
+ +'tom'#4'Left'#2#6#6'Height'#2#20#3'Top'#3#176#1#5'Width'#3#154#0#17'BorderSp'
+ +'acing.Top'#2#6#7'Caption'#6#20'ConfirmBuildCheckBox'#8'TabOrder'#2#10#0#0#7
+ +'TButton'#18'SaveSettingsButton'#23'AnchorSideRight.Control'#7#12'CancelButt'
+ +'on'#24'AnchorSideBottom.Control'#7#12'CancelButton'#21'AnchorSideBottom.Sid'
+ +'e'#7#9'asrBottom'#4'Left'#3'>'#1#6'Height'#2#26#3'Top'#3#192#1#5'Width'#2'Y'
+ +#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#19'BorderSpacing.Right'
+ +#2#18#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#13'Save settings'#7'Def'
+ +'ault'#9#7'OnClick'#7#23'SaveSettingsButtonClick'#8'TabOrder'#2#11#0#0#7'TBu'
+ +'tton'#12'CancelButton'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSide'
+ +'Right.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#5'Owner'#21'Ancho'
+ +'rSideBottom.Side'#7#9'asrBottom'#4'Left'#3#169#1#6'Height'#2#26#3'Top'#3#192
+ +#1#5'Width'#2'6'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20'Bor'
+ +'derSpacing.Around'#2#6#25'BorderSpacing.InnerBorder'#2#4#6'Cancel'#9#7'Capt'
+ +'ion'#6#6'Cancel'#7'OnClick'#7#17'CancelButtonClick'#8'TabOrder'#2#12#0#0#8
+ +'TListBox'#12'ItemsListBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorS'
+ +'ideTop.Control'#7#14'ItemListHeader'#18'AnchorSideTop.Side'#7#9'asrBottom'
+ +#23'AnchorSideRight.Control'#7#14'ItemListHeader'#20'AnchorSideRight.Side'#7
+ +#9'asrBottom'#4'Left'#2#6#6'Height'#3#236#0#3'Top'#2#30#5'Width'#3'6'#1#7'An'
+ +'chors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#18'BorderSpacing.Left'
+ +#2#6#10'ItemHeight'#2#25#10'OnDrawItem'#7#20'ItemsListBoxDrawItem'#11'OnMous'
+ +'eDown'#7#21'ItemsListBoxMouseDown'#10'OnShowHint'#7#20'ItemsListBoxShowHint'
+#14'ParentShowHint'#8#8'ShowHint'#9#5'Style'#7#16'lbOwnerDrawFixed'#8'TabOrd'
- +'er'#2#1#0#0#9'TComboBox'#17'TargetCPUComboBox'#22'AnchorSideLeft.Control'#7
- +#23'TargetDirectoryComboBox'#21'AnchorSideTop.Control'#7#23'TargetDirectoryC'
- +'omboBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7
- +#23'TargetDirectoryComboBox'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'
- +#3#156#0#6'Height'#2#21#3'Top'#3'm'#1#5'Width'#3''''#1#7'Anchors'#11#5'akTop'
- +#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20
- +'cbactSearchAscending'#0#17'BorderSpacing.Top'#2#6#10'ItemHeight'#2#13#9'Max'
- +'Length'#2#0#8'TabOrder'#2#8#0#0#7'TButton'#13'CompileButton'#23'AnchorSideR'
- +'ight.Control'#7#18'SaveSettingsButton'#24'AnchorSideBottom.Control'#7#18'Sa'
- +'veSettingsButton'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3#225#0#6
- +'Height'#2#25#3'Top'#3#193#1#5'Width'#2'A'#7'Anchors'#11#7'akRight'#8'akBott'
- +'om'#0#8'AutoSize'#9#19'BorderSpacing.Right'#2#18#25'BorderSpacing.InnerBord'
- +'er'#2#4#7'Caption'#6#7'Compile'#7'OnClick'#7#18'CompileButtonClick'#8'TabOr'
- +'der'#2#13#0#0#14'THeaderControl'#14'ItemListHeader'#4'Left'#2#6#6'Height'#2
- +#24#3'Top'#2#6#5'Width'#3'4'#1#8'Sections'#14#0#14'OnSectionClick'#7#26'Item'
- +'ListHeaderSectionClick'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'OnR'
- +'esize'#7#20'ItemListHeaderResize'#0#0#0
+ +'er'#2#1#8'TopIndex'#2#255#0#0#9'TComboBox'#17'TargetCPUComboBox'#22'AnchorS'
+ +'ideLeft.Control'#7#23'TargetDirectoryComboBox'#21'AnchorSideTop.Control'#7
+ +#23'TargetDirectoryComboBox'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'Anchor'
+ +'SideRight.Control'#7#23'TargetDirectoryComboBox'#20'AnchorSideRight.Side'#7
+ +#9'asrBottom'#4'Left'#3#156#0#6'Height'#2#21#3'Top'#3'o'#1#5'Width'#3''''#1#7
+ +'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#22'cbac'
+ +'tEndOfLineComplete'#20'cbactSearchAscending'#0#17'BorderSpacing.Top'#2#6#9
+ +'MaxLength'#2#0#8'TabOrder'#2#8#0#0#7'TButton'#13'CompileButton'#23'AnchorSi'
+ +'deRight.Control'#7#18'SaveSettingsButton'#24'AnchorSideBottom.Control'#7#18
+ +'SaveSettingsButton'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3#241#0
+ +#6'Height'#2#26#3'Top'#3#192#1#5'Width'#2';'#7'Anchors'#11#7'akRight'#8'akBo'
+ +'ttom'#0#8'AutoSize'#9#19'BorderSpacing.Right'#2#18#25'BorderSpacing.InnerBo'
+ +'rder'#2#4#7'Caption'#6#7'Compile'#7'OnClick'#7#18'CompileButtonClick'#8'Tab'
+ +'Order'#2#13#0#0#14'THeaderControl'#14'ItemListHeader'#4'Left'#2#8#6'Height'
+ +#2#24#3'Top'#2#6#5'Width'#3'4'#1#8'Sections'#14#0#14'OnSectionClick'#7#26'It'
+ +'emListHeaderSectionClick'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'O'
+ +'nResize'#7#20'ItemListHeaderResize'#0#0#9'TGroupBox'#20'BuildOptionsGroupBo'
+ +'x'#4'Left'#3#199#0#6'Height'#2'2'#3'Top'#3#136#1#5'Width'#3#24#1#7'Anchors'
+ +#11#7'akRight'#8'akBottom'#0#7'Caption'#6#19'Quick Build Options'#12'ClientH'
+ +'eight'#2'2'#11'ClientWidth'#3#24#1#8'TabOrder'#2#14#0#12'TSpeedButton'#19'B'
+ +'uildAllSpeedButton'#4'Left'#2#6#6'Height'#2#22#3'Top'#2#5#5'Width'#2'2'#7'C'
+ +'aption'#6#3'All'#5'Color'#7#9'clBtnFace'#10'GroupIndex'#2#1#9'NumGlyphs'#2#0
+ +#9'OnMouseUp'#7#26'BuildAllSpeedButtonMouseUp'#0#0#12'TSpeedButton'#19'Build'
+ +'LCLSpeedButton'#4'Left'#2'F'#6'Height'#2#22#3'Top'#2#5#5'Width'#2'2'#7'Capt'
+ +'ion'#6#3'LCL'#5'Color'#7#9'clBtnFace'#10'GroupIndex'#2#1#9'NumGlyphs'#2#0#9
+ +'OnMouseUp'#7#26'BuildLCLSpeedButtonMouseUp'#0#0#12'TSpeedButton'#19'Advance'
+ +'dSpeedButton'#4'Left'#3#210#0#6'Height'#2#22#3'Top'#2#5#5'Width'#2'@'#7'Cap'
+ +'tion'#6#8'Advanced'#5'Color'#7#9'clBtnFace'#10'GroupIndex'#2#1#9'NumGlyphs'
+ +#2#0#9'OnMouseUp'#7#26'AdvancedSpeedButtonMouseUp'#0#0#12'TSpeedButton'#23'P'
+ +'ackageBuildSpeedButton'#4'Left'#3#134#0#6'Height'#2#22#3'Top'#2#5#5'Width'#2
+ +'>'#7'Caption'#6#8'Packages'#5'Color'#7#9'clBtnFace'#10'GroupIndex'#2#1#9'Nu'
+ +'mGlyphs'#2#0#9'OnMouseUp'#7#30'PackageBuildSpeedButtonMouseUp'#0#0#0#0
]);
Index: ide/buildlazdialog.lfm
===================================================================
--- ide/buildlazdialog.lfm (revisione 11609)
+++ ide/buildlazdialog.lfm (copia locale)
@@ -15,51 +15,48 @@
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
+ OnShow = FormShow
Position = poScreenCenter
object OptionsLabel: TLabel
AnchorSideLeft.Control = ItemsListBox
AnchorSideTop.Control = ItemsListBox
AnchorSideTop.Side = asrBottom
Left = 6
- Height = 14
- Top = 282
- Width = 42
+ Height = 13
+ Top = 284
+ Width = 47
BorderSpacing.Top = 18
Caption = 'Options:'
- Color = clNone
ParentColor = False
end
object TargetOSLabel: TLabel
AnchorSideLeft.Control = OptionsLabel
AnchorSideTop.Control = TargetOSEdit
Left = 6
- Height = 14
- Top = 310
- Width = 54
+ Height = 13
+ Top = 312
+ Width = 61
Caption = 'Target OS:'
- Color = clNone
ParentColor = False
end
object TargetDirectoryLabel: TLabel
AnchorSideLeft.Control = TargetOSLabel
AnchorSideTop.Control = TargetDirectoryComboBox
Left = 6
- Height = 14
- Top = 338
- Width = 84
+ Height = 13
+ Top = 340
+ Width = 94
Caption = 'Target Directory:'
- Color = clNone
ParentColor = False
end
object TargetCPULabel: TLabel
AnchorSideLeft.Control = TargetDirectoryLabel
AnchorSideTop.Control = TargetCPUComboBox
Left = 6
- Height = 14
- Top = 365
- Width = 56
+ Height = 13
+ Top = 367
+ Width = 65
Caption = 'Target CPU'
- Color = clNone
ParentColor = False
end
object CleanAllCheckBox: TCheckBox
@@ -68,9 +65,9 @@
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = WithStaticPackagesCheckBox
Left = 320
- Height = 13
- Top = 232
- Width = 61
+ Height = 20
+ Top = 220
+ Width = 79
Anchors = [akLeft, akBottom]
BorderSpacing.Top = 18
BorderSpacing.Bottom = 6
@@ -83,7 +80,7 @@
AnchorSideRight.Side = asrBottom
Left = 156
Height = 22
- Top = 282
+ Top = 284
Width = 323
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6
@@ -96,7 +93,7 @@
AnchorSideRight.Side = asrBottom
Left = 156
Height = 22
- Top = 310
+ Top = 312
Width = 323
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
@@ -109,11 +106,10 @@
AnchorSideRight.Control = TargetDirectoryButton
Left = 156
Height = 21
- Top = 338
+ Top = 340
Width = 295
Anchors = [akTop, akLeft, akRight]
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
- ItemHeight = 13
MaxLength = 0
TabOrder = 6
end
@@ -126,7 +122,7 @@
AnchorSideBottom.Side = asrBottom
Left = 457
Height = 21
- Top = 338
+ Top = 340
Width = 22
Anchors = [akTop, akRight, akBottom]
BorderSpacing.Left = 6
@@ -144,7 +140,7 @@
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = CleanAllCheckBox
Left = 320
- Height = 208
+ Height = 196
Top = 6
Width = 159
Anchors = [akTop, akRight, akBottom]
@@ -168,9 +164,9 @@
AnchorSideBottom.Control = ItemsListBox
AnchorSideBottom.Side = asrBottom
Left = 320
- Height = 13
- Top = 251
- Width = 166
+ Height = 20
+ Top = 246
+ Width = 194
Anchors = [akLeft, akBottom]
BorderSpacing.Top = 6
Caption = 'WithStaticPackagesCheckBox'
@@ -181,9 +177,9 @@
AnchorSideTop.Control = TargetCPUComboBox
AnchorSideTop.Side = asrBottom
Left = 6
- Height = 13
- Top = 404
- Width = 148
+ Height = 20
+ Top = 406
+ Width = 176
BorderSpacing.Top = 18
Caption = 'RestartAfterBuildCheckBox'
TabOrder = 9
@@ -193,9 +189,9 @@
AnchorSideTop.Control = RestartAfterBuildCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
- Height = 13
- Top = 423
- Width = 127
+ Height = 20
+ Top = 432
+ Width = 154
BorderSpacing.Top = 6
Caption = 'ConfirmBuildCheckBox'
TabOrder = 10
@@ -204,10 +200,10 @@
AnchorSideRight.Control = CancelButton
AnchorSideBottom.Control = CancelButton
AnchorSideBottom.Side = asrBottom
- Left = 308
- Height = 25
- Top = 449
- Width = 92
+ Left = 318
+ Height = 26
+ Top = 448
+ Width = 89
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Right = 18
@@ -222,10 +218,10 @@
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
- Left = 418
- Height = 25
- Top = 449
- Width = 61
+ Left = 425
+ Height = 26
+ Top = 448
+ Width = 54
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Around = 6
@@ -242,9 +238,9 @@
AnchorSideRight.Control = ItemListHeader
AnchorSideRight.Side = asrBottom
Left = 6
- Height = 234
+ Height = 236
Top = 30
- Width = 308
+ Width = 310
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6
ItemHeight = 25
@@ -255,6 +251,7 @@
ShowHint = True
Style = lbOwnerDrawFixed
TabOrder = 1
+ TopIndex = -1
end
object TargetCPUComboBox: TComboBox
AnchorSideLeft.Control = TargetDirectoryComboBox
@@ -264,12 +261,11 @@
AnchorSideRight.Side = asrBottom
Left = 156
Height = 21
- Top = 365
+ Top = 367
Width = 295
Anchors = [akTop, akLeft, akRight]
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
BorderSpacing.Top = 6
- ItemHeight = 13
MaxLength = 0
TabOrder = 8
end
@@ -277,10 +273,10 @@
AnchorSideRight.Control = SaveSettingsButton
AnchorSideBottom.Control = SaveSettingsButton
AnchorSideBottom.Side = asrBottom
- Left = 225
- Height = 25
- Top = 449
- Width = 65
+ Left = 241
+ Height = 26
+ Top = 448
+ Width = 59
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Right = 18
@@ -290,7 +286,7 @@
TabOrder = 13
end
object ItemListHeader: THeaderControl
- Left = 6
+ Left = 8
Height = 24
Top = 6
Width = 308
@@ -299,4 +295,59 @@
Anchors = [akTop, akLeft, akRight]
OnResize = ItemListHeaderResize
end
+ object BuildOptionsGroupBox: TGroupBox
+ Left = 199
+ Height = 50
+ Top = 392
+ Width = 280
+ Anchors = [akRight, akBottom]
+ Caption = 'Quick Build Options'
+ ClientHeight = 50
+ ClientWidth = 280
+ TabOrder = 14
+ object BuildAllSpeedButton: TSpeedButton
+ Left = 6
+ Height = 22
+ Top = 5
+ Width = 50
+ Caption = 'All'
+ Color = clBtnFace
+ GroupIndex = 1
+ NumGlyphs = 0
+ OnMouseUp = BuildAllSpeedButtonMouseUp
+ end
+ object BuildLCLSpeedButton: TSpeedButton
+ Left = 70
+ Height = 22
+ Top = 5
+ Width = 50
+ Caption = 'LCL'
+ Color = clBtnFace
+ GroupIndex = 1
+ NumGlyphs = 0
+ OnMouseUp = BuildLCLSpeedButtonMouseUp
+ end
+ object AdvancedSpeedButton: TSpeedButton
+ Left = 210
+ Height = 22
+ Top = 5
+ Width = 64
+ Caption = 'Advanced'
+ Color = clBtnFace
+ GroupIndex = 1
+ NumGlyphs = 0
+ OnMouseUp = AdvancedSpeedButtonMouseUp
+ end
+ object PackageBuildSpeedButton: TSpeedButton
+ Left = 134
+ Height = 22
+ Top = 5
+ Width = 62
+ Caption = 'Packages'
+ Color = clBtnFace
+ GroupIndex = 1
+ NumGlyphs = 0
+ OnMouseUp = PackageBuildSpeedButtonMouseUp
+ end
+ end
end
