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

LCL: Check TRadioButton when using keyboard accelerator ("&" in caption)

Browse Source
This commit is contained in:
n7800 2024-08-16 01:15:11 +05:00 committed by Martin
parent bc6df44ffa
commit 63f44cf8e7
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/radiobutton.inc
View File

@ -115,6 +115,8 @@ begin
if IsAccel(Message.CharCode, Caption) and CanFocus then if IsAccel(Message.CharCode, Caption) and CanFocus then
begin begin
SetFocus; SetFocus;
if Focused then
Checked := True;
Result := True; Result := True;
end else end else
Result := inherited; Result := inherited;