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

画直线时，用户只有在松开鼠标才能看见直线，对直线的变化不能进行实时观测。这是因为鼠标移动时程序没有进行某种应。Delphi定义了OnMouseMove事件来响应鼠标移动。以下代码可使用户随时观测直线的变化： procedure TForm1.FormMouseMove(Sender:Tobject)beginDrowto(X,Y);Moveto(origin);end.origin是起始点。 5.2.3 绘图功能的实现绘图软件常根据用户的要求改变绘图工具。Graphex.dpr例程中，当用户按下某个按钮时，可选择绘图工具中的画笔或画刷，在程序类型说明部分定义了五种绘图工具。typeTDrawingTool = (dtLine,dtRectangle,dtEllips,dtRoundRect,dtPolygon);当选中某种按钮，则选中了相应的绘图工具，如：procedure TForm1.LineButtonClick(Sender: TObject);beginDrawingTool := dtLine;end;procedure TForm1.RectangleButtonClick(Sender: TObject);beginDrawingTool := dtRectangle;end;procedure TForm1.EllipseButtonClick(Sender: TObject);beginDrawingTool := dtEllipse;end;procedure TForm1.RoundRectButtonClick(Sender: TObject);beginDrawingTool := dtRoundRect;end;procedure TForm1.PolygonButtonClick(Sender: TObject);beginDrawingTool :=dtPolygon;end;DrawShape过程定义了每种绘图工具的动作：procedure TForm1.DrawShape(TopLeft, BottomRight: TPoint; AMode: TPenMode);beginwith Image.Canvas dobeginPen.Mode := AMode;case DrawingTool ofdtLine: beginMoveTo(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;程序刚运行时，只有一个工具栏。当用户单击画笔和画刷时，则出现相应的工具栏，如图5.4。其代码如下：procedure TForm1.PenButtonClick(Sender: TObject);beginPenBar.Visible := PenButton.Down;end;procedure TForm1.BrushButtonClick(Sender: TObject);beginBrushBar.Visible := BrushButton.Down;end; 在设计绘图程序时，还要解决一些问题。如为了在鼠标移动时能观测图形的变化，我们定义了OnMouseMove事件。但会出现这样的现象，当鼠标进入绘图区时，用户未按下鼠标键，画布上却出现绘制的图形，这是我们不希望看到的。其原因是没有对鼠标按钮是否按下进行判断。因此在窗体对象中定义了drawing的域，当鼠标按钮按下时，drawing 设置成真值。只有drawing为真，鼠标移动才执行绘图功能；当鼠标键松开时，drawing设置成假，鼠标移动将不执行绘图动作。 另外一个问题是， 我们希望得到的是鼠标按钮按下和松开这两点所形成的图形，但OnMouseMove却把鼠标轨迹上各点与起始点所形成的所有图形画在屏幕上，这同样是我们不希望看到的，为了解决这些问题，程序定义了鼠标的三个事件：procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);beginDrawing := 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);beginif Drawing thenDrawShape(Origin, Point(X, Y), pmCopy);Drawing := False;end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);beginif Drawing thenbeginDrawShape(Origin, MovePt, pmNotXor);MovePt := Point(X, Y);DrawShape(Origin, MovePt, pmNotXor);end;MovePt用来记录鼠标当前位置。当下次鼠标移动时， 就能在上次鼠标绘制的图形上画一个形状、大小一样的图形，并把画笔颜色设置成PmNotXor，使上次绘制的图形颜色变成了屏幕颜色，从而达到“橡皮擦”的效果。将画笔、画刷的Style属性设置成用户希望的值，可实现对画笔和画刷风格的选择。procedure TForm1.SetBrushStyle(Sender: TObject);beginwith Image.Canvas.Brush dobeginif Sender = SolidBrush then Style := bsSolidelse if Sender = ClearBrush then Style := bsClearelse if Sender = HorizontalBrush then Style := bsHorizontalelse if Sender = VerticalBrush then Style := bsVerticalelse if Sender = FDiagonalBrush then Style := bsFDiagonalelse if Sender = BDiagonalBrush then Style := bsBDiagonalelse if Sender = CrossBrush then Style := bsCrosselse if Sender = DiagCrossBrush then Style := bsDiagCross;end;procedure TForm1.SetPenStyle(Sender: TObject);beginwith Image.Canvas.Pen dobeginif Sender = SolidPen then Style := psSolidelse if Sender = DashPen then Style := psDashelse if Sender = DotPen then Style := psDotelse if Sender = DashDotPen then Style := psDashDotelse if Sender = DashDotDotPen then Style := psDashDotDotelse 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);beginBitBtn1.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);varFileExt: string4;beginFileExt := UpperCase(ExtractFileExt(FileListBox1.Filename);if (FileExt = .BMP) or (FileExt = .ICO) or (FileExt = .WMF) thenbeginImage1.Picture.LoadFromFile(FileListBox1.Filename);Label1.Caption := ExtractFilename(FileListBox1.Filename);if (FileExt = .BMP) thenbeginLabel1.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); beginViewAsGlyph(UpperCase(ExtractFileExt(FileListBox1.Filename);end;procedure TImageForm.ViewAsGlyph(const FileExt: string);beginif CheckBox1.Checked and (FileExt = .BMP) then beginSpeedButton1.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 TIma