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

project groups: run action for loaded project

Browse Source 
git-svn-id: trunk@50397 -
This commit is contained in:
mattias 2015-11-18 15:38:28 +00:00
parent 26405b26b5
commit 933b0120fb
5 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/ideintf/lazideintf.pas
View File

@ -297,6 +297,7 @@ type
function DoBuildProject(const AReason: TCompileReason;
Flags: TProjectBuildFlags;
FinalizeResources: boolean = True): TModalResult; virtual; abstract;
function DoRunProject: TModalResult; virtual; abstract;
function GetProjectFileForProjectEditor(AEditor: TSourceEditorInterface): TLazProjectFile; virtual; abstract;
function DoCallProjectChangedHandler(HandlerType: TLazarusIDEHandlerType;
AProject: TLazProject): TModalResult;

4
components/projectgroups/projectgroup.pp
View File

@ -1015,7 +1015,9 @@ begin
exit(arOK);
end;
taRun :
; // TODO: Need IDE integration
begin
LazarusIDE.DoRunProject;
end;
end;
end else begin
// project not loaded => use lazbuild

6
components/projectgroups/projectgroupeditor.lfm
View File

@ -975,6 +975,12 @@ object ProjectGroupEditorForm: TProjectGroupEditorForm
Images = ImageListMain
left = 208
top = 152
object PMICopyFilenameMenuItem: TMenuItem
Caption = 'Copy Filename'
end
object PMIRunMenuItem: TMenuItem
Action = ATargetRun
end
object PMICompile: TMenuItem
Action = ATargetCompile
Bitmap.Data = {

4
components/projectgroups/projectgroupeditor.pas
View File

@ -62,6 +62,8 @@ type
AProjectGroupSave: TAction;
ActionListMain: TActionList;
ImageListMain: TImageList;
PMIRunMenuItem: TMenuItem;
PMICopyFilenameMenuItem: TMenuItem;
PMIOPen: TMenuItem;
PMISaveAs: TMenuItem;
PMIProperties: TMenuItem;
@ -771,7 +773,7 @@ end;
procedure TProjectGroupEditorForm.ATargetRunUpdate(Sender: TObject);
begin
AllowPerform(taRun,Sender as Taction);
AllowPerform(taRun,Sender as TAction);
UpdateIDEMenuCommandFromAction(Sender,cmdTargetRun);
end;

2
ide/main.pp
View File

@ -801,7 +801,7 @@ type
procedure DoCompile;
procedure DoQuickCompile;
function DoInitProjectRun: TModalResult; override;
function DoRunProject: TModalResult;
function DoRunProject: TModalResult; override;
function DoSaveProjectToTestDirectory(Flags: TSaveFlags): TModalResult;
function QuitIDE: boolean;