picconst.pas

很不错的delphi 画失量图的delphi源代码

unit PicConst;

interface

uses Graphics;

const
  FOCUS_SIZE: Integer = 3; //像素值

Const
  PICDIFF=6;  

const
  //鼠标绘制图元时的光标的形状
  CURSOR_ARROW = -2;  //箭头
  CURSOR_LINE = 1;     //直线
  CURSOR_RECT = 2;     //矩形
  CURSOR_ROUN = 3;     //圆角矩形
  CURSOR_CIRC = 4;    //圆型
  CURSOR_ARCC = 5;     //圆弧
  CURSOR_POLY = 6;     //多边形
  CURSOR_CURVE = 7;      //曲线
  CURSOR_TEXT = 8;      //文本
  //CURSOR_IMAG = 9;      //图象
  //鼠标移动到图元时光标
  CURSOR_LINE_END = 31;  //线端点
  CURSOR_TRUN_VER = 32;  //变形
  //鼠标移动时光标
  //CURSOR_READY_DRAW= 100;  //准备画图
Type
  TPicType=(
  //***** 图元类型识号代码 *********
  PIC_NONE, //= 0;  //什么也不是
  PIC_LINE, //= 1;  //线
  PIC_RECT, //= 2;  //矩形
  PIC_ROUN, //= 3;  //圆角矩形
  PIC_CIRC, //= 4;  //圆
  PIC_ARCC, //= 5;  //圆弧
  PIC_POLY, //= 6;  //多边形
  PIC_CURVE, //= 7;  //曲线
  PIC_TEXT, //= 8;   //文本
  PIC_IMAG //= 9;   //图象
  );

const
  MinCellSize = 20; //绘图时图元最小尺寸  99.4.18
  MinAngle = 15; //直线最小偏转角度

type
  MOUSE_POS = (
    //********* 鼠标位置 ********
    //矩形的四角
    POS_OUT,      // =0 图元区域外
    POS_LEFTTOP, // =1 左上
    POS_CENTERTOP, // =2 上中
    POS_RIGHTTOP, // =3 右上
    POS_LEFTCENTER, // =4 左中
    POS_RIGHTCENTER, // =5 右中
    POS_LEFTBOTTOM, // =6 左下
    POS_CENTERBUTTOM, // =7 下中
    POS_RIGHTBOTTOM, // =8 右下
    //矩形的边中点
    POS_CENTER, // =9 矩形中央
    POS_LINESTART, // =10 直线起点
    POS_LINEEND, // =11 直线终点
    POS_ROUNDRECT_TOP, // =12 圆角矩形的上圆角点
    POS_ROUNDRECT_LEFT, // =13 圆角矩形的左圆角点
    POS_ARCSTART, // =14 圆弧起点
    POS_ARCEND, // =15 圆弧终点
    POS_POLYPOINT, // =16 多边形顶点
    POS_CURVEPOINT // =17 曲线顶点
    );

type
  TTextInfo=packed record
    Keyval: Word;
    Text:   String;
  end;

implementation

{$R PicCur.RES} //添加资源文件

end.