Hi...
Der Source für die Statusbar war so schon richtig...:
Delphi-Quellcode:
procedure Tbg3.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
ProgressBar1.Max := AWorkCountMax;
end;
procedure Tbg3.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
ProgressBar1.Position := AWorkCount;
end;
procedure Tbg3.IdFTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
ProgressBar1.Position := 0;
end;
Hast du denn auch bei deinem idFTP1 die Ereignisse OnWorkBegin, OnWork und OnWorkEnd verlinkt?
Und ist das idAntiFreeze auch Aktiv?