TadvStringGrid - Radiogroup

VCL TMS VCL UI Pack
1

Hi, i get access violation in form destroy when execute AdvStringGrid1.ClearNormalCells, why?





Regards.



Example



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, AdvObj, BaseGrid, AdvGrid;



type

TForm1 = class(TForm)

    AdvStringGrid1: TAdvStringGrid;

    procedure FormCreate(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

private

    { Private declarations }

public

    { Public declarations }

    procedure azzeragriglia;

end;



var

Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.azzeragriglia;

begin



        AdvStringGrid1.RemoveRadio(1,1);



    AdvStringGrid1.ClearNormalCells;

    AdvStringGrid1.RowCount:=2;





end;





procedure TForm1.FormCreate(Sender: TObject);

var sl : TStringList;

begin

sl:=TStringlist.create;

sl.Add('A');

    sl.Add('A');

      sl.Add('A');

        sl.Add('A');

          sl.Add('A');



   AdvStringGrid1.AddRadio(1,1,0,0,sl);

   





end;



procedure TForm1.FormDestroy(Sender: TObject);

begin

AZZERAGRIGLIA;

end;



end.

2

I forgot TAdvStringGrid version 7.2.5.0