TBitmapをStretchで描画するには (ID:9312)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 レスさんと同じですが例を示します。 public bmp:TBitmap; end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin bmp := TBitmap.Create; bmp.LoadFromFile('C:\Test.bmp') end; procedure TForm1.FormDestroy(Sender: TObject); begin bmp.Free; end; procedure StretchBMP(bmp:TBitmap;Ratio:Single); var tempBMP:TBitmap; begin tempBMP := TBitmap.Create; try tempBMP.Assign(bmp); bmp.Width := Round(tempBMP.Width*Ratio); bmp.Height := Round(tempBMP.Height*Ratio); bmp.Canvas.StretchDraw(Rect(0,0,bmp.Width,bmp.Height),tempBMP); finally tempBMP.Free; end; end; procedure TForm1.Button1Click(Sender: TObject); begin StretchBMP(bmp,1.5); Canvas.Draw(10,10,bmp); end;