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:
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:
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