DELPHI基础教程：Delphi图形图像编程（二）[2]

另外一个问题是 我们希望得到的是鼠标按钮按下和松开这两点所形成的图形 但OnMouseMove却把鼠标轨迹上各点与起始点所形成的所有图形画在屏幕上 这同样是我们不希望看到的 为了解决这些问题 程序定义了鼠标的三个事件

procedure TForm FormMouseDown（Sender: TObjectButton: TMouseButton

Shift: TShiftStateX Y: Integer）

begin

Drawing := True

Image Canvas MoveTo（X Y）

Origin := Point（X Y）

MovePt := Origin

OriginPanel Caption := Format（ Origin: （%d %d） [X Y]）

end

procedure TForm FormMouseUp（Sender: TObjectButton: TMouseButton

Shift: TShiftStateX Y: Integer）

begin

if Drawing then

DrawShape（Origin Point（X Y） pmCopy）

Drawing := False

end

procedure TForm FormMouseMove（Sender: TObjectShift: TShiftStateX

Y: Integer）

begin

if Drawing then

begin

DrawShape（Origin MovePt pmNotXor）

MovePt := Point（X Y）

DrawShape（Origin MovePt pmNotXor）

end

MovePt用来记录鼠标当前位置 当下次鼠标移动时 就能在上次鼠标绘制的图形上画一个形状 大小一样的图形 并把画笔颜色设置成PmNotXor 使上次绘制的图形颜色变成了屏幕颜色 从而达到 橡皮擦 的效果

将画笔 画刷的Style属性设置成用户希望的值 可实现对画笔和画刷风格的选择

procedure TForm SetBrushStyle（Sender: TObject）

begin

with Image Canvas Brush do

begin

if Sender = SolidBrush then Style := bsSolid

else if Sender = ClearBrush then Style := bsClear

else if Sender = HorizontalBrush then Style := bsHorizontal

else if Sender = VerticalBrush then Style := bsVertical

else if Sender = FDiagonalBrush then Style := bsFDiagonal

else if Sender = BDiagonalBrush then Style := bsBDiagonal

else if Sender = CrossBrush then Style := bsCross

else if Sender = DiagCrossBrush then Style := bsDiagCross

end

procedure TForm SetPenStyle（Sender: TObject）

begin

with Image Canvas Pen do

begin

if Sender = SolidPen then Style := psSolid

else if Sender = DashPen then Style := psDash

else if Sender = DotPen then Style := psDot

else if Sender = DashDotPen then Style := psDashDot

else if Sender = DashDotDotPen then Style := psDashDotDot

else if Sender = ClearPen then Style := psClear

end

end

图像对象概述

TGraphic对象

TGraphic对象是TBitmap TIcon Tmetafile对象的基类 如果知道图像的具体类型（ 如位图 图标元文件） 则应将图像贮存在相应类型的对象中（ 如TBitmap TIcon Tmetafile） 否则应该使用可贮存任何图像类型的TPicture对象

TPicture对象

TPicture对象可以保存位图 图标或元文件 Graphic属性中包括图像的类型 图像的高度和宽度分别定义在Height Width属性中 调用LoadFromFile方法 可以从文件中装载一幅图像

procedure TForm FormCreate（Sender: TObject）

begin

BitBtn Glyph LoadFromFile（ TARTAN BMP ）

end

要保存一个位图 则要用SaveToFile方法 要把图像复制到剪切板 可以调用TClipboard对象的Assign方法

TImage部件

TImage部件用以在窗体中显示图像 它的Picture 属性保存着要显示的图像 这是一个TPicture对象 AutoSize Stretch属性是用来调节部件与图像的大小的 当AutoSize 为真值时 TImage部件将根据它所包含的图像的大小来调整自身的大小 当AutoSize为假值时 不论图像有多大 部件将保持设计时的大小 如果部件比图像小 那么只有一部分图像是可见的 当Stretch为真值时 位图像将根据部件的大小调整自身的大小 当部件大小改变时 元文件也做相应变化 Stretch属性对图标没有作用

TBitmap Object（位图对象）

位图对象包含一个位图图像 有HBITMAP HPALETE句柄 可自动管理调色板 位图对象也有画布属性 位图的Palette属性用来控制位图的颜色映射 它包括 种可显示的颜色 如果应用程序用前景色绘制位图 Palette 属性的颜色将被加入Windows系统调色板 其它颜色被映射到系统调色板已存在的颜色 如果应用程序用自己的颜色绘制位图 而其它程序已占有系统调色板 位图的颜色将被映射到系统调色板中

