Hallo,
ich schlage mich schon die ganze Zeit mit den API-Befehlen rum und komme nicht weiter!
ich habe zwei timage-komponenten!
in der einen ist ein jpg-bild, welches ich, zunächst mal in die andere kopieren wollte!
hier mein versuch:
<pre>
procedure TForm1.Button1Click(Sender: TObject);
var
VBitmap : TBitmap;
begin
VBitmap := TBitmap.Create;
VBitmap.Assign(imageq.Picture.Graphic);
ImageQ.Picture.Bitmap.Assign(VBitmap);
VBitmap.free;
//ImageZ.Picture.Bitmap.Assign(ImageQ.Picture.Bitmap );
bitblt(imagez.Picture.Bitmap.Canvas.Handle, //handle vom ziel
0,//Linke obere ecke vom Ziel
0,//Linke obere ecke vom Ziel
imagez.width,//Zielbreite
imagez.Height,//Zielhöhe
imageq.Picture.Bitmap.Canvas.Handle,//Handle von der Quelle
0,//Linke obere ecke von der Quelle
0,//Linke obere ecke von der Quelle
SRCCOPY);//Operation
end;
</pre>
was mache ich verkehrt?
Gruß
Markus
ich schlage mich schon die ganze Zeit mit den API-Befehlen rum und komme nicht weiter!
ich habe zwei timage-komponenten!
in der einen ist ein jpg-bild, welches ich, zunächst mal in die andere kopieren wollte!
hier mein versuch:
<pre>
procedure TForm1.Button1Click(Sender: TObject);
var
VBitmap : TBitmap;
begin
VBitmap := TBitmap.Create;
VBitmap.Assign(imageq.Picture.Graphic);
ImageQ.Picture.Bitmap.Assign(VBitmap);
VBitmap.free;
//ImageZ.Picture.Bitmap.Assign(ImageQ.Picture.Bitmap );
bitblt(imagez.Picture.Bitmap.Canvas.Handle, //handle vom ziel
0,//Linke obere ecke vom Ziel
0,//Linke obere ecke vom Ziel
imagez.width,//Zielbreite
imagez.Height,//Zielhöhe
imageq.Picture.Bitmap.Canvas.Handle,//Handle von der Quelle
0,//Linke obere ecke von der Quelle
0,//Linke obere ecke von der Quelle
SRCCOPY);//Operation
end;
</pre>
was mache ich verkehrt?
Gruß
Markus
Comment