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

LCL: Make procedure RunDialog public in TFileNameEdit, TDirectoryEdit and CalcEdit. Helps with shortcut keys.

Browse Source 
git-svn-id: trunk@56242 -
This commit is contained in:
juha 2017-10-29 22:28:51 +00:00
parent 340c964371
commit efb8df15a1
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/editbtn.pas
View File

@ -346,12 +346,12 @@ type
function CreateDialog(AKind: TDialogKind): TCommonDialog; virtual;
procedure SaveDialogResult(AKind: TDialogKind; D: TCommonDialog); virtual;
procedure ButtonClick; override;
procedure RunDialog; virtual;
procedure EditChange; override;
procedure DoFolderChange(Sender:TObject); virtual;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure RunDialog; virtual;
property AutoSelected;
property DialogFiles: TStrings read FDialogFiles;
published
@ -451,10 +451,10 @@ type
function CreateDialog: TCommonDialog; virtual;
function GetDialogResult(D : TCommonDialog) : String; virtual;
procedure ButtonClick; override;
procedure RunDialog; virtual;
public
property AutoSelected;
constructor Create(AOwner: TComponent); override;
procedure RunDialog; virtual;
published
// TDirectory properties.
property Directory: String read GetDirectory write SetDirectory;
@ -768,9 +768,9 @@ type
function GetDefaultGlyph: TBitmap; override;
function GetDefaultGlyphName: String; override;
procedure ButtonClick; override;
procedure RunDialog; virtual;
public
constructor Create(AOwner: TComponent); override;
procedure RunDialog; virtual;
property AutoSelected;
published
// CalcEdit properties
@ -1469,7 +1469,6 @@ begin
Result:=TSelectDirectoryDialog(D).FileName;
end;
procedure TDirectoryEdit.ButtonClick;
begin
inherited ButtonClick;