求教怎么在Image中画图形、直线(箭头)、折线(200分)

B

baeyk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-06

• #1

画图最好能提供源代码或第三方控件，另外顺便能提供[blue][/blue]Canvas用法资料，有例子最好！

 

D

dedema

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-06

• #2

在Canvas中，进行LineTo就可以的啊！

 

B

baeyk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-06

• #3

这个当然，不过怎么让画出的直线自带箭头呢？另外怎么实现画直线若按shit时直线只能竖直或平衡？

 

L

lichengbin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-06

• #4

var
pt: array[0..3] of TPoint;
begin
pt[0] := Point(10, 10);
pt[1] := Point(80, 10);
pt[2] := Point(160, 70);
pt[3] := Point(10, 70);
// 画折线
Image1.Canvas.Brush.Color := clInfoBk;
Image1.Canvas.FillRect(Image1.ClientRect);
Image1.Canvas.Pen.Color := clBlue;
Image1.Canvas.Pen.Width := 2;
Image1.Canvas.Polyline(pt);
// 画箭头
Image1.Canvas.MoveTo(80, 100);
Image1.Canvas.LineTo(200, 100);
Image1.Canvas.LineTo(180, 90);
Image1.Canvas.MoveTo(180, 110);
Image1.Canvas.LineTo(200, 100);

 

H

hfghfghfg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-06

• #5

C:/Program Files/Borland/Delphi6/Demos/Doc/Graphex/graphex.dpr

 

B

baeyk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-06

• #6

to hfghfghfg,lichengbin:
Sorry,也许我说的不够清楚，我的意思是在Image上画ICO图标，并且各图标之间可用带
箭头的直线连接起来，也可以说是一个流程图吧！是为了使之流程图能够清晰，要求画的线可以是直线、直折线或曲线(要有箭头),而不是单纯在Image上画线或几何图形！谢谢！

 

X

xycall

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-06

• #7

我有自编的组件，是画流程图的，可绘制元件（不仅仅是一个图标，可响应时间，这是一个图层），另外可绘制连线（连线图层，可单独相应事件），所有连线均可智能连接（只要设定哪两个元件连接），拖动元件，连线自动调整。
You friend Xycall;
you can send email:zzhs@163.com, if you want to discuss with me!

 

B

baeyk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-06

• #8

TO Xycall:
能发一个给我吗，我的邮箱：baeyk@sohu.com

 

B

baeyk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-10

• #9

Xycall你怎么没有回应呢？
怎么没有人能帮我，是不是大家都有很忙！
高手呢，能不能给我一些见意啊！
Xycall基本能符合我的要求，另外要求是所画的对象都可以带属性信息！

 

B

baeyk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-13

• #10

班主在哪里，能不能解决一下，我急需！

 

H

hardware007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-13

• #11

在Canvas中，进行LineTo

 

Y

yostgxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-13

• #12

我有一个类似Visio编辑的Vcl控件带源吗，能完成你需要的功能。我最近在研究。
有意的话，留个信箱回个话

 

Y

yostgxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-13

• #13

已经发出，请查收

 

P

pn_cd_2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-14

• #14

yostgxf：
能不能发给我一份
sailsoft@vip.sina.com

 

B

baeyk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-16

• #15

to yostgxf:
我己收到，我看一下是否合我的要求然后发分，ok!

 

B

baeyk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-16

• #16

to yostgxf:
我的QQ：4006985,请加我，我有事请教！

 

Y

yostgxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-16

• #17

已经加了，等你回复

 

W

wjh_wy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-16

• #18

to yostgxf
发一份给我，可以吗。
wjh_wy@163.com
QQ:39306255

 

B

baeyk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-23

• #19

谢谢各位大富翁的支持帮助！