delphi实现简易图形标绘系统.pdfVIP

f匣蔓亘豳 ……·G胁PHiCSPROGRA■……………………………………………………………………………………………· Delphi实现简易图形标绘系统 何明 贺红心姚洪 摘 要 本文介绍了在Delphi环境中实现非矢量图形标绘的简便方法，并给出了程序环境 设计及其相应代码。 关键词Delphi，非矢量图形，标绘 ·_■‘·_一 一、刖吾 二、窗体设计 相对于语言文字来说，图形能把一定具体共同空间形式及 程序实验环境如下： 特征的事物形象而概括地表示出来。不仅简化文字叙述，节省 7．0+Raize 时间，而且形象直观，一目了然。在港口码头舰船靠泊、机场 (2)开发环境：Delphi Components3．11控件 飞机驻屯、车场管理等工作中，管理人员需要实时掌握泊位、 包。 机位、车位的占用情况，而通过图形标绘能够将舰船、飞机、 1．主窗体Forml 车辆的停靠情况标注在码头、机场、车场示意图上，让管理人 员及时掌握整体情况，进行科学高效管理。 性Caption设为“简易图形标绘系统”。 本文介绍了在Delphi环境下实现非矢母图形标绘的简便方 在窗体中放置一个lmageList控件，并导入相关的图片， 法，其实现思路为：根据特定参数动态创建图标控件，并使其 如图1。 支持鼠标拖放操作；在退出系统时，把所有标绘的图标信息 (种类、标题、序号和位置)保存至配置文件中，在下一次进 入系统时则先读取配置文件，恢复显示上一次退出前所有标绘 I，属性Owner- 的图标。 I 四、结语 cltSkt．buff=’0x7300。： ITE cltSkt．AsyncSelect(FD_WRFD_CLOSE)： 基于实时传输的VxWorks系统为开发高速数据采集系统提 ) 供了传输基础。VxWorks的网络功能健全，网络通讯易于实 7．在退出按钮中添加代码 现，VxWorks的多任务性及丰富的进程通讯机制为实现复杂的 voidCSocketClient：：OnBtnExit() 功能提供了必要的手段。 { KillTimer{1)： cltSkt．buff=’0x7400’： 参考文献 ITE cltSkt．AsyncSelect{FD_WRl FD_CLOSE)： 1周启平，张杨，吴琼．开发指南与Tornado实用手册．中国 cltSkt．Close《)： 电力出版社． this—MEndDialog(5)： ’ 2程敬原．VxWorks软件开发项目实例．中国电力出版社． 本文提供的通讯方式得到应用，系统稳定可靠，网络通讯 3谭浩强．C程序设计．清华大学出版社． 功能正确，达到设计要求。 篇)．机械工业出版社． · (收稿日期：200