Überprüfen ob Bild geladen wurde

[Satty67]

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% )