蚂蚁线,该如何解决

蚂蚁线
用蚂蚁线画一个‘田’字
怎么弄呢？
高人指点下

[解决办法]
你就死心吧，没人会告诉你的
[解决办法]

Delphi(Pascal) code

var a:byte; procedure c(X,Y:Integer;t:TCanvas);stdcall; begin  a:=a shl 1;  if a =0 then a:=1;  if (a and 224)>0 then    t.Pixels[X,Y]:=clWhite  else    t.Pixels[X,Y]:=clBlack; end; procedure TForm1.Timer1Timer(Sender: TObject);begin  LineDDA(10,10,100,10,@c,LongInt(Canvas));  ////etc...///end;
[解决办法]
探讨

不知道什么是蚂蚁线,但是用线画田字,用convas中的pen就可以了,
lineto(x,y)//定义原点
moveto(x1,y1)//从x,y画一条线到x1,y1

[解决办法]
如果蚂蚁线就是虚线框，那应该很好画啊
[解决办法]
设一下线的风格，然后画就可以了