Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Bitmap in die PaintBox (https://www.delphipraxis.net/37778-bitmap-die-paintbox.html)

Chuqa 10. Jan 2005 13:56


Bitmap in die PaintBox
 
Hallo allerseits,

ich hänge grad an einem bestimmt total simplen Problem, aber ich bekomm es einfach nicht hin.

Und zwar hab ich auf dem einem Formular eine TImage-Komponente, in die ein Bild geladen wird.

Nun möchte ich dieses Bild zum Bearbeiten in eine Paintbox-Komponente auf einem anderen Formular laden. Allerdings funktioniert das nicht wie gewollt. Mit dem Code
Code:
Form2.PaintBox1.Canvas.Draw(0,0,Form1.Image1.Picture.Bitmap);
scheitern das Ganze. Weshalb?

Mit freundlichen Grüßen

Chuqa

Chuqa 10. Jan 2005 14:00

Re: Bitmap in die PaintBox
 
Ok sorry, Kommando zurück. War echt n dummer Fehler. Hab mir das Formular erst nach dem Laden anzeigen lassen. Mit dem Anzeigen und dann laden, klappt es wunderbar :wink:

tommie-lie 10. Jan 2005 14:00

Re: Bitmap in die PaintBox
 
Zitat:

Zitat von Chuqa
Mit dem Code
Code:
Form2.PaintBox1.Canvas.Draw(0,0,Form1.Image1.Picture.Bitmap);
scheitern das Ganze. Weshalb?

Hmm... dafür kann es eigentlich nur einen einzigen Grund geben: Du hast uns die Fehlermeldung oder sonstige Symptome nicht genannt.

Edit: Mist, jetzt kommen auch noch die Belehrungen zu spät :-/

Chuqa 10. Jan 2005 14:04

Re: Bitmap in die PaintBox
 
Gab ja halt keine Fehlermeldung, das Fenster blieb einfach nur leer.
Aber es hat sich ja jetzt erledigt. Trotzdem Danke.

Gruß Chuqa

Chuqa 10. Jan 2005 14:51

Re: Bitmap in die PaintBox
 
Hab doch noch ein Problem.
und zwar: Wie bekomm ich das Bild von der Paintbox wieder zurüch in die Image-Komponente. Mit
Code:
Form1.Image1.Picture.Bitmap.Assign(Form2.PaintBox1.canvas);
geht es nicht.
Bekomme dann eine Exception der Klasse EConvertError. TControlCanvas kann nicht zu TBitmap zugewiesen werden.

Gruß Chuqa

Chuqa 10. Jan 2005 15:16

Re: Bitmap in die PaintBox
 
Ok auch das Problem hat sich grad erledigt. hab es mit
Code:
BitBlt(Form1.Image1.Picture.Bitmap.Canvas.Handle,0,0,Form2.PaintBox1.Width,
       Form2.PaintBox1.Height,Form2.PaintBox1.Canvas.Handle,0,0,SRCCOPY);
gemacht :mrgreen:

Gruß Chuqa


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:37 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz