Control in TDBGrid-Spalte zeichnen

[Stevie]

Hey Leute,

ich versuche gerade, ein Control in ein TDBGrid-Objekt zu bekommen, aber irgendwie schaff ich es nicht. Wie stell ich es an, dass in jeder Zeile einer Spalte eine ProgressBar gezeichnet wird. Sie soll den Wert, der dort im TField steht als Fortschritt anzeigen. Ich möchte auf keine andere fertige Komponente ausweichen, sondern es gerne selber (mit eurer tatkräftigen Hilfe, natürlich :wink:) schaffen!

[Stevie]

:cry: Keiner hilft mir! :wink:
Also hab ich mal selber etwas rumgebastelt:

Delphi-Quellcode:

procedure TForm1.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (Column.FieldName = 'Fortschritt') and
   not ClientDataSet.FieldByName('Thread').IsNull then
  begin
    ProgressBar.Max := ClientDataSet.FieldValues['Size'];
    ProgressBar.Position := ClientDataSet.FieldValues['Fortschritt'];
    ProgressBar.BoundsRect := Rect;
    ProgressBar.PaintTo(DBGrid.Canvas, Succ(Rect.Left), Succ(Rect.Top));
  end;
end;