StringGrid Zeilen einfärben

[aldi]

Hallo,
schon ein wenig nervig

Möchte gerne die Zeilen im StringGrid einfärben. bzw. wenn sich in der 3 Spalte bestimmte Wörter befinden,
möchte ich die Zeile einfärben.

so ungefähr aber ohne Funktion

Code: Alles auswählen

 
procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
  aRect: TRect; aState: TGridDrawState);
    var
     Wert: string;
begin
  // Wert := StringGrid1.FieldAddress('Status');
  if Wert = 'Eingang' then begin
    StringGrid1.Canvas.Brush.Color:= clyellow;
    StringGrid1.Canvas.Font.Color := clblack;
  end else if Wert = 'Disponiert' then begin
 
  end;
end;

[Yogi72108]

So funktioniert das auch nicht
Du setzt zwar den Brush, aber der hat keinen Einfluss auf die Hintergrundfarbe des Textes.

Das sollte gehen:

Code: Alles auswählen

 
StringGrid1.Canvas.Brush.Color:= clyellow;
StringGrid1.Canvas.FillRect(aRect); // Das füllt den Hintegrund
StringGrid1.Canvas.Font.Color := clblack;

Aber ich würde Dir dringend empfehlen Dich mal mit der Dokumentation auseinanderzusetzen.
Das Lazarus-Wiki gibt da recht viel her

[aldi]

Hallo,

jetzt wird die Zeile gelb eingefärbt, aber dafür ist der Text weg !

Code: Alles auswählen

 
procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
  aRect: TRect; aState: TGridDrawState);
begin
 if StringGrid1.Cells[3,Arow]='Eingang' then
  begin
   StringGrid1.Canvas.Brush.Color := clYellow;
   StringGrid1.Canvas.FillRect(aRect);
 end;
end; 

[aldi]

Ok,

habe das Problem selber gelöst, dafür aber ein neues

Code: Alles auswählen

 
procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
  aRect: TRect; aState: TGridDrawState);
begin
 if StringGrid1.Cells[3,Arow]='Eingang' then
  begin
   StringGrid1.Canvas.Brush.Color := clYellow;
   StringGrid1.Canvas.FillRect(aRect);
   StringGrid1.Canvas.TextOut(aRect.Left, aRect.Top, StringGrid1.Cells[ACol, ARow]);
 end;
end;

das neue Problem ist, dass die selektierte Zeile jetzt eine weiße Schrift hat ?? auf gelben Hintergrund

[Yogi72108]

Ok, Hier gehts los

Code: Alles auswählen

procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
  aRect: TRect; aState: TGridDrawState);
begin
 if StringGrid1.Cells[3,Arow]='Eingang' then
  begin
   if aState=gdSelected then
      StringGrid1.Canvas.Brush.Color:=clSkyBlue
   else
      StringGrid1.Canvas.Brush.Color := clYellow;
   StringGrid1.Canvas.FillRect(aRect);
   StringGrid1.Canvas.Font.Color:=clBlack;
   StringGrid1.Canvas.TextOut(aRect.Left, aRect.Top, StringGrid1.Cells[ACol, ARow]);
 end;
end;

Wenn Du schon selbst die Darstellung übernimmst, dann musst Du auch ALLES selbst zeichnen

Annsonsten hilft das hier vielleicht noch ein wenig weiter:
http://lazarus-ccr.sourceforge.net/docs ... grids.html

[aldi]

Hallo Yogi72108,

es kommt immer diese Meldung hier ?

[Yogi72108]

Upps, meinFehler
das muss heissen:

Code: Alles auswählen

if gdSelected in aState then

aState ist ein Set; da gibts dann noch mehrere Möglichkeiten:
http://lazarus-ccr.sourceforge.net/docs ... state.html

[aldi]

Yogi72108 es geht

noch eine Frage, was ich nicht verstehe!

Hier die ersten Bezeichnungen, "Eingang" und "In Bearbeitung" funktionieren !
Aber die dritte Funktion "Einheit ausgerückt" nicht?

Code: Alles auswählen

 
procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
  aRect: TRect; aState: TGridDrawState);
