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

moved checking of radiobutton to wm_setfocus, so keyboard action is handled too (issue #1171)

Browse Source 
git-svn-id: trunk@8017 -
This commit is contained in:
vincents 2005-10-31 15:39:28 +00:00
parent e2ae1a8286
commit e90d89dda6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/win32/win32callback.inc
View File

@ -1054,9 +1054,6 @@ Begin
// CheckListBox functionality // CheckListBox functionality
if lWinControl is TCheckListBox then if lWinControl is TCheckListBox then
CheckListBoxLButtonDown; CheckListBoxLButtonDown;
// RadioButton functionality
if lWinControl is TRadioButton then
Windows.SendMessage(Window, BM_SETCHECK, BST_CHECKED, 0);
// focus window // focus window
if (Windows.GetFocus <> Window) and if (Windows.GetFocus <> Window) and
((lWinControl = nil) or (lWinControl.CanFocus)) then ((lWinControl = nil) or (lWinControl.CanFocus)) then
@ -1306,6 +1303,9 @@ Begin
LMessage.Msg := LM_SETFOCUS; LMessage.Msg := LM_SETFOCUS;
if (lWinControl <> nil) and (lWinControl.FCompStyle = csEdit) then if (lWinControl <> nil) and (lWinControl.FCompStyle = csEdit) then
Windows.SendMessage(Window, EM_SETSEL, 0, -1); Windows.SendMessage(Window, EM_SETSEL, 0, -1);
// RadioButton functionality
if (lWinControl <> nil) and (lWinControl is TRadioButton) then
Windows.SendMessage(Window, BM_SETCHECK, BST_CHECKED, 0);
End; End;
WM_SHOWWINDOW: WM_SHOWWINDOW:
Begin Begin