Stringgrind und (mal wieder) die Frage nach der Farbe......

[DeddyH]

Versuch es mal so (Beispiel):

Delphi-Quellcode:

procedure TForm1.STGRPFPL2_UE1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
const Farben: array[Boolean] of TColor = (clmoneygreen,clwhite);
Begin
  STGRPFPL2_UE1.Canvas.Brush.Color := Farben[(ACol=0) and (ARow >0)];
  STGRPFPL2_UE1.Canvas.FillRect(Rect);
  DrawText(STGRPFPL2_UE1.Canvas.Handle,PChar(STGRPFPL2_UE1.Cells[ACol,ARow]),
           -1, Rect,DT_CENTER or DT_VCENTER or DT_SINGLELINE);
end;