paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-14 16:32:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Cleanup, make the code more readable.

Browse Source 
git-svn-id: trunk@28232 -
This commit is contained in:
juha 2010-11-14 22:44:39 +00:00
parent 6621b04689
commit e80c52f6f7
1 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
ide/buildmanager.pas
View File

@ -1854,10 +1854,12 @@ var
NewTargetCPU: String;
NewLCLWidgetSet: String;
begin
MiscellaneousOptions.BuildLazProfiles.UpdateGlobals;
NewTargetOS:=MiscellaneousOptions.BuildLazOpts.TargetOS;
NewTargetCPU:=MiscellaneousOptions.BuildLazOpts.TargetCPU;
NewLCLWidgetSet:=LCLPlatformDirNames[MiscellaneousOptions.BuildLazOpts.TargetPlatform];
with MiscellaneousOptions do begin
BuildLazProfiles.UpdateGlobals;
NewTargetOS:=BuildLazOpts.TargetOS;
NewTargetCPU:=BuildLazOpts.TargetCPU;
NewLCLWidgetSet:=LCLPlatformDirNames[BuildLazOpts.TargetPlatform];
end;
if (NewTargetOS='') or (NewTargetOS='default') then
NewTargetOS:=GetDefaultTargetOS;
if (NewTargetCPU='') or (NewTargetCPU='default') then
@ -1873,11 +1875,13 @@ var
NewLCLWidgetSet: TLCLPlatform;
BuildIDE: Boolean;
begin
MiscellaneousOptions.BuildLazProfiles.UpdateGlobals;
NewTargetOS:=LowerCase(MiscellaneousOptions.BuildLazProfiles.Current.TargetOS);
NewTargetCPU:=LowerCase(MiscellaneousOptions.BuildLazProfiles.Current.TargetCPU);
NewLCLWidgetSet:=MiscellaneousOptions.BuildLazProfiles.Current.TargetPlatform;
BuildIDE:=MiscellaneousOptions.BuildLazProfiles.CurrentIdeMode in [mmBuild,mmCleanBuild];
with MiscellaneousOptions do begin
BuildLazProfiles.UpdateGlobals;
NewTargetOS:=LowerCase(BuildLazOpts.TargetOS);
NewTargetCPU:=LowerCase(BuildLazOpts.TargetCPU);
NewLCLWidgetSet:=BuildLazOpts.TargetPlatform;
BuildIDE:=BuildLazProfiles.CurrentIdeMode in [mmBuild,mmCleanBuild];
end;
//debugln(['TBuildManager.BuildTargetIDEIsDefault NewTargetOS=',NewTargetOS,' Default=',GetDefaultTargetOS,' NewTargetCPU=',NewTargetCPU,' default=',GetDefaultTargetCPU,' ws=',LCLPlatformDisplayNames[NewLCLWidgetSet],' default=',LCLPlatformDisplayNames[GetDefaultLCLWidgetType]]);
Result:=BuildIDE and ((NewTargetOS='') or (NewTargetOS=GetDefaultTargetOS))
and ((NewTargetCPU='') or (NewTargetCPU=GetDefaultTargetCPU));