Hallo Community Member
Ich stehe schon seit längerem an. Habe schon die ganze suche durchsucht habe auch was gefunden aber ich komme leider nicht weiter.
Es soll wenn in der liefer tabelle unter bestellstatus das wort erledigt vorkommen so soll er mir in der DBGrid wo das angezeigt wird die Zelle grün färben.
Komme da leider nicht mehr weiter.
Hätte es schon so probiert aber da kommt nichts.
Delphi-Quellcode:
procedure Tunitliefer_bestell.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
const
parr : array[0..2] of string =();
var
s : string;
begin
s := uppercase(ZTable1.FieldByName('bearbeitungsstatus').AsString);
if s = 'erledigt' then begin
dbgrid1.Canvas.Brush.Color := clblue;
Canvas.FillRect(Rect);
end;
dbgrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
Vielleicht kann mir ja wer helfen.
LG StoRmtec