paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-25 13:37:21 +01:00
Code Issues Packages Projects Releases Wiki Activity

project groups: run Pascal file without opening in source editor

Browse Source 
git-svn-id: trunk@50445 -
This commit is contained in:
mattias 2015-11-20 14:38:57 +00:00
parent d6b6f6739e
commit be79f48411
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/projectgroups/projectgroup.pp
View File

@ -1418,9 +1418,7 @@ begin
taRun:
begin
if not CheckIDEIsReadyForBuild then exit;
if LazarusIDE.DoOpenEditorFile(Filename,-1,-1,[ofAddToRecent,ofRegularFile])<>mrOK then
exit;
if LazarusIDE.DoRunFile<>mrOK then
if LazarusIDE.DoRunFile(Filename)<>mrOK then
exit;
Result:=arOK;
end;