DisplayFormat+TStringGridanzeige

[LOMBI]

Delphi-Quellcode:

...
  // Zelle einfärben
    if (ARow < FixedRows) or (ACol < FixedCols)
      then Canvas.Brush.Color := clBlue
      else
      if (ARow = Row) and (ACol >= FixedCols)
      then Canvas.Brush.Color := clYellow
      else Canvas.Brush.Color := clWhite;
      Canvas.FillRect(Rect);