paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-10 09:42:19 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: set down state of speedbutton when button was invoked by accelerator (based on patch of Benito van der Zander #0011826)

Browse Source 
git-svn-id: trunk@16815 -
This commit is contained in:
paul 2008-10-01 01:23:17 +00:00
parent a60139801c
commit 0607f55e77
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/speedbutton.inc
View File

@ -480,6 +480,8 @@ begin
if IsAccel(Message.CharCode, Caption) then if IsAccel(Message.CharCode, Caption) then
begin begin
Result := True; Result := True;
if GroupIndex <> 0 then
SetDown(not FDown);
Click; Click;
end else end else
Result := inherited DialogChar(Message); Result := inherited DialogChar(Message);