mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-27 15:40:40 +02:00
project groups: fixed compiling project with only one build mode
git-svn-id: trunk@50464 -
This commit is contained in:
parent
78953ccba9
commit
f6efd4fc4a
@ -193,7 +193,7 @@ var
|
|||||||
OnShowProjectGroupEditorEvent: TEditProjectGroupEvent; // method variant
|
OnShowProjectGroupEditorEvent: TEditProjectGroupEvent; // method variant
|
||||||
|
|
||||||
IDEProjectGroupManager: TIDEProjectGroupManager;
|
IDEProjectGroupManager: TIDEProjectGroupManager;
|
||||||
// Project group editor(s). Should probably move to MenuIntf
|
|
||||||
ProjectGroupMenuRoot: TIDEMenuSection = nil;
|
ProjectGroupMenuRoot: TIDEMenuSection = nil;
|
||||||
PGEditMenuSectionFiles, // e.g. sort files, clean up files
|
PGEditMenuSectionFiles, // e.g. sort files, clean up files
|
||||||
PGEditMenuSectionAddRemove, // e.g. add unit, add dependency
|
PGEditMenuSectionAddRemove, // e.g. add unit, add dependency
|
||||||
@ -1394,7 +1394,7 @@ begin
|
|||||||
|
|
||||||
LazarusIDE.ToolStatus:=itBuilder;
|
LazarusIDE.ToolStatus:=itBuilder;
|
||||||
try
|
try
|
||||||
if BuildModeCount>0 then begin
|
if BuildModeCount>1 then begin
|
||||||
IDEMessagesWindow.Clear;
|
IDEMessagesWindow.Clear;
|
||||||
i:=0;
|
i:=0;
|
||||||
if StartBuildMode<>'' then begin
|
if StartBuildMode<>'' then begin
|
||||||
|
Loading…
Reference in New Issue
Block a user