In StringGrid-Zeilen mit einem Balken navigieren

[marabu]

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