Visual Graph图形平台的使用
本人所在单位于2005年购买了北京图王的Visual Graph图形引擎平台企业版,此期间使用Visual Graph图形引擎平台开发了不少图形应用项目:电力设备管理系统、电力一次接线图管理系统,二次接线图管理系统,图形配调系统,操作票、任务票的两票系统,现在我将自己使用的一些Visual Graph在开发的时候遇到的一些问题与感受及经验整理成一篇文章,抛砖引玉,期待得到大家指点来指点一下。
由于我们单位的系统都是老系统,delphi开发出来的,所以为了和老系统方便交互,我们几个人也学了半个月的delphi来开发电力的图形系统,一开始,我们只是想用Visual Graph来开发一个电力线路管理系统。后来领导看到了,觉得系统不错,一发不可收拾,陆续得开发了许多图形相关的电力系统。现在用delphi调用Visual Graph来进行说明:
第一步:安装Visual Graph
首先点击Visual Graph目录上的注册COM.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()”),就能调用它了。