Delphi-PRAXiS - Delphi Copyrect geht nicht

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Multimedia (https://www.delphipraxis.net/16-multimedia/)

- - Delphi Copyrect geht nicht (https://www.delphipraxis.net/35034-copyrect-geht-nicht.html)

Copyrect geht nicht

Hi,

warum geht das nicht? Img2 bleibt leer:

Delphi-Quellcode:

			img := TBitmap.create; 

img.loadfromfile('c:\xmas.bmp'); 

img2 := TBitmap.create; 

myrect := rect(0, 0, 80, 80); 

myrect2 := rect(0, 0, 80, 80); 

img2.canvas.copyrect(myrect, img.Canvas, myrect2); 

mybutton.Glyph := img2; 

img.Free;

Ich will einen Teil von img in img2 kopieren.

MFG Chris.

Re: Copyrect geht nicht

Moin!

Ganz einfach, weil img2 keine Höhe und Weite hat - und daher 0x0 Pixel gross ist. Du musst die Grösse des Bitmaps vorher festlegen, CopyRect() oder andere Funktionen kümmern sich nicht darum...

Delphi-Quellcode:

			img := TBitmap.create;

img.loadfromfile('c:\xmas.bmp');

img2 := TBitmap.create;

img2.Width := 81;

img2.Height := 81;

myrect := rect(0, 0, 80, 80);

myrect2 := rect(0, 0, 80, 80);

img2.canvas.copyrect(myrect, img.Canvas, myrect2);

mybutton.Glyph := img2;

img.Free;

MfG
Muetze1