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

LCL: TCalcEdit: Fixed SelectNext doesn't work after revision 44623 #bee933f2ab for derivated TCustomEditButtons.

Browse Source 
git-svn-id: trunk@54027 -
This commit is contained in:
michl 2017-01-29 14:28:01 +00:00
parent 4bba532865
commit 0d6c6db645
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/editbtn.pas
View File

@ -1074,6 +1074,7 @@ begin
inherited Create(AOwner); inherited Create(AOwner);
FButtonOnlyWhenFocused := False; FButtonOnlyWhenFocused := False;
FocusOnButtonClick := False; FocusOnButtonClick := False;
Edit.TabStop := False;
SetInitialBounds(0, 0, GetControlClassDefaultSize.CX, GetControlClassDefaultSize.CY); SetInitialBounds(0, 0, GetControlClassDefaultSize.CX, GetControlClassDefaultSize.CY);