首页 相关文章 Window画图程序中画曲线的简单实现

Window画图程序中画曲线的简单实现

  下面是很入以前的一个程序,模仿Windows的画图程序中画曲线.其实原理简单得要命 ,就是一个PolyBezier函数.
  那一位有兴趣的可以封装成一个类,方便以后用.
  unit Unit1;

  interface

  uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls;

  type
   TStep=(sStartEnd,sCtrl1,sCtrl2);
   TForm1 = class(TForm)
   Button1: TButton;
   procedure FormCreate(Sender: TObject);
   procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
   procedure Form...[ 查看全文 ]

2016-02-19 标签:

Window画图程序中画曲线的简单实现的相关文章

手机页面
收藏网站 回到头部