DBGRID Hintergrund einer Zelle ändern

[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;