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