Hallo Lombi,
die Index-Berechnung aus dem Borland Beispiel-Code dient nur der Wandlung vom zweidimensionalen Zellenindex zu einem eindimensionalen Array-Index. Diesen Teil kannst du wegschmeißen. Dass nichts zu sehen ist liegt wahrscheinlich daran, dass du auch keine Ausgabe machst.
Delphi-Quellcode:
procedure TFRechn.StringGridRedatDrawCell(Sender: TObject;
ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
with Sender As TStringGrid do
begin
if (ARow = Row) and (ACol >= FixedCols)
then Canvas.Brush.Color := clYellow
else Canvas.Brusch.Color := clWhite;
Canvas.FillRect(Rect);
end;
end;
Es gibt da noch einige Feinheiten zu beachten, aber so solltest du zumindest schon etwas sehen.
Grüße vom marabu