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

LCL: implement PromptForFileName in a Delphi compatible way (even though the function is badly designed IMHO). Issue #39740.

Browse Source
This commit is contained in:
Bart 2022-05-18 22:51:52 +02:00
parent be5453fbcb
commit 09584a03b9
2 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/dialogs.pp
View File

@ -730,6 +730,10 @@ function DefaultMessageBox(Text, Caption: PChar; Flags: Longint) : Integer;// wi
function InputBox(const ACaption, APrompt, ADefault : string) : string;
function PasswordBox(const ACaption, APrompt : string) : string;
function PromptForFileName(var AFileName: string; const AFilter: string = ''; const ADefaultExt: string = '';
const ATitle: string = ''; const AInitialDir: string = ''; AIsSaveDialog: Boolean = False): Boolean;
type
TCustomCopyToClipboardDialog = class(TForm)
protected

27
lcl/include/filedialog.inc
View File

@ -259,6 +259,33 @@ begin
ResolveLinks;
end;
function PromptForFileName(var AFileName: string;
const AFilter: string = '';
const ADefaultExt: string = '';
const ATitle: string = '';
const AInitialDir: string = '';
AIsSaveDialog: Boolean = False): Boolean;
var
Dlg: TOpenDialog;
begin
if AIsSaveDialog then
Dlg := TSaveDialog.Create(nil)
else
Dlg := TOpenDialog.Create(nil);
try
Dlg.FileName := AFileName;
Dlg.Filter := AFilter;
Dlg.DefaultExt := ADefaultExt;
Dlg.Title := ATitle;
Dlg.InitialDir := AInitialDir;
Result := Dlg.Execute;
if Result then
AFileName := Dlg.FileName;
finally
Dlg.Free;
end;
end;
//Helper function
function GetExtensionFromFilterAtIndex(Filter: String; Index: Integer): String;