TTidGrid crached on destroy
Original Reporter info from Mantis: greenfil
-
Reporter name: greenfil
Original Reporter info from Mantis: greenfil
- Reporter name: greenfil
Description:
TTidGrid.Editor destroy problem
Steps to reproduce:
Run example ExampleGrid1. Change any. Close.
Additional information:
procedure TTICustomGrid.ClearProperties;
var
i: Integer;
begin
if FProperties=nil then exit;
for i:=0 to FProperties.Count-1 do begin
TObject(FProperties[i]).Free;
FProperties[i]:=nil;
end;
FProperties.Clear;
Editor := nil;
FExtraBtnEditor := nil;
end;
->
procedure TTICustomGrid.ClearProperties;
var
i: Integer;
begin
if FProperties=nil then exit;
Editor := nil;
for i:=0 to FProperties.Count-1 do begin
TObject(FProperties[i]).Free;
FProperties[i]:=nil;
end;
FProperties.Clear;
FExtraBtnEditor := nil;
end;