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

IDE: DoOpenEditorFile: do not open directories

Browse Source 
git-svn-id: trunk@33324 -
This commit is contained in:
mattias 2011-11-05 08:38:49 +00:00
parent 4628bd06d0
commit 3e5c331236
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/main.pp
View File

@ -9271,6 +9271,11 @@ begin
// check if symlink and ask user open the real file instead
ChooseSymlink(AFilename);
if DirectoryExistsUTF8(AFileName) then begin
debugln(['TMainIDE.DoOpenEditorFile skipping directory ',AFileName]);
exit(mrCancel);
end;
FilenameNoPath:=ExtractFilename(AFilename);
// check to not open directories