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

Cocoa: Remove save dialog filename bug

Browse Source 
git-svn-id: trunk@43970 -
This commit is contained in:
freq 2014-02-09 13:29:42 +00:00
parent 7007975497
commit fcf961939b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/cocoa/cocoawsdialogs.pp
View File

@ -203,7 +203,7 @@ begin
saveDlg.setAllowedFileTypes(nsfilter);
saveDlg.setDirectoryURL(NSURL.fileURLWithPath(
NSStringUtf8(FileDialog.InitialDir)));
saveDlg.setNameFieldStringValue(NSStringUtf8(FileDialog.FileName));
saveDlg.setNameFieldStringValue(NSStringUtf8(extractfilename(FileDialog.FileName)));
if saveDlg.runModal = NSOKButton then
begin
FileDialog.FileName := NSStringToString(saveDlg.URL.path);