Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by freaggle,
23. Okt 2003
peinlich, hat sich erledigt:
procedure TfrmQuali.grdQLeistungenDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var farbe : tcolor;
begin
with (Sender as TDBGrid), Canvas do begin
farbe := clwindow;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by freaggle,
23. Okt 2003
procedure TfrmQuali.grdQLeistungenDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var farbe : tcolor;
begin
with (Sender as TDBGrid), Canvas do begin
farbe := clwindow;
if dmContainer.sqlQualiL.FieldByName('qs_status').AsString = 'E' then farbe := clwindow;
if...