利用CB研发特别的屏幕显示效果
2008-02-23 05:25:58来源:互联网 阅读 ()
那么,在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:
BITMAP 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,BITSPIXEL)==8)//取得显示窗口的颜色属性//
{
GetObject(Bitmap1->Handle,sizeof(BITMAP),(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);
标签:
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有
上一篇: C Builder中大尺寸图象的显示技巧
下一篇: 在C Builder中自定义预览窗口
IDC资讯: 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营: 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程: Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术: Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧: 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作: FrontPages Dreamweaver Javascript css photoshop fireworks Flash