如果Monochrome属性设置成假 位图将显示成彩色 反之显示成黑白色

调用Draw和StretchDraw方法可在画布上绘制位图

图像对象的应用

本章例程中 单击（文件|浏览）菜单项 将d出一个图像浏览窗体 如果用户在窗体中选择文件列表框的图形文件 窗体右上角的图像部件上将出现此文件所代表的图像 若选择 雕刻效果 按钮中检查框 窗体中的加速按钮和位图按钮上将出现位图

以下代码是将图像文件装载至图像部件上

procedure TImageForm FileListBox Click（Sender: TObject）

var

FileExt: string[ ]

begin

FileExt := UpperCase（ExtractFileExt（FileListBox Filename））

if （FileExt = BMP ） or （FileExt = ICO ） or （FileExt = WMF ） then

begin

Image Picture LoadFromFile（FileListBox Filename）

Label Caption := ExtractFilename（FileListBox Filename）

if （FileExt = BMP ） then

begin

Label Caption := Label Caption +

Format（ （%d x %d） [Image Picture Height Image Picture Width]）

ViewForm Image Picture Bitmap := Image Picture Bitmap

ViewAsGlyph（FileExt）

end

if FileExt = ICO then Icon := Image Picture Icon

if FileExt = WMF then

ViewForm Image Picture Metafile := Image Picture Metafile

end

end

这个过程首先判断文件类型 如果是图像文件 则将图像装载至图像部件上 并在标签上列出文件名称 如果是位图文件 还将显示其大小

lishixinzhi/Article/program/Delphi/201311/25244

数据库窗体专家和数据库 *** 作台（DBD）

Delphi为用户开发简单的数据库应用程序提供了一个开发工具叫做 数据库窗体专家 （Database Form Expert） 在Delphi系统菜单Tool菜单下可以找到

数据库窗体专家能够自动生成简单的数据库应用程序中所必须完成的许多任务 它还可以生成基于单个数据库表的应用程序窗体或基于主要──明细型多个数据库表的应用程序窗体 数据库窗体专家能够自动完成的任务如下

● 放置数据库部件到窗体中（TDataSource部件）

● 为数据集部件（TTable TQuery）和磁盘上的数据库建立连接

● 建立数据源（TDataSource）与数据控制部件的连接 数据源（TDataSource）与 数据访问部件（TTable TQuery）的连接

● 为TQuery部件编写SQL语句

● 为窗体中的部件定义Tab顺序

数据库 *** 作台（DBD）是数据库维护和数据定义工具 程序设计人员利用它可以查询 连接 建立 重构 索引 修改和拷贝数据库表 包括Pà€aradox和dBASE文件和基于 SQL语言的数据库表 而且在使用DBD *** 作Paradox或dBASE的表时 用户不必拥有 Paradox 或dBASE数据库管理系统 DBD还可以把一种格式的数据和数据字典拷贝成另一种格式 例如 你可以将一个dBASE的表拷贝到远程的SQL服务器上的一个数据库中去 有关DBD详细描述 请参看 数据库 *** 作台（DBD）的使用

Delphi数据库应用程序的开发方法和步骤

概述

用Derphi用开数据库应用程序 虽然与开发其他应用程序有相似之处 但是也有一些重要的区别 我们必须要加以注意

利用Delphi的客户/服务器功能 程序设计者可以在本地数据库上或远程数据库服务器上开发客户/服务器模式的应用程序 Delphi 的一个强有力的功能之一是可以将基于本地桌面数据库系统的应用程序很容易地修改成客户/服务器模式的应用 一个Delphi 数据库应用程序访问的是本地数据库还是远程SQL数据库服务器上的数据库 这对于最终用户是完全透明的 即数据库的物理位置对最终用户是透明的 当数据库的物理位置发生变化时 用户界面不必随之变化

因为数据库应用程序的是依赖于它所访问的数据库的 所以在开发数据库应用程序之前必须要建立一个完善的数据库即数据定义 数据定义应当是开发数据库应用程序的一部分 但它超出了书本的范围 有关数据定义的内容 请参看关系数据库设计方面的资料 在我们用Derphi开发一个数据库应用程序时 可能有下列四种情况

数据库不存在或者必须要重新定义 使用DBD为本地数据库定义Paradox或dBASE 数据库表 使用Delphi提供的服务器开发工具如Windows ISQL或DBD定义本地或远程SQL数据库务器上的数据库

数据库在桌面数据库系统中或局域网上（如Paradox或dBASE） 而且BDE 数据库和应用程序在同一台机器上 这是典型的独立应用

