From 38282db2af5e3e281d52e3b9d608dab7c604447d Mon Sep 17 00:00:00 2001 From: lazarus-bart Date: Sat, 22 Aug 2020 15:55:20 +0000 Subject: [PATCH] ExCtrls: fix not calling OnKeyPress in TCustomFloatSISpinEditEx.EditKeyPress. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7623 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/exctrls/source/exeditctrls.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/components/exctrls/source/exeditctrls.pas b/components/exctrls/source/exeditctrls.pas index bb60d4002..f6b9f6688 100644 --- a/components/exctrls/source/exeditctrls.pas +++ b/components/exctrls/source/exeditctrls.pas @@ -537,7 +537,7 @@ end; procedure TCustomFloatSISpinEditEx.EditKeyPress(var Key: char); begin - //allow anything for the moment + if Assigned(OnKeyPress) then OnKeyPress(Self, Key); end; function TCustomFloatSISpinEditEx.TextIsNumber(const S: String; out ANumber: Double): Boolean;