展开全部

第一步：安装Visual Graph

首先点击Visual Graph目录上的注册e69da5e6ba903231313335323631343130323136353331333363396334COM.bat，最后显示注册成功，其实这一步就是注册Visual Graph的ActiveX组件，他的组件名为vg.dll.用命令行批处理写上 regsvr32 vg.dll。

那么就要在Delphi里面调出ActiveX了。

Visual Graph的VG组件是遵循ActiveX标准的控件，很容易安装到自己的开发环境中。

1、注册北京图王的Visual Graph的VG组件。

2、打开DELPHI，选择Component;Import ActiveX Control…菜单。

3、在Import ActiveX窗体中选择Visual Graph ActiveX Control Module选项，点击最下面的【Install…】按钮。

4、在Package窗体中点击【Compile】、【Install】按钮，退出时选择不保存。

5、在控件区的ActiveX页中出现一个Visual Graph的VG组件图标，表示安装成功。

6、直接将Cell图标拖到Form中即可使用。

7、Visual Graph的VG组件提供了几种开发环境中的Demo，可以直接照办使用，那基本就是一个样的Demo。

第二步：在Delphi窗体里面加入并调用 Visual Graph

最开始使用Visual Graph的时候是进行图形管理与控制，也就是说，画出几个库图元之后，用户可以自己加载图库，从图库里面加入图形，并对图形进行一些属性设置。

我觉得它的技术特点如下：

1)非常人性化设计，提供最为完善的绘制、修改方法，各种显示模式，随意切换。

2)与常见的绘图、文档编辑软件的操作方式相似，使用户可以在短时间内掌握绘图的使用方法。

3)丰富的一致的图元库让用户绘制图形无需从头开始，只要轻轻的拖曳即可做出漂亮的图形。

4)VG里面全部是矢量绘图，缩放自如。

5)绘图过程比用纸笔画图更简单方便和精准，图层控制等格式设置.

6)基本绘图库让用户可以通过直线、曲线、弧线、矩形和椭圆工具等元素绘制出新的图形。

7)矢量图形抗锯齿。让您绘制的图形在任何角度都保持美观。

8)无限撤销和重做功能，使用更加方便灵活。

9)可以输出为VG专用的绘图格式TBL与Bin，其他图形格式.

10)所见即所得的操作方式。

第三步：图形控制

首先拖入一个VG控件，在窗口的OnShow代码里面写上：

procedure TForm1.FormShow(Sender: TObject);

begin

vgctrl1.Run( ExtractFilePath( Application.ExeName ) + 'hmi.tbl' );

end;

procedure TForm1.Button1Click(Sender: TObject);

var

uu : IUnit;

ret : Integer;

begin

uu := vgctrl1.vg.ActiveSheet.UnitByName( TButton( Sender ).Caption );

ret := uu.GetPropertyValue( 'Value' );

//或者也可以用

//ret := vgctrl1.vg.Execute('return '+TButton(sender).Caption+'.Value');

ShowMessage( IntToStr( ret ) );

end;

procedure TForm1.Button3Click(Sender: TObject);

var

uu : IUnit;

ret : Boolean;

begin

uu := vgctrl1.vg.ActiveSheet.UnitByName( TButton( Sender ).Caption );

ret := uu.GetPropertyValue( 'OnOff' );

//或者也可以用

//ret := vgctrl1.vg.Execute( 'return开关指示A1.OnOff' );

if ret then

ShowMessage( 'true' )

else

ShowMessage( 'false' );

end;

procedure TForm1.Button4Click(Sender: TObject);

var

uu : IUnit;

ret : String;

begin

//首先从图形里面取得这个Iunit对象的指针，通过Isheet类里面的UnitByName函数，通过图元名字得到对象指针

uu := vgctrl1.vg.ActiveSheet.UnitByName( TButton( Sender ).Caption );

//再从对象指针里面获取其属性，由于text是Itext类的属性，而Iunit是Itext类的父类，如果想直接用COM接口得到Text属性，那就要Itext(uu).text，才行。同样GetPropertyValue是万能的取得属性值的函数。SetPropertyValue是万能的设置属性值的函数,这两个函数是Iunit的接口函数.

