hallo,
aber wie muß ich den code umschreiben :
Delphi-Quellcode:
s := uppercase(query1.FieldByName('P').AsString);
if s = 'P1' then begin
dbgrid1.Canvas.Font.Color := $000000DF;
else if s = 'P2' then begin
dbgrid1.Canvas.Font.Color := clblack;
end;
// falls weder P1 noch P2, dann bleibt die Zeile wie Standard
dbgrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
hab keine ahnung ???
mfg vader