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

IDE: package options: fixed using DirPathExists to check directories, bug #14405

Browse Source 
git-svn-id: trunk@21390 -
This commit is contained in:
mattias 2009-08-22 14:54:18 +00:00
parent 51d7653f6a
commit 6f2fbc674a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packager/pkgoptionsdlg.pas
View File

@ -224,7 +224,7 @@ begin
if CurDir<>'' then begin
IDEMacros.SubstituteMacros(CurDir);
LazPackage.LongenFilename(CurDir);
if not FileExistsUTF8(CurDir) then begin
if not DirPathExists(CurDir) then begin
DlgResult:=QuestionDlg('Directory not found',
'Directory "'+CurDir+'" not found.',
mtError,[mrIgnore,mrYes,'Remove from search path',mrCancel],0);