|
Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: TBitBtn: Bild skalieren mit BitBlt
9. Nov 2010, 19:37
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']'
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|
|
|
Zitat
|