From 1eb68ebe5b4319b109a305d566e12052fc7885c6 Mon Sep 17 00:00:00 2001
From: micha <micha@lazarus-ide.org>
Date: Sun, 2 Jan 2005 22:18:52 +0000
Subject: [PATCH] focus window on left-click

git-svn-id: trunk@6460 -
---
 lcl/interfaces/win32/win32callback.inc | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lcl/interfaces/win32/win32callback.inc b/lcl/interfaces/win32/win32callback.inc
index 7abe561d23..8a1a364521 100644
--- a/lcl/interfaces/win32/win32callback.inc
+++ b/lcl/interfaces/win32/win32callback.inc
@@ -781,6 +781,9 @@ Begin
       // RadioButton functionality
       if lWinControl is TRadioButton then
         Windows.SendMessage(Window, BM_SETCHECK, BST_CHECKED, 0);
+      // focus window
+      if Windows.GetFocus <> Window then
+        Windows.SetFocus(Window);
     End;
     WM_LBUTTONUP:
     Begin
@@ -1485,6 +1488,9 @@ end;
 
 {
   $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
   prevent reporting of spurious mousemove messages