paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-29 21:42:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixed error in Windows section of OnLoadSaveFilename - missing ')'

Browse Source 
git-svn-id: trunk@218 -
This commit is contained in:
lazarus 2001-03-09 17:54:45 +00:00
parent 960f9acdb1
commit 0a3864ecd3
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/project.pp
View File

@ -1346,7 +1346,7 @@ procedure TProject.OnLoadSaveFilename(var AFilename:string; Load:boolean);
{$ELSE}
// windows
Result:=(length(TheFilename)<3) or (copy(TheFilename,1,2)='\\')
or ((upcase(TheFilename[1]) in ['A'..'Z']) and (copy(TheFilename,2,2)=':\');
or ((upcase(TheFilename[1]) in ['A'..'Z']) and (copy(TheFilename,2,2)=':\'));
{$ENDIF}
end;
@ -1399,6 +1399,9 @@ end.
{
$Log$
Revision 1.15 2001/03/09 17:54:45 lazarus
Fixed error in Windows section of OnLoadSaveFilename - missing ')'
Revision 1.14 2001/03/09 11:38:20 lazarus
auto load last project