From 63d6ed9d94ea79d8eb7224e4cfac5555cb6f0d7e Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 1 Dec 2014 10:10:28 +0000
Subject: [PATCH] LCL: TRadioGroup: when emitting OnClick set
 FLastClickedItemIndex to not trigger it again

git-svn-id: trunk@47046 -
---
 lcl/include/radiogroup.inc | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lcl/include/radiogroup.inc b/lcl/include/radiogroup.inc
index fe3c3141cd..b76ce07e00 100644
--- a/lcl/include/radiogroup.inc
+++ b/lcl/include/radiogroup.inc
@@ -420,6 +420,7 @@ begin
       begin
         if Assigned(FOnClick) then FOnClick(Self);
         if Assigned(FOnSelectionChanged) then FOnSelectionChanged(Self);
+        FLastClickedItemIndex := FItemIndex;
       end;
     end;
   end;