I am using the below code. row 1 is working fine. but row 7 is not working properly.
procedure TfrmTest.FormCreate(Sender: TObject);
var
I: Integer;
Ptr: ^Boolean;
begin
Grd.RowCount := 10;
Grd.ColumnCount := 1;
for I := 0 to Grd.RowCount - 1 do
begin
Grd.Cells[0,I] := IntToStr(I);
if I In [1,7] then
begin
Grd.AddBitmap(0,I,'Plus');
New(Ptr);
Ptr^ := True;
Grd.Objects[0,I] := TObject(Ptr);
end;
end;
end;
procedure TfrmTest.GrdFixedCellClick(Sender: TObject; ACol, ARow: Integer);
var
Ptr: ^Boolean;
begin
if Grd.IsBitmap(ACol,ARow) then
begin
if Grd.GetBitmapName(ACol,ARow) = 'Plus' then
begin
Grd.AddBitmap(ACol,ARow,'Minus');
Ptr := Pointer(Grd.Objects[ACol,ARow]);
if Ptr^ then
begin
Grd.InsertRows(ARow + 1,2);
Ptr^ := False;
Grd.Objects[0,ARow] := TObject(Ptr);
end
else
Grd.UnHideRows(ARow + 1,2);
end
else
begin
Grd.AddBitmap(ACol,ARow,'Plus');
Grd.HideRows(ARow + 1,2);
end;
end;
end;