画像拡大時のタイルを円滑化 (ID:40797)

名前

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

本文 GDI+のライブラリとして http://www.progdigy.com/?page_id=7 を使用したコードです． Delphi 6 Pro + Windows XP(SP3) で動作確認しました． パーソナル版を使用していると，VCL関係のソースコードが付いていませんが， このGDI+のライブラリにはソースコードが付いています． ソースコードの，DrawImageのところを見ると， 「DrawImageって関数はいくつもあって，いろいろな引数が使えるんだ」 ということが分かります．引数の名前や型から，おおよその動作を知ることもできます． ソースコードの存在は強力です．活用するといいと思います． また，このGDI+ライブラリには，デモプログラムがあります．このようなデモプログラムを 実際にコンパイルして動作させるみると，いろいろなことが見えてきます． 手間はかかりますが，「急がば回れ」ということもあります． せっかく作者が作成したデモプログラムですので，これも活用するといいと思います． implementation uses GDIPAPI, GDIPOBJ; procedure TForm1.Button3Click(Sender: TObject); var GPGraphics : TGPGraphics; bmp : TGPBitmap; DestRect : TGPRect; begin GPgraphics := TGPGraphics.Create(Image1.Canvas.Handle); bmp := TGPBitmap.Create('002.JPG'); DestRect := MakeRect(0, 0, 800, 800); try //bmpのRect(50, 30, 100, 100)の範囲をDestRectに描画 GPGraphics.DrawImage(bmp, DestRect, 250 ,230, 400, 400, UnitPixel); finally GPGraphics.Free; bmp.Free; end; end;