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

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

Delphi/CppBuilder

开发平台：

C++ Builder

Animate.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4. #include <stdlib.h>
  5. #include "Animate.h"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  8. #pragma resource "*.dfm"
  9. TForm1 *Form1;
  10. //---------------------------------------------------------------------------
  11. __fastcall TForm1::TForm1(TComponent* Owner)
  12.         : TForm(Owner)
  13. {
  14. }
  15. //---------------------------------------------------------------------------
  17. void __fastcall TForm1::Timer1Timer(TObject *Sender)
  18. {
  19. Randomize;
  20. Form1->Shape1->Brush->Color=RGB(random(255),random(255),random(255));
  21. //设置画刷颜色
  22. Randomize;
  23. switch (random(8))
  24.      {
  25.      case 0:Form1->Shape1->Brush->Style=bsSolid;
  26.             break;
  27.      case 1:Form1->Shape1->Brush->Style=bsClear;
  28.             break;
  29.      case 2:Form1->Shape1->Brush->Style=bsHorizontal;
  30.             break;
  31.      case 3:Form1->Shape1->Brush->Style=bsVertical;
  32.             break;
  33.      case 4:Form1->Shape1->Brush->Style=bsFDiagonal;
  34.             break;
  35.      case 5:Form1->Shape1->Brush->Style=bsBDiagonal;
  36.             break;
  37.      case 6:Form1->Shape1->Brush->Style=bsCross;
  38.             break;
  39.      case 7:Form1->Shape1->Brush->Style=bsDiagCross;
  40.      }
  41.      //设置画刷风格
  42. Randomize;
  43. Form1->Shape1->Pen->Color=RGB(random(255),random(255),random(255));
  44. //设置画笔颜色
  45. Randomize;
  46. Form1->Shape1->Pen->Width=random(10)+1;
  47. //设置画笔大小
  48. Randomize;
  49. switch (random(16))
  50.      {
  51.      case 0:Form1->Shape1->Pen->Mode=pmBlack;
  52.             break;
  53.      case 1:Form1->Shape1->Pen->Mode=pmWhite;
  54.             break;
  55.      case 2:Form1->Shape1->Pen->Mode=pmNop;
  56.             break;
  57.      case 3:Form1->Shape1->Pen->Mode=pmNot;
  58.             break;
  59.      case 4:Form1->Shape1->Pen->Mode=pmCopy;
  60.             break;
  61.      case 5:Form1->Shape1->Pen->Mode=pmNotCopy;
  62.             break;
  63.      case 6:Form1->Shape1->Pen->Mode=pmMergePenNot;
  64.             break;
  65.      case 7:Form1->Shape1->Pen->Mode=pmMaskPenNot;
  66.             break;
  67.      case 8:Form1->Shape1->Pen->Mode=pmMergeNotPen;
  68.             break;
  69.      case 9:Form1->Shape1->Pen->Mode=pmMaskNotPen;
  70.             break;
  71.      case 10:Form1->Shape1->Pen->Mode=pmMerge;
  72.             break;
  73.      case 11:Form1->Shape1->Pen->Mode=pmNotMerge;
  74.             break;
  75.      case 12:Form1->Shape1->Pen->Mode=pmMask;
  76.             break;
  77.      case 13:Form1->Shape1->Pen->Mode=pmNotMask;
  78.             break;
  79.      case 14:Form1->Shape1->Pen->Mode=pmXor;
  80.             break;
  81.      case 15:Form1->Shape1->Pen->Mode=pmNotXor;
  82.      }
  83.      //设置画笔绘图模式
  84. Randomize;
  85. switch (random(7))
  86.      {
  87.      case 0:Form1->Shape1->Pen->Style=psSolid;
  88.           break;
  89.      case 1:Form1->Shape1->Pen->Style=psDash;
  90.           break;
  91.      case 2:Form1->Shape1->Pen->Style=psDot;
  92.           break;
  93.      case 3:Form1->Shape1->Pen->Style=psDashDot;
  94.           break;
  95.      case 4:Form1->Shape1->Pen->Style=psDashDotDot;
  96.           break;
  97.      case 5:Form1->Shape1->Pen->Style=psClear;
  98.           break;
  99.      case 6:Form1->Shape1->Pen->Style=psInsideFrame;
  100.      }
  101.      //设置画笔绘图风格
  102. Randomize;
  103. switch (random(6))
  104.      {
  105.      case 0:Form1->Shape1->Shape=stRectangle;
  106.           break;
  107.      case 1:Form1->Shape1->Shape=stSquare;
  108.           break;
  109.      case 2:Form1->Shape1->Shape=stRoundRect;
  110.           break;
  111.      case 3:Form1->Shape1->Shape=stRoundSquare;
  112.           break;
  113.      case 4:Form1->Shape1->Shape=stEllipse;
  114.           break;
  115.      case 5:Form1->Shape1->Shape=stCircle;
  116.      }
  117.      //设置控件形状
  118. }
  119. //---------------------------------------------------------------------------
  121. void __fastcall TForm1::FormCreate(TObject *Sender)
  122. {
  123. Form1->Shape1->Brush->Color=RGB(random(255),random(255),random(255));
  124. Form1->Shape1->Brush->Style=bsBDiagonal;
  125. Form1->Shape1->Pen->Color=RGB(random(255),random(255),random(255));
  126. Form1->Shape1->Pen->Width=random(10)+1;
  127. Form1->Shape1->Pen->Mode=pmMergeNotPen;
  128. Form1->Shape1->Pen->Style=psInsideFrame;
  129. Form1->Shape1->Shape=stRoundSquare;
  130. //设置绘图参数
  131. }
  132. //---------------------------------------------------------------------------
  135. void __fastcall TForm1::Shape1MouseDown(TObject *Sender,
  136.       TMouseButton Button, TShiftState Shift, int X, int Y)
  137. {
  138.    Form1->Timer1->Enabled=!Form1->Timer1->Enabled;
  139. }
  140. //---------------------------------------------------------------------------