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

TToolButton: fix using AccelleratorChars (Issue #0024817).

Browse Source 
git-svn-id: trunk@44871 -
This commit is contained in:
bart 2014-05-01 14:21:54 +00:00
parent 5f56400fe5
commit f62fa21a33
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/include/toolbutton.inc
View File

@ -931,7 +931,7 @@ end;
function TToolButton.DialogChar(var Message: TLMKey): boolean;
begin
if IsAccel(Message.CharCode, Caption) and FToolBar.CanFocus then
if IsAccel(Message.CharCode, Caption) and FToolBar.ShowCaptions then
begin
Click;
Result := true;