From 31428e33d6013122d9ca0b2ef7fcd2513390f2b8 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Wed, 16 Mar 2016 12:51:20 +0000
Subject: [PATCH] LCL: Fix the unfired OnClick event issue better. Issue
 #29845, patch from FTurtle.

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

diff --git a/lcl/include/radiogroup.inc b/lcl/include/radiogroup.inc
index 17dab76fb1..fefd3d24aa 100644
--- a/lcl/include/radiogroup.inc
+++ b/lcl/include/radiogroup.inc
@@ -28,7 +28,6 @@ type
   public
     constructor Create(TheRadioGroup: TCustomRadioGroup);
     procedure Assign(Source: TPersistent); override;
-    procedure Clear; override;
   end;
 
 { TRadioGroupStringList }
@@ -40,6 +39,7 @@ begin
     FRadioGroup.UpdateAll
   else
     FRadioGroup.UpdateInternalObjectList;
+  FRadioGroup.FLastClickedItemIndex := FRadioGroup.FItemIndex;
 end;
 
 constructor TRadioGroupStringList.Create(TheRadioGroup: TCustomRadioGroup);
@@ -57,12 +57,6 @@ begin
   if SavedIndex < Count then FRadioGroup.ItemIndex := SavedIndex;
 end;
 
-procedure TRadioGroupStringList.Clear;
-begin
-  inherited Clear;
-  FRadioGroup.FLastClickedItemIndex := -1;
-end;
-
 
 {------------------------------------------------------------------------------
   Method: TCustomRadioGroup.Create