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

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

Delphi/CppBuilder

开发平台：

C++ Builder

GUnit.cpp：源码内容
  1. //---------------------------------------------------------------------------
  3. #include <vcl.h>
  4. #pragma hdrstop
  6. #include "GUnit.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma link "AniGIFCtrl_OCX"
  10. #pragma resource "*.dfm"
  11. TForm1 *Form1;
  12. //---------------------------------------------------------------------------
  13. __fastcall TForm1::TForm1(TComponent* Owner)
  14.         : TForm(Owner)
  15. {
  16. }
  17. //---------------------------------------------------------------------------
  19. void __fastcall TForm1::Button1Click(TObject *Sender)
  20. {
  21.     WideString sFile;
  22.     OpenDialog1->Title="请选择一个GIF动画文件：";
  23.     OpenDialog1->Filter ="GIF动画文件(*.gif)|*.gif";
  24.     //设置OpenDialog控件的标志和属性
  25.     OpenDialog1->Execute();
  26.     if(OpenDialog1->FileName!="")
  27.     {
  28.        sFile=OpenDialog1->FileName;
  29.        AniGIF1->ReadGIF(sFile);
  30.        AniGIF1->Stop();
  31.        AniGIF1->AutoRewind=true;
  32.        //打开文件
  33.     }
  34.     Edit1->Text=IntToStr(AniGIF1->GIFHeight);
  35.     Edit2->Text=IntToStr(AniGIF1->GIFWidth);
  36.     Edit3->Text=IntToStr(AniGIF1->Frames);
  37.     Edit4->Text=IntToStr(AniGIF1->Frame);
  38.     //显示文件信息
  39.     ScrollBar1->Max=AniGIF1->Frames;
  40.     ScrollBar1->Min=0;
  41.     //设置滚动条参数
  42.     Edit5->Text=sFile;
  43.     //显示文件路径和文件名
  44.     Button2->Enabled=true;
  45.     //设置按钮有效状态
  47. }
  48. //---------------------------------------------------------------------------
  49. void __fastcall TForm1::Button2Click(TObject *Sender)
  50. {
  51.     AniGIF1->Play();
  52.     //播放文件
  53.     Button3->Enabled=true;
  54.     //设置按钮有效状态
  55.         
  56. }
  57. //---------------------------------------------------------------------------
  58. void __fastcall TForm1::Button3Click(TObject *Sender)
  59. {
  60.     AniGIF1->Stop();
  61.     //停止播放
  62.     Button3->Enabled=false;
  63.     //设置按钮有效状态
  64.         
  65. }
  66. //---------------------------------------------------------------------------
  67. void __fastcall TForm1::AniGIF1Step(TObject *Sender)
  68. {
  69.     ScrollBar1->Position=AniGIF1->Frame;
  70.     //设置滚动条上滑块位置
  71.     Edit4->Text=IntToStr(AniGIF1->Frame);
  72.     //显示当前播放位置
  73.     ScrollBar2->Position=AniGIF1->Speed;
  74.     //显示播放速度
  75.         
  76. }
  77. //---------------------------------------------------------------------------
  78. void __fastcall TForm1::ScrollBar2Scroll(TObject *Sender,
  79.       TScrollCode ScrollCode, int &ScrollPos)
  80. {
  81.     AniGIF1->Speed=ScrollBar2->Position;
  82.     //设置播放速度
  83.         
  84. }
  85. //---------------------------------------------------------------------------
  86. void __fastcall TForm1::ScrollBar1Scroll(TObject *Sender,
  87.       TScrollCode ScrollCode, int &ScrollPos)
  88. {
  89.     AniGIF1->Frame=ScrollBar1->Position;
  90.     //设置播放位置
  91.     Edit4->Text=IntToStr(AniGIF1->Frame);
  92.     //显示播放位置
  93.         
  94. }
  95. //---------------------------------------------------------------------------
  96. void __fastcall TForm1::FormCreate(TObject *Sender)
  97. {
  98.     ScrollBar2->Min=1;
  99.     ScrollBar2->Max=6;
  100.     //设置滚动条参数
  101.     Edit1->Text=IntToStr(AniGIF1->GIFHeight);
  102.     Edit2->Text=IntToStr(AniGIF1->GIFWidth);
  103.     Edit3->Text=IntToStr(AniGIF1->Frames);
  104.     Edit4->Text=IntToStr(AniGIF1->Frame);
  105.     //设置文本显示
  106.     ScrollBar1->Max=AniGIF1->Frames;
  107.     ScrollBar1->Min=0;
  108.     //设置滚动条参数
  109.     Edit5->Text=OpenDialog1->FileName;
  110.     Button2->Enabled=false;
  111.     Button3->Enabled=false;
  112.     //设置按钮有效状态
  113.         
  114. }
  115. //---------------------------------------------------------------------------