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

LCL: TSpeedButton: do not eat DialogChar when disabled, bug #24742

Browse Source 
git-svn-id: trunk@42086 -
This commit is contained in:
mattias 2013-07-14 06:42:24 +00:00
parent 5f1bb4c689
commit af129c07e4
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/speedbutton.inc
View File

@ -474,7 +474,7 @@ begin
// Sometimes LM_CHAR is received instead of LM_SYSCHAR, maybe intentionally // Sometimes LM_CHAR is received instead of LM_SYSCHAR, maybe intentionally
// (LCL handles it) or maybe sent by mistake. In either case exit. // (LCL handles it) or maybe sent by mistake. In either case exit.
if (Message.Msg <> LM_SYSCHAR) or not FShowAccelChar then Exit; if (Message.Msg <> LM_SYSCHAR) or not FShowAccelChar then Exit;
if IsAccel(Message.CharCode, Caption) then if Enabled and IsAccel(Message.CharCode, Caption) then
begin begin
Result := True; Result := True;
if GroupIndex <> 0 then if GroupIndex <> 0 then