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

MG: fixed Programfilename under win32

Browse Source 
git-svn-id: trunk@316 -
This commit is contained in:
lazarus 2001-07-06 22:04:27 +00:00
parent 14b8f4cce6
commit 4d1ca1c433
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/main.pp
View File

@ -2864,6 +2864,9 @@ writeln('[TMainIDE.DoRunProject] A');
Ext:=ExtractFileExt(Project.ProjectFile); Ext:=ExtractFileExt(Project.ProjectFile);
ProgramFilename := LowerCase(copy(Project.ProjectFile,1, ProgramFilename := LowerCase(copy(Project.ProjectFile,1,
length(Project.ProjectFile)-length(Ext))); length(Project.ProjectFile)-length(Ext)));
{$ifdef win32}
ProgramFilename:=ProgramFilename+'.exe';
{$endif}
if not FileExists(ProgramFilename) then begin if not FileExists(ProgramFilename) then begin
AText:='No program file "'+ProgramFilename+'" found!'; AText:='No program file "'+ProgramFilename+'" found!';
@ -3490,8 +3493,8 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.106 2001/07/06 06:25:37 lazarus Revision 1.107 2001/07/06 22:04:27 lazarus
MG: fixes for ide speedbuttons, form.showmodal, initial lazarus.dci MG: fixed Programfilename under win32
Revision 1.105 2001/07/01 15:55:43 lazarus Revision 1.105 2001/07/01 15:55:43 lazarus
MG: JumpToCompilerMessage now centered in source editor MG: JumpToCompilerMessage now centered in source editor