Moin Gemeinde!

Ich habe hier ein Problemchen mit GDI + (ich nutze die ansonsten vorzügliche GDIplus Library von Erik van Bilsen).
Ich lade und zeige eine Grafik mit:

markieren

Delphi-Quellcode:

Image := TGPImage.Create(Filename);
Graphics := TGPGraphics.Create(Main_Form.MainImage.Canvas.Handle);
Graphics.DrawImage(Image, 0, 0, Image.Width, Image.Height);

Das klappt auch sofort prima. Nun male ich zwei Rechtecke auf eben diese Grafik mit:

markieren

Delphi-Quellcode:

Graphics.DrawRectangle(GreenPen, ...);
Graphics.DrawRectangle(BlackPen, ...);

Diese beiden Rechtecke werden aber erst beim zweiten Aufruf der selben Procedure sichtbar. Beim rersten Aufruf ist immer nur die geladene Grafik zu sehen.
Fehlt hier irgendwas wie ein "Refresh" oder etwas Vergleichbares. (Bin neu im GDIplus Geschäft)

Wenn da vielleicht jemand eine Idee hätte?

Gruß
Jazzman

Da dies nur im Speicher passiert musst Du nach änderungen immer Paint oder Refresh aufrufen, damit Deine VCL auch aktuallisiert wird.

Entweder musst Du Deine MainForm refreshen oder Graphics.Refresh aufrufen.

Gruss alfold

Hallo!

Zitat von alfold:

Da dies nur im Speicher passiert musst Du nach änderungen immer Paint oder Refresh aufrufen, damit Deine VCL auch aktuallisiert wird.

Entweder musst Du Deine MainForm refreshen oder Graphics.Refresh aufrufen.

Gruss alfold

Hmm, das funktioniert so leider nicht.
Also direkt nach dem Graphics.DrawRectangle(GreenPen, ...); rufe ich:

markieren

Delphi-Quellcode:

  Main_Form.MainImage.Refresh;
  Main_Form.MainImage.Update;
  Main_Form.MainImage.Invalidate;

Kein Unterschied: die Dinger werden erst nach dem zweiten Aufruf sichtbar.

Ein:
Graphics.Refresh Gibt es leider nicht. Das GDIplus (zumindest das von Erik van Bilsen) schitn das nicht zu haben.

Hmmm...

Danke & Gruß
Jazzman

Was ist MainImage für eine Komponente?
Ansonsten Main_Form.refresh.

Gruss alfold

Zitat von alfold:

Was ist MainImage für eine Komponente?
Ansonsten Main_Form.refresh.

MainImage := TImage;

Ich habe jetzt mal mit der Stelle rumgespielt, an der ich das Graphics erzeuge, und siehe da, wenn ich es folgendermaßen mache, wird auch beim ersten Aufruf schon korrekt gezeichent:

markieren

Delphi-Quellcode:

  Graphics := TGPGraphics.Create(Main_Form.MainImage.Canvas.Handle);
  Graphics.DrawRectangle(GreenPen, ...);
  Graphics.DrawRectangle(BlackPen, ...);
  Graphics.DrawImage(Image, 0, 0, Image.Width, Image.Height);

Wenn ich higegen:

markieren

Delphi-Quellcode:

  Graphics := TGPGraphics.Create(Main_Form.MainImage.Canvas.Handle);
  ... // Hier anderes Coding
  Graphics.DrawRectangle(GreenPen, ...);
  Graphics.DrawRectangle(BlackPen, ...);
  Graphics.DrawImage(Image, 0, 0, Image.Width, Image.Height);

dann wird erst beim zweiten Mal korrekt gekennzeichnet.

Merkwürdig -- aber es tut's erstmal.

Vielen Dank für das Zuhören

Gruß
Jazzman

Na schön, dann sollte man evtl nicht nur 3Zeiler schreiben und den Rest verschweigen

Gruss

Zitat von alfold:

Na schön, dann sollte man evtl nicht nur 3Zeiler schreiben und den Rest verschweigen

Gruss

Ja, tatsächlich habe ich den eigentlich Unterschied in meinem Vorgehen verschwiegen und damit zur Verwirrung beigetragen.
Aber meine 'workaround' erklärt ja auch nichts so richtig, oder?

Jazzman