begin
 if StringGrid1.Cells[3,Arow]='Eingang' then
  begin
   if gdSelected in aState then
      StringGrid1.Canvas.Brush.Color:=clSkyBlue
   else
      StringGrid1.Canvas.Brush.Color := clYellow;
   StringGrid1.Canvas.FillRect(aRect);
   StringGrid1.Canvas.Font.Color:=clBlack;
   StringGrid1.Canvas.TextOut(aRect.Left, aRect.Top, StringGrid1.Cells[ACol, ARow]);
 end;
  if StringGrid1.Cells[3,Arow]='In Bearbeitung' then
  begin
   if gdSelected in aState then
      StringGrid1.Canvas.Brush.Color:=clSkyBlue
   else
      StringGrid1.Canvas.Brush.Color := clFuchsia;
   StringGrid1.Canvas.FillRect(aRect);
   StringGrid1.Canvas.Font.Color:=clBlack;
   StringGrid1.Canvas.TextOut(aRect.Left, aRect.Top, StringGrid1.Cells[ACol, ARow]);
end;
   if StringGrid1.Cells[3,Arow]='Einheit ausgerückt' then
  begin
   if gdSelected in aState then
      StringGrid1.Canvas.Brush.Color:=clSkyBlue
   else
      StringGrid1.Canvas.Brush.Color := clred;
   StringGrid1.Canvas.FillRect(aRect);
   StringGrid1.Canvas.Font.Color:=clBlack;
   StringGrid1.Canvas.TextOut(aRect.Left, aRect.Top, StringGrid1.Cells[ACol, ARow]);
 end;
end; 

[theo]

Hatten wir das nicht neulich?

Es geht auch einfacher, mit dem OnPrepareCanvas Event.

Code: Alles auswählen

procedure TForm1.StringGrid1PrepareCanvas(sender: TObject; aCol, aRow: Integer;
  aState: TGridDrawState);
var Sg: TStringGrid;
begin
    Sg:=(Sender as TStringGrid);
    if gdSelected in aState then  Sg.Canvas.Brush.Color:=clYellow;
    if (aCol=2) and (aRow=2) then
      begin
        Sg.Canvas.Brush.Color:=clGreen;
        Sg.Canvas.Font.Color:=clWhite;
      end;
end;

http://wiki.lazarus.freepascal.org/Grids_Reference_Page

[Yogi72108]

Das sieht sowieso fürchterlich aus , Du machst alles doppelt und dreichach
Hier was einfacheres:

Code: Alles auswählen

procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
  aRect: TRect; aState: TGridDrawState);
var
   c : TColor;
   s : TTextStyle;
begin
   if StringGrid1.Cells[3,Arow]='Eingang' then
      c:=clYellow
   else
      if StringGrid1.Cells[3,Arow]='In Bearbeitung' then
         c:=clFuchsia
      else
         if StringGrid1.Cells[3,Arow]='Einheit ausgerückt' then
            c:=clRed;
   if gdSelected in AState then
      c:=clSkyBlue;
   StringGrid1.Canvas.FillRect(aRect);
   StringGrid1.Canvas.Font.Color:=clBlack;
   FillChar(s,SizeOf(s),#0);
   s.Layout:=tlCenter;
   StringGrid1.Canvas.TextRect(aRect,aRect.Left, aRect.Top, StringGrid1.Cells[ACol, ARow],s);
end;

Die Verwendung von TextRect stellt sicher, daß der Text nicht über aRect hinaus dargestellt wird, es könnten sonst die Zellgrenzen des Grids überschritten werden, was nicht shön aussieht.
Die Stringvergleiche sind eventuell problematisch, da die Strings auch wirklich gleich sein müssen, ein Leerzeichen zuviel irgendwo und schon gehts schief. Überprüfe ob in StringGrid1.Cells[3,aRow] auch wirklich "Einheit ausgerückt" steht und nicht etwa sowas wie "Einheit ausgerückt "

[aldi]

Yogi72108,

auch wenn ich nervig bin, es funktioniert leider nicht! Eine Fehlermeldung bekomme ich auch nicht ?

[aldi]

Yogi72108,

die Schrift ändert sich ?? siehe "sofort ausführen MIN"

[theo]

Hallooo Aldi. Du lesen mit?

Hatte oben auch noch eine einfachere Lösung gepostet. Ist die nix für dich?

[aldi]

Hallo Theo,
erstmal vielen Dank, aber ich suche was anderes!

Möchte im StringGrid unterschiedliche Zeilen einfärben, dieses ist aber von bestimmten
Voraussetzungen abhängig!

[aldi]

So in diese Richtung