如何画我所需要的线？详情请进...(200分)

M

manmanchong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-14

• #1

传统的线的样式只有psSolid,psDash等7种，我现在想要用指定的图片来画线(就象
mapinfo的用指定线型来画线,线的样式可以各种各样)，画水平直线的时候好处理，
关键是任意倾斜的时候没有办法处理，曲线、弧线就更不可以了！希望各位大侠帮帮忙！

 

S

smallsun007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-14

• #2

gz

 

B

boye

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-14

• #3

太麻烦,用第三方控件好了!

 

D

dxpjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-14

• #4

举个例子
form1.Canvas.MoveTo(20,20);
form1.Canvas.LineTo(100,100);

 

M

manmanchong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-16

• #5

高手都来帮帮忙啊！
是不是应该设计到一个线型库啊？？

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-16

• #6

我记得答过一次了呀。

procedure TForm1.Button1Click(Sender: TObject);
VAR
Pen, Old: HPEN;
MyLogBrush: LOGBRUSH;
begin


MyLogBrush.lbStyle:=BS_Pattern;
MyLogBrush.lbColor:=DIB_RGB_COLORS;
MyLogBrush.lbHatch:=Image1.Picture.Bitmap.Handle;

Pen := ExtCreatePen(PS_GEOMETRIC or 0 or PS_SOLID or PS_JOIN_BEVEL,
5,MyLogBrush,0,nil);
Old := SelectObject(Canvas.Handle, Pen);
Canvas.MoveTo(0, 0);
Canvas.LineTo(50, 50);
DeleteObject(SelectObject(Canvas.Handle, Old));

end;


倾斜、曲线，根据线的角度旋转画布？没试过。

 

M

manmanchong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-16

• #7

to zw84611:
我开了2贴，你在另一贴中回复过，谢谢你先！
照你这样的做法只能画水平线时才有作用，一旦线是倾斜得或者曲线就根本画不了，
因为创建得画笔得图象是水平得。画笔图象不会随着线得弯曲而弯曲啊！

 

M

manmanchong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-16

• #8

高手帮帮忙啊！up!

 

M

manmanchong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-16

• #9

高手帮帮忙啊！up!

 

C

chshanghai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #10

我已想知道.

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-30

• #11

begin
path endpath