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

MG: added LCLPlatform to build lazarus dialog

Browse Source 
git-svn-id: trunk@3458 -
This commit is contained in:
lazarus 2002-10-03 20:50:56 +00:00
parent 9268921ead
commit 1ce803bc1c
1 changed files with 49 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
ide/buildlazdialog.pas
View File

@ -39,6 +39,7 @@ uses
type
TMakeMode = (mmNone, mmBuild, mmCleanBuild);
TLCLPlatform = (lpGtk, lpGnome, lpWin32);
TBuildLazarusOptions = class
private
@ -52,6 +53,7 @@ type
fMakeFilename: string;
fExtraOptions: string;
fTargetOS: string;
fLCLPlatform: TLCLPlatform;
public
constructor Create;
procedure Load(XMLConfig: TXMLConfig; const Path: string);
@ -67,6 +69,7 @@ type
property MakeFilename: string read fMakeFilename write fMakeFilename;
property ExtraOptions: string read fExtraOptions write fExtraOptions;
property TargetOS: string read fTargetOS write fTargetOS;
property LCLPlatform: TLCLPlatform read fLCLPlatform write fLCLPlatform;
end;
TConfigureBuildLazarusDlg = class(TForm)
@ -80,6 +83,7 @@ type
BuildExamplesRadioGroup: TRadioGroup;
OptionsLabel: TLabel;
OptionsEdit: TEdit;
LCLInterfaceRadioGroup: TRadioGroup;
TargetOSLabel: TLabel;
TargetOSEdit: TEdit;
OkButton: TButton;
@ -115,6 +119,9 @@ const
MakeModeNames: array[TMakeMode] of string = (
'None', 'Build', 'Clean+Build'
);
LCLPlatformNames: array[TLCLPlatform] of string = (
'gtk', 'gnome', 'win32'
);
function StrToMakeMode(const s: string): TMakeMode;
@ -124,6 +131,13 @@ begin
Result:=mmNone;
end;
function StrToLCLPlatform(const s: string): TLCLPlatform;
begin
for Result:=Low(TLCLPlatform) to High(TLCLPlatform) do
if AnsiCompareText(s,LCLPlatformNames[Result])=0 then exit;
Result:=lpGtk;
end;
function ShowConfigureBuildLazarusDlg(
Options: TBuildLazarusOptions): TModalResult;
var ConfigBuildLazDlg: TConfigureBuildLazarusDlg;
@ -164,6 +178,8 @@ begin
Tool:=TExternalToolOptions.Create;
try
Tool.Filename:=Options.MakeFilename;
Tool.EnvironmentOverrides.Values['LCL_PLATFORM']:=
LCLPlatformNames[Options.LCLPlatform];
if not FileExists(Tool.Filename) then begin
Tool.Filename:=FindDefaultMakePath;
if not FileExists(Tool.Filename) then exit;
@ -251,11 +267,13 @@ end;
{ TConfigureBuildLazarusDlg }
constructor TConfigureBuildLazarusDlg.Create(AnOwner: TComponent);
var MakeMode: TMakeMode;
var
MakeMode: TMakeMode;
LCLInterface: TLCLPlatform;
begin
inherited Create(AnOwner);
if LazarusResources.Find(Classname)=nil then begin
Width:=350;
Width:=480;
Height:=435;
Position:=poScreenCenter;
Caption:='Configure "Build Lazarus"';
@ -266,7 +284,7 @@ begin
with CleanAllCheckBox do begin
Parent:=Self;
Name:='CleanAllCheckBox';
SetBounds(10,10,Self.ClientWidth-20,20);
SetBounds(10,10,Self.ClientWidth-150,20);
Caption:='Clean all';
Visible:=true;
end;
@ -389,8 +407,7 @@ begin
with TargetOSLabel do begin
Name:='TargetOSLabel';
Parent:=Self;
SetBounds(10,
OptionsLabel.Top+OptionsLabel.Height+12,
SetBounds(10,OptionsLabel.Top+OptionsLabel.Height+12,
80,Height);
Caption:='Target OS:';
Visible:=true;
@ -407,6 +424,21 @@ begin
Visible:=true;
end;
LCLInterfaceRadioGroup:=TRadioGroup.Create(Self);
with LCLInterfaceRadioGroup do begin
Name:='LCLInterfaceRadioGroup';
Parent:=Self;
Left:=BuildLCLRadioGroup.Left+BuildLCLRadioGroup.Width+10;
Top:=BuildLCLRadioGroup.Top;
Width:=Parent.ClientHeight-Left-BuildLCLRadioGroup.Left;
Height:=100;
Caption:='LCL interface';
for LCLInterface:=Low(TLCLPlatform) to High(TLCLPlatform) do begin
Items.Add(LCLPlatformNames[LCLInterface]);
end;
Visible:=true;
end;
OkButton:=TButton.Create(Self);
with OkButton do begin
Parent:=Self;
@ -453,7 +485,7 @@ end;
procedure TConfigureBuildLazarusDlg.ConfigureBuildLazarusDlgResize(
Sender: TObject);
begin
CleanAllCheckBox.SetBounds(10,10,Self.ClientWidth-24,20);
CleanAllCheckBox.SetBounds(10,10,Self.ClientWidth-150,20);
BuildAllButton.SetBounds(CleanAllCheckBox.Left,
CleanAllCheckBox.Top+CleanAllCheckBox.Height+5,
200,BuildAllButton.Height);
@ -489,6 +521,11 @@ begin
TargetOSLabel.Top,
OptionsEdit.Width,
TargetOSEdit.Height);
with LCLInterfaceRadioGroup do begin
Left:=BuildLCLRadioGroup.Left+BuildLCLRadioGroup.Width+10;
Top:=BuildLCLRadioGroup.Top;
Width:=Parent.ClientWidth-Left-10;
end;
OkButton.SetBounds(Self.ClientWidth-180,Self.ClientHeight-38,80,25);
CancelButton.SetBounds(Self.ClientWidth-90,OkButton.Top,
OkButton.Width,OkButton.Height);
@ -514,6 +551,7 @@ begin
BuildIDERadioGroup.ItemIndex:=MakeModeToInt(Options.BuildIDE);
BuildExamplesRadioGroup.ItemIndex:=MakeModeToInt(Options.BuildExamples);
OptionsEdit.Text:=Options.ExtraOptions;
LCLInterfaceRadioGroup.ItemIndex:=ord(Options.LCLPlatform);
TargetOSEdit.Text:=Options.TargetOS;
end;
@ -528,6 +566,7 @@ begin
Options.BuildIDE:=IntToMakeMode(BuildIDERadioGroup.ItemIndex);
Options.BuildExamples:=IntToMakeMode(BuildExamplesRadioGroup.ItemIndex);
Options.ExtraOptions:=OptionsEdit.Text;
Options.LCLPlatform:=TLCLPlatform(LCLInterfaceRadioGroup.ItemIndex);
Options.TargetOS:=TargetOSEdit.Text;
end;
@ -563,6 +602,7 @@ begin
XMLConfig.SetValue(Path+'ExtraOptions/Value',fExtraOptions);
XMLConfig.SetValue(Path+'TargetOS/Value',fTargetOS);
XMLConfig.SetValue(Path+'MakeFilename/Value',fMakeFilename);
XMLConfig.SetValue(Path+'LCLPlatform/Value',LCLPlatformNames[fLCLPlatform]);
end;
procedure TBuildLazarusOptions.Load(XMLConfig: TXMLConfig; const Path: string);
@ -583,12 +623,15 @@ begin
fExtraOptions:=XMLConfig.GetValue(Path+'ExtraOptions/Value',fExtraOptions);
fTargetOS:=XMLConfig.GetValue(Path+'TargetOS/Value','');
fMakeFilename:=XMLConfig.GetValue(Path+'MakeFilename/Value',fMakeFilename);
fLCLPlatform:=StrToLCLPlatform(XMLConfig.GetValue(Path+'LCLPlatform/Value',
LCLPlatformNames[fLCLPlatform]));
end;
constructor TBuildLazarusOptions.Create;
begin
inherited Create;
fMakeFilename:='';
fLCLPlatform:=lpGtk;
end;