TBitBtn: Bild skalieren mit BitBlt

[messie]

Moin,

ich habe gerade das Problem, dass ich ein Bild auf einem BitBtn nicht skaliert bekomme.

Code:

BM = new TImage(Form1);
BM->Picture->Bitmap = BitBtn1->Glyph;
BitBlt(BitBtn1->Handle,0,0,Floor(BM->Width/3),Floor(BM->Height/3),BM->Canvas->Handle,0,0,SRCCOPY);

Ich habe auch probiert, das TImage über stretch zu verkleinern, aber das wird ja anscheinend nur anders gezeichnet ohne es wirklich zu verkleinern.

Sieht jemand den Fehler?

Danke, Messie

P.S. gibt es nur noch Codetags für Delphi?