Einzelnen Beitrag anzeigen

messie

Registriert seit: 2. Mär 2005
Ort: Göttingen
1.592 Beiträge
 
Delphi 2009 Professional
 
#1

TBitBtn: Bild skalieren mit BitBlt

  Alt 9. Nov 2010, 19:21
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?

Geändert von messie ( 9. Nov 2010 um 20:06 Uhr)
  Mit Zitat antworten Zitat