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

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

GDI/图象编程

开发平台：

Delphi

UnitPaintbrush.~pas：源码内容
  1. unit UnitPaintbrush;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ImgList, ComCtrls, ToolWin, StdCtrls, ExtCtrls, Menus, Buttons,
  8.   ExtDlgs,JPEG;
  10. type
  11.   TFormPaintbrush = class(TForm)
  12.     ToolBar1: TToolBar;
  13.     ToolButtonLine: TToolButton;
  14.     ToolButtonEllipse: TToolButton;
  15.     ToolButtonFEllipse: TToolButton;
  16.     ToolButtonRectangle: TToolButton;
  17.     ToolButtonFRectangle: TToolButton;
  18.     ToolButtonEraser: TToolButton;
  19.     ToolButtonPen: TToolButton;
  20.     ToolButtonArrow: TToolButton;
  21.     ToolButtonEnlarge: TToolButton;
  22.     ImageList1: TImageList;
  23.     ComboBoxWidth: TComboBox;
  24.     ColorBox: TColorBox;
  25.     MainMenu1: TMainMenu;
  26.     MenuFile: TMenuItem;
  27.     MenuNew: TMenuItem;
  28.     MenuSave: TMenuItem;
  29.     MenuOpen: TMenuItem;
  30.     MenuExit: TMenuItem;
  31.     N6: TMenuItem;
  32.     OpenPictureDialog1: TOpenPictureDialog;
  33.     SavePictureDialog1: TSavePictureDialog;
  34.     Panel1: TPanel;
  35.     ToolButtonEC: TToolButton;
  36.     ToolButtonChar: TToolButton;
  37.     ButtonPicture: TButton;
  38.     SpeedButtonDisplay: TSpeedButton;
  39.     FontDialog1: TFontDialog;
  40.     ToolButtonFont: TToolButton;
  41.     SpeedButtonRouter: TSpeedButton;
  42.     SpeedButtonSwitch: TSpeedButton;
  43.     ToolBar2: TToolBar;
  44.     ToolBar3: TToolBar;
  45.     ToolButtonCut: TToolButton;
  46.     ToolButtonEiminate: TToolButton;
  47.     ToolButtonOpen: TToolButton;
  48.     ToolButtonSave: TToolButton;
  49.     ToolButtonHelp: TToolButton;
  50.     SpeedButtonModem: TSpeedButton;
  51.     SpeedButtonCDROM: TSpeedButton;
  52.     SpeedButtonServer: TSpeedButton;
  53.     SpeedButtonDB: TSpeedButton;
  54.     SpeedButtonConcentrator: TSpeedButton;
  55.     SpeedButton1: TSpeedButton;
  56.     Shape1: TShape;
  57.     M1: TMenuItem;
  58.     N1: TMenuItem;
  59.     MenuPen: TMenuItem;
  60.     MenuChar: TMenuItem;
  61.     procedure FormShow(Sender: TObject);
  62.     procedure ToolButtonLineClick(Sender: TObject);
  63.     procedure ToolButtonEllipseClick(Sender: TObject);
  64.     procedure ToolButtonRectangleClick(Sender: TObject);
  65.     procedure ComboBoxWidthChange(Sender: TObject);
  66.     procedure ColorBoxChange(Sender: TObject);
  67.     procedure ToolButtonFEllipseClick(Sender: TObject);
  68.     procedure ToolButtonFRectangleClick(Sender: TObject);
  69.     procedure ToolButtonPenClick(Sender: TObject);
  70.     procedure ToolButtonCutClick(Sender: TObject);
  71.     procedure MenuNewClick(Sender: TObject);
  72.     procedure MenuSaveClick(Sender: TObject);
  73.     procedure MenuOpenClick(Sender: TObject);
  74.     procedure ToolButtonEraserClick(Sender: TObject);
  75.     procedure ToolButtonArrowClick(Sender: TObject);
  76.     procedure ToolButtonEnlargeClick(Sender: TObject);
  77.     procedure ToolButtonEiminateClick(Sender: TObject);
  78.     procedure MenuExitClick(Sender: TObject);
  79.     procedure ToolButtonECClick(Sender: TObject);
  80.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  81.     procedure ButtonPictureClick(Sender: TObject);
  82.     procedure SpeedButtonDisplayClick(Sender: TObject);
  83.     procedure ToolButtonCharClick(Sender: TObject);
  84.     procedure ToolButtonFontClick(Sender: TObject);
  85.     procedure SpeedButtonRouterClick(Sender: TObject);
  86.     procedure SpeedButtonSwitchClick(Sender: TObject);
  87.     procedure ToolButtonHelpClick(Sender: TObject);
  88.     procedure SpeedButtonModemClick(Sender: TObject);
  89.     procedure SpeedButtonCDROMClick(Sender: TObject);
  90.     procedure SpeedButtonServerClick(Sender: TObject);
  91.     procedure SpeedButtonDBClick(Sender: TObject);
  92.     procedure SpeedButtonConcentratorClick(Sender: TObject);
  93.     procedure SpeedButton1Click(Sender: TObject);
  94.     procedure MenuMainHelpClick(Sender: TObject);
  95.   private
  96.     { Private declarations }
  97.   public
  99.     { Public declarations }
  100.   end;
  102. var
  103.   FormPaintbrush: TFormPaintbrush;
  104.   //当前选择的工具
  105.   mType   : Integer;
  106.   //当前正在绘制的图元线宽
  107.   mDrawWidth  : Integer;
  108.   //当前正在绘制的图元颜色
  109.   mDrawColor  : TColor;
  110.   //鼠标点击鼠标点击“放大镜”的次数
  111.   mClick:Integer;
  112.   //鼠标点击鼠标点击“切换黑白板”的次数
  113.   mCNO:Integer;
  114.   //鼠标点击鼠标点击“图片”的次数
  115.   mCpno:Integer;
  116.   //修改标志，以便提醒用户保存文档
  117.   mModifyFlag :  Bool;
  118. implementation
  120. uses UnitFormCanvas,UnitTxt,UnitHelp;
  122. {$R *.dfm}
  123. procedure ScreenCapture(Bmp: TBitmap);
  124. var
  125.    DeskWnd: HWnd;
  126.    DeskDC: HDC;
  127.    DeskCv: TCanvas;
  128.    R: TRect;
  129.    W, H: Integer;
  130. begin
  131.    if Bmp = nil then Exit;
  132.    DeskWnd := GetDesktopWindow;
  133.    //获得桌面句柄
  134.    DeskDC := GetWindowDC(DeskWnd);
  135.    //创建画布
  136.    DeskCv := TCanvas.Create;
  137.    //设置画布的句柄
  138.    DeskCv.Handle := DeskDC;
  139.    //获得屏幕尺寸
  140.    //屏幕的宽
  141.    W := Screen.Width;
  142.    //屏幕的高
  143.    H := Screen.Height;
  144.    //整个屏幕区域
  145.    R := Bounds(0, 0, W, H);
  146.    try
  147.       //设置Bmp
  148.       Bmp.HandleType := bmDIB;
  149.       Bmp.PixelFormat := pf24Bit;
  150.       Bmp.Width := W;
  151.       Bmp.Height := H;
  152.       //设置拷贝模式
  153.       Bmp.Canvas.CopyMode := cmSrcCopy;
  154.       //把整个屏幕复制到BITMAP中
  155.       Bmp.Canvas.CopyRect(R, DeskCv, R);
  156.    finally
  157.        //释放CANVAS对象
  158.       DeskCv.Free;
  159.       //释放DC
  160.       ReleaseDC(DeskWnd, DeskDC);
  161.    end;
  162. end; 
  164. //响应屏幕画笔窗口的显示事件
  165. procedure TFormPaintbrush.FormShow(Sender: TObject);
  166. begin
  167.    //设置窗口显示的位置
  168.    FormPaintbrush.Left:=0;
  169.    FormPaintbrush.Top:=100;
  170.    //初始化变量
  171.    mClick:=0;
  172.    mCpno:=0;
  173.    mCNO:=0;
  174.    //将Panel1隐藏起来
  175.    Panel1.Visible:=false;
  176.    //字体工具变灰
  177.    ToolButtonFont.Enabled:=false;
  178.    //将桌面拷贝到 image1和Imagecopy中
  179.    ScreenCapture(FormCanvas.image1.Picture.Bitmap);
  180.    ScreenCapture(FormCanvas.Imagecopy.Picture.Bitmap);
  181.    //显示画布窗口
  182.    FormCanvas.Show;
  183.    //响应工具按扭“铅笔”的单击事件
  184.    ToolButtonPen.Click;
  185. end;
  187. //响应工具按扭“直线”的单击事件
  188. procedure TFormPaintbrush.ToolButtonLineClick(Sender: TObject);
  189. begin
  190.    //设置当前选择的工具为1(1代表直线)
  191.   mType:=1;
  192.   //工具条的down状态(即是否下压)
  193.   ToolButtonLine.Down:=true;
  194.   ToolButtonRectangle.Down:=false;
  195.   ToolButtonEllipse.Down:=false;
  196.   ToolButtonFEllipse.Down:=false;
  197.   ToolButtonFRectangle.Down:=false;
  198.   ToolButtonPen.Down:=false;
  199.   ToolButtonEraser.Down:=false;
  200.   ToolButtonArrow.Down:=false;
  201.   ToolButtonOpen.Down:=false;
  202.   ToolButtonSave.Down:=false;
  203.   ToolButtonCut.Down:=false;
  204.   ToolButtonEiminate.Down:=false;
  205.   ToolButtonHelp.Down:=false;
  206.   ToolButtonEC.Down:=false;
  207.   ToolButtonChar.Down:=false;
  208.   ToolButtonFont.Enabled:=false;
  209.   //设置光标为十字光标
  210.   FormCanvas.Cursor:=crArrow;
  211. end;
  213. //响应工具按扭“椭圆”的单击事件
  214. procedure TFormPaintbrush.ToolButtonEllipseClick(
  215.   Sender: TObject);
  216. begin
  217.   //设置当前选择的工具为3(3代表椭圆)
  218.    mType:=3;
  219.    //工具条的down状态(即是否下压)
  220.   ToolButtonLine.Down:=false;
  221.   ToolButtonRectangle.Down:=false;
  222.   ToolButtonEllipse.Down:=true;
  223.   ToolButtonFEllipse.Down:=false;
  224.   ToolButtonFRectangle.Down:=false;
  225.   ToolButtonPen.Down:=false;
  226.   ToolButtonEraser.Down:=false;
  227.   ToolButtonArrow.Down:=false;
  228.   ToolButtonOpen.Down:=false;
  229.   ToolButtonSave.Down:=false;
  230.   ToolButtonCut.Down:=false;
  231.   ToolButtonEiminate.Down:=false;
  232.   ToolButtonHelp.Down:=false;
  233.   ToolButtonEC.Down:=false;
  234.   ToolButtonChar.Down:=false;
  235.   ToolButtonFont.Enabled:=false;
  236.   //设置光标为十字光标
  237.   FormCanvas.Cursor:=crArrow;
  238. end;
  240. //响应工具按扭“矩形”的单击事件
  241. procedure TFormPaintbrush.ToolButtonRectangleClick(Sender: TObject);
  242. begin
  243.    //设置当前选择的工具为2(2代表矩形)
  244.    mType:=2;
  245.    //工具条的down状态(即是否下压)
  246.   ToolButtonLine.Down:=false;
  247.   ToolButtonRectangle.Down:=true;
  248.   ToolButtonEllipse.Down:=false;
  249.   ToolButtonFEllipse.Down:=false;
  250.   ToolButtonFRectangle.Down:=false;
  251.   ToolButtonPen.Down:=false;
  252.   ToolButtonEraser.Down:=false;
  253.   ToolButtonArrow.Down:=false;
  254.   ToolButtonOpen.Down:=false;
  255.   ToolButtonSave.Down:=false;
  256.   ToolButtonCut.Down:=false;
  257.   ToolButtonEiminate.Down:=false;
  258.   ToolButtonHelp.Down:=false;
  259.   ToolButtonEC.Down:=false;
  260.   ToolButtonChar.Down:=false;
  261.   ToolButtonFont.Enabled:=false;
  262.   //设置光标为十字光标
  263.   FormCanvas.Cursor:=crArrow;
  264. end;
  266. //响应复选框的改变事件
  267. procedure TFormPaintbrush.ComboBoxWidthChange(Sender: TObject);
  268. begin
  269.   //线宽设置为复选框的内容
  270.    mDrawWidth:=StrToInt(ComboBoxWidth.text);
  271. end;
  273. //响应颜色框的改变事件
  274. procedure TFormPaintbrush.ColorBoxChange(Sender: TObject);
  275. begin
  276.    //颜色设置为颜色框所选择的颜色
  277.    Shape1.Brush.Color:=ColorBox.Selected;
  278.    //设置绘图的颜色
  279.    mDrawColor:=Shape1.Brush.Color;
  280.    //设置字体的颜色
  281.    FormTxt.Edit1.Font.Color:=ColorBox.Selected;
  282. end;
  284. //响应工具按扭“带填充的椭圆”的单击事件
  285. procedure TFormPaintbrush.ToolButtonFEllipseClick(Sender: TObject);
  286. begin
  287.   //设置当前选择的工具为4(4代表带填充的椭圆)
  288.    mType:=4;
  289.    //工具条的down状态(即是否下压)
  290.   ToolButtonLine.Down:=false;
  291.   ToolButtonRectangle.Down:=false;
  292.   ToolButtonEllipse.Down:=false;
  293.   ToolButtonFEllipse.Down:=true;
  294.   ToolButtonFRectangle.Down:=false;
  295.   ToolButtonPen.Down:=false;
  296.   ToolButtonEraser.Down:=false;
  297.   ToolButtonArrow.Down:=false;
  298.   ToolButtonOpen.Down:=false;
  299.   ToolButtonSave.Down:=false;
  300.   ToolButtonCut.Down:=false;
  301.   ToolButtonEiminate.Down:=false;
  302.   ToolButtonHelp.Down:=false;
  303.   ToolButtonEC.Down:=false;
  304.   ToolButtonChar.Down:=false;
  305.   ToolButtonFont.Enabled:=false;
  306.   //设置光标为十字光标
  307.   FormCanvas.Cursor:=crArrow;
  308. end;
  310. //响应工具按扭“带填充矩形”的单击事件
  311. procedure TFormPaintbrush.ToolButtonFRectangleClick(Sender: TObject);
  312. begin
  313.   //设置当前选择的工具为5(5代表带填充的矩形)
  314.   mType:=5;
  315.   //工具条的down状态(即是否下压)
  316.   ToolButtonLine.Down:=false;
  317.   ToolButtonRectangle.Down:=false;
  318.   ToolButtonEllipse.Down:=false;
  319.   ToolButtonFEllipse.Down:=false;
  320.   ToolButtonFRectangle.Down:=true;
  321.   ToolButtonPen.Down:=false;
  322.   ToolButtonEraser.Down:=false;
  323.   ToolButtonArrow.Down:=false;
  324.   ToolButtonOpen.Down:=false;
  325.   ToolButtonSave.Down:=false;
  326.   ToolButtonCut.Down:=false;
  327.   ToolButtonEiminate.Down:=false;
  328.   ToolButtonHelp.Down:=false;
  329.   ToolButtonEC.Down:=false;
  330.   ToolButtonChar.Down:=false;
  331.   ToolButtonFont.Enabled:=false;
  332.   //设置光标为十字光标
  333.   FormCanvas.Cursor:=crArrow;
  334. end;
  336. //响应工具按扭“铅笔”的单击事件
  337. procedure TFormPaintbrush.ToolButtonPenClick(Sender: TObject);
  338. begin
  339.   //设置当前选择的工具为6(6代表铅笔工具）
  340.   mType:=6;
  341.   //工具条的down状态(即是否下压)
  342.   ToolButtonLine.Down:=false;
  343.   ToolButtonRectangle.Down:=false;
  344.   ToolButtonEllipse.Down:=false;
  345.   ToolButtonFEllipse.Down:=false;
  346.   ToolButtonFRectangle.Down:=false;
  347.   ToolButtonPen.Down:=true;
  348.   ToolButtonEraser.Down:=false;
  349.   ToolButtonArrow.Down:=false;
  350.   ToolButtonOpen.Down:=false;
  351.   ToolButtonSave.Down:=false;
  352.   ToolButtonCut.Down:=false;
  353.   ToolButtonEiminate.Down:=false;
  354.   ToolButtonHelp.Down:=false;
  355.   ToolButtonEC.Down:=false;
  356.   ToolButtonChar.Down:=false;
  357.   ToolButtonFont.Enabled:=false;
  358.   //设置光标为十字光标
  359.   FormCanvas.Cursor:=crArrow;
  360. end;
  362. //响应工具按扭“切换黑白板”的单击事件
  363. procedure TFormPaintbrush.ToolButtonCutClick(Sender: TObject);
  364. begin
  365.    //判断修改标志的状态，以提醒用户是否需要保存
  366.    if(mModifyFlag=true)then
  367.    begin
  368.      //显示保存提示框
  369.      if(MessageDlg('将改动保存到未命名？',
  370.        mtConfirmation,[mbYes,mbNo],0) =mrYes) then
  371.        //调用"保存"菜单的响应函数来保存文件
  372.        MenuSaveClick(Sender);
  373.        //设置修改状态
  374.        mModifyFlag:=false;
  375.    end;
  376.    //鼠标点击"切换黑白板"按钮的次数自增1
  377.    mCNO:=mCNO+1;
  378.    if(mCNO mod 3=1) then
  379.    begin
  380.      //将image1的颜色设置为黑色
  381.      FormCanvas.image1.Canvas.Brush.Color:=clblack;
  382.      FormCanvas.image1.Canvas.FillRect(FormCanvas.image1.ClientRect);
  383.    end
  384.    else if(mCNO mod 3=2) then
  385.    begin
  386.      //将image1的颜色设置为白色
  387.      FormCanvas.image1.Canvas.Brush.Color:=clwhite;
  388.      FormCanvas.image1.Canvas.FillRect(FormCanvas.image1.ClientRect);
  389.    end
  390.    else
  391.    //将image1恢复为原先的图片
  392.    FormCanvas.image1.Picture:=FormCanvas.imagecopy.Picture;
  393. end;
  395. //响应"新建"菜单
  396. procedure TFormPaintbrush.MenuNewClick(Sender: TObject);
  397. begin
  398.   //判断修改标志的状态，以提醒用户是否需要保存
  399.   if(mModifyFlag=true)then
  400.   begin
  401.     //显示保存提示框
  402.     if(MessageDlg('将改动保存到未命名？',
  403.        mtConfirmation,[mbYes,mbNo],0) =mrYes) then
  404.        //调用"保存"菜单的响应函数来保存文件
  405.        MenuSaveClick(Sender);
  406.     //设置修改状态
  407.     mModifyFlag:=false;
  408.   end;
  409.   //将最先桌面的图片拷贝到image1中
  410.   FormCanvas.image1.Picture:=FormCanvas.imagecopy.Picture;
  411. end;
  413. //响应"保存"菜单
  414. procedure TFormPaintbrush.MenuSaveClick(Sender: TObject);
  415. begin
  416.   //显示保存图片对话框,并且单击“确定”按钮，则...
  417.   if SavePictureDialog1.Execute() then
  418.   begin
  419.     //保存Image1图片
  420.     FormCanvas.Image1.Picture.Bitmap.SaveToFile(SavePictureDialog1.fileName);
  421.     //设置修改状态
  422.     mModifyFlag:=false;
  423.   end;
  424. end;
  426. //响应"打开"菜单
  427. procedure TFormPaintbrush.MenuOpenClick(Sender: TObject);
  428. var
  429.   rect:Trect;
  430. begin
  431.    //显示打开图片对话框
  432.    if OpenPictureDialog1.Execute() then
  433.       Bitmap.LoadFromFile(OpenPictureDialog1.Filename);
  434.    rect.Left:=0;
  435.    rect.Top:=0;
  436.    rect.Right:=FormCanvas.Image1.Width;
  437.    rect.Bottom:=FormCanvas.Image1.Height;
  438.    //判断修改标志的状态，以提醒用户是否需要保存
  439.    if(mModifyFlag=true)then
  440.    begin
  441.      //显示保存提示框
  442.      if(MessageDlg('将改动保存到未命名？',
  443.         mtConfirmation,[mbYes,mbNo],0) =mrYes) then
  444.         //调用"保存"菜单的响应函数来保存文件
  445.         MenuSaveClick(Sender);
  446.          //设置修改状态
  447.         mModifyFlag:=false;
  448.     end;
  449.     //将位图中的图象复制到画布中
  450.     FormCanvas.Image1.Canvas.CopyRect(rect,bitmap.Canvas,rect);
  451. end;
  453. //响应工具按扭“橡皮”的单击事件
  454. procedure TFormPaintbrush.ToolButtonEraserClick(Sender: TObject);
  455. begin
  456.   //设置当前选择的工具为为7(7代表橡皮工具）
  457.   mType:=7;
  458.   //工具条的down状态(即是否下压)
  459.   ToolButtonLine.Down:=false;
  460.   ToolButtonRectangle.Down:=false;
  461.   ToolButtonEllipse.Down:=false;
  462.   ToolButtonFEllipse.Down:=false;
  463.   ToolButtonFRectangle.Down:=false;
  464.   ToolButtonPen.Down:=false;
  465.   ToolButtonEraser.Down:=true;
  466.   ToolButtonArrow.Down:=false;
  467.   ToolButtonOpen.Down:=false;
  468.   ToolButtonSave.Down:=false;
  469.   ToolButtonCut.Down:=false;
  470.   ToolButtonEiminate.Down:=false;
  471.   ToolButtonHelp.Down:=false;
  472.   ToolButtonEC.Down:=false;
  473.   ToolButtonChar.Down:=false;
  474.   ToolButtonFont.Enabled:=false;
  475.   //设置光标为十字光标
  476.   FormCanvas.Cursor:=crHandPoint;
  477. end;
  479. //响应工具按扭“箭头”的单击事件
  480. procedure TFormPaintbrush.ToolButtonArrowClick(Sender: TObject);
  481. begin
  482.   //设置当前选择的工具为8(8代表箭头工具）
  483.   mType:=8;
  484.   //工具条的down状态(即是否下压)
  485.   ToolButtonLine.Down:=false;
  486.   ToolButtonRectangle.Down:=false;
  487.   ToolButtonEllipse.Down:=false;
  488.   ToolButtonFEllipse.Down:=false;
  489.   ToolButtonFRectangle.Down:=false;
  490.   ToolButtonPen.Down:=false;
  491.   ToolButtonEraser.Down:=false;
  492.   ToolButtonArrow.Down:=true;
  493.   ToolButtonOpen.Down:=false;
  494.   ToolButtonSave.Down:=false;
  495.   ToolButtonCut.Down:=false;
  496.   ToolButtonEiminate.Down:=false;
  497.   ToolButtonHelp.Down:=false;
  498.   ToolButtonEC.Down:=false;
  499.   ToolButtonChar.Down:=false;
  500.   ToolButtonFont.Enabled:=false;
  501.   //设置光标为十字光标
  502.   FormCanvas.Cursor:=crArrow;
  503. end;
  505. //响应工具按扭“放大镜”的单击事件
  506. procedure TFormPaintbrush.ToolButtonEnlargeClick(Sender: TObject);
  507. begin
  508.    //响应的次数增1
  509.    mClick:=mClick+1;
  510.    if mClick mod 2=1 then
  511.    begin
  512.      //工具条的down状态(即是否下压)
  513.      ToolButtonEnlarge.Down:=true;
  514.      //显示Image2
  515.      FormCanvas.Image2.Show;
  516.    end
  517.    else
  518.    begin
  519.      //工具条的down状态(即是否下压)
  520.      ToolButtonEnlarge.Down:=false;
  521.      //隐藏Image2
  522.      FormCanvas.Image2.Hide;
  523.    end;
  524. end;
  526. //响应工具按扭“清屏”的单击事件
  527. procedure TFormPaintbrush.ToolButtonEiminateClick(Sender: TObject);
  528. begin
  529.    //显示清屏提示框
  530.    //if(MessageDlg('确定要清空屏幕吗？',
  531.    //mtConfirmation,[mbYes,mbNo],0) =mrYes) then
  532.    begin
  533.      //如果屏幕处于桌面状态，则恢复桌面图片
  534.      if(mCNO mod 3=1) then
  535.      begin
  536.        FormCanvas.image1.Canvas.Brush.Color:=clblack;
  537.        FormCanvas.image1.Canvas.FillRect(FormCanvas.image1.ClientRect);
  538.      end
  539.      //如果屏幕处于白板状态，则恢复白板
  540.      else if(mCNO mod 3=2) then
  541.      begin
  542.        FormCanvas.image1.Canvas.Brush.Color:=clwhite;
  543.        FormCanvas.image1.Canvas.FillRect(FormCanvas.image1.ClientRect);
  544.      end
  545.      //如果屏幕处于黑板状态就恢复黑板
  546.      else
  547.      FormCanvas.image1.Picture:=FormCanvas.imagecopy.Picture;
  548.    end;
  549. end;
  551. //响应“退出”菜单
  552. procedure TFormPaintbrush.MenuExitClick(Sender: TObject);
  553. begin
  554.   //关闭窗口
  555.   close();
  556. end;
  558. //响应工具按扭“取色”的单击事件
  559. procedure TFormPaintbrush.ToolButtonECClick(Sender: TObject);
  560. begin
  561.   //设置当前选择的工具为10（10代表取色工具）
  562.   mType:=10;
  563.   //工具条的down状态(即是否下压)
  564.   ToolButtonLine.Down:=false;
  565.   ToolButtonRectangle.Down:=false;
  566.   ToolButtonEllipse.Down:=false;
  567.   ToolButtonFEllipse.Down:=false;
  568.   ToolButtonFRectangle.Down:=false;
  569.   ToolButtonPen.Down:=false;
  570.   ToolButtonEraser.Down:=false;
  571.   ToolButtonArrow.Down:=false;
  572.   ToolButtonOpen.Down:=false;
  573.   ToolButtonSave.Down:=false;
  574.   ToolButtonCut.Down:=false;
  575.   ToolButtonEiminate.Down:=false;
  576.   ToolButtonHelp.Down:=false;
  577.   ToolButtonEC.Down:=true;
  578.   ToolButtonChar.Down:=false;
  579.   ToolButtonFont.Enabled:=false;
  580. end;
  582. //响应窗口关闭事件
  583. procedure TFormPaintbrush.FormClose(Sender: TObject;
  584.   var Action: TCloseAction);
  585. begin
  586. {
  587.   //判断修改标志的状态，以提醒用户是否需要保存
  588.   if(mModifyFlag=true)then
  589.   begin
  590.     //显示保存提示框
  591.     if(MessageDlg('将改动保存到未命名？',
  592.        mtConfirmation,[mbYes,mbNo],0) =mrYes) then
  593.        //调用"保存"菜单的响应函数来保存文件
  594.        MenuSaveClick(Sender);
  595.     //设置修改状态
  596.     mModifyFlag:=false;
  597.   end;
  598.   }
  599. end;
  601. //响应“图片”按钮的单击事件
  602. procedure TFormPaintbrush.ButtonPictureClick(Sender: TObject);
  603. begin
  604.   //响应次数增1
  605.   mCpno:=mCpno+1;
  606.   //如果响应的次数为奇数
  607.   if(mCpno mod 2=1) then
  608.   begin
  609.     //显示Panel1
  610.     Panel1.Visible:=true;
  611.      //工具条的down状态(即是否下压)
  612.     ToolButtonLine.Down:=false;
  613.     ToolButtonRectangle.Down:=false;
  614.     ToolButtonEllipse.Down:=false;
  615.     ToolButtonFEllipse.Down:=false;
  616.     ToolButtonFRectangle.Down:=false;
  617.     ToolButtonPen.Down:=false;
  618.     ToolButtonEraser.Down:=false;
  619.     ToolButtonArrow.Down:=false;
  620.     ToolButtonOpen.Down:=false;
  621.     ToolButtonSave.Down:=false;
  622.     ToolButtonCut.Down:=false;
  623.     ToolButtonEiminate.Down:=false;
  624.     ToolButtonHelp.Down:=false;
  625.     ToolButtonEC.Down:=false;
  626.     ToolButtonChar.Down:=false;
  627.     ToolButtonFont.Enabled:=false;
  628.   end
  629.   //如果响应的次数为偶数，那么隐藏Panel1
  630.   else Panel1.Visible:=false;
  631. end;
  633. //响应按扭“显示器”的单击事件
  634. procedure TFormPaintbrush.SpeedButtonDisplayClick(Sender: TObject);
  635. begin
  636.     //设置当前选择的工具为11
  637.     mType:=11;
  638.     //工具条的down状态(即是否下压)
  639.     ToolButtonLine.Down:=false;
  640.     ToolButtonRectangle.Down:=false;
  641.     ToolButtonEllipse.Down:=false;
  642.     ToolButtonFEllipse.Down:=false;
  643.     ToolButtonFRectangle.Down:=false;
  644.     ToolButtonPen.Down:=false;
  645.     ToolButtonEraser.Down:=false;
  646.     ToolButtonArrow.Down:=false;
  647.     ToolButtonOpen.Down:=false;
  648.     ToolButtonSave.Down:=false;
  649.     ToolButtonCut.Down:=false;
  650.     ToolButtonEiminate.Down:=false;
  651.     ToolButtonHelp.Down:=false;
  652.     ToolButtonEC.Down:=false;
  653.     ToolButtonChar.Down:=false;
  654.     //设置光标为十字光标
  655.     FormCanvas.Cursor:=crArrow;
  656. end;
  658. //响应工具按扭“文字”的单击事件
  659. procedure TFormPaintbrush.ToolButtonCharClick(Sender: TObject);
  660. begin
  661.   //清空Edit1的text
  662.   FormTxt.Edit1.Clear;
  663.   //设置当前选择的工具为12
  664.   mType:=12;
  665.   //工具条的down状态(即是否下压)
  666.   ToolButtonLine.Down:=false;
  667.   ToolButtonRectangle.Down:=false;
  668.   ToolButtonEllipse.Down:=false;
  669.   ToolButtonFEllipse.Down:=false;
  670.   ToolButtonFRectangle.Down:=false;
  671.   ToolButtonPen.Down:=false;
  672.   ToolButtonEraser.Down:=false;
  673.   ToolButtonArrow.Down:=false;
  674.   ToolButtonOpen.Down:=false;
  675.   ToolButtonSave.Down:=false;
  676.   ToolButtonCut.Down:=false;
  677.   ToolButtonEiminate.Down:=false;
  678.   ToolButtonHelp.Down:=false;
  679.   ToolButtonEC.Down:=false;
  680.   ToolButtonChar.Down:=true;
  681.   ToolButtonFont.Enabled:=true;
  682.   //设置鼠标的形状
  683.   FormCanvas.Cursor:=crIBeam;
  684.   //设置初始字体的颜色
  685.   FormTxt.Edit1.Font.Color:=shape1.Brush.Color;
  686.   FormTxt.Edit1.Font.Name:='黑体';
  687. end;
  689. //响应工具按扭“字体”的单击事件
  690. procedure TFormPaintbrush.ToolButtonFontClick(Sender: TObject);
  691. begin
  692.   //显示标准颜色对话框
  693.   if FontDialog1.Execute() then
  694.   begin
  695.     //将Edit1的字体设置为字体对话框的字体
  696.     FormTxt.Edit1.Font.Charset:=FontDialog1.Font.Charset;
  697.     FormTxt.Edit1.Font.Color:=FontDialog1.Font.Color;
  698.     FormTxt.Edit1.Font.Size:=FontDialog1.Font.Size;
  699.     FormTxt.Edit1.Font.Name:=FontDialog1.Font.Name;
  700.     FormTxt.Edit1.Font.Pitch:=FontDialog1.Font.Pitch;
  701.     FormTxt.Edit1.Font.Height:=FontDialog1.Font.Height;
  702.     FormTxt.Edit1.Font.Style:=FontDialog1.Font.Style;
  703.   end;
  704.   //将选择的颜色在颜色框和Shape1中显示出来
  705.   ColorBox.Selected:=FontDialog1.Font.Color;
  706.   Shape1.Brush.Color:=ColorBox.Selected;
  707.   //设置绘图颜色
  708.   mDrawColor:=Shape1.Brush.Color;
  709.   //将文字输入窗口隐藏
  710.   FormTxt.Hide;
  711. end;
  713. //响应按扭“路由器”的单击事件
  714. procedure TFormPaintbrush.SpeedButtonRouterClick(Sender: TObject);
  715. begin
  716.     //设置当前选择的工具为13
  717.     mType:=13;
  718.     //工具条的down状态(即是否下压)
  719.     ToolButtonLine.Down:=false;
  720.     ToolButtonRectangle.Down:=false;
  721.     ToolButtonEllipse.Down:=false;
  722.     ToolButtonFEllipse.Down:=false;
  723.     ToolButtonFRectangle.Down:=false;
  724.     ToolButtonPen.Down:=false;
  725.     ToolButtonEraser.Down:=false;
  726.     ToolButtonArrow.Down:=false;
  727.     ToolButtonOpen.Down:=false;
  728.     ToolButtonSave.Down:=false;
  729.     ToolButtonCut.Down:=false;
  730.     ToolButtonEiminate.Down:=false;
  731.     ToolButtonHelp.Down:=false;
  732.     ToolButtonEC.Down:=false;
  733.     ToolButtonChar.Down:=false;
  734.     ToolButtonFont.Enabled:=false;
  735.     //设置光标为十字光标
  736.     FormCanvas.Cursor:=crArrow;
  737. end;
  739. //响应按扭“交换机”的单击事件
  740. procedure TFormPaintbrush.SpeedButtonSwitchClick(Sender: TObject);
  741. begin
  742.     //设置当前选择的工具为14
  743.     mType:=14;
  744.     //工具条的down状态(即是否下压)
  745.     ToolButtonLine.Down:=false;
  746.     ToolButtonRectangle.Down:=false;
  747.     ToolButtonEllipse.Down:=false;
  748.     ToolButtonFEllipse.Down:=false;
  749.     ToolButtonFRectangle.Down:=false;
  750.     ToolButtonPen.Down:=false;
  751.     ToolButtonEraser.Down:=false;
  752.     ToolButtonArrow.Down:=false;
  753.     ToolButtonOpen.Down:=false;
  754.     ToolButtonSave.Down:=false;
  755.     ToolButtonCut.Down:=false;
  756.     ToolButtonEiminate.Down:=false;
  757.     ToolButtonHelp.Down:=false;
  758.     ToolButtonEC.Down:=false;
  759.     ToolButtonChar.Down:=false;
  760.     ToolButtonFont.Enabled:=false;
  761.     //设置光标为十字光标
  762.     FormCanvas.Cursor:=crArrow;
  763. end;
  765. //响应工具按扭“帮助”的单击事件
  766. procedure TFormPaintbrush.ToolButtonHelpClick(Sender: TObject);
  767. begin
  768.   //显示关于屏幕画笔窗口
  769.   FormAbout.Show;
  770. end;
  772. //响应按扭“调制解调器”的单击事件
  773. procedure TFormPaintbrush.SpeedButtonModemClick(Sender: TObject);
  774. begin
  775.     //设置当前选择的工具为15
  776.     mType:=15;
  777.     //工具条的down状态(即是否下压)
  778.     ToolButtonLine.Down:=false;
  779.     ToolButtonRectangle.Down:=false;
  780.     ToolButtonEllipse.Down:=false;
  781.     ToolButtonFEllipse.Down:=false;
  782.     ToolButtonFRectangle.Down:=false;
  783.     ToolButtonPen.Down:=false;
  784.     ToolButtonEraser.Down:=false;
  785.     ToolButtonArrow.Down:=false;
  786.     ToolButtonOpen.Down:=false;
  787.     ToolButtonSave.Down:=false;
  788.     ToolButtonCut.Down:=false;
  789.     ToolButtonEiminate.Down:=false;
  790.     ToolButtonHelp.Down:=false;
  791.     ToolButtonEC.Down:=false;
  792.     ToolButtonChar.Down:=false;
  793.     ToolButtonFont.Enabled:=false;
  794.     //设置光标为十字光标
  795.     FormCanvas.Cursor:=crArrow;
  796. end;
  798. //响应按扭“光驱”的单击事件
  799. procedure TFormPaintbrush.SpeedButtonCDROMClick(Sender: TObject);
  800. begin
  801.     //设置当前选择的工具为16
  802.     mType:=16;
  803.     //工具条的down状态(即是否下压)
  804.     ToolButtonLine.Down:=false;
  805.     ToolButtonRectangle.Down:=false;
  806.     ToolButtonEllipse.Down:=false;
  807.     ToolButtonFEllipse.Down:=false;
  808.     ToolButtonFRectangle.Down:=false;
  809.     ToolButtonPen.Down:=false;
  810.     ToolButtonEraser.Down:=false;
  811.     ToolButtonArrow.Down:=false;
  812.     ToolButtonOpen.Down:=false;
  813.     ToolButtonSave.Down:=false;
  814.     ToolButtonCut.Down:=false;
  815.     ToolButtonEiminate.Down:=false;
  816.     ToolButtonHelp.Down:=false;
  817.     ToolButtonEC.Down:=false;
  818.     ToolButtonChar.Down:=false;
  819.     ToolButtonFont.Enabled:=false;
  820.     //设置光标为十字光标
  821.     FormCanvas.Cursor:=crArrow;
  822. end;
  824. //响应按扭“服务器”的单击事件
  825. procedure TFormPaintbrush.SpeedButtonServerClick(Sender: TObject);
  826. begin
  827.     //设置当前选择的工具为17
  828.     mType:=17;
  829.     //工具条的down状态(即是否下压)
  830.     ToolButtonLine.Down:=false;
  831.     ToolButtonRectangle.Down:=false;
  832.     ToolButtonEllipse.Down:=false;
  833.     ToolButtonFEllipse.Down:=false;
  834.     ToolButtonFRectangle.Down:=false;
  835.     ToolButtonPen.Down:=false;
  836.     ToolButtonEraser.Down:=false;
  837.     ToolButtonArrow.Down:=false;
  838.     ToolButtonOpen.Down:=false;
  839.     ToolButtonSave.Down:=false;
  840.     ToolButtonCut.Down:=false;
  841.     ToolButtonEiminate.Down:=false;
  842.     ToolButtonHelp.Down:=false;
  843.     ToolButtonEC.Down:=false;
  844.     ToolButtonChar.Down:=false;
  845.     ToolButtonFont.Enabled:=false;
  846.     //设置光标为十字光标
  847.     FormCanvas.Cursor:=crArrow;
  848. end;
  850. //响应按扭“数据库”的单击事件
  851. procedure TFormPaintbrush.SpeedButtonDBClick(Sender: TObject);
  852. begin
  853.     //设置当前选择的工具为18
  854.     mType:=18;
  855.     //工具条的down状态(即是否下压)
  856.     ToolButtonLine.Down:=false;
  857.     ToolButtonRectangle.Down:=false;
  858.     ToolButtonEllipse.Down:=false;
  859.     ToolButtonFEllipse.Down:=false;
  860.     ToolButtonFRectangle.Down:=false;
  861.     ToolButtonPen.Down:=false;
  862.     ToolButtonEraser.Down:=false;
  863.     ToolButtonArrow.Down:=false;
  864.     ToolButtonOpen.Down:=false;
  865.     ToolButtonSave.Down:=false;
  866.     ToolButtonCut.Down:=false;
  867.     ToolButtonEiminate.Down:=false;
  868.     ToolButtonHelp.Down:=false;
  869.     ToolButtonEC.Down:=false;
  870.     ToolButtonChar.Down:=false;
  871.     ToolButtonFont.Enabled:=false;
  872.     //设置光标为十字光标
  873.     FormCanvas.Cursor:=crArrow;
  874. end;
  876. //响应按扭“集线器”的单击事件
  877. procedure TFormPaintbrush.SpeedButtonConcentratorClick(Sender: TObject);
  878. begin
  879.     //设置当前选择的工具为19
  880.     mType:=19;
  881.     //工具条的down状态(即是否下压)
  882.     ToolButtonLine.Down:=false;
  883.     ToolButtonRectangle.Down:=false;
  884.     ToolButtonEllipse.Down:=false;
  885.     ToolButtonFEllipse.Down:=false;
  886.     ToolButtonFRectangle.Down:=false;
  887.     ToolButtonPen.Down:=false;
  888.     ToolButtonEraser.Down:=false;
  889.     ToolButtonArrow.Down:=false;
  890.     ToolButtonOpen.Down:=false;
  891.     ToolButtonSave.Down:=false;
  892.     ToolButtonCut.Down:=false;
  893.     ToolButtonEiminate.Down:=false;
  894.     ToolButtonHelp.Down:=false;
  895.     ToolButtonEC.Down:=false;
  896.     ToolButtonChar.Down:=false;
  897.     ToolButtonFont.Enabled:=false;
  898.     //设置光标为十字光标
  899.     FormCanvas.Cursor:=crArrow;
  900. end;
  902. procedure TFormPaintbrush.SpeedButton1Click(Sender: TObject);
  903. begin
  904.     //设置当前选择的工具为20
  905.     mType:=20;
  906.     //工具条的down状态(即是否下压)
  907.     ToolButtonLine.Down:=false;
  908.     ToolButtonRectangle.Down:=false;
  909.     ToolButtonEllipse.Down:=false;
  910.     ToolButtonFEllipse.Down:=false;
  911.     ToolButtonFRectangle.Down:=false;
  912.     ToolButtonPen.Down:=false;
  913.     ToolButtonEraser.Down:=false;
  914.     ToolButtonArrow.Down:=false;
  915.     ToolButtonOpen.Down:=false;
  916.     ToolButtonSave.Down:=false;
  917.     ToolButtonCut.Down:=false;
  918.     ToolButtonEiminate.Down:=false;
  919.     ToolButtonHelp.Down:=false;
  920.     ToolButtonEC.Down:=false;
  921.     ToolButtonChar.Down:=false;
  922.     ToolButtonFont.Enabled:=false;
  923.     //设置光标为十字光标
  924.     FormCanvas.Cursor:=crArrow;
  925. end;
  927. procedure TFormPaintbrush.MenuMainHelpClick(Sender: TObject);
  928. begin
  929.     //导入帮助文件
  930.     Application.HelpFile:='D:屏幕画笔帮助.HLP';
  931.     //显示帮助文件目录
  932.     Application.HelpCommand(HELP_Index,0);
  933. end;
  935. end.