Hej
Da jeg aldrig har arbejde med ProgressBar, så vil gerne om der var en', der kunne hjælpe med, hvordan coden skal laves, så den visser den tid der går med at download. F.eks med en Timer.
Som det er nu gør Label1 dette.
Label1.Caption := 'Estimated time left: '+ EstimatedTime;
procedure TfmOpdaterHistorir.IEDownload1Progress(Sender: TBSCB; ulProgress,
ulProgressMax, ulStatusCode: Cardinal; szStatusText: PWideChar;
ElapsedTime, Speed, EstimatedTime: string);
var
s: string;
begin
s := BindstatusText(ulStatusCode);
if ulStatusCode = BINDSTATUS_DOWNLOADINGDATA then
s := S + ' (' + InttoStr(ulProgress) + '/' + InttoStr(ulProgressMax) + ')';
memo1.lines.add(s);
Label1.Caption := 'Estimated time left: '+ EstimatedTime;
ProgressBar // Hvordan sættes den til, at vise i stedet for Label1 ?
end;
Med venlig hilsen Og godt nytår.
Monie Jacobsen
energy@sunwind.dk