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

cocoa: adding support for ofForceShowHidden flags in open save dialogs. In ref to #35452

Browse Source 
git-svn-id: trunk@61131 -
This commit is contained in:
dmitry 2019-05-03 20:47:00 +00:00
parent d6a6435a9c
commit e484e770ee
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/interfaces/cocoa/cocoawsdialogs.pas
View File

@ -137,6 +137,20 @@ type
implementation implementation
// API irony.
// In LCL the base dialog is TOpenDialog (savedialog inherits from it)
// In Cocoa the base dialog is SaveDialog (opendialog inherites from it)
procedure UpdateOptions(src: TOpenDialog; dst: NSSavePanel);
begin
dst.setShowsHiddenFiles( ofForceShowHidden in src.Options );
end;
procedure UpdateOptions(src: TFileDialog; dst: NSSavePanel);
begin
if (src is TOpenDialog) then
UpdateOptions(TOpenDialog(src), dst);
end;
{ TCocoaWSFileDialog } { TCocoaWSFileDialog }
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
@ -301,6 +315,7 @@ begin
end; end;
openDlg.setTitle(NSStringUtf8(FileDialog.Title)); openDlg.setTitle(NSStringUtf8(FileDialog.Title));
openDlg.setDirectoryURL(NSURL.fileURLWithPath(NSStringUtf8(InitDir))); openDlg.setDirectoryURL(NSURL.fileURLWithPath(NSStringUtf8(InitDir)));
UpdateOptions(FileDialog, openDlg);
if openDlg.runModal = NSOKButton then if openDlg.runModal = NSOKButton then
begin begin
@ -321,6 +336,7 @@ begin
saveDlg.setTitle(NSStringUtf8(FileDialog.Title)); saveDlg.setTitle(NSStringUtf8(FileDialog.Title));
saveDlg.setDirectoryURL(NSURL.fileURLWithPath(NSStringUtf8(InitDir))); saveDlg.setDirectoryURL(NSURL.fileURLWithPath(NSStringUtf8(InitDir)));
saveDlg.setNameFieldStringValue(NSStringUtf8(InitName)); saveDlg.setNameFieldStringValue(NSStringUtf8(InitName));
UpdateOptions(FileDialog, saveDlg);
// accessory view // accessory view
CreateAccessoryView(nil, saveDlg); CreateAccessoryView(nil, saveDlg);