VCL画图实例
代码下载: https://download.csdn.net/download/zhujianqiangqq/12394576 代码实例: 1 unit Unit1; 2 3 interface 4 5 uses 6 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, 7 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls; 8 type 9 TCanvasData = record // 定义绘制数据数组 10 // 画笔可设置的参数 11 PenStartSize: Integer; // 画笔开始大小 12 PenMinSize: Integer; // 画笔最小大小 13 PenMaxSize: Integer; // 画笔最大大小 14 PenMobileBorder: Integer; // 移动界限,超过这个值就改变笔大小值 15 PenChangeValue: Integer; // 画笔每次改变的大小 16 PenSizeChangeSpeed: Integer; // 笔的改变速度,越小改变的速度越快 17 // 画图用到的参数 18