Forum: Datenbanken
Delphi
by Vader,
27. Apr 2006
herzlichen dank !
mfg vader
Forum: Datenbanken
Delphi
by Vader,
27. Apr 2006
hallo,
aber wie muß ich den code umschreiben :
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
Forum: Datenbanken
Delphi
by Vader,
27. Apr 2006
hallo,
habe da einen code der wenn in dem tabellenfeld der string "P1" steht, dann wird
in dieser DBGridzeile die schriftfarbe auf rot gesetzt.
procedure TForm2.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
s : string;