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

LCL: use ReadAllLinks to implement cleared ofNoDereferenceLinks flag, fixes part of 12479

Browse Source 
git-svn-id: trunk@17143 -
This commit is contained in:
vincents 2008-10-28 13:30:03 +00:00
parent ad6608e616
commit 9744da98be
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/filedialog.inc
View File

@ -140,11 +140,11 @@ procedure TOpenDialog.DereferenceLinks;
var i: integer;
begin
if Filename<>'' then
Filename:=ExpandFileNameUTF8(Filename);
FileName := ReadAllLinks(FileName, false);
if Files<>nil then begin
for i:=0 to Files.Count-1 do begin
if Files[i]<>'' then
Files[i]:=ExpandFileNameUTF8(Files[i]);
Files[i]:=ReadAllLinks(Files[i], false);
end;
end;
end;