Fortschritt in Gauge anzeigen

[quakergod]

hi!

hab mittels IEDownload Komponente ein Download Programm 'gemacht' ^^

Delphi-Quellcode:

procedure TForm1.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 ;

  Label1.Caption := 'Verbleibend: '+ EstimatedTime;
  Label2.Caption := 'Geladen: '+ InttoStr(ulProgress) + ' / ' + InttoStr(ulProgressMax) + '';
  Label3.Caption := 'Geschwindigkeit: '+ Speed;
  Label4.Caption := 'Abgelaufen: '+ ElapsedTime;
  Label6.Caption := 'Status: '+ BindstatusText(ulStatusCode);
end;

was jetzt noch fehlt wäre eine Fortschrittsanzeuige (Gauge) !
Ich weiss nicht genau wie ich das mit den Werten ulProgress und ulProgressMax machen soll.. :oops:


EDIT: Habs hingekriegt !!! :firejump: :hello:

Delphi-Quellcode:

Form1.Gauge1.Progress := MulDiv(ulProgress,100,ulProgressMax);