pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

ExCtrls: Fix memory leak in TRadioGroupEx (https://forum.lazarus.freepascal.org/index.php/topic,62532.msg472856.html)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8758 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-03-01 22:12:16 +00:00
parent 5b9794109f
commit 97ca8854ff
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/exctrls/source/excheckctrls.pas
View File

@ -391,6 +391,7 @@ type
property ItemEnabled; property ItemEnabled;
published published
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end; end;
{ TRadioGroupEx } { TRadioGroupEx }
@ -1673,6 +1674,12 @@ begin
FLastClickedItemIndex := -1; FLastClickedItemIndex := -1;
end; end;
destructor TCustomRadioGroupEx.Destroy;
begin
FreeAndNil(FHiddenButton);
inherited;
end;
procedure TCustomRadioGroupEx.Changed(Sender: TObject); procedure TCustomRadioGroupEx.Changed(Sender: TObject);
begin begin
CheckItemIndexChanged; CheckItemIndexChanged;