TImage.Picture kann ja alles laden, was als Grafik registriert wurde.
Lädt scheinbar auch asynchron, folgender Code zeigt "Load" vor der ersten Prozent-Angabe:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute() then
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
Memo1.Lines.Add('Load')
end;
procedure TForm1.Image1Progress(Sender: TObject; Stage: TProgressStage;
PercentDone: Byte; RedrawNow: Boolean; const R: TRect; const Msg: string);
begin
Memo1.Lines.Add(IntToStr(percentDone))
end;
Womit dann auch klar sein sollte, womit man das komplette Laden prüfen kann.
OnProgress scheint aber nicht bei allen Grafiktypen aufgerufen zu werden. Auch je nach Typ anders (GIF fast schon mehrmals pro 1%, JPG bei 0% und bei 100%, BMP scheinbar überhaupt nicht, nicht einmal bei 100%
)