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

[mkinzler]

Und nach welcher Logik soll gefärbt werden?

[c.Stetter]

Ich bräuchte eine procedure oder function in der ich zum beispiel parameter übergebe.

ich stelle mir z.b vor

procedure Einfaeben(aStringGrid: TStringGrid; aRow, aCol : integer; Farbe : TColor);


nur weiß ich nicht genau wie man das mach. Bin noch nicht lange dabei.

[mkinzler]

So geht es nicht. du könntest aber einen Eigenschaftenarray, in dem du das ablegst, anlegen, welcher dann im Ownerdraw ausgewertet wird.

[c.Stetter]

ich glaube das ist ein bißchen zu hoch für mich. kannst du mir nen kleinen tipp geben, wie ich anfangen muss.

[c.Stetter]

Ich habe nur ein problem mit :

Delphi-Quellcode:

  with (sender as TJVStringGrid) do
  begin
=>    if ((aRow = 9) or (aRow = 2) or (aRow = 5) or (aRow = 1)) then
    begin
     Canvas.Brush.Color := Farbe ;
     Canvas.FillRect(Rect);
     Canvas.TextOut(Rect.Left+2, Rect.Top+2, (sender as TJvStringGrid).Cells[ACol, ARow]);
    end;
  end;

gibt es eine möglichkeit hier zu bestimmen, welche zeile übergeben wird ???

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, c.Stetter.

Deine Code-Zeilen stammen doch aus dem OnDrawCell-Handler, oder? Dort werden dir schon die Zell-Koordinaten (ACol, ARow) übermittelt. Du kannst mit einer Abbildungsfunktion arbeiten oder das CASE-Konstrukt direkt im Event-Handler reinschreiben:

Delphi-Quellcode:

function LookupColor(index: Integer): TColor;
begin
  case index of
    0..4: Result := clRed;
    5..9: Result := clBlue;
    else 
      if Odd(index)
        then Result := clGreen
        else Result := clWhite;
  end;
end;

procedure TMainForm.grd_SpieleDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  with (Sender as TJVStringGrid) do
  begin
    Canvas.Brush.Color := LookupColor(ARow);
    Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, Cells[ACol, ARow]);
  end;
end;

Freundliche Grüße vom marabu