フォントを変形させて描画するには (ID:33849)

名前

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

本文 >TSさんのコードに書き換えていたところでした。 書き換えないで下さい。 VCLImageUtils.pasは新しくなっています。 下記は私がテストした物です。 「yahooo？」さんのおかげです。 「junki」さん改めて感謝します、凄いです。 procedure TForm1.BitBtn1Click(Sender: TObject); var bmp, tmp: TBitmap; w, h: array[0..3] of integer; bkColor: TColor; begin bmp := TBitmap.Create; Bmp:=LoadJpeg(ExtractFilePath(ParamStr(0)) +'pg_shiho001.jpg'); w[0] := bmp.Width; h[0] := bmp.Height; Canvas.Draw(5, 5, bmp); bkColor := clRed; tmp := BmpClone(bmp); if Sharpen(tmp,50) then Canvas.Draw(w[1], h[0]+10, tmp); tmp := BmpClone(bmp); if Invert(tmp) then Canvas.Draw(w[1]+150, h[0]+10, tmp); tmp := BmpClone(bmp); if EdgeEnhance(tmp) then Canvas.Draw(w[1]+300, h[0]+10, tmp); tmp := BmpClone(bmp); if Rotate90(tmp, true) then Canvas.Draw(w[1]+450, h[0]+10, tmp); tmp.Free; bmp.Free; end;