曲線の描写

解決

Nian-Ci  2012-05-26 01:25:32  No: 42333  IP: [192.*.*.*]

Image.Canvasに、曲線を書き込むにはどうすればいいですか??

編集    削除
igy  2012-05-26 04:01:56  No: 42334  IP: [192.*.*.*]

Canvas の PolyBezier メソッド はいかがですか？

編集    削除
Nian-Ci  2012-05-26 20:27:07  No: 42335  IP: [192.*.*.*]

>Canvas の PolyBezier メソッド はいかがですか？

とりあえず見つけました!!
…どうやって使いますか??(T0T)

編集    削除
TS  2012-05-26 22:41:11  No: 42336  IP: [192.*.*.*]

>とりあえず見つけました!!
何を見つけたんですか。

> …どうやって使いますか??(T0T)
どうして検索を自分でしてみないのですか。

http://www.geocities.jp/asumaroyuumaro/program/winapi/figuredraw.html

編集    削除
Nian-Ci  2012-05-27 02:05:49  No: 42337  IP: [192.*.*.*]

>何を見つけたんですか。
CanvasのPolyBezierメソッドです。

>どうして検索を自分でしてみないのですか。
説明が難しすぎるからです。
分かりやすく教えてくれますか?

TSさん、せっかく教えてくれたページ、開けませんでした。

編集    削除
igy  2012-05-27 07:04:11  No: 42338  IP: [192.*.*.*]

>TSさん、せっかく教えてくれたページ、開けませんでした。

私のところでは、IE, Firefox 両方とも、開けましたが・・・

編集    削除
Nian-Ci  2012-05-27 07:26:36  No: 42339  IP: [192.*.*.*]

すみません。
私が今居る所、日本じゃないので、制限されちゃうみたいです。

編集    削除
TS  2012-05-27 09:15:26  No: 42340  IP: [192.*.*.*]

ベジエ曲線を描くみたいです。
下記の説明が正しいかどうか知りません。私の解釈です。

procedure TForm1.Button1Click(Sender: TObject);
var
  Pt :array [0..6] of TPoint;
begin
  Pt[0] :=Point(10,90);    //始点
  Pt[1] :=Point(10,10);    //制御点１
  Pt[2] :=Point(200,10);   //制御点２
  Pt[3] :=Point(200,90);   //終点or 始点
  Pt[4] :=Point(200,170);  //制御点３
  Pt[5] :=Point(10,200{170});   //制御点４
  Pt[6] :=Point(10,90);    //終点

  Canvas.Pen.Style :=psSolid;
  PolyBezier(Form1.Canvas.Handle, // デバイスコンテキストへのハンドル
             Pt,// 端点と制御点
             7);// 上記の個数
end;

編集    削除
Nian-Ci  2012-05-28 20:20:18  No: 42341  IP: [192.*.*.*]

TSさんのを参考に、ここからは自分でやってみます!!

みなさん、ありがとうございました。

編集    削除