第五章 Delphi图形图像编程(二)

<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

 
     画直线时,用户只有在松开鼠标才能看见直线,对直线的变化不能进行实时观测。这是因为鼠标移动时程序没有进行某种应。Delphi定义了OnMouseMove事件来响应鼠标移动。以下代码可使用户随时观测直线的变化: 

  procedure TForm1.FormMouseMove(Sender:Tobject)

begin

Drowto(X,Y);

Moveto(origin);

end. 

origin是起始点。

5.2.3 绘图功能的实现

  绘图软件常根据用户的要求改变绘图工具。Graphex.dpr例程中,当用户按下某个按钮时,可选择绘图工具中的画笔或画刷,在程序类型说明部分定义了五种绘图工具。

   type

TDrawingTool = (dtLine,dtRectangle,dtEllips,dtRoundRect,dtPolygon); 

当选中某种按钮,则选中了相应的绘图工具,如: 

procedure TForm1.LineButtonClick(Sender: TObject);

begin

DrawingTool := dtLine;

end; 

procedure TForm1.RectangleButtonClick(Sender: TObject);

begin

DrawingTool := dtRectangle;

end; 

procedure TForm1.EllipseButtonClick(Sender: TObject);

begin

DrawingTool := dtEllipse;

end; 

procedure TForm1.RoundRectButtonClick(Sender: TObject);

begin

DrawingTool := dtRoundRect;

end; 

procedure TForm1.PolygonButtonClick(Sender: TObject);

begin

DrawingTool :=dtPolygon;

end;  

DrawShape过程定义了每种绘图工具的动作: 

procedure TForm1.DrawShape(TopLeft, BottomRight: TPoint; AMode: TPenMode);

begin

with Image.Canvas do

begin

Pen.Mode := AMode;

case DrawingTool of

dtLine: begin

MoveTo(TopLeft.X, TopLeft.Y);

LineTo(BottomRight.X, BottomRight.Y);

end;

dtRectangle: Rectangle(TopLeft.X, TopLeft.Y, BottomRight.X, BottomRight.Y);

dtEllipse: Ellipse(TopLeft.X, TopLeft.Y, BottomRight.X, BottomRight.Y);

dtRoundRect: RoundRect(TopLeft.X, TopLeft.Y, BottomRight.X, BottomRight.Y,

(TopLeft.X - BottomRight.X) div 2, (TopLeft.Y - BottomRight.Y) div 2);

dtPolygon:Polygon([Point(0,0),TopLeft,BottomRight]); end;

end;

end; 

 程序刚运行时,只有一个工具栏。当用户单击画笔和画刷时,则出现相应的工具栏。其代码如下: 

procedure TForm1.PenButtonClick(Sender: TObject);

begin

PenBar.Visible := PenButton.Down;

end; 

procedure TForm1.BrushButtonClick(Sender: TObject);

begin

BrushBar.Visible := BrushButton.Down;

end;

    在设计绘图程序时,还要解决一些问题。如为了在鼠标移动时能观测图形的变化,我们定义了OnMouseMove事件。但会出现这样的现象,当鼠标进入绘图区时,用户未按下鼠标键,画布上却出现绘制的图形,这是我们不希望看到的。其原因是没有对鼠标按钮是否按下进行判断。因此在窗体对象中定义了drawing的域,当鼠标按钮按下时,drawing 设置成真值。只有drawing为真,鼠标移动才执行绘图功能;当鼠标键松开时,drawing设置成假,鼠标移动将不执行绘图动作。

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

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, 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 TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

if Drawing then

DrawShape(Origin, Point(X, Y), pmCopy);

Drawing := False;

end; 

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if Drawing then

begin

DrawShape(Origin, MovePt, pmNotXor);

MovePt := Point(X, Y);

DrawShape(Origin, MovePt, pmNotXor);

end;  

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

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

procedure TForm1.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 TForm1.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; 

5.3 图像对象概述 

5.3.1 TGraphic对象

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

5.3.2 TPicture对象 

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

procedure TForm1.FormCreate(Sender: TObject);

begin

BitBtn1.Glyph.LoadFromFile('TARTAN.BMP');

end; 

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

5.3.3 TImage部件 

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

5.3.4 TBitmap Object(位图对象)

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

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

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

5.4 图像对象的应用 

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

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

procedure TImageForm.FileListBox1Click(Sender: TObject);

