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

* fixed fileselection for a 2nd time

Browse Source 
git-svn-id: trunk@11853 -
This commit is contained in:
marc 2007-08-23 21:41:16 +00:00
parent 99e2799127
commit 6f46409e23
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/interfaces/carbon/carbonwsdialogs.pp
View File

@ -268,6 +268,7 @@ begin
if OSError(AECountItems(DialogReply.Selection, FileCount), Self,
SShowModal, 'AECountItems') then Exit;
FileDialog.Files.Clear;
for FileIdx := 1 to FileCount do
begin
if OSError(AEGetNthDesc(DialogReply.Selection, FileIdx, typeFSRef,