DBGRID Hintergrund einer Zelle ändern

[Berserker]

Hallo Delphi-Geminde.

Ich habe mal ein Anliegen zum DBGRID.
Ich habe eine Funktion, welche mit immer eine Zeile komplett einfärbt.
Nun möchte ich aber z.B. wenn ein Datensatz in einem Feld ACTIVE den Wert 1 hat, im DBGRid das angezeigte Feld Preis mit Gelben Hintergrund einfärben. Eine komplette Zeile Färben geht. Nur das eine Feld habe ich bis jetzt nicht hinbekommen.

Kann mir jemand weiterhelfen?

Viele Grüße Ronny

[Berserker]

Hallo nochmal.

Problem ist gelöst.

[Sharky]

Hai Berseker,

guckst Du:

Delphi-Quellcode:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (Column.Field.FullName = 'ACTIVE') then
  begin
    if (Column.Field.AsInteger = 1) then
    begin
      DBGrid1.Canvas.Brush.Color := clYellow;
    end;
  end;
  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State)
end;

Zu langsam

[Berserker]

Hoi.

Was ich gesucht habe ist in Prinzip das, nur das die Spalte, welche das Feld ACTIVE enthält nicht im Grid ist.

Delphi-Quellcode:

procedure Tmainform.grdARTIKELDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);

begin
 if (gdSelected in State) or (gdFocused in State) then exit;
 with sender as TDBGrid do begin
  if(tblARTIKEL.FieldByName('flagACTIVE').AsInteger=1) then begin
   if(column.fieldname='preis') then begin
    canvas.Font.Color := clBlack;
    canvas.Brush.Color := clYellow;
    canvas.fillrect (rect);
   end;
  end;
 end;
 grdARTIKEL.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;