フォントを変形させて描画するには (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;

←解決時は質問者本人がここをチェックしてください。

戻る