var

FileExt: string[4];

begin

FileExt := UpperCase(ExtractFileExt(FileListBox1.Filename));

if (FileExt = '.BMP') or (FileExt = '.ICO') or (FileExt = '.WMF') then

begin

Image1.Picture.LoadFromFile(FileListBox1.Filename);

Label1.Caption := ExtractFilename(FileListBox1.Filename);

if (FileExt = '.BMP') then

begin

Label1.Caption := Label1.Caption +

Format(' (%d x %d)', [Image1.Picture.Height, Image1.Picture.Width]);

ViewForm.Image1.Picture.Bitmap := Image1.Picture.Bitmap;

ViewAsGlyph(FileExt);

end;

if FileExt = '.ICO' then Icon := Image1.Picture.Icon;

if FileExt = '.WMF' then

ViewForm.Image1.Picture.Metafile := Image1.Picture.Metafile;

end;

end;   

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

  在加速按钮和位图按钮中显示位图的代码如下: 

  procedure TImageForm.CheckBox1Click(Sender: TObject);

begin

ViewAsGlyph(UpperCase(ExtractFileExt(FileListBox1.Filename)));

end; 

procedure TImageForm.ViewAsGlyph(const FileExt: string);

begin

if CheckBox1.Checked and (FileExt = '.BMP') then

begin

SpeedButton1.Glyph := Image1.Picture.Bitmap;

SpeedButton2.Glyph := Image1.Picture.Bitmap;

SpinEdit1.Value := SpeedButton1.NumGlyphs;

BitBtn1.Glyph := Image1.Picture.Bitmap;

BitBtn2.Glyph := Image1.Picture.Bitmap;

end;

end; 

    窗体中有一个检查框用来检验图像部件的Strecth 属性的效果。当此检查框被选中时,Stretch设成真值,图像将根据部件大小调整自身大小。代码如下: 

procedure TImageForm.StretchCheckClick(Sender: TObject);

begin

Image1.Stretch := StretchCheck.Checked;

end;  

    在这个窗体中,用户可以在屏幕和打印纸上调整图像部件的大小、位置。调整图像的代码如下:  

procedure TViewForm.SpinEdit1Change(Sender: TObject);

begin

IMage1.Height:=105+SpinEdit1.Value*5;

IMage1.Width:=105+SpinEdit1.Value*5;

end; 

procedure TViewForm.SpinEdit2Change(Sender: TObject);

begin

Image1.Left:=40+ SpinEdit2.Value*20;

end; 

procedure TViewForm.SpinEdit3Change(Sender: TObject);

begin

Image1.Top:=96+SpinEdit3.Value*10;

    当用户按下标有“全尺寸”字样的按钮时,另一个窗体将显示。

图像打印代码如下:

procedure TViewForm.Button1Click(Sender: TObject);

begin

Printer.BeginDoc;

Printer.Canvas.Draw(Trunc(1.5*Image1.Left),Trunc(1.5*Image1.Top), Image1.Picture.Graphic);

Printer.EndDoc;

end;

 

时间: 2016-07-02

第五章 Delphi图形图像编程(二)的相关文章

第五章-Delphi图形图像编程(一)(1)

在Delphi中,专门定义了一组对象和部件用以绘制图形,完成一些简单的图像功能.利用这些对象.部件的方法,可以方便地绘制各种常用图形:通过设置它们的属性,能得到不同风格的图形.另外,通过对鼠标事件的定义,可以方便的设计图形绘制程序. 本章将介绍以下内容: 1. TCanvas,TPen,TBrush,TColor对象的方法及属性: 2. 绘图功能的实现: 3. TImage,TPicture,TBitBtn,TBitmap部件的方法及属性: 4. 图像观测及处理. Graphex.dpr是一个简

第五章-Delphi图形图像编程(一)(2)

5.1.3 TBrush OBject(画刷对象) 画刷对象用以填充图形,如用画刷颜色或图案对矩形或椭圆进行填充.TBrush拥有一个画刷句柄(HBrush). 画刷的颜色定义在Color属性中.画刷还有一个Bitmap属性,该属性只能在运行时得到,画刷可使用位图填充图形以产生特殊效果.位图大小为8个象素点,高8个象素点宽. Style属性定义了画刷填充图形的风格. 5.1.4 TColor类型 TColor类型用于定义一个对象的颜色.很多部件的颜色属性就是TColor 类型, 在Graphic

