知识大全 Delphi图形图像编程（一）[1]

Posted 2022-07-22 知

篇首语：家资是何物，积帙列梁梠。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi图形图像编程（一）[1]相关的知识，希望对你有一定的参考价值。

DELPHI基础教程：Delphi图形图像编程（一）[1] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　在Delphi中专门定义了一组对象和部件用以绘制图形完成一些简单的图像功能利用这些对象部件的方法可以方便地绘制各种常用图形通过设置它们的属性能得到不同风格的图形另外通过对鼠标事件的定义可以方便的设计图形绘制程序

　　本章将介绍以下内容

　　 TCanvas TPen TBrush TColor对象的方法及属性

　　绘图功能的实现

　　 TImage TPicture TBitBtn TBitmap部件的方法及属性

　　图像观测及处理

　　Graphex dpr是一个简单的图形图像应用程序是对以上这些对象和组件的具体应用本章将结合此程序进行讲述

　　 图形对象概述

　　 TCanvas Object（画布对象）

　　TCanvas对象是一个用于绘图的表面在这个区域上程序可实现各种绘图功能很多部件（如TIMage TMemo）的Canvas属性就是TCanvas对象在部件上绘制图形就是在部件的画布上绘制 TCanvas的Brush Pen Font属性分别是TBrush TPen TFont对象它们用于定义绘制图形的风格关于TBrush TPen对象下节中将详细介绍

　　画布的笔的位置定义在PenPos属性中可用MoveTo方法来移动笔如果要在画布上输出文本可用Textout方法

　　TCanvas有对象很多方法可完成常用的绘图功能现将方法及功能简介

　　Arc Arc（x y x y x y x y : Integer）

　　Arc方法在椭圆上画一段弧椭圆由（x y ）（x y ）两点所确定的椭圆所决定弧的起点是椭圆圆周和椭圆中心与（x y ）连线的交点弧矩形终点是椭圆圆周和椭圆中心与（x y ）连线的交点以逆时针方向画弧

　　Chord Chord（x y x yx x y x y : Integer）

　　Chord方法连接椭圆上的两点椭圆由（x y ）（x y ）两点所确定的矩形决定（x y ）是始点（x y ）是终点

　　Brushcopy Brushcopy（const Dest : TRect;Bitmap : TBitmap;const Source TRect;Color : TColor）

　　Brushcopy方法把位图的一部分复制到画布的某个矩形区域并用画笔的当前颜色替换位图的颜色参数Dest定义画布的一个矩形区域该矩形用以填充位图 Bitmap定义位图 Source定义位图中的矩形区域该区域上的位图将被复制 Color定义画笔中用以替换位图的颜色

　　CopyRect CopyRect（Dest : TRect;Canvas : TCanvas; Source TRect）

　　此方法从另一个画布对象上复制部分图像到该画布 Canvas表示源画布 Source是源画布上要复制的图像区域 Dest表示目标画布上将接受复制图像的矩形区域

　　Draw Draw（x y : Integer;Graphic : TGraphic）

　　此方法在画布给定的象素点坐标（x y）处画Graphic所给的图像该图像可以是位图图标或元位图

　　Ellips Ellips（x y x y : Integer）

　　Ellips方法在画布指定的矩形边界上画一个椭圆（x y ）是矩形左上角的象素坐标 x y 是矩形右下角的象素坐标如果矩形形成一个区域将出现一个椭圆

　　LineTo LineTo（x y : Integer）

　　LineTo从当前位置画一条线至（x y）所指定的位置并把笔的位置移至（x y）

　　MoveTo MoveTo（x y : Integer）

　　MoveTo 将笔的当前位置设置到点（x y）处笔的当前位置在PenPos属性中改变笔的当前位置使用MoveTo方法不要设法改变PenPos的值

　　Die Die（x y x y x y x y : Longint）

　　Die方法绘制椭圆的一部分椭圆由点（x y ）（x y ）所指定的矩形所决定制的那部分由椭圆中心到（x y ）（x y ）两点的两条辐射线所决定

　　Polygon Polygon（Points : array of TPrint）

　　Polygon方法在画布上绘制一系列的点各点依次连成线最后将首尾两点相接形成一个区域并用当前笔刷填充此区域

　　Polyline Polyline（Ports : array of TPort）

　　Polyline方法在画布上用当前画笔绘制一系列的点各点依次连成线

　　StretchDraw StretchDraw（Const Rect : TRcct : Graphic : TGraphic）

　　此方法在Rect参数指定的矩形内画一图像图像延伸改变大小以适应矩形

　　Rectangle Rectangle（X y x y : Integer）

　　Rectangle方法在画布上用当前画刷绘制矩形（x y ）是矩形的左上角（x y ）是矩形的右下角

　　RomlRect RomlRect（（x y x y x y : Integer）

　　DrawFocuseRect

　　DrawFocusRect（Const Rect : TRect）

　　此方法绘制一矩形以指示此矩形获得焦点此方法是异或（XOR）函数第二次调用时原有矩形将消失 DrawFocuseRect绘制的矩形不能滚动要实现滚动功能则先调用此方法使矩形消失待滚动过后重新绘制

cha138/Article/program/Delphi/201311/25247