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

focus window on left-click

Browse Source 
git-svn-id: trunk@6460 -
This commit is contained in:
micha 2005-01-02 22:18:52 +00:00
parent ad7c770c47
commit 1eb68ebe5b
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -781,6 +781,9 @@ Begin
// RadioButton functionality // RadioButton functionality
if lWinControl is TRadioButton then if lWinControl is TRadioButton then
Windows.SendMessage(Window, BM_SETCHECK, BST_CHECKED, 0); Windows.SendMessage(Window, BM_SETCHECK, BST_CHECKED, 0);
// focus window
if Windows.GetFocus <> Window then
Windows.SetFocus(Window);
End; End;
WM_LBUTTONUP: WM_LBUTTONUP:
Begin Begin
@ -1485,6 +1488,9 @@ end;
{ {
$Log$ $Log$
Revision 1.177 2005/01/02 22:18:52 micha
focus window on left-click
Revision 1.176 2004/12/31 16:29:58 micha Revision 1.176 2004/12/31 16:29:58 micha
prevent reporting of spurious mousemove messages prevent reporting of spurious mousemove messages