How can I stop my TDrawGrid fixed rows from disappearing when I have no non fixed rows?

Question

Hi

I have this problem with TDrawGrid with fixed rows (although same applies to fixed cols).

If you have .FixedRows = 1, and decrement the value of .RowCount, when it gets to 1, the .FixedRows automatically gets set to 0, and your fixed rows turn white instead of the usual grey - except in column zero.

Can I stop this from happening? Is this a bug in TDrawGrid?

I realise I can put some code into OnDrawCell to check the rowcount and make paint some fake fixed rows for it if necessary, but I was hoping not to have to do this way.

Thanks all.

Answer 1

As designed in the VCL code, it's a "feature" :-) :

procedure TCustomGrid.SetRowCount(Value: Longint);
begin
  if FRowCount <> Value then
  begin
    if Value < 1 then Value := 1;
    if Value <= FixedRows then FixedRows := Value - 1; // <= **@#$#@#$**
    ChangeSize(ColCount, Value);
  end;
end;