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?

[Bummi]

Delphi-Quellcode:

var
  bmp:TBitmap;
begin
  bmp:=TBitmap.Create;
  bmp.Width :=trunc(BitBtn1.Glyph.Width/3);
  bmp.Height := Trunc(BitBtn1.Glyph.Height/3);
  BitBlt(bmp.Canvas.Handle,0,0,bmp.Width,bmp.Height,BitBtn1.Glyph.Canvas.Handle,0,0,SRCCOPY);
  BitBtn1.Glyph.Assign(bmp);
  bmp.Free;
end;

und die Tags
'['delphi']'

[Neutral General]

Es gibt übrigens auch noch die Funktion StretchBlt. Die ist da wohl eventuell etwas geeigneter ;)

[messie]

Zitat:

Zitat von Neutral General (Beitrag 1060675)

Es gibt übrigens auch noch die Funktion StretchBlt. Die ist da wohl eventuell etwas geeigneter ;)

Hmm, trotzdem bekomme ich hinterher kein Bild, also es geht irgendwo verloren :?

Code:

Graphics::TBitmap *BM;
      BM = new Graphics::TBitmap;

      StretchBlt(BM->Canvas->Handle,0,0,Floor(sBitBtn1->Glyph->Width/3),Floor(sBitBtn1->Glyph->Height/3),sBitBtn1->Glyph->Handle,0,0,sBitBtn1->Width,sBitBtn1->Height,SRCCOPY);
      sBitBtn1->Glyph->Assign(BM);

Grüße, Messie

[Neutral General]

Müsste es nicht sBitBtn1->Glyph->Canvas->Handle heißen?

Außerdem solltest du die Größe von BM vorher auf die gewünschte Größe setzen.

[messie]

Zitat:

Zitat von Neutral General (Beitrag 1060696)

Müsste es nicht sBitBtn1->Glyph->Canvas->Handle heißen?

Außerdem solltest du die Größe von BM vorher auf die gewünschte Größe setzen.

Danke, das hatte ich eigentlich von der function erwartet. Immerhin kommt jetzt etwas, das hat aber das falsche Format. Sieht so aus, als würde mein 64px-Bitmap von dem Button gestreckt.

Edit: klar, wenn man statt glyph->width BitBtn->Width angibt


Grüße, Messie