paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 20:37:20 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Fix the unfired OnClick event issue better. Issue #29845, patch from FTurtle.

Browse Source 
git-svn-id: trunk@51962 -
This commit is contained in:
juha 2016-03-16 12:51:20 +00:00
parent feaab08673
commit 31428e33d6
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/radiogroup.inc
View File

@ -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