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

源码开发语言/平台
当前位置：首页 > 电子书籍 > Delphi/CppBuilder > 查看源码
Mouse.cpp
资源名称：c++builder6编程实例.ZIP　[点击查看]
上传用户：lulishicai
上传日期：2010-03-01
资源大小：13202k
文件大小：3k
源码类别：

Delphi/CppBuilder

开发平台：

C++ Builder

Mouse.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "Mouse.h"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  8. #pragma resource "*.dfm"
  9. TForm1 *Form1;
  10. Boolean start;
  11. Boolean move;
  12. int num;
  13. //声明变量
  14. //---------------------------------------------------------------------------
  15. __fastcall TForm1::TForm1(TComponent* Owner)
  16.         : TForm(Owner)
  17. {
  18. }
  19. //---------------------------------------------------------------------------
  21. void __fastcall TForm1::FormCreate(TObject *Sender)
  22. {
  23. start=false;
  24. move=false;
  25. //变量初始化
  26. }
  27. //---------------------------------------------------------------------------
  29. void __fastcall TForm1::Button1Click(TObject *Sender)
  30. {
  31. start=true;
  32. //准备绘图
  33. }
  34. //---------------------------------------------------------------------------
  36. void __fastcall TForm1::Button2Click(TObject *Sender)
  37. {
  38. start=false;
  39. //结束绘图
  40. }
  41. //---------------------------------------------------------------------------
  43. void __fastcall TForm1::Button3Click(TObject *Sender)
  44. {
  45. Close();
  46. //结束程序运行
  47. }
  48. //---------------------------------------------------------------------------
  50. void __fastcall TForm1::RadioButton1Click(TObject *Sender)
  51. {
  52. num=1;
  53. //设置绘制鼠标轨迹的方式为圆
  54. }
  55. //---------------------------------------------------------------------------
  57. void __fastcall TForm1::RadioButton2Click(TObject *Sender)
  58. {
  59. num=2;
  60. //设置绘制鼠标轨迹的方式为矩形
  61. }
  62. //---------------------------------------------------------------------------
  64. void __fastcall TForm1::RadioButton3Click(TObject *Sender)
  65. {
  66. num=3;
  67. //设置绘制鼠标轨迹的方式为直线
  68. }
  69. //---------------------------------------------------------------------------
  71. void __fastcall TForm1::RadioButton4Click(TObject *Sender)
  72. {
  73. num=4;
  74. //设置绘制鼠标轨迹的方式为椭圆
  75. }
  76. //---------------------------------------------------------------------------
  78. void __fastcall TForm1::Image1MouseDown(TObject *Sender,
  79.       TMouseButton Button, TShiftState Shift, int X, int Y)
  80. {
  81. move=true;
  82. //开始绘图
  83. }
  84. //---------------------------------------------------------------------------
  86. void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
  87.       int X, int Y)
  88. {
  89. if (start)
  90.    {
  91.    if (move)
  92.       {
  93.       if (num==1)
  94.          Form1->Image1->Canvas->Ellipse(X-5,Y-5,X+5,Y+5);
  95.          //以圆的形式跟踪鼠标轨迹
  96.       else if (num==2)
  97.          Form1->Image1->Canvas->Rectangle(X-5,Y-5,X+5,Y+5);
  98.          //以矩形的形式跟踪鼠标轨迹
  99.       else if (num==3)
  100.          Form1->Image1->Canvas->LineTo(X,Y);
  101.          //以直线的形式跟踪鼠标轨迹
  102.       else if (num==4)
  103.          Form1->Image1->Canvas->Ellipse(X-5,Y-2,X+5,Y+2);
  104.          //以椭圆的形式跟踪鼠标轨迹
  105.       }
  106.     }
  107. //按照鼠标的运动轨迹绘图
  108. }
  109. //---------------------------------------------------------------------------
  111. void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
  112.       TShiftState Shift, int X, int Y)
  113. {
  114. move=false;
  115. //结束绘图
  116. }
  117. //---------------------------------------------------------------------------