Da der Thread erstellen nicht in der lage ist eine ordentliche Fehlerbeschreibun gzu liefrn, tue ich es mal für ohn:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.OnProgress := Image1Progress;
Image1.Picture.Bitmap.LoadFromFile('d:\test.bmp');
end;
procedure TForm1.Image1Progress(Sender: TObject; Stage: TProgressStage;
PercentDone: Byte; RedrawNow: Boolean; const R: TRect; const Msg: string);
begin
ShowMessage('');
case Stage of
psStarting: ProgressBar1.Position := 0;
psRunning:
begin
Progressbar1.Position := PercentDone;
end;
psEnding: ProgressBar1.Position := 0;
end;
end;
Man sollte meinen, dass es so funktioniert. Leider wird der EventHandler gar nicht aufgerufen. Auch bei einem 140 MB Bitmap nicht.
