开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > GDI/图象编程 > 查看源码
UnitFormCanvas.~pas
资源名称：Paintbrush.rar　[点击查看]
上传用户：conquerdj
上传日期：2022-07-08
资源大小：417k
文件大小：23k
源码类别：

GDI/图象编程

开发平台：

Delphi

UnitFormCanvas.~pas：源码内容
  1. unit UnitFormCanvas;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ExtCtrls,StdCtrls;
  9. type
  10.   TFormCanvas = class(TForm)
  11.     Image1: TImage;
  12.     Image2: TImage;
  13.     CursorColor: TShape;
  14.     Imagecopy: TImage;
  15.     procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
  16.       Shift: TShiftState; X, Y: Integer);
  17.     procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  18.       Y: Integer);
  19.     procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
  20.       Shift: TShiftState; X, Y: Integer);
  21.     procedure FormShow(Sender: TObject);
  22.   private
  23.     { Private declarations }
  24.   public
  25.     { Public declarations }
  26.   end;
  28. var
  29.   FormCanvas: TFormCanvas;
  30.   //图元的起点数组
  31.   mStartPoint :TPoint;
  32.   //图元的终点数组
  33.   mEndPoint   :TPoint;
  34.   //鼠标移动过程中前一个点的坐标
  35.   mMovePrePoint: TPoint;
  36.   //用于保存图象或向Image1拷贝图象
  37.   Bitmap:Tbitmap;
  39. implementation
  41. uses UnitPaintbrush,UnitTxt;
  42. {$R *.dfm}
  45. //响应image1的鼠标下压事件
  46. procedure TFormCanvas.Image1MouseDown(Sender: TObject;
  47.   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  48. begin
  49.   //判断是否为右键下压
  50.   if(Button=mbRight)then
  51.   begin
  52.     if(FormPaintBrush.Visible=true)then
  53.        FormPaintBrush.Visible:=false
  54.     else
  55.        FormPaintBrush.Visible:=true;
  56.   end;
  58.   //判断是否为左键下压
  59.   if(Button=mbLeft) and (mType<>0)then
  60.   begin
  61.     //保存图元的起点坐标
  62.     mStartPoint.x:=X;
  63.     mStartPoint.y:=Y;
  64.     //保存当前点坐标到mMovePrePoint变量中，以便鼠标移动时第一次消除用。
  65.     mMovePrePoint.x:=x;
  66.     mMovePrePoint.y:=y;
  67.     //取色
  68.     if(mType=10) then
  69.     begin
  70.        //将CursorColor显示出来
  71.        FormCanvas.CursorColor.Show;
  72.        //设置Shape组件的颜色
  73.        FormPaintbrush.Shape1.Brush.Color:=Canvas.Pixels[X,Y];
  74.        //取出颜色在颜色框里显示出来
  75.        //FormPaintbrush.ColorBox.Items.Add(coltoStr(Canvas.Pixels[X,Y]));
  76.        FormPaintbrush.ColorBox.Selected:=FormPaintbrush.Shape1.Brush.Color;
  77.        mDrawColor:=FormPaintbrush.Shape1.Brush.Color;
  79.        //设置CursorColor的位置
  80.        CursorColor.Left := X-2;
  81.        CursorColor.Top := Y-2;
  82.     end
  83.     //将CursorColor隐藏
  84.     else FormCanvas.CursorColor.Hide;
  85.     //如果选中文字按钮，那么显示文字输入框，
  86.     //否则隐藏文字输入框
  87.     if mType<>12 then FormTxt.Hide
  88.     else
  89.     begin
  90.        //设置字体的属性
  91.        Image1.Canvas.Font.Charset:=FormTxt.Edit1.Font.Charset;
  92.        Image1.Canvas.Font.Color:=FormTxt.Edit1.Font.Color;
  93.        Image1.Canvas.Font.Size:=FormTxt.Edit1.Font.Size;
  94.        Image1.Canvas.Font.Name:=FormTxt.Edit1.Font.Name;
  95.        Image1.Canvas.Font.Pitch:=FormTxt.Edit1.Font.Pitch;
  96.        Image1.Canvas.Font.Height:=FormTxt.Edit1.Font.Height;
  97.        Image1.Canvas.Font.Style:=FormTxt.Edit1.Font.Style;
  98.        //清空 Edit1
  99.        FormTxt.Edit1.Clear;
  100.        //设置窗口FormTxt的位置
  101.        FormTxt.Left:=X;
  102.        FormTxt.Top:=Y;
  103.        //显示窗口
  104.        FormTxt.Show;
  105.     end;
  106.   end;
  107. end;
  109. //响应image1的鼠标移动事件
  110. procedure TFormCanvas.Image1MouseMove(Sender: TObject; Shift: TShiftState;
  111.   X, Y: Integer);
  112. var
  113. Xa,Ya,Xb,Yb:real;
  114. D: real;
  115. X1,Y1,X0,Y0:Integer;
  116. begin
  117.   //判断鼠标左键是否处于下压状态
  118.   if(ssLeft in  Shift) and (mType<>0)then
  119.   begin
  120.     //设置画笔为pmNotXor模式(此模式下，在同一位置绘制两遍，会导致相互抵消)
  121.     image1.Canvas.Pen.Mode:=pmNotXor;
  122.     //设置画刷为透明模式
  123.     image1.Canvas.Brush.Style:=bsClear;
  124.     //设置画笔的线宽
  125.     image1.Canvas.Pen.Width:=mDrawWidth;
  126.     //设置画笔的颜色
  127.     image1.Canvas.Pen.Color:=mDrawColor;
  129.     //根据mDrawType绘制不同图元
  130.     if(mType=1)then
  131.     begin
  132.       //绘制上一个鼠标点的直线，以便消除该直线
  133.       image1.Canvas.MoveTo(mStartPoint.X,mStartPoint.Y);
  134.       image1.Canvas.LineTo(mMovePrePoint.X,mMovePrePoint.Y);
  135.       //绘制当前鼠标点的直线
  136.       image1.Canvas.MoveTo(mStartPoint.X,mStartPoint.Y);
  137.       image1.Canvas.LineTo(X,Y);
  138.     end
  139.     else if(mType=2)then
  140.     begin
  141.       //绘制上一个鼠标点的矩形，以便消除该矩形
  142.       image1.Canvas.Rectangle(mStartPoint.X,mStartPoint.Y,
  143.                        mMovePrePoint.X,mMovePrePoint.Y);
  144.       //绘制当前鼠标点的矩形
  145.       image1.Canvas.Rectangle(mStartPoint.X,mStartPoint.Y,
  146.                        X,Y);
  147.     end
  148.     else if(mType=3)then
  149.     begin
  150.       //绘制上一个鼠标点的椭圆，以便消除该椭圆
  151.       image1.Canvas.Ellipse(mStartPoint.X,mStartPoint.Y,
  152.                      mMovePrePoint.X,mMovePrePoint.Y);
  153.       //绘制当前的椭圆
  154.       image1.Canvas.Ellipse(mStartPoint.X,mStartPoint.Y,
  155.                      X,Y);
  156.     end
  157.     else if(mType=4)then
  158.     begin
  159.       //设置画刷颜色
  160.       image1.Canvas.Brush.color:=mDrawColor;
  161.       //绘制上一个鼠标点的椭圆，以便消除该椭圆
  162.       image1.Canvas.Ellipse(mStartPoint.X,mStartPoint.Y,
  163.                      mMovePrePoint.X,mMovePrePoint.Y);
  164.       //绘制当前的椭圆
  165.       image1.Canvas.Ellipse(mStartPoint.X,mStartPoint.Y,
  166.                      X,Y);
  167.     end
  168.     else if(mType=5)then
  169.     begin
  170.       //设置画刷颜色
  171.       image1.Canvas.Brush.color:=mDrawColor;
  172.       //绘制上一个鼠标点的矩形，以便消除该矩形
  173.       image1.Canvas.Rectangle(mStartPoint.X,mStartPoint.Y,
  174.                        mMovePrePoint.X,mMovePrePoint.Y);
  175.       //绘制当前鼠标点的矩形
  176.       image1.Canvas.Rectangle(mStartPoint.X,mStartPoint.Y,
  177.                        X,Y);
  178.     end
  179.     else if(mType=6)then
  180.     begin
  181.       //设置画笔为pmcopy模式
  182.       image1.Canvas.Pen.Mode:=pmcopy;
  183.       //绘制当前鼠标点的直线
  184.       image1.Canvas.MoveTo(mMovePrePoint.X,mMovePrePoint.Y);
  185.       image1.Canvas.LineTo(X,Y);
  186.     end
  187.     else if(mType=7)then
  188.     begin
  189.        if(mCNO mod 3=1) then
  190.        begin
  191.          //将image1的颜色设置为黑色
  192.          image1.Canvas.Brush.Color:=clblack;
  193.          image1.Canvas.FillRect(rect(x-mDrawWidth-3,y-mDrawWidth-3,x+mDrawWidth+3,y+mDrawWidth+3));
  194.        end
  195.        else if(mCNO mod 3=2) then
  196.        begin
  197.          //将image1的颜色设置为白色
  198.          image1.Canvas.Brush.Color:=clwhite;
  199.          image1.Canvas.FillRect(rect(x-mDrawWidth-3,y-mDrawWidth-3,x+mDrawWidth,y+mDrawWidth));
  200.        end
  201.        else
  202.        begin
  203.          //设置画刷颜色
  204.          image1.Canvas.Brush.color:=clwhite;
  205.          image1.Canvas.BrushCopy(rect(x-mDrawWidth,y-mDrawWidth,x+mDrawWidth,y+mDrawWidth),
  206.              imageCopy.Picture.Bitmap,rect(x-mDrawWidth,y-mDrawWidth,x+mDrawWidth,y+mDrawWidth),clWhite);
  207.        end;
  208.     end
  209.     else if(mType=8)then
  210.     begin
  211.       //绘制上一个鼠标点的箭头，以便消除该箭头
  212.       image1.Canvas.MoveTo(mStartPoint.X,mStartPoint.Y);
  213.       image1.Canvas.LineTo(mMovePrePoint.X,mMovePrePoint.Y);
  214.       X0 := mStartPoint.X;
  215.       Y0 := mStartPoint.Y;
  216.       X1 := mMovePrePoint.X;
  217.       Y1 := mMovePrePoint.Y;
  218.       D := Sqrt((Y1 - Y0) * (Y1 - Y0) + (X1 - X0) * (X1 - X0));
  219.       if D>0 then
  220.       begin
  221.         Xa := X1 + 10*((X0-X1) + (Y0-Y1)/2)/D;
  222.         Ya := Y1 + 10*((Y0-Y1) - (X0-X1)/2)/D;
  223.         Xb := X1 + 10*((X0-X1) - (Y0-Y1)/2)/D;
  224.         Yb := Y1 + 10*((Y0-Y1) + (X0-X1)/2)/D;
  225.         image1.Canvas.MoveTo(mMovePrePoint.X,mMovePrePoint.Y);
  226.         image1.Canvas.LineTo(Trunc(Xa),Trunc(Ya));
  227.         image1.Canvas.MoveTo(mMovePrePoint.X,mMovePrePoint.Y);
  228.         image1.Canvas.LineTo(Trunc(Xb), Trunc(Yb));
  229.       end;
  230.       //绘制当前鼠标点的箭头
  231.       image1.Canvas.MoveTo(mStartPoint.X,mStartPoint.Y);
  232.       image1.Canvas.LineTo(X,Y);
  233.       X0 := mStartPoint.X;
  234.       Y0 := mStartPoint.Y;
  235.       X1 := X;
  236.       Y1 := Y;
  237.       D := Sqrt((Y1 - Y0) * (Y1 - Y0) + (X1 - X0) * (X1 - X0));
  238.       if D>0 then
  239.       begin
  240.         Xa := X1 + 10*((X0-X1) + (Y0-Y1)/2)/D;
  241.         Ya := Y1 + 10*((Y0-Y1) - (X0-X1)/2)/D;
  242.         Xb := X1 + 10*((X0-X1) - (Y0-Y1)/2)/D;
  243.         Yb := Y1 + 10*((Y0-Y1) + (X0-X1)/2)/D;
  244.         image1.Canvas.MoveTo(X,Y);
  245.         image1.Canvas.LineTo(Trunc(Xa),Trunc(Ya));
  246.         image1.Canvas.MoveTo(X,Y);
  247.         image1.Canvas.LineTo(Trunc(Xb),Trunc(Yb));
  248.       end
  249.       else if(mType=10) then
  250.       begin
  251.          //设置CursorColor的位置
  252.          CursorColor.Left := X - 2;
  253.          CursorColor.Top := Y - 2;
  254.       end;
  255.     end;
  256.     //保存当前点坐标到mMovePrePoint变量中，以便下一次消除用。
  257.     mMovePrePoint.x:=x;
  258.     mMovePrePoint.y:=y;
  259.   end;
  260.   if(FormPaintbrush.ToolButtonEnlarge.Down=true)then
  261.     begin
  262.       {if(X>Image2.Left) and(Y<Image2.Height) then
  263.       begin
  264.         Image2.Hide;
  265.         sleep(100);
  266.         Image2.Top:=Image2.Height+50;
  267.         Image2.Show;
  268.       end; }
  269.       //放大鼠标所在及其周边的图片
  270.       StretchBlt(Image2.Canvas.Handle,0,0,Image2.Width,Image2.Height,
  271.       Image1.Canvas.Handle,X-20,Y-20,40,40,SRCCOPY);
  272.       //刷新
  273.       Image2.Refresh;
  274.      end;
  275. end;
  277. //响应image1的鼠标弹起事件
  278. procedure TFormCanvas.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  279.   Shift: TShiftState; X, Y: Integer);
  280. var
  281. rect:Trect;
  282. Xa, Ya, Xb, Yb: real;
  283. D: real;
  284. X1, Y1, X0, Y0: Integer;
  285. begin
  286.   //判断是否为左键下压
  287.   if(Button=mbLeft) and (mType<>0)then
  288.   begin
  289.     //保存图元的终点坐标
  290.     mEndPoint.x:=X;
  291.     mEndPoint.y:=Y;
  292.     //把画笔的绘图模式改成默认的pmCopy
  293.     image1.Canvas.Pen.Mode:=pmCopy;
  294.     //设置画刷为透明模式
  295.     image1.Canvas.Brush.Style:=bsClear;
  296.     //设置画笔的线宽
  297.     image1.Canvas.Pen.Width:=mDrawWidth;
  298.     //设置画笔的颜色
  299.     image1.Canvas.Pen.Color:=mDrawColor;
  300.     //根据mDrawType值，分别绘制不同的图元
  301.    if(mType=1)then
  302.     begin
  303.       //绘制直线
  304.       image1.Canvas.MoveTo(mStartPoint.X,mStartPoint.Y);
  305.       image1.Canvas.LineTo(mEndPoint.X,mEndPoint.Y);
  306.     end
  307.     else if (mType=2)then
  308.       //绘制矩形
  309.       image1.Canvas.Rectangle(mStartPoint.X,mStartPoint.y,
  310.                        mEndPoint.X,mEndPoint.Y)
  311.     else if (mType=3)then
  312.       //绘制椭圆
  313.       image1.Canvas.Ellipse(mStartPoint.X,mStartPoint.y,
  314.                        mEndPoint.X,mEndPoint.Y)
  315.     else if (mType=4)then
  316.     begin
  317.       //设置画刷颜色
  318.       image1.Canvas.Brush.color:=mDrawColor;
  319.       //绘制当前的椭圆
  320.       image1.Canvas.Ellipse(mStartPoint.X,mStartPoint.Y,
  321.                      X,Y);
  322.     end
  323.     else if(mType=5)then
  324.     begin
  325.       //设置画刷颜色
  326.       image1.Canvas.Brush.color:=mDrawColor;
  327.       //绘制当前鼠标点的矩形
  328.       image1.Canvas.Rectangle(mStartPoint.X,mStartPoint.Y,
  329.                        X,Y);
  330.     end
  331.     else if(mType=6)then
  332.     begin
  333.       //绘制当前鼠标点的直线
  334.       image1.Canvas.MoveTo(mMovePrePoint.X,mMovePrePoint.Y);
  335.       image1.Canvas.LineTo(X,Y);
  336.     end
  337.     else if(mType=8)then
  338.     begin
  339.       //绘制当前鼠标点的箭头
  340.       image1.Canvas.MoveTo(mStartPoint.X,mStartPoint.Y);
  341.       image1.Canvas.LineTo(X,Y);
  342.       X0 := mStartPoint.X;
  343.       Y0 := mStartPoint.Y;
  344.       X1 := X;
  345.       Y1 := Y;
  346.       D := Sqrt((Y1 - Y0) * (Y1 - Y0) + (X1 - X0) * (X1 - X0));
  347.       if D>0 then
  348.       begin
  349.         Xa := X1 + 10*((X0-X1) + (Y0-Y1)/2)/D;
  350.         Ya := Y1 + 10*((Y0-Y1) - (X0-X1)/2)/D;
  351.         Xb := X1 + 10*((X0-X1) - (Y0-Y1)/2)/D;
  352.         Yb := Y1 + 10*((Y0-Y1) + (X0-X1)/2)/D;
  353.         image1.Canvas.MoveTo(X,Y);
  354.         image1.Canvas.LineTo(Trunc(Xa),Trunc(Ya));
  355.         image1.Canvas.MoveTo(X,Y);
  356.         image1.Canvas.LineTo(Trunc(Xb), Trunc(Yb));
  357.       end;
  358.     end
  359.     else if(mType=11)then
  360.     begin
  361.       //设置画笔的线宽
  362.       image1.Canvas.Pen.Width:=4;
  363.       image1.Canvas.Rectangle(X+25,Y+20,X-25,Y-20);
  364.       image1.Canvas.Rectangle(X+20,Y+15,X-20,Y-15);
  365.       image1.Canvas.MoveTo(X+15,Y+20);
  366.       image1.Canvas.LineTo(X+15,Y+26);
  367.       image1.Canvas.MoveTo(X-15,Y+20);
  368.       image1.Canvas.LineTo(X-15,Y+26);
  369.       image1.Canvas.Rectangle(X-30,Y+26,X+30,Y+35);
  370.       //设置画笔的线宽
  371.       image1.Canvas.Pen.Width:=mDrawWidth;
  372.     end
  373.     else if(mType=14)then
  374.     begin
  375.       //设置画笔的线宽
  376.       image1.Canvas.Pen.Width:=4;
  377.       image1.Canvas.MoveTo(X-40,Y);
  378.       image1.Canvas.LineTo(X,Y-30);
  379.       image1.Canvas.MoveTo(X,Y-30);
  380.       image1.Canvas.LineTo(X+40,Y);
  381.       image1.Canvas.MoveTo(X+40,Y);
  382.       image1.Canvas.LineTo(X,Y+30);
  383.       image1.Canvas.MoveTo(X,Y+30);
  384.       image1.Canvas.LineTo(X-40,Y);
  385.       image1.Canvas.MoveTo(X+40,Y+20);
  386.       image1.Canvas.LineTo(X,Y+50);
  387.       image1.Canvas.MoveTo(X,Y+50);
  388.       image1.Canvas.LineTo(X-40,Y+20);
  389.       image1.Canvas.MoveTo(X+40,Y+20);
  390.       image1.Canvas.LineTo(X+40,Y);
  391.       image1.Canvas.MoveTo(X-40,Y);
  392.       image1.Canvas.LineTo(X-40,Y+20);
  393.       image1.Canvas.MoveTo(X,Y+30);
  394.       image1.Canvas.LineTo(X,Y+50);
  396.       image1.Canvas.MoveTo(X-15,Y+11);
  397.       image1.Canvas.LineTo(X,Y+22);
  398.       image1.Canvas.MoveTo(X-10,Y+7);
  399.       image1.Canvas.LineTo(X+4,Y+18);
  400.       image1.Canvas.MoveTo(X-10,Y+7);
  401.       image1.Canvas.LineTo(X-15,Y+11);
  402.       image1.Canvas.MoveTo(X-3,Y+24);
  403.       image1.Canvas.LineTo(X,Y+22);
  404.       image1.Canvas.MoveTo(X+7,Y+16);
  405.       image1.Canvas.LineTo(X+4,Y+18);
  406.       image1.Canvas.MoveTo(X+7,Y+16);
  407.       image1.Canvas.LineTo(X+7,Y+26);
  408.       image1.Canvas.MoveTo(X-3,Y+24);
  409.       image1.Canvas.LineTo(X+7,Y+26);
  411.       image1.Canvas.MoveTo(X+15,Y-11);
  412.       image1.Canvas.LineTo(X,Y-22);
  413.       image1.Canvas.MoveTo(X+10,Y-7);
  414.       image1.Canvas.LineTo(X-4,Y-18);
  415.       image1.Canvas.MoveTo(X+10,Y-7);
  416.       image1.Canvas.LineTo(X+15,Y-11);
  417.       image1.Canvas.MoveTo(X+3,Y-24);
  418.       image1.Canvas.LineTo(X,Y-22);
  419.       image1.Canvas.MoveTo(X-7,Y-16);
  420.       image1.Canvas.LineTo(X-4,Y-18);
  421.       image1.Canvas.MoveTo(X-7,Y-16);
  422.       image1.Canvas.LineTo(X-7,Y-26);
  423.       image1.Canvas.MoveTo(X+3,Y-24);
  424.       image1.Canvas.LineTo(X-7,Y-26);
  426.       image1.Canvas.MoveTo(X+8,Y-5);
  427.       image1.Canvas.LineTo(X+23,Y+7);
  428.       image1.Canvas.MoveTo(X+3,Y-1);
  429.       image1.Canvas.LineTo(X+18,Y+11);
  430.       image1.Canvas.MoveTo(X+8,Y-5);
  431.       image1.Canvas.LineTo(X+3,Y-1);
  432.       image1.Canvas.MoveTo(X+23,Y+7);
  433.       image1.Canvas.LineTo(X+25,Y+3);
  434.       image1.Canvas.MoveTo(X+18,Y+11);
  435.       image1.Canvas.LineTo(X+14,Y+13);
  436.       image1.Canvas.MoveTo(X+25,Y+3);
  437.       image1.Canvas.LineTo(X+25,Y+12);
  438.       image1.Canvas.MoveTo(X+14,Y+13);
  439.       image1.Canvas.LineTo(X+25,Y+12);
  441.       image1.Canvas.MoveTo(X-8,Y+5);
  442.       image1.Canvas.LineTo(X-23,Y-7);
  443.       image1.Canvas.MoveTo(X-3,Y+1);
  444.       image1.Canvas.LineTo(X-18,Y-11);
  445.       image1.Canvas.MoveTo(X-8,Y+5);
  446.       image1.Canvas.LineTo(X-3,Y+1);
  447.       image1.Canvas.MoveTo(X-23,Y-7);
  448.       image1.Canvas.LineTo(X-25,Y-3);
  449.       image1.Canvas.MoveTo(X-18,Y-11);
  450.       image1.Canvas.LineTo(X-14,Y-13);
  451.       image1.Canvas.MoveTo(X-25,Y-3);
  452.       image1.Canvas.LineTo(X-25,Y-12);
  453.       image1.Canvas.MoveTo(X-14,Y-13);
  454.       image1.Canvas.LineTo(X-25,Y-12);
  455.       //设置画笔的线宽
  456.       image1.Canvas.Pen.Width:=mDrawWidth;
  457.     end
  458.      else if(mType=13)then
  459.     begin
  460.       //设置画笔的线宽
  461.       image1.Canvas.Pen.Width:=4;
  462.       image1.Canvas.Ellipse(X-100,Y-50,X,Y);
  463.       image1.Canvas.Arc(X-100,Y-30,X,Y+20,X-100,Y-5,X,Y-5);
  464.       image1.Canvas.MoveTo(X-100,Y-25);
  465.       image1.Canvas.LineTo(X-100,Y-5);
  466.       image1.Canvas.MoveTo(X,Y-25);
  467.       image1.Canvas.LineTo(X,Y-5);
  468.       image1.Canvas.MoveTo(X-55,Y-20);
  469.       image1.Canvas.LineTo(X-75,Y-10);
  470.       image1.Canvas.MoveTo(X-60,Y-23);
  471.       image1.Canvas.LineTo(X-80,Y-13);
  472.       image1.Canvas.MoveTo(X-60,Y-23);
  473.       image1.Canvas.LineTo(X-55,Y-20);
  474.       image1.Canvas.MoveTo(X-70,Y-9);
  475.       image1.Canvas.LineTo(X-75,Y-10);
  476.       image1.Canvas.MoveTo(X-83,Y-15);
  477.       image1.Canvas.LineTo(X-80,Y-13);
  478.       image1.Canvas.MoveTo(X-84,Y-10);
  479.       image1.Canvas.LineTo(X-70,Y-9);
  480.       image1.Canvas.MoveTo(X-84,Y-10);
  481.       image1.Canvas.LineTo(X-83,Y-15);
  483.       image1.Canvas.MoveTo(X-45,Y-30);
  484.       image1.Canvas.LineTo(X-25,Y-40);
  485.       image1.Canvas.MoveTo(X-40,Y-27);
  486.       image1.Canvas.LineTo(X-20,Y-37);
  487.       image1.Canvas.MoveTo(X-40,Y-27);
  488.       image1.Canvas.LineTo(X-45,Y-30);
  489.       image1.Canvas.MoveTo(X-30,Y-41);
  490.       image1.Canvas.LineTo(X-25,Y-40);
  491.       image1.Canvas.MoveTo(X-17,Y-35);
  492.       image1.Canvas.LineTo(X-20,Y-37);
  493.       image1.Canvas.MoveTo(X-16,Y-40);
  494.       image1.Canvas.LineTo(X-30,Y-41);
  495.       image1.Canvas.MoveTo(X-16,Y-40);
  496.       image1.Canvas.LineTo(X-17,Y-35);
  498.       image1.Canvas.MoveTo(X-18,Y-10);
  499.       image1.Canvas.LineTo(X-38,Y-20);
  500.       image1.Canvas.MoveTo(X-23,Y-7);
  501.       image1.Canvas.LineTo(X-43,Y-17);
  502.       image1.Canvas.MoveTo(X-23,Y-7);
  503.       image1.Canvas.LineTo(X-18,Y-10);
  504.       image1.Canvas.MoveTo(X-35,Y-22);
  505.       image1.Canvas.LineTo(X-38,Y-20);
  506.       image1.Canvas.MoveTo(X-46,Y-15);
  507.       image1.Canvas.LineTo(X-43,Y-17);
  508.       image1.Canvas.MoveTo(X-35,Y-22);
  509.       image1.Canvas.LineTo(X-46,Y-23);
  510.       image1.Canvas.MoveTo(X-46,Y-15);
  511.       image1.Canvas.LineTo(X-46,Y-23);
  513.       image1.Canvas.MoveTo(X-82,Y-40);
  514.       image1.Canvas.LineTo(X-62,Y-30);
  515.       image1.Canvas.MoveTo(X-77,Y-43);
  516.       image1.Canvas.LineTo(X-57,Y-33);
  517.       image1.Canvas.MoveTo(X-77,Y-43);
  518.       image1.Canvas.LineTo(X-82,Y-40);
  519.       image1.Canvas.MoveTo(X-65,Y-28);
  520.       image1.Canvas.LineTo(X-62,Y-30);
  521.       image1.Canvas.MoveTo(X-54,Y-35);
  522.       image1.Canvas.LineTo(X-57,Y-33);
  523.       image1.Canvas.MoveTo(X-65,Y-28);
  524.       image1.Canvas.LineTo(X-54,Y-27);
  525.       image1.Canvas.MoveTo(X-54,Y-35);
  526.       image1.Canvas.LineTo(X-54,Y-27);
  527.       //设置画笔的线宽
  528.       image1.Canvas.Pen.Width:=mDrawWidth;
  529.     end
  530.     else if(mType=15)then
  531.     begin
  532.       //设置画笔的线宽
  533.       image1.Canvas.Pen.Width:=4;
  534.       image1.Canvas.MoveTo(X-40,Y-15);
  535.       image1.Canvas.LineTo(X+40,Y-15);
  536.       image1.Canvas.MoveTo(X+40,Y-15);
  537.       image1.Canvas.LineTo(X+40,Y+15);
  538.       image1.Canvas.MoveTo(X-40,Y+15);
  539.       image1.Canvas.LineTo(X+40,Y+15);
  540.       image1.Canvas.MoveTo(X-40,Y-15);
  541.       image1.Canvas.LineTo(X-40,Y-9);
  542.       image1.Canvas.MoveTo(X-40,Y+9);
  543.       image1.Canvas.LineTo(X-40,Y+15);
  544.       image1.Canvas.Rectangle(X-45,Y-9,X-27,Y+9);
  545.       image1.Canvas.Rectangle(X-35,Y+15,X+35,Y+21);
  546.       image1.Canvas.pen.Width:=1;
  547.       image1.Canvas.pen.Color:=clblack;
  548.       image1.Canvas.Brush.color:=clgreen;
  549.       image1.Canvas.Rectangle(X+30,Y-10,X+38,Y);
  550.       image1.Canvas.Brush.color:=clred;
  551.       image1.Canvas.Rectangle(X+20,Y-10,X+30,Y);
  552.       //设置画笔的线宽
  553.       image1.Canvas.Pen.Width:=mDrawWidth;
  554.     end
  555.     else if(mType=16)then
  556.     begin
  557.       //设置画笔的线宽
  558.       image1.Canvas.Pen.Width:=4;
  559.       image1.Canvas.Rectangle(X-40,Y-15,X+40,Y+15);
  560.       image1.Canvas.Rectangle(X-37,Y-12,X+37,Y);
  561.       image1.Canvas.pen.Width:=1;
  562.       image1.Canvas.pen.Color:=clblack;
  563.       image1.Canvas.Brush.color:=cl3DDkShadow;
  564.       image1.Canvas.Rectangle(X+25,Y+5,X+35,Y+9);
  565.       image1.Canvas.Brush.color:=clgreen;
  566.       image1.Canvas.Ellipse(X+15,Y+2,X+20,Y+12);
  567.       //设置画笔的线宽
  568.       image1.Canvas.Pen.Width:=mDrawWidth;
  569.     end
  570.     else if(mType=17)then
  571.     begin
  572.       //设置画笔的线宽
  573.       image1.Canvas.Pen.Width:=4;
  574.       image1.Canvas.Rectangle(X-20,Y-45,X+20,Y+45);
  575.       image1.Canvas.Rectangle(X-15,Y-35,X+15,Y-28);
  576.       image1.Canvas.Rectangle(X-15,Y-23,X+15,Y-15);
  577.       image1.Canvas.RoundRect(X-10,Y-20,X+10,Y-18,4,1);
  578.       //image1.Canvas.Rectangle(X-10,Y-20,X+10,Y-18);
  579.       image1.Canvas.pen.Width:=1;
  580.       image1.Canvas.pen.Color:=clblack;
  581.       image1.Canvas.Brush.color:=clgreen;
  582.       image1.Canvas.Ellipse(X+3,Y+3,X-3,Y-3);
  583.       image1.Canvas.MoveTo(X-15,Y+20);
  584.       image1.Canvas.LineTo(X+14,Y+20);
  585.       image1.Canvas.MoveTo(X-15,Y+27);
  586.       image1.Canvas.LineTo(X+14,Y+27);
  587.       image1.Canvas.MoveTo(X-15,Y+34);
  588.       image1.Canvas.LineTo(X+14,Y+34);
  589.       //设置画笔的线宽
  590.       image1.Canvas.Pen.Width:=mDrawWidth;
  591.     end
  592.     else if(mType=18)then
  593.     begin
  594.       //设置画笔的线宽
  595.       image1.Canvas.Pen.Width:=4;
  596.       image1.Canvas.Ellipse(X-70,Y-50,X,Y);
  597.       image1.Canvas.Arc(X-70,Y-30,X,Y+20,X-100,Y-5,X,Y-5);
  598.       image1.Canvas.MoveTo(X-70,Y-25);
  599.       image1.Canvas.LineTo(X-70,Y-5);
  600.       image1.Canvas.MoveTo(X,Y-25);
  601.       image1.Canvas.LineTo(X,Y-5);
  602.       //设置画笔的线宽
  603.       image1.Canvas.Pen.Width:=mDrawWidth;
  604.     end
  605.     else if(mType=19)then
  606.     begin
  607.       //设置画笔的线宽
  608.       image1.Canvas.Pen.Width:=4;
  609.       image1.Canvas.MoveTo(X-40,Y);
  610.       image1.Canvas.LineTo(X,Y-30);
  611.       image1.Canvas.MoveTo(X,Y-30);
  612.       image1.Canvas.LineTo(X+40,Y);
  613.       image1.Canvas.MoveTo(X+40,Y);
  614.       image1.Canvas.LineTo(X,Y+30);
  615.       image1.Canvas.MoveTo(X,Y+30);
  616.       image1.Canvas.LineTo(X-40,Y);
  617.       image1.Canvas.MoveTo(X+40,Y+20);
  618.       image1.Canvas.LineTo(X,Y+50);
  619.       image1.Canvas.MoveTo(X,Y+50);
  620.       image1.Canvas.LineTo(X-40,Y+20);
  621.       image1.Canvas.MoveTo(X+40,Y+20);
  622.       image1.Canvas.LineTo(X+40,Y);
  623.       image1.Canvas.MoveTo(X-40,Y);
  624.       image1.Canvas.LineTo(X-40,Y+20);
  625.       image1.Canvas.MoveTo(X,Y+30);
  626.       image1.Canvas.LineTo(X,Y+50);
  627.       image1.Canvas.MoveTo(X-20,Y-8);
  628.       image1.Canvas.LineTo(X,Y+7);
  629.       image1.Canvas.MoveTo(X-12,Y-14);
  630.       image1.Canvas.LineTo(X+8,Y+1);
  631.       image1.Canvas.MoveTo(X-12,Y-14);
  632.       image1.Canvas.LineTo(X-20,Y-8);
  633.       image1.Canvas.MoveTo(X-5,Y+10);
  634.       image1.Canvas.LineTo(X,Y+7);
  635.       image1.Canvas.MoveTo(X+13,Y-2);
  636.       image1.Canvas.LineTo(X+8,Y+1);
  637.       image1.Canvas.MoveTo(X-5,Y+10);
  638.       image1.Canvas.LineTo(X+14,Y+14 );
  639.       image1.Canvas.MoveTo(X+13,Y-2);
  640.       image1.Canvas.LineTo(X+14,Y+14);
  641.       //设置画笔的线宽
  642.       image1.Canvas.Pen.Width:=mDrawWidth;
  643.     end
  644.     else if(mType=20)then
  645.     begin
  646.       //设置画笔的线宽
  647.       image1.Canvas.Pen.Width:=4;
  648.       image1.Canvas.MoveTo(X+35,Y-30);
  649.       image1.Canvas.LineTo(X+35,Y+30);
  650.       image1.Canvas.MoveTo(X+35,Y+30);
  651.       image1.Canvas.LineTo(X-35,Y+30);
  652.       image1.Canvas.MoveTo(X-35,Y+30);
  653.       image1.Canvas.LineTo(X-35,Y-30);
  654.       image1.Canvas.Arc(X+35,Y+10,X-35,Y-90,X-35,Y-30,X+35,Y-30);
  655.       image1.Canvas.MoveTo(X+55,Y+15);
  656.       image1.Canvas.LineTo(X+35,Y+30);
  657.       image1.Canvas.MoveTo(X+55,Y+15);
  658.       image1.Canvas.LineTo(X+55,Y-45);
  659.       image1.Canvas.MoveTo(X+35,Y-30);
  660.       image1.Canvas.LineTo(X+55,Y-45);
  661.       image1.Canvas.MoveTo(X-35,Y-30);
  662.       image1.Canvas.LineTo(X-15,Y-45);
  663.       image1.Canvas.Arc(X+55,Y-5,X-15,Y-115,X-15,Y-45,X+25,Y-6);
  664.       //设置画笔的线宽
  665.       image1.Canvas.Pen.Width:=mDrawWidth;
  666.     end;
  667.     //保存图象
  668.     rect.Left:=0;
  669.     rect.Top:=0;
  670.     rect.Right:=Image1.Width;
  671.     rect.Bottom:=Image1.Height;
  672.     Bitmap.Width:=Image1.Width;
  673.     Bitmap.Height:=Image1.Height;
  674.     Bitmap.Canvas.CopyRect(rect,Image1.Canvas,rect);
  675.     //设置修改标志
  676.     mModifyFlag:=true;
  677.   end;
  678. end;
  680. procedure TFormCanvas.FormShow(Sender: TObject);
  681. begin
  682.    //初始化当前正在绘制的图元类型
  683.    mType:=0;
  684.    //初始化当前正在绘制的图元线宽
  685.    mDrawWidth:=StrToInt(FormPaintbrush.ComboBoxWidth.text);
  686.    //初始化当前正在绘制的图元颜色($000000代表黑色,$FFFFFF代表白色,$0000FF代表红色)
  687.    FormPaintbrush.Shape1.Brush.Color:=FormPaintbrush.ColorBox.Selected;
  688.    mDrawColor:=FormPaintbrush.Shape1.Brush.Color;
  690.    //创建Bitmap，并设置其宽度和高度
  691.    Bitmap:=TBitmap.Create;
  692.    Bitmap.Width:=Image1.Width;
  693.    Bitmap.Height:=Image1.Height;
  695.    //初始化工具条的down状态(即是否下压)
  696.    FormPaintbrush.ToolButtonLine.Down:=false;
  697.    FormPaintbrush.ToolButtonRectangle.Down:=false;
  698.    FormPaintbrush.ToolButtonEllipse.Down:=false;
  700.    //初始化修改标志
  701.    mModifyFlag:=false;
  703.    //将imagecopy隐藏
  704.    imagecopy.Hide;
  705.    //将CursorColor隐藏
  706.    CursorColor.Hide;
  707. end;
  710. end.