Copyrect geht nicht

[MasterC]

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.

[Muetze1]

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