Ich benutze seit Längerem die THTMLViewer-Komponente und seit Kurzem auch das OnProgress-Event mit einer ProgressBar.
Delphi-Quellcode:
procedure TForm4.HtmlViewer1Progress(Sender: TObject; Stage: TProgressStage; PercentDone: Integer);
begin
Caption := IntToStr(PercentDone); // Test
ProgressBar1.Position := PercentDone;
Application.ProcessMessages;
end;
Das Problem ist, dass bei größeren einzulesenen Dateien die Progressbar erst bis 30% anläuft, dann geht PercentDone bis etwa 30% oder 35% ins Minus und dann läuft die ProgressBar bis zum Ende weiter. Kennt den Bug jemand und wenn ja wie kann man den beheben?