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

LCL: editbtn, added DefaultExt property which passes default extension to save dialog in dkSave mode.Patch by Alberto Manganaro.Fixes issue #17463.

Browse Source 
git-svn-id: trunk@28289 -
This commit is contained in:
zeljko 2010-11-17 09:23:18 +00:00
parent 9815e521d3
commit 4a3f4e9227
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/editbtn.pas
View File

@ -162,6 +162,7 @@ type
FDialogTitle: String;
FFilter: String;
FFilterIndex: Integer;
FDefaultExt: String;
FHideDirectories: Boolean;
FInitialDir: String;
FOnAcceptFN: TAcceptFileNameEvent;
@ -189,6 +190,7 @@ type
property DialogOptions: TOpenOptions read FDialogOptions write FDialogOptions;
property Filter: String read FFilter write FFilter;
property FilterIndex: Integer read FFilterIndex write FFIlterIndex;
property DefaultExt: String read FDefaultExt write FDefaultExt;
property HideDirectories: Boolean read FHideDirectories write FHideDirectories;
// TEditButton properties.
property ButtonWidth;
@ -756,6 +758,7 @@ begin
dkSave, dkPictureSave:
begin
S:=TSaveDialog.Create(Self);
S.DefaultExt:= FDefaultExt;
S.Filter:=Filter;
S.FilterIndex:=FilterIndex;
Result:=S;