mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-18 12:59:14 +02:00
EditBtn: change name of parameter Action into Accept in TAcceptValueEvent.
Resolves issue #0024906. git-svn-id: trunk@42539 -
This commit is contained in:
parent
79bd788aa9
commit
5f60f3f425
@ -699,7 +699,7 @@ type
|
|||||||
|
|
||||||
{ TCalcEdit }
|
{ TCalcEdit }
|
||||||
|
|
||||||
TAcceptValueEvent = procedure(Sender: TObject; var AValue: Double; var Action: Boolean) of object;
|
TAcceptValueEvent = procedure(Sender: TObject; var AValue: Double; var Accept: Boolean) of object;
|
||||||
TCalcEdit = class(TCustomEditButton)
|
TCalcEdit = class(TCustomEditButton)
|
||||||
private
|
private
|
||||||
FDialogTitle: String;
|
FDialogTitle: String;
|
||||||
|
Loading…
Reference in New Issue
Block a user