LineDDA的一个例子
2004-12-20 16:34
405 查看
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
ACanvas.Pen.Color := clWhite
else
ACanvas.Pen.Color := clBlack;
ACanvas.MoveTo(x,y);
ACanvas.LineTo(x,y);
end;
procedure TfmMain.FormPaint(Sender: TObject);
begin
LineDDA(0,20,width,20,@c,LongInt(Canvas));
LineDDA(0,0,width,Height,@c,LongInt(Canvas));
end;
end.
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
ACanvas.Pen.Color := clWhite
else
ACanvas.Pen.Color := clBlack;
ACanvas.MoveTo(x,y);
ACanvas.LineTo(x,y);
end;
procedure TfmMain.FormPaint(Sender: TObject);
begin
LineDDA(0,20,width,20,@c,LongInt(Canvas));
LineDDA(0,0,width,Height,@c,LongInt(Canvas));
end;
end.
相关文章推荐
- 关于AJAX一个简单的例子
- duilib DirectUI库里面的一个简单的例子ListDemo
- Github入门(三)实现一个小例子
- 一个简单的DWR入门例子
- HttpClient例子一个返回html一个返回字符流
- jdbc框架 commons-dbutils+google guice+servlet 实现一个例子
- js面向对象写法,一个小例子
- 用UIPicker做一个类似省市联动选择的例子
- 一个简单的安卓+Servlet图片上传例子
- ios学习笔记block回调的应用(一个简单的例子)
- Revit API 开发 (3): 一个使用过滤器(filter)的例子
- [转帖]一个LDAP应用的例子,在Sun ONE Directory Server 5.2
- 一个简单的javascript类定义例子
- 一个简单的三层架构例子(.NET入门)
- 一个最简单的dubbo例子实现
- 我的Firefox插件开发之旅(4)——XULRunner的一个例子(转载)
- 5.20 一个混合算法与面向对象思想的例子
- 用程序把word模板中的一个表格复制为多个表格然后填充数据(工资单的例子)
- 使用JavaBean创建您的网上日历本 有的朋友曾经说过,如果有一个网上的日记本,或者一个网上的万年历能提醒自己到时去干什么事情就好了。其实呀,这样的日历本您自己也能做一个。不信你看下面的例子: 〈
- 使用JSP + JAVABEAN + XML 开发的一个例子