paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 10:09:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixed compilation, changed property name back to ExtraOptions.

Browse Source 
git-svn-id: trunk@28021 -
This commit is contained in:
juha 2010-11-01 08:48:53 +00:00
parent 73922ebfe5
commit 56f3449ae8
4 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/buildlazdialog.pas
View File

@ -411,7 +411,7 @@ begin
MMDef:=Profiles.MakeModeDefs[ItemIndex];
// create extra options
ExtraOptions:=Options.ExOptions;
ExtraOptions:=Options.ExtraOptions;
if MMDef=Profiles.MakeModeDefs.ItemIDE then begin
// check for special IDE config file
@ -995,7 +995,7 @@ end;
procedure TConfigureBuildLazarusDlg.CopyProfileToUI(AProfile: TBuildLazarusProfile);
begin
CleanAllCheckBox.Checked :=AProfile.CleanAll;
OptionsMemo.Text :=AProfile.ExOptions;
OptionsMemo.Text :=AProfile.ExtraOptions;
LCLInterfaceRadioGroup.ItemIndex :=ord(AProfile.TargetPlatform);
WithStaticPackagesCheckBox.Checked:=AProfile.WithStaticPackages;
UpdateRevisionIncCheckBox.Checked :=AProfile.UpdateRevisionInc;
@ -1008,7 +1008,7 @@ end;
procedure TConfigureBuildLazarusDlg.CopyUIToProfile(AProfile: TBuildLazarusProfile);
begin
AProfile.CleanAll :=CleanAllCheckBox.Checked;
AProfile.ExOptions :=OptionsMemo.Text;
AProfile.ExtraOptions :=OptionsMemo.Text;
AProfile.TargetPlatform :=TLCLPlatform(LCLInterfaceRadioGroup.ItemIndex);
AProfile.WithStaticPackages:=WithStaticPackagesCheckBox.Checked;
AProfile.UpdateRevisionInc :=UpdateRevisionIncCheckBox.Checked;

4
ide/buildmanager.pas
View File

@ -681,7 +681,7 @@ begin
ADefTempl:=CreateLazarusSourceTemplate(
'$('+ExternalMacroStart+'LazarusDir)',
'$('+ExternalMacroStart+'LCLWidgetType)',
MiscellaneousOptions.BuildLazOpts.ExOptions,nil);
MiscellaneousOptions.BuildLazOpts.ExtraOptions,nil);
AddTemplate(ADefTempl,true,
lisNOTECouldNotCreateDefineTemplateForLazarusSources);
end;
@ -1366,7 +1366,7 @@ begin
if (MiscellaneousOptions<>nil)
and (MiscellaneousOptions.BuildLazOpts<>nil)
then
Result:=MiscellaneousOptions.BuildLazOpts.ExOptions
Result:=MiscellaneousOptions.BuildLazOpts.ExtraOptions
else
Result:='';
end;

16
ide/buildprofilemanager.pas
View File

@ -113,7 +113,7 @@ type
fOwnerCnt: TBuildLazarusProfiles;
fName: string;
fCleanAll: boolean;
fExOptions: string;
fExtraOptions: string;
fTargetOS: string;
fTargetDirectory: string;
fTargetCPU: string;
@ -125,7 +125,7 @@ type
fMakeModes: TMakeModeSettings;
function GetTargetPlatform: TLCLPlatform;
procedure SetExOptions(const AValue: string);
procedure SetExtraOptions(const AValue: string);
procedure SetTargetCPU(const AValue: string);
procedure SetTargetOS(const AValue: string);
procedure SetTargetPlatform(const AValue: TLCLPlatform);
@ -140,7 +140,7 @@ type
public
property Name: string read fName;
property CleanAll: boolean read fCleanAll write fCleanAll;
property ExOptions: string read fExOptions write SetExOptions;
property ExtraOptions: string read fExtraOptions write SetExtraOptions;
property TargetOS: string read fTargetOS write SetTargetOS;
property TargetDirectory: string read fTargetDirectory write fTargetDirectory;
property TargetCPU: string read fTargetCPU write SetTargetCPU;
@ -418,7 +418,7 @@ begin
Path+'Build'+fMakeModeDefs[i].Name+'/Value',
MakeModeNames[fMakeModeDefs[i].DefaultMakeMode]));
FCleanAll :=XMLConfig.GetValue(Path+'CleanAll/Value',false);
fExOptions :=XMLConfig.GetValue(Path+'ExtraOptions/Value','');
fExtraOptions :=XMLConfig.GetValue(Path+'ExtraOptions/Value','');
TargetOS :=XMLConfig.GetValue(Path+'TargetOS/Value','');
TargetCPU :=XMLConfig.GetValue(Path+'TargetCPU/Value','');
LCLPlatformStr :=XMLConfig.GetValue(Path+'LCLPlatform/Value','');
@ -444,7 +444,7 @@ begin
MakeModeNames[fMakeModeDefs[i].DefaultMakeMode]);
end;
XMLConfig.SetDeleteValue(Path+'CleanAll/Value',FCleanAll,false);
XMLConfig.SetDeleteValue(Path+'ExtraOptions/Value',fExOptions,'');
XMLConfig.SetDeleteValue(Path+'ExtraOptions/Value',fExtraOptions,'');
XMLConfig.SetDeleteValue(Path+'TargetOS/Value',TargetOS,'');
XMLConfig.SetDeleteValue(Path+'TargetCPU/Value',TargetCPU,'');
XMLConfig.SetDeleteValue(Path+'LCLPlatform/Value',
@ -465,7 +465,7 @@ begin
if ACopyName then
fName :=Source.Name;
CleanAll :=Source.CleanAll;
ExOptions :=Source.ExOptions;
ExtraOptions :=Source.ExtraOptions;
TargetOS :=Source.TargetOS;
TargetDirectory :=Source.TargetDirectory;
TargetCPU :=Source.TargetCPU;
@ -511,9 +511,9 @@ begin
fTargetPlatform:=AValue;
end;
procedure TBuildLazarusProfile.SetExOptions(const AValue: string);
procedure TBuildLazarusProfile.SetExtraOptions(const AValue: string);
begin
fExOptions:=Trim(StringReplace(AValue, sLineBreak, ' ', [rfReplaceAll]));
fExtraOptions:=Trim(StringReplace(AValue, sLineBreak, ' ', [rfReplaceAll]));
end;

4
ide/main.pp
View File

@ -4266,7 +4266,7 @@ begin
if Assigned(LazSrcDirTemplate) then begin
CmdLineDefines:=CodeToolBoss.DefinePool.CreateFPCCommandLineDefines(
StdDefTemplLazarusBuildOpts,
MiscellaneousOptions.BuildLazProfiles.Current.ExOptions,
MiscellaneousOptions.BuildLazProfiles.Current.ExtraOptions,
true,CodeToolsOpts);
CodeToolBoss.DefineTree.ReplaceChild(LazSrcDirTemplate,CmdLineDefines,
StdDefTemplLazarusBuildOpts);
@ -11556,7 +11556,7 @@ begin
if Assigned(LazSrcDirTemplate) then begin
CmdLineDefines:=CodeToolBoss.DefinePool.CreateFPCCommandLineDefines(
StdDefTemplLazarusBuildOpts,
BuildLazProfiles.Current.ExOptions,true,CodeToolsOpts);
BuildLazProfiles.Current.ExtraOptions,true,CodeToolsOpts);
CodeToolBoss.DefineTree.ReplaceChild(LazSrcDirTemplate,CmdLineDefines,
StdDefTemplLazarusBuildOpts);
end;