第五章-Delphi图形图像编程(二)(1)

画直线时,用户只有在松开鼠标才能看见直线,对直线的变化不能进行实时观测.这是因为鼠标移动时程序没有进行某种应.Delphi定义了OnMouseMove事件来响应鼠标移动.以下代码可使用户随时观测直线的变化: procedure TForm1.FormMouseMove(Sender:Tobject) begin Drowto(X,Y); Moveto(origin); end. origin是起始点. 5.2.3 绘图功能的实现 绘图软件常根据用户的要求改变绘图工具.Graphex.dpr例程中

第五章-Delphi图形图像编程(二)(2)

5.3 图像对象概述 5.3.1 TGraphic对象 TGraphic对象是TBitmap ,TIcon,Tmetafile对象的基类.如果知道图像的具体类型( 如位图, 图标元文件) , 则应将图像贮存在相应类型的对象中( 如TBitmap,TIcon,Tmetafile),否则应该使用可贮存任何图像类型的TPicture对象. 5.3.2 TPicture对象 TPicture对象可以保存位图.图标或元文件.Graphic属性中包括图像的类型:图像的高度和宽度分别定义在Height,Wid

第二章-Delphi面向对象的编程方法(二)(2)

2.1.7 关于作用范围 2.1.7.1 标识符的作用范围 一个变量.常量.方法.类型或其他标识符的范围定义了这个标识符的活动区域.对于说明这个标识符的最小程序模块而言,此标识符是局部的.当您的应用程序在说明一个标识符的程序模块外执行时,该标识符就不在此范围内.这意味着此时执行的程序无法访问这个标识符,只有当程序再度进入说明这个标识符的程序模块时,才可以访问它. 下面的示意图表示一个含有两个库单元的工程,每个库单元中又各有三个过程或事件处理过程. 2.1.7.2 访问其他程序模块中的说明 您可以

第二章-Delphi面向对象的编程方法(二)(1)

2.1.4 跳转语句 Object Pascal的跳转语句有if和case两个. 2.1.4.1 if语句 if语句会计算一个表达式,并根据计算结果决定程序流程.在上文的例程中,根据ColorDialog.Execute的返回值,决定窗体的背景颜色.if保留字后跟随一个生成Boolean值True或False的表达式.一般用"="作为关系运算符,比较产生一个布尔型值.当表达式为True时,执行then后的语句.否则执行else后的代码,if语句也可以不含else部分,表达式为False

第二章-Delphi面向对象的编程方法(一)(1)

Delphi的编程语言是以Pascal为基础的.Pascal语言具有可读性好.编写容易的特点,这使得它很适合作为基础的开发语言.同时,使用编译器创建的应用程序只生成单个可执行文件(.EXE),正是这种结合,使得Pascal成为Delphi这种先进开发环境的编程语言. 本章中,我们将讨论Object Pascal的主要特点,并讲解如何在事件处理过程和其他应用程序中,使用它来编制程序代码.本章将讲解Delphi应用程序中最常用的Object Pascal语法,而不是Pascal语言的一切细节.如果您

第二章-Delphi面向对象的编程方法(三)(2)

2.1.9.4 字符串类型 字符串类型事实上是一个一维的字符数组.当您说明一个字符串型的变量时,您应当指明这个字符串的大小,下面是说明字符串类型的例子: type MyString: string[15]; var MyName: MyString; 则变量MyName被说明成为最多可以包含15个字符.如果您没有说明字符串的大小,Delphi会认为字符串包含最大值255个字符.给字符串赋值可以直接使用单引号括起的字串赋值: MyName := 'Frank.Smith'; 或MyName :=

第二章-Delphi面向对象的编程方法(四)(3)

2.2.6 对象变量的赋值 如果两个变量类型相同或兼容,您可以把其中一个对象变量赋给另一个对象变量.例如,对象TForm1和TForm2都是从TForm继承下来的类型,而且Form1和Form2已被说明过,那么您可以把Form1赋给Form2: Form2 :=Form1; 只要赋值的对象变量是被赋值的对象变量的祖先类型,您就可以将一个对象变量赋给另一个对象变量.例如,下面是一个TDataForm的类型说明,在变量说明部分一共说明了两个变量:AForm和DataForm. type TDataF