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

名前

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

本文 >VCLImageUtilsはエラーは消えたものの、 >本文でもPingimage関連のコマンドがあり、 >それも消していったところ、 >エラーは消えたのですが、機能不十分で実行出来ませんでした^^; 失礼しました、簡単に考えてfunction LoadPngを削除しました。 これはPng専用だと思ったのですが、他は自分でロードして下さい と言うことみたいです、サンプルをそのまま試そうと思うと この関数が使用されていたので、これが無いと面白くなかった見たいです。 サンプルのpng形式は駄目ですが、JPG形式で試してみました。 サンプル'img06.png'を適当なJpgファイルに代えて使用して下さい。 img06.png -> ????.jpg uses の PngImage を jpeg に変更 SPIsを使用されれば他の形式のファイルも使えると思います。 これも十分には検証していません、取りあえず下記でJPGファイル で確認しました、関数の名前は変えた方が良いでしょうが取りあえず、 ここまで。 function LoadPng(bmp: TBitmap; filename: string): Boolean; var //png: TPngObject; bmp1:TBitMap; Jpeg:TJpegImage; begin //png := TPngObject.Create; bmp1:=TBitMap.Create; Jpeg :=TJpegImage.Create ; try try //png.LoadFromFile(filename); Jpeg.LoadFromFile(filename); bmp1.Assign(Jpeg); bmp1.PixelFormat := pf24bit; //bmp.Assign(png); bmp.Assign(Bmp1); result := true; except result := false; end; finally //png.Free; Bmp1.Free; Jpeg.Free; end; end;