Datensätze im DBGrid farbig hinterlegen!

[eddy]

Hallo LuckyStrike4life,

nachfolgender Code wird von mir in ähnlicher Form genutzt und funktioniert:

Code:

{
In einem DBGrid soll die Hintergrund- und Schriftfarbe in den Zeilen in Abhängigkeit eines Zellwertes unter Nutzung von OnDrawColumnCell geändert. 

Beispiel: 

wenn Feldx den Text 'SUMME' enthält, dann zeichne diese Zeile mit gelber Schrift auf blauen Grund, wenn diese Zeile aber die aktuelle ist, dann verwende die Standardfarben
}
 
procedure TFAuf.dbg32DrawColumnCell(Sender: TObject; const Rect: TRect; 
  DataCol: Integer; Column: TColumn; State: TGridDrawState); 
const 
  parr : array[0..2] of string =(cRAB, cZSM, cA); 
var 
  s : string; 
begin 
  // die zelle ist markiert und/oder selektiert 
  // dann sollen die Standard-Farben verwendet werden (weiß auf navy) 
  if (gdSelected in State) or (gdFocused in State) then exit; 

  { ansonsten soll die Farbe in Abhängigkeit eines Strings der    
    angezeigten Datenbank geändert werden 
    Hinweis: die Farben sind hier nur zu Testzwecken ohne Rücksicht 
             darauf, ob sie zueinander passen, frei gewählt worden} 
  s := TabPP.FieldByName('PosArt').AsString; 
  // Number of String - ermöglicht case-Auswertung von Strings 
  // -1, wenn s nicht in Array vorhanden ist sonst 0 für's Erste, usw. 
  case NofStr(s, parr) of 
     0:  begin 
           dbg32.Canvas.Brush.Color := clBlue; 
           dbg32.Canvas.Font.Color := clYellow; 
         end; 
     1:  begin 
           dbg32.Canvas.Brush.Color := clRed; 
           dbg32.Canvas.Font.Color := clAqua; 
         end; 
     2:  if TabPP.FieldByName('SummenKopf').AsBoolean then begin 
           dbg32.Canvas.Brush.Color := clGreen; 
         end; 
   end; 
  dbg32.DefaultDrawColumnCell(Rect, DataCol, Column, State); 
end; 

{liefert 0 ... n zurück, wenn s in sarr gefunden wurde, -1, wenn nicht}
function NofStr( s : string; sarr : array of string) : integer;
var
  erg, i : integer;
begin
  erg := -1;
  s := uppercase(s);
  for i := 0 to high(sarr) do begin
    if s = uppercase(sarr[i]) then begin
      erg := i;
      break;
    end;
  end;
  Result := erg;
end;

Wie Du die Auswahl triffst, welche Zeile wie gefärbt werden soll, bleibt Deinen Kriterien überlassen. Ich greife auf eine Colortabelle zu, die der Anwender nach seinen Wünschen definieren kann.

mfg
eddy