paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-09 03:14:52 +01: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.setAllowedFileTypes(nsfilter);
saveDlg.setDirectoryURL(NSURL.fileURLWithPath( saveDlg.setDirectoryURL(NSURL.fileURLWithPath(
NSStringUtf8(FileDialog.InitialDir))); NSStringUtf8(FileDialog.InitialDir)));
saveDlg.setNameFieldStringValue(NSStringUtf8(FileDialog.FileName)); saveDlg.setNameFieldStringValue(NSStringUtf8(extractfilename(FileDialog.FileName)));
if saveDlg.runModal = NSOKButton then if saveDlg.runModal = NSOKButton then
begin begin
FileDialog.FileName := NSStringToString(saveDlg.URL.path); FileDialog.FileName := NSStringToString(saveDlg.URL.path);