WEB开发网
开发学院软件开发C++ 利用CB开发特殊的屏幕显示效果 阅读

利用CB开发特殊的屏幕显示效果

 2008-03-08 12:45:11 来源:WEB开发网   
核心提示:以前,程序员在DOS平台下开发应用软件时,利用CB开发特殊的屏幕显示效果,都会利用DOS的开放性特点,通过中断编写出一些非凡的显示效果, 最近笔者利用C++ Builder 5.0 EnterPRise成功的实现了该项功能,现介绍如下: 1、在BCB中建立一个工程文件project1.dpr,以此来给自己的程序增加一些

  以前,程序员在DOS平台下开发应用软件时,都会利用DOS的开放性特点,通过中断编写出一些非凡的显示效果,以此来给自己的程序增加一些有趣的特色。然而,随着面向Windows的编程和可视化的第四代开发工具的逐步使用,人们越来越被Windows的统一的编程风格所束缚,同时由于Windows直接治理中断,想用原来的方法来实现一些非凡的显示效果变得越来越困难了。

  那么,在Windows时代程序员如何来实现窗口的非凡效果呢?实际上,由于整个Windows是图形显示系统,因此对系统而言,用户程序的每一个界面、窗口都是系统的一个画布。程序员可以利用这一特点来实现窗口的非凡效果。

  最近笔者利用C++ Builder 5.0 EnterPRise成功的实现了该项功能,现介绍如下:

1、在BCB中建立一个工程文件project1.dpr,在Form1中添加如下控件:

   控件名称      属性           值
   Tform        Color         clBTnText
   TMainMenu      Name         MainMneu1
   Timage        Name         Image1
             Align         alClient
            AutoSize       True

  同时在 MainMenu1控件中增加一个菜单项,其属性为:
   Name             Caption
   Items1           图像从中间往左右分出
   Items2           图像从左右往中间合进
   Items3           图像从中间往上下分出
   Items4           图像从上下往中间合进
   Items5           图像从左移入
   Items6           图像从右移入
   Items7           图像从上移入
   Items8           图像从下移入
   Items9           图像从左刷屏显示
   Items10          图像从右刷屏显示
   Items11          图像从上刷屏显示
   Items12          图像从下刷屏显示
   Items13          图像从上往下流水
   Items14          图像从下往上流水
   Items15          图像圆形展出
   Items16          图像左右错移
   Items17          图像上下错移

  同时在Unit.cpp中的private中添加如下变量:
  private:
   B99vMAP bm;
   Graphics::Tbitmap *Bitmap1;
   int I,j;
   int WideHalf;
   Trect Dest1,Source1,Dest2,Source2;
  int HeightHalf;
  HRGN MyRgn;

2、在Form1的OnCreate事件中添加如下代码:

  void __fastcall TForm1::FormCreate(Tobject *Sender)//进行图像特效显示的初始化操作//
  {      
   Graphics::Tbitmap *Bitmap1 = new Graphics::Tbitmap();//定义一个图象句柄//
   Bitmap1->LoadFromFile("C:\\factory.bmp");//设定所要特效显示的图象为factory.bmp//
   if(GetDeviceCaps(Form1->Canvas->Handle,B99vSPIXEL)==8)//取得显示窗口的颜色属性//
   {
    GetObject(Bitmap1->Handle,sizeof(B99vMAP),(LPSTR)&bm);
    if (bm.bmBitsPixel==8)//假如特效显示的图象颜色属性为256色//

    {
     SelectPalette(Form1->Canvas->Handle,Bitmap1->Palette,FALSE);//从特效显示的颜色画板中提取配色方案//
     RealizePalette(Form1->Canvas->Handle); //在显示窗口中设置配色方案//
    }
    Bitmap->HandleType=bmDDB;
   }
  }    

3、在Items1的OnClieck事件中添加如下代码:

  void__fastcall TForm1::Item1Click(Tobject *Sender)
  {      //图象从中间往左右分出//
   Form1->Refresh( );
   WideHalf=Bitmap1->Width/2+Bitmap1->Width%2;
   for(i=0;i<=WideHalf; i++)
   {
     Dest1=Rect(WideHalf-I,0,WideHalf+I,Bitmap1->Height);
    Source1=Rect(WideHalf-I,0,WideHalf+I,Bitmap1->Height);
     Form1->Canvas->CopyRect(Dest1,Bitmap1->Canvas,Source1);
    for(j=0;j<10000;j++);//图像的延迟显示//
   }
  }

4、在Items2的OnClieck事件中添加如下代码:

  void__fastcall TForm1::Item2Click(Tobject *Sender)
  {                   //图像从左右往中间合进//
   Form1->Refresh( );
   WideHalf=Bitmap1->Width/2+Bitmap1->Width%2;
    Form1->Refresh( );
   for(i=0;i<=WideHalf;i++)
   {
     Source1=Dest1=Rect(0,0,I,Bitmap1->Height);
     Source2=Dest2=Rect(Bitmap1->Width-I,0,Bitmap->Width,Bitmap1->Height);
     Form1->Canvas->CopyRect(Dest1,Bimap1->Canvas,Source1);
     Form1->Canvas->CopyRect(Dest2,Bitmap1->Canvas,Source2);
     for(j=0;j<10000;j++);
   }
  }

5、在Items3的OnClieck事件中添加如下代码:

  void__fastcall TForm1::Item3Click(Tobject *Sender)
  {           //图像从中间往上下分出//
   Form1->Refresh( );
    HeightHAlf=Bittmap1->Height/2+Bitmap1->Height%2;
   for(i=0;i<=HeightHalf;i++)
   {
     Dest1=Rect(0,HeightHalf-I,Bitmap1->Width,HeightHalf);
     Source1=Rect(0,0,BmpHandle->Width,i);
     Dest2=Rect(0,HeightHaf,Bitmap1->Width,HeightHalf+i);
     Source2=Rect(0,Bitmap1->Height-I,Bitmap1->Width,Bitmap1->height);
     Form1->Canvas->CopyRect(Dest1,BmpHandle->Canvas,Source1);
     Form1->Canvas->CopyRect(Dest2,BmpHandle->Canvas,Source2);
     for(j=0;j<10000;j++);
   }
  }

6、在Items4的OnClieck事件中添加如下代码:


  void__fastcall TForm1::Item4Click(Tobject *Sender)
  {                 //图像从上下往中间合进//
   Form1->Refresh( );
   HeightHalf=Bitmap1->Height/2+Bitmap1->Height%2;
   for(i=0;i<=HeightHalf;i++)
   {
    Dest1=Rect(0,0,Bitmap1->Width,i);
     Source1=Rect(0,HeightHalf-I,Bitmap1->Width,HeightHalf);
     Dest2=Rect(0,Bitmap1->Height-I,Bitmap1->Width,Bitmap1->Height);
     Source2=Rect(0,HeightHalf,Bitmap1->Width,HeightHalf+i);
     Form1->Canvas->CopyRect(Dest1,Bitmap1->Canvas,Source1);
    Form1->Canvas->CopyRect(Dest2,Bitmap1->Canvas,Source2);
    for(j=0;j<10000;j++);
   }
  }

7、在Items5的OnClieck事件中添加如下代码:

  void__fastcall TForm1::Item5Click(Tobject *Sender)
  {                        //图像从左移入//
    Form1->Refresh( );
   for(i=Bitmap1->Width;i>=0;i--)
   {
     Dest1=Rect(0,0,Bitmap1->Width-I,Bitmap1->Height);
     Source1=Rect(I,0,Bitmap1->Width,Bitmap1->Height);
  

Tags:利用 CB 开发

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接