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

名前

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

本文 本届いたので、つまみ読みしてみました＾＾。 印刷関係と第一章が、かなり為になります。 確かに良書ですね＾＾。 特に印刷関係が、知りたかった内容がてんこもりでした＾＾。 この情報が喉から手が出るほど欲しかった^o^/！！ 値段・・・新品価格は見なかった事にしてますTT。 てっきり、値段から分厚い本と思って期待してたのですが・・・； その分貴重な内容が凝縮されてるので、満足はしてるのですが＾＾； 肝心のソースはDelphi３に対応してませんでした； 手持ちのDelphi3では対応してないみたいです； ただソースは業務では使えないと書いてあったので、DHGLは諦めますTT。 TurboDelphi2006は仕事で使ってるので； 6章のは、delphi3がDHGL未対応なので、無理そうです； フォントをBitmapに書き込んで、 Bitmapを一ラインずつ書き込み、ラインの長さを調整して、 （例えば台形みたいに）変形させる方法を探しています。 今現在失敗中の試し書きコードです。 先程他の参考書で、Pixelsを使って一ラインずつ書く方法知りました。 まだ使い方覚えてないのですが＾＾； 以下のでは的外れの方法でしょうか？ （動かないからそうなのかも＾＾；） procedure TForm1.Button1Click(Sender: TObject); var bmp1,bmp2:TBitmap; s:integer; begin s := 0; bmp1 := TBitmap.Create; bmp2 := TBitmap.Create; if not opendialog1.Execute then exit; try bmp1.LoadFromFile(opendialog1.FileName); while bmp1.Height > s do begin s := s + 1; caption := inttostr(s); bmp2.Width := bmp1.Width; bmp2.Height := 1; bmp2.Canvas.Draw(0,0,bmp1); Image2.Canvas.Draw(0, s , bmp2); Image1.Picture.Bitmap := bmp1; end; finally bmp1.free; bmp2.free; end; end;