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

[BlueLiquidCell]

Hey

Jip kann es wenn man die uses "jpeg" benutzt gehts.
Hab Delphi 2005.

Christoph

[Bummi]

Laut Onlinehilfe:

Zitat:

Ist IncrementalDisplay false , tritt OnProgress zwar ein, aber die Grafik wird erst aktualisiert, wenn das gesamte Grafik geladen wurde.

[BlueLiquidCell]

Hey

Thanks Satty67, OnProgress funktioniert!

Allerdings ist da nochn kleines Problem. Anscheinend wird es nicht immer aufgerufen, weis nicht genau woran es liegt. Ne Idee?

Incremental Display hab ich ma auf true gemacht, ändert aber an dem anderen Problem leider nichts

[BlueLiquidCell]

Ok habs rausgekriegt.
Problem war das das Image invisible war. Da wird die OnProgress wohl nicht aufgerufen.

Kann man das irgendie machen das dass trotzdem geht?
Würds gerne auf invisible haben bis es fertig geladen ist.

THX

[BlueLiquidCell]

Keiner ne idee??

[DeddyH]

Kannst Du evtl. ein anderes Control drüberlegen und das Image nach dem Laden mit BringToFront nach vorne holen?

[BlueLiquidCell]

Hey
Hab das mit nem anderen Control mal versucht aber irgendwie geht es nicht.
Jedesmal wenn die beiden nebeneinander liegen gehts. Aber sobald sie übereinander liegen gehts nicht mehr
Nen Tipp?

[BlueLiquidCell]

Keiner noch ne andere Idee?