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

源码开发语言/平台
当前位置：首页 > 电子书籍 > 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
  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::FormCreate(TObject *Sender)
  18. {
  19. Form1->ListBox1->Items->Add("aviNone");
  20. Form1->ListBox1->Items->Add("aviFindFolder");
  21. Form1->ListBox1->Items->Add("aviFindFile");
  22. Form1->ListBox1->Items->Add("aviFindComputer");
  23. Form1->ListBox1->Items->Add("aviCopyFiles");
  24. Form1->ListBox1->Items->Add("aviCopyFile");
  25. Form1->ListBox1->Items->Add("aviRecycleFile");
  26. Form1->ListBox1->Items->Add("aviEmptyRecycle");
  27. Form1->ListBox1->Items->Add("aviDeleteFile");
  28. //为列表框添加列表项
  29. Form1->Animate1->AutoSize=true;
  30. //控件会自动适应动画的尺寸
  31. Form1->Animate1->Transparent=true;
  32. //不显示背景色
  33. Form1->Edit1->Text=IntToStr(Form1->Animate1->FrameCount);
  34. Form1->Edit2->Text="高"+IntToStr(Form1->Animate1->FrameHeight)+"宽"+IntToStr(Form1->Animate1->FrameWidth);
  35. Form1->Edit3->Text=IntToStr(Form1->Animate1->StartFrame);
  36. Form1->Edit4->Text=IntToStr(Form1->Animate1->StopFrame);
  37. Form1->Edit5->Text='0';
  38. //初始化文本框状态
  39. }
  40. //---------------------------------------------------------------------------
  42. void __fastcall TForm1::Timer1Timer(TObject *Sender)
  43. {
  44. Form1->Animate1->Transparent=!Form1->CheckBox1->Checked;
  45. //设置背景色是否可见
  46. Form1->Edit1->Text=IntToStr(Form1->Animate1->FrameCount);
  47. Form1->Edit2->Text="高"+IntToStr(Form1->Animate1->FrameHeight)+"宽"+IntToStr(Form1->Animate1->FrameWidth);
  48. Form1->Edit3->Text=IntToStr(Form1->Animate1->StartFrame);
  49. Form1->Edit4->Text=IntToStr(Form1->Animate1->StopFrame);
  50. //设置文本框中的显示文本
  51. }
  52. //---------------------------------------------------------------------------
  54. void __fastcall TForm1::CheckBox1Click(TObject *Sender)
  55. {
  56. if (Form1->CheckBox1->Checked)
  57.    {
  58.    Form1->Animate1->Transparent=!Form1->Animate1->Transparent;
  59.    Form1->Animate1->Update();
  60.    }
  61.    //设置背景色是否可见
  62. }
  63. //---------------------------------------------------------------------------
  65. void __fastcall TForm1::ListBox1Click(TObject *Sender)
  66. {
  67. int i;
  68. int j;
  69. //定义变量
  70. for (i=0;i<=(ListBox1->Items->Count-1);i++)
  71.     {
  72.     if (ListBox1->Selected[i])
  73.        {
  74.         j=i;
  75.        }
  76.      }
  77. switch (j)
  78.        {
  79.        case 0:Form1->Animate1->CommonAVI=aviNone;
  80.               break;
  81.        case 1:Form1->Animate1->CommonAVI=aviFindFolder;
  82.               break;
  83.        case 2:Form1->Animate1->CommonAVI=aviFindFile;
  84.               break;
  85.        case 3:Form1->Animate1->CommonAVI=aviFindComputer;
  86.               break;
  87.        case 4:Form1->Animate1->CommonAVI=aviCopyFiles;
  88.               break;
  89.        case 5:Form1->Animate1->CommonAVI=aviCopyFile;
  90.               break;
  91.        case 6:Form1->Animate1->CommonAVI=aviRecycleFile;
  92.               break;
  93.        case 7:Form1->Animate1->CommonAVI=aviEmptyRecycle;
  94.               break;
  95.        case 8:Form1->Animate1->CommonAVI=aviDeleteFile;
  96.        }
  97.        //显示选中的动画
  98. }
  99. //---------------------------------------------------------------------------
  101. void __fastcall TForm1::Edit3Change(TObject *Sender)
  102. {
  103. Form1->Animate1->StartFrame=StrToInt(Form1->Edit3->Text);
  104. //设置动画开始的帧数
  105. }
  106. //---------------------------------------------------------------------------
  108. void __fastcall TForm1::Edit4Change(TObject *Sender)
  109. {
  110. Form1->Animate1->StopFrame=StrToInt(Form1->Edit4->Text);
  111. //设置动画结束的帧数
  112. }
  113. //---------------------------------------------------------------------------
  115. void __fastcall TForm1::Edit5Change(TObject *Sender)
  116. {
  117. Form1->Animate1->Seek(StrToInt(Form1->Edit5->Text));
  118. //跳到指定的帧数
  119. }
  120. //---------------------------------------------------------------------------
  122. void __fastcall TForm1::ListBox1DblClick(TObject *Sender)
  123. {
  124. Form1->Animate1->Active=!Form1->Animate1->Active;
  125. //开始或停止动画
  126. }
  127. //---------------------------------------------------------------------------
  128.