delphi实现简易图形标绘系统

《delphi实现简易图形标绘系统》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、Delphi实现简易图形标绘系统 摘要本文介绍了在Delphi环境中实现非矢量图形标绘的简便方法，并给出了程序环境设计与具体代码实现。关键词Delphi，非矢量图形，标绘一、前言相对于语言文字来说，图形能把一定具体共同空间形式及特征的事物形象而概括地表示出来，不仅简化文字叙述，节省时间，而且形象直观，一目了然。在港口码头舰船靠泊、机场飞机驻屯、车场管理等工作中，管理人员需要实时掌握泊位、机位、车位的占用情况，而通过图形标绘能够将舰船、飞机、车辆的停靠情况标注在码头、机场、车场示意图上，让管理人员及时掌握整体情况，进行科学高效

2、管理。本文介绍了在Delphi环境下实现非矢量图形标绘的简便方法，其实现思路为：根据特定参数动态创建图标控件，并使其支持鼠标拖放操作；在退出系统时，把所有标绘的图标信息（种类、标题、序号和位置）保存至配置文件中，在下一次进入系统时则先读取配置文件，恢复显示上一次退出前所有标绘的图标。二、窗体设计程序实验环境如下：(1)操作系统：WindowsXPProfessionalSP2。(2)开发环境：Delphi7.0+RaizeComponents3.11控件包。1．主窗体Form1用Delphi新建一个项目Test，并创建主窗体

3、Form1，其属性Caption设为“简易图形标绘系统”。在窗体中放置一个ImageList控件，并导入相关的图片，如图1： 在窗体中放置一个GroupBox控件，其属性Caption设为“军标”，属性Align设为alLeft。在GroupBox1上放置一个ListView控件，属性LargeImages设为ImageList1，属性OwnerDraw设为True，并增加ListView1的Item项，Item1的属性Caption设为“常规潜艇”，属性ImageIndex设为0，Item2的属性Caption设为“核潜艇

4、”，属性ImageIndex设为1，Item3的属性Caption设为“驱逐舰”，属性ImageIndex设为2，Item4的属性Caption设为“护卫舰”，属性ImageIndex设为3。在窗体中放置三个BitBtn控件，第一个的属性Caption设为“更换地图”，第二个的属性Caption设为“图标属性”，第三个的属性Caption设为“清除图标”。在窗体中放置两个RzToolButton控件，第一个的属性Caption设为“种子控件”，属性Name设为RzToolButton_，属性Visible设为False，第二

5、个的属性Visible也设为False。在窗体中放置一个ScrollBox控件，属性Align设为alClient，在其上放置一个Image控件，属性Align设为alClient，并设置Image1的Picture属性（导入一幅电子地图图片）。在窗体中放置一个OpenPictureDialog控件，属性Filter设为“All(*.jpg;*.jpeg;*.bmp)

6、*.jpg;*.jpeg;*.bmp

7、JPEGImageFile(*.jpg)

8、*.jpg

9、JPEGImageFile(*.jpeg)

10、*.jpeg

11、Bitm

12、aps(*.bmp)

13、*.bmp”。主窗体的设计效果如图2所示： 2.属性窗体Form2在项目中创建属性窗体Form2，窗体中放置一个Label、一个Edit和一个BitBtn控件，设计效果如图3所示。 三、代码实现1．公共变量定义bFirstEnter,bBackground:Boolean;//是否第一次进入，是否更换电子地图图片SelfDir,sCaption:string;//程序目录,图标CaptionmyIniFile:string;//图标配置文件rwIniFile:TIniFile;//读写图标配置文件iXh

14、,iImageIndex,iCurObject:Integer;//图标序号,图标ImageIndex,当前图标的对象编号cxVarObject:Array[0..99]ofTRzToolButton;//图标新标号cxSelObject:TRzToolButton;//种子图标myControl:TControl;//当前图标XX,YY:Integer;//当前图标的新位置2．图标对象的初始化与存取procedureTForm1.FormCreate(Sender:TObject);beginSelfDir:=Extrac

15、tFilePath(Paramstr(0));//当前目录myIniFile:=SelfDir+'System.ini';//配置文件bFirstEnter:=False;//登录标志bBackground:=False;//更换电子地图图片标志iXh:=1;//创建的图标标识数iCurO