paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-21 03:39:51 +01:00
Code Issues Packages Projects Releases Wiki Activity

CaculatorForm: fix TCalculatorPanel.FindButton for buttons after the Square root button.

Browse Source 
git-svn-id: trunk@52862 -
This commit is contained in:
bart 2016-08-22 12:40:48 +00:00
parent b272a2aa9f
commit 602280cef5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/forms/calcform.pas
View File

@ -567,7 +567,7 @@ end;
function TCalculatorPanel.FindButton(Key: Char): TCustomSpeedButton; function TCalculatorPanel.FindButton(Key: Char): TCustomSpeedButton;
const const
ButtonChars = '0123456789_./*-+Q%R='#8'C'; ButtonChars = '0123456789_./*-+QS%R='#8'C';
var var
I: Integer; I: Integer;
BtnTag: Longint; BtnTag: Longint;