做过程模型定义工具遇到问题，请大虾救命(300分)

H

hb207

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-17

• #1

我现在做一个过程模型定义工具，要求在一个面板上画出各种可以任意移动的结点（代表不
同对象），并且能随意用直线（或折线）相连，结点和直线都作为对象处理，要求记录它们
的属性。就是说要能画出流程图，并且设置图中各个对象的属性，然后保存这些属性。我在
图中画出直线，但不知道如何定位它们。请问各位大虾有什么好建议或好例子，我现在已经
是穷途末路了，救命啊！

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-17

• #2

看看这个帖子：http://www.delphibbs.com/delphibbs/dispq.asp?lid=603736
你可以去那个网页下载一个例子看看，需要的话与那位朋友联系。

 

H

hb207

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-18

• #3

卷大虾：我去看了，那个软件跟我想要做的流程定义工具非常类似，但怎样能得到
类似代码呢？如果大虾有类似代码，请高抬贵手。300分拱手相送。

 

H

hb207

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-18

• #4

另外请问卷大虾有没有CadoDraw.v4.1.for.Delphi.and.BCB.Full.Source.WinAll.Retail-DiSTiNCT.rar
发一份给我，如果有相关例子最好不过了。

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-18

• #5

to hb207：
偶也没有现成的，你与那位朋友联系一下了。

 

H

hb207

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-19

• #6

有个问题请教，请耐心往下看，我真的很需要大虾的帮忙，万分感谢！
我在做一个画图程序遇到很怪的问题，我在程序鼠标点击画板时动态生成IMAGE控件，
然后从文件中LOAD图片（*.Bmp)，指定IMAGE的left和top分别为鼠标处坐标X、Y。
但我在IMAGE四周画边框（用Polyline）时（很确定指定的四点就是IMAGE的四个角点）
却发现，画出的边框游离于IMAGE。其中我在程序中也跟踪了坐标，发现用polyline
画边框时的坐标与IMAGE的四点坐标完全相同，但画边框时却不重合。
数据如下：IMAGE的左上角的坐标（238，106），画边框时polyline指定参数左上角
的坐标为IMAGE的左上角的坐标即（238，106），但实际画出来的边框的左上角为(238,134)，
这是什么原因？急切等待答复！！！

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-19

• #7

要注意的是：你是在Form.Canvas上画线还是在Image.Canvas上画线。
下面是在Image.Canvas上画边框，其实就是画一个矩形。

uses extctrls;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
m :TImage;
begin
m :=TImage.Create(self);
m.Parent :=Form1;
m.AutoSize :=True;
m.Left :=x;
m.Top :=y;
m.Picture.LoadFromFile('f:/图片/end004.bmp');
m.Canvas.Pen.Color :=clRed;
m.Canvas.Brush.Style :=bsClear;
m.Canvas.Rectangle(0,0,m.Width,m.Height);
end;

 

H

hb207

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-19

• #8

卷大虾：
你好！画边框问题已经解决，但遇到新的问题。上次你发了一个画线的程序
（JulianoZabeoPessini_LineStretch）给我，我用你那种方法定位所画出来的线
（就是重画所有的线，然后加亮选中的线），但我每当在画布上按下鼠标时，
画布上的图片就闪的厉害（整个画布在闪）？怎么样解决这个问题？
有劳大虾，谢谢！

 

H

hb207

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-19

• #9

谢谢各位大虾！