This is the latest patch for BuildLazDialog.
It provides:
default common options: All, LCL,Packages,Advanced
it defaults with Advanced options hidden.
it stores the Advanced status together with all stored options, so that
next time it will open Advanced (i.e. like it does now) or not,
depending on user last saved choice (as per Lord Satan request)
Someone would like to give it a try? In my box it doesn't break anything.
Giuliano
Index: ide/buildlazdialog.pas
===================================================================
--- ide/buildlazdialog.pas (revisione 11609)
+++ ide/buildlazdialog.pas (copia locale)
@@ -98,6 +98,7 @@
TBuildLazarusOptions = class
private
+ FAdvanced: boolean;
FCleanAll: boolean;
FGlobals: TGlobalCompilerOptions;
FItemCodeTools: TBuildLazarusItem;
@@ -151,6 +152,7 @@
property ItemIDE: TBuildLazarusItem read FItemIDE;
property ItemStarter: TBuildLazarusItem read FItemStarter;
property ItemExamples: TBuildLazarusItem read FItemExamples;
+ property Advanced: boolean read FAdvanced write FAdvanced;
property CleanAll: boolean read FCleanAll write FCleanAll;
property ExtraOptions: string read FExtraOptions write FExtraOptions;
property TargetOS: string read fTargetOS write SetTargetOS;
@@ -175,6 +177,7 @@
CancelButton: TButton;
CleanAllCheckBox: TCheckBox;
ConfirmBuildCheckBox: TCheckBox;
+ BuildOptionsGroupBox: TGroupBox;
ItemListHeader: THeaderControl;
ItemsListBox: TListBox;
LCLInterfaceRadioGroup: TRadioGroup;
@@ -182,6 +185,10 @@
OptionsEdit: TEdit;
OptionsLabel: TLabel;
RestartAfterBuildCheckBox: TCheckBox;
+ BuildAllSpeedButton: TSpeedButton;
+ BuildLCLSpeedButton: TSpeedButton;
+ AdvancedSpeedButton: TSpeedButton;
+ PackageBuildSpeedButton: TSpeedButton;
TargetCPUComboBox: TComboBox;
TargetCPULabel: TLabel;
TargetDirectoryButton: TButton;
@@ -190,11 +197,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 +215,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 +230,7 @@
public
procedure Load(SourceOptions: TBuildLazarusOptions);
procedure Save(DestOptions: TBuildLazarusOptions);
+ procedure SetAdvanced (Advanced:boolean);
end;
function ShowConfigureBuildLazarusDlg(
@@ -714,6 +732,7 @@
IDEDialogLayoutList.ApplyLayout(Self, 500, 500);
Load(Options);
+
end;
procedure TConfigureBuildLazarusDlg.FormDestroy(Sender: TObject);
@@ -721,6 +740,14 @@
Options.Free;
end;
+procedure TConfigureBuildLazarusDlg.FormShow(Sender: TObject);
+begin
+ FQuick.X := BuildOptionsGroupBox.Left;
+ FQuick.Y := BuildOptionsGroupBox.Top;
+ if not AdvancedSpeedButton.Down then SetAdvanced(False);
+end;
+
+
procedure TConfigureBuildLazarusDlg.ItemListHeaderResize(Sender: TObject);
begin
if ItemListHeader.Sections.Count >= 3 then
@@ -837,6 +864,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;
@@ -920,7 +1019,7 @@
TargetOSEdit.Text:=Options.TargetOS;
TargetDirectoryComboBox.Text:=Options.TargetDirectory;
TargetCPUComboBox.Text:=Options.TargetCPU;
-
+ AdvancedSpeedButton.Down := Options.Advanced;
Invalidate;
end;
@@ -928,6 +1027,7 @@
begin
if DestOptions=nil then exit;
+ Options.Advanced := AdvancedSpeedButton.Down; // Update user choice
Options.CleanAll:=CleanAllCheckBox.Checked;
Options.ExtraOptions:=OptionsEdit.Text;
Options.LCLPlatform:=TLCLPlatform(LCLInterfaceRadioGroup.ItemIndex);
@@ -941,6 +1041,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 - 12;//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;
@@ -1215,6 +1336,7 @@
Path+'Build'+Items[i].Name+'/Value',
MakeModeNames[Items[i].MakeMode]));
end;
+ FAdvanced:=XMLConfig.GetValue(Path+'Advanced/Value',false);
FCleanAll:=XMLConfig.GetValue(Path+'CleanAll/Value',false);
FExtraOptions:=XMLConfig.GetValue(Path+'ExtraOptions/Value','');
TargetOS:=XMLConfig.GetValue(Path+'TargetOS/Value','');
@@ -1247,6 +1369,7 @@
MakeModeNames[Items[i].DefaultMakeMode]);
end;
+ XMLConfig.SetDeleteValue(Path+'Advanced/Value',FAdvanced,false);
XMLConfig.SetDeleteValue(Path+'CleanAll/Value',FCleanAll,true);
XMLConfig.SetDeleteValue(Path+'ExtraOptions/Value',FExtraOptions,'');
XMLConfig.SetDeleteValue(Path+'TargetOS/Value',TargetOS,'');
@@ -1276,6 +1399,7 @@
begin
if (Source=nil) or (Source=Self) then exit;
Clear;
+ Advanced:=Source.Advanced;
CleanAll:=Source.CleanAll;
ExtraOptions:=Source.ExtraOptions;
TargetOS:=Source.TargetOS;
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
