Delphi 的绘图功能
来源:互联网 发布:js code style 编辑:程序博客网 时间:2024/05/21 09:40
//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 支持}
//下面的例子依次展示了各种样式:var i,x,y,n: Integer;begin x := 10; y := 15; n := ClientWidth - 2*x; Canvas.Pen.Color := clRed; for i := 0 to 8 do begin Canvas.Pen.Style := TPenStyle(i); Canvas.MoveTo(x, y); Canvas.LineTo(x + n, y); y := y + 15; end;end;
//效果图:
{Mode: 画笔与背景的颜色混合模式; Delphi 定义了模式枚举 TPenMode, 包含以下模式:}pmBlack {总是黑色}pmWhite {总是白色}pmNop {画笔无效}pmNot {背景色取反}pmCopy {画笔设置的颜色}pmNotCopy {画笔颜色取反}pmMergePenNot {画笔颜色与背景颜色的反色的组合}pmMaskPenNot {画笔颜色与背景公共色的反色的组合}pmMergeNotPen {画笔颜色取反后与背景颜色的组合}pmMaskNotPen {画笔的反色与背景的公共色的组合}pmMerge {画笔颜色与背景颜色的组合}pmNotMerge {pmMerge 的反色}pmMask {画笔与背景公共颜色的组合}pmNotMask {pmMask 的反色}pmXor {画笔颜色与背景颜色的 Xor 组合}pmNotXor {pmXor 的反色}
//颜色模式测试程序:var i,x,y,w,n: Integer;begin {先画竖的颜色背景} x := 0; y := 0; w := ClientWidth div 18; for i := 0 to 18 do begin Canvas.Brush.Color := PaletteIndex(i); Canvas.FillRect(Rect(x, y, x+w, ClientHeight)); x := x + w; end; {再按不同模式依次画 16 条红色的横线} x := 0; y := 20; n := ClientWidth; Canvas.Pen.Width := 4; Canvas.Pen.Color := clRed; for i := 0 to 15 do begin Canvas.Pen.Mode := TPenMode(i); Canvas.MoveTo(x, y); Canvas.LineTo(x + n, y); y := y + 20; end;end;
//效果图:
:
- Delphi 的绘图功能
- Delphi 的绘图功能
- Delphi 的绘图功能[13] - TBrush 类
- Delphi 的绘图功能[2] - 入门
- Delphi 的绘图功能[13] - TBrush 类
- Delphi 的绘图功能[14] - 图像类
- Delphi 的绘图功能[10] - TFONT 类
- C#调用Delphi编写的Dll,实现绘图的功能
- Delphi 的绘图功能[11] - TPen 类(上)
- Delphi 的绘图功能[12] - TPen 类(下) : 学习橡皮线
- Delphi 的绘图功能[3] - 矩形类图形
- Delphi 的绘图功能[12] - TPen 类(下) : 学习橡皮线
- JAVA的绘图功能
- Delphi日志基本的绘图
- delphi绘图
- .NET 2.0的绘图功能
- Maxima 的绘图功能 1
- Maxima 的绘图功能 2
- vs2010 安装mvc3
- ORA-01102 cannot mount database in EXCLUSIVE mode 解决办法
- Oracle笔记_序列
- Nginx日志按天分割的解决方案 与 实施
- C# 事件机制
- Delphi 的绘图功能
- grep 多条件搜索
- 指责小孩牢记“六个不”
- 如何判断 一组字符 是不是纯数字?
- Linked server和SSIS连接Oracle时的常见问题
- 学习笔记之字符和字符串处理
- 解决Cannot load /usr/local/apache/modules/libphp5.so的方法
- zlib Usage Example
- sys.dm_db_index_physical_stats函数分析索引-游标