ProgressBar (Update GUI)

[venice2]

Oder der Progressbar etwas zeit geben zum zeichnen.

Delphi-Quellcode:

 
Progress := trunc(100 * (Bass_ChannelGetPosition(Channel, BASS_POS_BYTE) / Bass_ChannelGetLength
  (Channel, BASS_POS_BYTE)));   
if (ProgressBar1.Position <> Progress) then
  ProgressBar1.Position := Progress;

Bei mir ist Progress die aktuelle Position im stream.
Vor allem entlastet diese abfrage die CPU doch ungemein.

Dokumentation mit und ohne vergleich