数据库在桌面数据库系统中 但是用户要把它改变到SQL数据库服务器中去 这种情况我们在附录C中详细讨论

数据库在SQL数据库服务器中 而且应用程序将到SQL数据库服务器中去访问数据库 这是一个标准的客户/服务器应用

有关开发客户/服务器应用程序的详细内容 参看 客户/服务器应用 一章

数据库应用程序的开发步骤

数据库应用程序的最终目标就是为用户提供一个满足其长期需要的软件产品 因此 成功地开发一个数据库应用程序的关键之一是要详细地定义用户的需求 然后再围绕用户的需求进行开发 数据库应用程序的一般开发的三个基本步骤如下

● 系统设计

● 系统实现

● 系统运行和维护

在这个三个基本步骤中 都包含着数据库的开发和应用程序界面的开发两大类任务 对于一个客户/服务器模式的应用 数据库和应用界面的区别就更明显一些 因为它们运行在不同的平台之上 而且使用的 *** 作系统都常常不一样 如（一个Unix环境的服务器和Windows环境的客户机）

系统设计

系统设计阶段应当根据用户的需求 明确地描述数据库（数据库服务器端）和应用界面（客户机端）实现的功能 即决定哪些功能由服务器端实现 哪些功能由客户机端实现 对于客户/服务器应用程序 许多功能既可以在服务器端实现又可以在客户端实现的 例如一个复杂的数学变换功能既可以由客户端的应用程序实现 也可以由服务器端的存贮过程实现 服务器和客户端应用程序功能的划分往往取决于应用程序运行的硬件环境 例如 如果客户端是低档的PC机 服务器端是高档的工作站 那么大量的计算由服务器完成是比较理想的

系统实现

系统实现阶段的主要任务是使用Delphi提供的工具和部件以及Pascal语言实现系统设计阶段的设想 并进行调试

在系统实现阶段 最好使用数据库的一个备份数据库 这个备份的数据库与原数据库具有相同的结构 但其中的数据库只是原数据库中的一部分 至所以不在原数据库上开发应用程序 是因为考虑到没有调试好的应用程序可能会破坏数据库中的数据或者妨碍数据库的正常 *** 作

如果应用程序是基于远程SQL数据库服务器的 在系统实现阶段可以采用两种方法

● 在本地InterBase服务器上 使用数据库的备份数据库进行开发和调试

● 在远程服务器上 使用数据库的备份数据库进行开发和调试

第一种方法优越性在于 它是独立于服务器的 而不至于影响服务器的其它的 *** 作 而且不消耗服务器的资源不增加网络的负担 它的不利的方面是开发出来的应用程序只能在标准的SQL服务器上使用和调试 第二种方法能够使程序设计人员直接感受到服务器的特性 但它在调试阶段要消耗网络和服务器的资源 这种方法具有一定的危险性 程序中的错误可能会导致服务器的瘫痪

系统运行和维护

一个应用系统性能的优劣 效率的高低始终应当由用户来做出判决 应用程序在运行过程中 用户会提出一些新的需求和建议 根据用户需求的变化 应当对应用程序做一定的修改 使其进一步地得到完善和提高

交付数据库应用程序

交付数据库应用程序意味着将它交付给最终用户 并且提供应用程序运行所需的软件 非数据库应用程序往往只需要一个EXE文件 而数据库应用程序要包括下列几类文件

● 数据库应用程序生成的EXE文件和DLL文件（如果有的话）

● 必要的辅助文件（如Readme文件或HLP联机帮助文件）

● 支持访问数据库的BDE 有时也称为IDAPI

● 用于打印输出报表的ReportSmith报表工具

● 如果应用中使用了VBX控件 还要包括VBX和BIVBXII DLL

安装BDE

在交付数据库应用程序时 必须同时在运行应用程序的机器上安装BDE Delphi 本身包含可再安装的BDE 在准备数据库应用程序安装盘时 同时从Delphi中复制一份BDE 到最终用户的机器中 BDE中包含访问多种数据库系统的驱动程序 为了节省磁盘空间 在安装BDE时 可以只安装应用程序必须的驱动程序 例如 如果我们的应用程序只需要访问dBASE数据库文件 那么在安装BDE时 只需安装dBASE的驱动程序就行了 要访问Paradox数据库 BDE至少需要 KB的磁盘空间 BDE主要包括下列文件 请参看DEPLOY TXT文件

lishixinzhi/Article/program/Delphi/201311/25177

---