StringGrid einfärben

[c.Stetter]

Hallo,


ich wollte ein StringGrid einfärben (4 Zeilen Geld, 3 Zeilen Rot, usw)

Manuel mache ich das so :

Delphi-Quellcode:

procedure TMainForm.grd_SpieleDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  inherited;
  with (sender as TStringGrid) do
  begin
    if ((aRow = 9) or (aRow = 10) or (aRow = 11) or (aRow = 12)) then
    begin
     Canvas.Brush.Color := clGradientActiveCaption ;
     Canvas.FillRect(Rect);
     Canvas.TextOut(Rect.Left+2, Rect.Top+2, (sender as TStringGrid).Cells[ACol, ARow]);
    end;
  end;
end;

hier werden die Zeilen 9, 10, 11, 12 eingefärbt.

Ich habe 18 Farben, mit der ich das StringGrid einfärben muss.
Würde ich das manuel machen, so würde der Quelltext ziemlich lang.

Danke für eure Hilfe