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

LCL: Clear variables in TRadioGroup so that OnClick gets fired. Issue #29845, patch from Luca Bertoncini.

Browse Source 
git-svn-id: trunk@51955 -
This commit is contained in:
juha 2016-03-15 21:16:50 +00:00
parent 5d75afb30f
commit 1ec8af0aab
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/radiogroup.inc
View File

@ -28,6 +28,7 @@ type
public
constructor Create(TheRadioGroup: TCustomRadioGroup);
procedure Assign(Source: TPersistent); override;
procedure Clear; override;
end;
{ TRadioGroupStringList }
@ -56,6 +57,12 @@ begin
if SavedIndex < Count then FRadioGroup.ItemIndex := SavedIndex;
end;
procedure TRadioGroupStringList.Clear;
begin
inherited Clear;
FRadioGroup.FLastClickedItemIndex := -1;
end;
{------------------------------------------------------------------------------
Method: TCustomRadioGroup.Create