procedure ResetPicSize(RVData: TCustomRVData);
var i,r,c: Integer;
Table: TRVTableItemInfo;
begin
for i := 0 to RVData.ItemCount-1 do
case RVData.GetItemStyle(i) of
rvsTable:
begin
Table := TRVTableItemInfo(RVData.GetItem(i));
for r := 0 to Table.RowCount-1 do
for c := 0 to Table.ColCount-1 do
if Table.Cells[r,c]<>nil then
ResetPicSize(Table.Cells[r,c].GetRVData);
end;
rvsPicture, rvsHotPicture:
begin
RVData.SetItemExtraIntProperty(i, rvepImageWidth, 0);
RVData.SetItemExtraIntProperty(i, rvepImageHeight, 0);
end;
end;
end;