paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 17:39:20 +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; function DoBuildProject(const AReason: TCompileReason;
Flags: TProjectBuildFlags; Flags: TProjectBuildFlags;
FinalizeResources: boolean = True): TModalResult; virtual; abstract; FinalizeResources: boolean = True): TModalResult; virtual; abstract;
function DoRunProject: TModalResult; virtual; abstract;
function GetProjectFileForProjectEditor(AEditor: TSourceEditorInterface): TLazProjectFile; virtual; abstract; function GetProjectFileForProjectEditor(AEditor: TSourceEditorInterface): TLazProjectFile; virtual; abstract;
function DoCallProjectChangedHandler(HandlerType: TLazarusIDEHandlerType; function DoCallProjectChangedHandler(HandlerType: TLazarusIDEHandlerType;
AProject: TLazProject): TModalResult; AProject: TLazProject): TModalResult;

4
components/projectgroups/projectgroup.pp
View File

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

6
components/projectgroups/projectgroupeditor.lfm
View File

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

4
components/projectgroups/projectgroupeditor.pas
View File

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

2
ide/main.pp
View File

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