Problem mit Skalierung eines Bitmap im BitBtn

[himitsu]

Delphi-Quellcode:

BitBtn1.Glyph.LoadFromFile('E:\MaskLight\Programm\Masken\Achsen_MKS.bmp');
BitBtn1.Glyph.Canvas.StretchDraw(Rect(0, 0, BitBtn1.Width - 10, BitBtn1.Height - 10), BitBtn1.Glyph);
BitBtn1.Glyph.Width := BitBtn1.Width - 10;
BitBtn1.Glyph.Height := BitBtn1.Height - 10;

// oder

X := BitBtn1.Width - 10;
Y := BitBtn1.Height - 10;
BitBtn1.Glyph.LoadFromFile('E:\MaskLight\Programm\Masken\Achsen_MKS.bmp');
BitBtn1.Glyph.Canvas.StretchDraw(Rect(0, 0, X, Y), BitBtn1.Glyph);
BitBtn1.Glyph.Width := X;
BitBtn1.Glyph.Height := Y;