einfärben einer zeile eines dbgrids

[stonimahoni]

hallo und guten morgen

@ jensw_2000 :
danke für deine antwort aber das bringt mich nicht wirklich weiter
so habe ich das auch schon hinbekommen - auch wenn ich das mit der farbzuweisung ez nicht unbedingt schon bei der select abfragte mache

aber wie gesagt : bei multiselect klappt das noch nicht so und vor allem möchte ich die ganze zeile dann andersfarbig haben und wenns geht auch dann vielleicht - je nach farbe bei auswahl - die schrift nicht in weiss sondern schwarz oder so haben.

werde mal weiter ausprobieren aber bin für vorschläge jeder art offen


ich hatte meins bisher so realisiert :

Delphi-Quellcode:

   with (Sender as TDBGrid) do
   begin
     //if (gdSelected in State) then
     //begin
     //   Canvas.Brush.Color := clred; // Farbe für die Zelle mit dem Focus
     //end
     //else
     //begin
      if doubleclick = false then
      begin
         //  Mahnung an Kunde
         if (DataSourceAuftrStat.DataSet.FieldByName('Rep_zurueck_datum').Value <> NULL) then
         begin
           Canvas.Brush.Color := clYellow;
         end;
         //  zweite KD Mahnung
         if (DataSourceAuftrStat.DataSet.FieldByName('Rep_zurueck_datum').Value = NULL) and (DataSourceAuftrStat.DataSet.FieldByName('Kudienst_mahn1').Value <> NULL) then
         begin
            Canvas.Brush.Color := clSkyBlue;
         end;
         //  erste KD Mahnung
         if (DataSourceAuftrStat.DataSet.FieldByName('Rep_zurueck_datum').Value = NULL) and (DataSourceAuftrStat.DataSet.FieldByName('Kudienst_mahn1').Value = NULL)then
         begin
           Canvas.Brush.Color := clMoneyGreen;
         end;
      end;
      Canvas.FillRect(Rect);       //Hintergrundfarbe zeichnen
      Canvas.TextOut(Rect.Left + 2, Rect.Top + 1, Column.Field.AsString); //Den Text in der Zelle ausgeben
      DBGridAuftrStatListe.Enabled := true;
     end;

mfg

stoni