[solved] RadioGroupEx - unfreed memory

[Nicole]

I hope, you can reproduce this as I work with frames and this was part of my form.

- add a RadioGroupEx to a frame which is created at runtime on a TPageControl TabSheet
- start the IDE by -gh
- start your project and close it down again.

everything is fine.

Now do nearly the same but

- populate the items with a bundle of strings, no matter how long or how many
- close down your application
- find 21 blocks of unfreed memory

reading

Code: Text  [Select][+][-]

1. ---------------------------
2. Error
3. ---------------------------
4. Heap dump by heaptrc unit of C:\project1.exe
5.  
6. 319743 memory blocks allocated : 20541338/21810992
7.  
8. 319722 memory blocks freed     : 20537810/21807464
9.  
10. 21 unfreed memory blocks : 3528
11.  
12. True heap size : 2916352 (160 used in System startup)
13.  
14. True free heap : 2907936
15.  
16. Should be : 2908632
17.  
18. Call trace for block $00000000037DBE70 size 64
19.  
20.   $0000000100012752
21.  
22.   $000000010000F46A
23.  
24.   $0000000100084EE5  CREATE,  line 23 of include/region.inc
25.  
26.   $000000010008AE4A  CREATE,  line 1513 of include/canvas.inc
27.  
28.   $00000001000A33CC  CREATE,  line 47 of include/controlcanvas.inc
29.  
30.   $00000001000C4285  CREATE,  line 26 of include/customcontrol.inc
31.  
32.   $00000001004354E4  CREATE,  line 670 of source/excheckctrls.pas
33.  
34.   $0000000100436E24  CREATE,  line 1266 of source/excheckctrls.pas
35.  
36.   $0000000100438AD2  UPDATEITEMS,  line 1910 of source/excheckctrls.pas
37.  
38.   $0000000100437A90  UPDATEINTERNALOBJECTLIST,  line 1608 of source/excheckctrls.pas
39.  
40.   $0000000100437C7E  CHANGED,  line 1659 of source/excheckctrls.pas
41.  
42.   $000000010004
43. ---------------------------
44. OK  
45. ---------------------------
46.  
47.  

[KodeZwerg]

Do you create it at runtime with owner set? Showing is better than describing.

[Nicole]

No, I did not.
Is is created at design-time including the item-polulation.

[howardpc]

If you create an empty project except for a dynamically created TRadioGroupEx, you see the same 21-block memory leak on exiting the app.
There is no need to populate it with any items, or have a frame or pagecontrol/tabsheet.

[Blaazen]

Quick fix: 

Code: Pascal  [Select][+][-]

1. destructor TCustomRadioGroupEx.Destroy;
2. begin
3.   FreeThenNil(FHiddenButton);
4.   inherited;
5. end;

I had to download the package. I didn't even know ExCtrls exist.

[Bart]

You can file a bugreport on the Lazars-CCR bugtracker, or contact user wp.

Bart

[Blaazen]

So I created bugreport #56.

[wp]

Fixed.

[Nicole]

Thank you so much for the fix!
And here are all five frames fixed, which showed memory leaks.
Leaks are DONE in my project now.