1、TCanvas //矩形 两种方式:1、对角线顶点2、Rect procedure Rectangle(X1, Y1, X2, Y2: Integer); overload; procedure Rectangle(const Rect: TRect); overload; //圆角矩形 X3,Y3决定圆角角度 procedure RoundRect(X1, Y1, X2, Y2, X3, Y3: Integer); //椭圆 同矩形 procedure Ellipse(X1, Y1, X2, Y2: Integer); overload; procedure Ellipse(const Rect: TRect); overload; //弧线和弦 最后两个参数分别表示起点和终点 procedure Arc(X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer); const Source: TRect; Color: TColor); procedure Chord(X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer); //绘制扇形 procedure Pie(X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer); //绘制多边形 procedure Polygon(const Points: array of TPoint); procedure Polyline(const Points: array of TPoint); //贝塞尔线 procedure PolyBezier(const Points: array of TPoint); procedure PolyBezierTo(const Points: array of TPoint); //从光标处开始向此坐标画线 procedure LineTo(X, Y: Integer); //移动光标到此参数坐标 procedure MoveTo(X, Y: Integer); //获取字符的高宽信息 function TextExtent(const Text: string): TSize; function TextHeight(const Text: string): Integer; function TextWidth(const Text: string): Integer; //输出指文本内容 procedure TextOut(X, Y: Integer; const Text: string); 2、TPen //颜色 property Color: TColor read GetColor write SetColor default clBlack; //模式 property Mode: TPenMode read FMode write SetMode default pmCopy; //样式 property Style: TPenStyle read GetStyle write SetStyle default psSolid; //宽度 property Width: Integer read GetWidth write SetWidth default 1; //TPen 的主要属性有四: Color、Width、Style、Mode {Color: 颜色} {Width: 宽度; 默认是 1; 如果赋予 <= 0 的值, 会使用默认值} {Style: 样式; Delphi 定义了笔样式枚举 TPenStyle, 包含以下样式:} //psSolid = 0; {实线} //psDash = 1; {段线; 要求笔宽<=1} //psDot = 2; {点线; 要求笔宽<=1} //psDashDot = 3; {线、点; 要求笔宽<=1} //psDashDotDot = 4; {线、点、点; 要求笔宽<=1} //psClear = 5; {不可见} //psInsideFrame = 6; {实线; 但笔宽是向里扩展} //psUserStyle = 7; {自定义, Delphi.Net 支持} //psAlternate = 8; {交替, Delphi.Net 支持} {Mode: 画笔与背景的颜色混合模式; Delphi 定义了模式枚举 TPenMode, 包含以下模式:} //pmBlack {总是黑色} //pmWhite {总是白色} //pmNop {画笔无效} //pmNot {背景色取反} //pmCopy {画笔设置的颜色} //pmNotCopy {画笔颜色取反} //pmMergePenNot {画笔颜色与背景颜色的反色的组合} //pmMaskPenNot {画笔颜色与背景公共色的反色的组合} //pmMergeNotPen {画笔颜色取反后与背景颜色的组合} //pmMaskNotPen {画笔的反色与背景的公共色的组合} //pmMerge {画笔颜色与背景颜色的组合} //pmNotMerge {pmMerge 的反色} //pmMask {画笔与背景公共颜色的组合} //pmNotMask {pmMask 的反色} //pmXor {画笔颜色与背景颜色的 Xor 组合} //pmNotXor {pmXor 的反色} 3、TBrush property Color: TColor read GetColor write SetColor default clWhite; property Style: TBrushStyle read GetStyle write SetStyle default bsSolid; 具体应用实例见下节