Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stevie,
3. Jun 2004
:cry: Keiner hilft mir! :wink:
Also hab ich mal selber etwas rumgebastelt:
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;
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stevie,
28. Mai 2004
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...