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

lazbuild: show active build mode, fixed build mode comparing name with ansicomparetext

Browse Source 
git-svn-id: trunk@36070 -
This commit is contained in:
mattias 2012-03-16 08:17:33 +00:00
parent ed33ab735e
commit d44b3fb55e
2 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/buildprofilemanager.pas
View File

@ -333,15 +333,10 @@ begin
end; end;
function TBuildLazarusProfiles.IndexByName(AName: string): integer; function TBuildLazarusProfiles.IndexByName(AName: string): integer;
var
i: Integer;
begin begin
Result:=-1; Result:=Count-1;
for i:=0 to Count-1 do while (Result>=0) and (AnsiCompareText(Items[Result].Name,AName)<>0) do
if Items[i].Name=AName then begin dec(Result);
Result:=i;
break;
end;
end; end;
function TBuildLazarusProfiles.CreateDefaults: integer; function TBuildLazarusProfiles.CreateDefaults: integer;

15
ide/lazbuild.lpr
View File

@ -412,6 +412,7 @@ begin
LoadMiscellaneousOptions; LoadMiscellaneousOptions;
BuildLazProfiles:=MiscellaneousOptions.BuildLazProfiles; BuildLazProfiles:=MiscellaneousOptions.BuildLazProfiles;
CurProf:=BuildLazProfiles.Current;
if BuildModeOverride<>'' then if BuildModeOverride<>'' then
begin begin
i:=BuildLazProfiles.IndexByName(BuildModeOverride); i:=BuildLazProfiles.IndexByName(BuildModeOverride);
@ -419,15 +420,21 @@ begin
begin begin
debugln(['ERROR: IDE build mode "'+BuildModeOverride+'" not found']); debugln(['ERROR: IDE build mode "'+BuildModeOverride+'" not found']);
debugln; debugln;
debugln('Available IDE buld modes:'); debugln('Available IDE build modes:');
for i:=0 to BuildLazProfiles.Count-1 do for i:=0 to BuildLazProfiles.Count-1 do
debugln(' ',BuildLazProfiles[i].Name); begin
if BuildLazProfiles[i]=CurProf then
dbgout('* ')
else
dbgout(' ');
debugln(BuildLazProfiles[i].Name);
end;
debugln; debugln;
exit; exit;
end; end;
CurProf:=BuildLazProfiles[i]; CurProf:=BuildLazProfiles[i];
end else end;
CurProf:=BuildLazProfiles.Current; debugln(['Building Lazarus IDE with profile "',CurProf.Name,'"']);
if (Length(OSOverride) <> 0) then if (Length(OSOverride) <> 0) then
CurProf.TargetOS:=OSOverride; CurProf.TargetOS:=OSOverride;