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