请问在delphi中如何实现画线宽大于1的虚线或点线？(200分)

T

tanxh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-02

• #1

如题。实现方法或控件。

谢谢！

 

H

hfghfghfg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-02

• #2

我是用一个
for 循环 做的

 

K

kouchun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-02

• #3

用Form1.Canvas.pen.Width 行不行??

 

F

flyinwuhan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-02

• #4

只能在NT系统实现，95/98/ME都是不行的

 

网

网中戏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-02

• #5

比如画5的焦点
var
I: Integer;
begin
InflateRect(R, - 5, - 5);
DrawFocusRect(DC, R);
for I := 1 to 5 do
begin
InflateRect(R, 1, 1);
DrawFocusRect(DC, R);
end;
end;