首页 相关文章 LineDDA的一个例子

LineDDA的一个例子

unit Unit1;

  

  interface

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

  type
   TfmMain = class(TForm)
   procedure FormPaint(Sender: TObject);
   end;

  var
   fmMain: TfmMain;
   A: Byte;

  implementation

  uses math;
  {$R *.dfm}

  
  procedure c(X,Y:Integer; ACanvas:TCanvas);stdcall;
  begin
   Inc(A,2);
   ACanvas.Pen.Width := 5;
   if Odd(A mod 31) then
   ...[ 查看全文 ]

2016-02-19 标签:

LineDDA的一个例子的相关文章

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