ret := uu.GetPropertyValue( 'text' );

//或者也可以用

//ret := vgctrl1.vg.Execute( 'return文字A.text' );

ShowMessage( ret );

end;

procedure TForm1.Button5Click(Sender: TObject);

var

uu : IUnit;

begin

uu := vgctrl1.vg.ActiveSheet.UnitByName( TButton(sender).Caption );

uu.SetPropertyValue( 'value', 6 );

end;

procedure TForm1.Button7Click(Sender: TObject);

var

uu : IUnit;

begin

uu := vgctrl1.vg.ActiveSheet.UnitByName( TButton( Sender ).Caption );

uu.SetPropertyValue( 'OnOff', True );

end;

procedure TForm1.Button8Click(Sender: TObject);

var

uu : IUnit;

begin

uu := vgctrl1.vg.ActiveSheet.UnitByName( TButton( Sender ).Caption );

uu.SetPropertyValue( 'text', 'Visual Graph' );

end;

第四步：在Delphi与Visual Graph脚本混合编程交互

这两个事例，都是运用了AddFunction函数。

AddFunction

void=AddFunction(string, string, int, long)

该函数属于高级应用，给Visual Graph脚本体系添加一个内部函数。利用此函数可以扩充脚本语言的能力。

第一个参数是函数的名字(32个字符以内)；

第二个参数是参数类型，串中每一个字符代表一个参数类型

1-整数(Int)

2-小数(Double)

3-逻辑型(bool)

4-字符串(string)

比如有( Int,double )做为函数参数时，就用"12"表示。

第三个参数是返回值类型

如49('1'的ASC码)表示返回一个整数。

此外，如果没有返回值，用48('0'的ASC码)表示。

第四个参数是函数地址。

在C语言中，函数名就是函数地址。

在Pascal语言中，函数名前加“@”表示地址。

在Visual Basic语言中，AddressOf运算符能返回函数或者过程的地址。

比如：

procedure TForm1.FormShow(Sender: TObject);

begin

vgctrl1.AddFunction( 'CallDelphiEditChange', '44', 48, Longint( @CallDelphiEditChange ) );

vgctrl1.AddFunction( 'CallDelphiRadioButtonClick', '41', 48, Longint( @CallDelphiRadioButtonClick ) );

vgctrl1.AddFunction( 'CallDelphiCheckBoxClick', '43', 48, Longint( @CallDelphiCheckBoxClick ) );

vgctrl1.Run( ExtractFilePath( Application.ExeName ) + 'demo.tbl' );

UseDelphiControl := true;

end;

在Visual Graph脚本里面是这样写的：

CallDelphiCheckBoxClick(Sender.Name, Sender.Checked)

CallDelphiEditChange( Sender.Name, Sender.Value )

CallDelphiRadioButtonClick(Name, 0)

那么VG脚本就能调用delphi内部的函数，

那么现在Delphi如何调用VG的函数呢？，那么要运用VG的Execute万能函数了。

Execute

variant=Execute(string)

执行脚本语句，并返回一个值(如果脚本最后有return语句的话)，脚本语句可以是多行的长串。

示例：

Execute( "Print()" )打印视图当前页。

Execute( "ActiveSheetIndex=2" )页面翻到第三页(0是第一页)。

Execute( "Text1.Text='Hello'" )设置某文字单元的文字内容。

Execute( "Sheet2.Text1.Text='Hello'" )设置Sheet2页上某文字单元的内容。

Execute( "x=2;y=3;return x+y" )返回5。

Execute( "s='ABC';return s" )返回"ABC"。

在Delphi里面就这样使用：

Vgctrl1.Execute(“ActiveSheet. AddUnit(‘text’,1,1,0,0)”)就可以增加一个图元了。

如查在设计图形时，给页面增加了一个自定义函数。

那么用

Vgctrl1.Execute(“ActiveSheet. SelfInvoke()”)，就能调用它了。

本回答由提问者推荐

已赞过

已踩过<

你对这个回答的评价是？

评论

收起