QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 3602|回复: 0
打印 上一主题 下一主题

在 C++ Builder 中显示透明位图

[复制链接]
字体大小: 正常 放大
韩冰        

823

主题

3

听众

4048

积分

我的地盘我做主

该用户从未签到

发帖功臣 元老勋章

跳转到指定楼层
1#
发表于 2005-1-26 12:50 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
<>我们知道 ,GIF 类型的图像格式支持透明显示 , 而 BMP 类型的图像格式不支持透明显示。在 Microsoft 照片编辑器中位图若以设置成透明色方式存储 , 则提示出错。然而 , 在 C++ Builder 中 , 却可以轻而易举地显示透明位图。透明位图与透明 GIF 图像相比有一个很大的优点 , 即 :GIF 图像格式最大支持 256 种颜色 , 位图却可以支持真彩色。 </P>! m6 S& w. g- `- m2 b
<>在 C++ Builder 中显示透明位图有好几种方法 : </P>- _* j$ s1 d: d* {9 w
<>1. 采用 TImage 组件。 </P>
7 X7 X; o6 a3 q. v9 K5 I8 s9 m<>下面 , 我们制作一幅飞机凌空飞过蓝天的简单动画。因为移动的飞机是用透明位图显示的 , 所以看起来挺逼真的。 </P>
; J4 Z# p0 F; G3 \% |, F  m; k<>(1) 在 C++ Builder 下激活菜单 "File/New Application" 创建一个新工程 , 窗体单元以文件 planemain.cpp 存盘 , 工程文件以 plane.cpp 存盘。 </P>
1 N% F: {7 Y% Y! \* R( z<>(2) 在 Form1 窗体上新增一个 TButton 组件 Button1, 新增一个 TTimer 组件 Timer1, 新增三个 TImage 组件 Image1 、 Image2 和 Image3, 新增一个 TLabel 。 </P>, Y, d/ R. R/ N2 `8 _  p
<>(3) 在窗体上双击 Image1, 调入蓝天的位图 BlueSky.bmp, 设置其 Transpartant 属性为 false, 即为不透明 , 作为背景 ; 双击 Image2, 调入飞机的位图 Plane.bmp, 设置其 Transparent 属性为 true, 即为透明 ,Autosize 属性为 true, 把 Image2 放在 Image1 上面。此时可以看出 , 飞机已经融入蓝天中。作为对比 , 双击 Image3, 调入飞机的位图 Plane.bmp, 设置其 Transparent 属性为 false, 即为不透明 ,Autosize 属性为 true 。设置 Label1 的 Caption 属性为 " 源位图 " 。设置 Button1 的 Caption 属性为 " 开始 " 。设置 Timer1 的 Enabled 属性为 false,Interval 属性为 100( 决定飞机飞行的快慢 , 可调整 ) 。 </P>
! y8 `. k3 O- r<>(4) Timer1 的 OnTimer 事件控制飞机的移动 , 代码如下 : </P>
+ ^+ ^3 _6 j& ?4 u' g+ A7 ]<>void __fastcall TForm1::Timer1Timer(TObject *Sender) </P>% T* \. {4 T0 W' M6 z3 D0 X$ E6 a
<>{Image2-&gt;Left=Image2-&gt;Left+1;} </P>
% D; L* L; G/ ^' z<>Button1 的 OnClick 事件启动飞机 , 代码如下 : </P>% b$ u5 w/ e' b% n6 I
<>void __fastcall TForm1::Button1Click(TObject *Sender) </P>
3 E: M+ y4 c8 p& ^<>{Timer1-&gt;Enabled=true;} </P>4 |( P3 [9 W0 ]  L. g# D5 Z
<>下图是程序的运行结果 : </P>+ P6 {, J- ^: h  s& @2 O$ G
<>图 1 </P>7 N4 k5 l" w6 k, |/ V
<>2. 直接从文件中调入位图 , 然后画在屏幕上。这种方法灵活 , 且占用内存少。继续上面的程序设计 : </P>5 p5 K% ?& M5 L" \3 |  f9 L* s0 j- F
<>(1) 在窗体上新增一个 TButton 组件 Button2, 设置其 Caption 属性为 " 显示透明位图 " 。 </P>% }6 o! w, [9 d" I/ T# q( L  _) s
<>(2) Button2 的 OnClick 事件显示透明的位图 , 代码如下 : </P>
3 {( j) j/ f8 C8 m4 L. o. ?1 f1 u<>void __fastcall TForm1::Button2Click(TObject *Sender) </P>. @8 Z: Z0 X6 Y) ]* c: ]
<>// 单击 " 显示透明位图 " 按钮时进入 </P>
# g% t) F: t" ?! X' @<>{ </P>
; |% @: [' M, _9 o( Q  u<>Graphics::TBitmap *pBitmap=new Graphics::TBitmap(); </P>
: Z$ Z; M. I$ I4 h) R<>try </P>
/ c+ d" z7 b0 R# }6 s0 B2 K<>{pBitmap-&gt;LoadFromFile("lane.bmp"); </P>1 l  P) v, z$ t: ^# S# L# P
<>// 调入位图 </P>
8 r. w2 P" N6 t3 d$ Z/ a- o' ]<>pBitmap-&gt;Transparent = true; // 设置透明属性 </P>! C+ i5 l8 P0 _, ~1 P
<>pBitmap-&gt;TransparentColor= </P>
& K% Y) o: g  x6 K) A3 p* \8 {* z% b' p<>pBitmap-&gt;Canvas-&gtixels[2][2]; </P>( s! T  {, B; Q' }! j; S$ K$ ~* X
<P>// 从位图上取得要设置成的透明颜色 , 也可以直接给出 </P>% E' X! t# S9 d1 j7 o
<P>Form1-&gt;Canvas-&gt;Draw(10,20,pBitmap); //AA </P>
; V" o- ~* _4 a3 F$ U9 L<P>// 在窗体上显示透明位图 , 没有设置 TransparentMode </P>
* S, y8 Y6 {% A9 n<P>// 以位图 [2][2] 处的像素的颜色为透明色 </P>; ^* T3 N2 _  ^
<P>pBitmap-&gt;TransparentMode = tmAuto; </P>& G/ Q1 u$ f; {6 M6 }
<P>// 设置透明模式 , tmAut TransparentColor 属性返回位 </P>- U; f% T1 e+ ]. a5 T2 r6 t
<P>// 图最左下角像素的颜色 , 作为透明色 ; </P>
5 a8 z4 K, U1 t! f$ J1 T% a<P>// tmFixed: TransparentColor 属性返回位图上某一像素的颜色 , 作为透明色。 </P>  x4 D- f" f7 m* n+ A$ M( d
<P>Form1-&gt;Canvas-&gt;Draw(10,100,pBitmap); //BB </P>, T) c7 v9 G) ^# U
<P>// 在窗体上显示透明位图 , 与 AA 行有所不同 </P>
( k: l; x7 w4 n' X7 f) c( E<P>// 以位图最左下角的像素的颜色为透明色 </P>$ ?" \+ M8 p2 A
<P>Image1-&gt;Canvas-&gt;Draw(30,20,pBitmap); </P>, t; ]( ]- k3 [, f: M0 L' s
<P>// 在背景位图上显示透明位图 </P>
* A- ]6 w% y* [' N) d<P>} </P>
9 M' s2 e6 {# I& {6 O<P>catch (...) </P>4 x. @) `0 ~; ?( R
<P>{ </P>, p1 @. l: [7 c) a
<P>ShowMessage(" 不能调入或显示位图 !"); </P>$ F) T1 H* T4 ^4 o( x/ J
<P>// 显示出错信息 </P>+ @& m0 ~) O/ [/ e5 _
<P>} </P>; @! T% ]4 b/ ^5 \$ w
<P>delete pBitmap; // 删除对像 </P>
1 K: c- o5 Q6 I( k7 C# c<P>} </P>6 r. e/ ~& a" `3 A$ B$ ]
<P>应用这种方法进行图像合成时 , 背景图像要求是位图 , 并且透明位图和背景位图的颜色位数要尽量保持一致 , 这样 , 位图的颜色才不会改变。 </P>7 k* v+ T$ e8 U+ y4 Q
<P>另外 , 我们利用 TImageList 组件也可以显示透明图像 , 利用 TCanvas 类的 BrushCopy 方法可以实现被拷贝图像的部分透明。 </P>& @7 A4 \4 k+ y8 P3 x; q
<P>2 C5 a) N/ J0 e; _# i0 r" Q
</P>
zan
转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信
您需要登录后才可以回帖 登录 | 注册地址

qq
收缩
  • 电话咨询

  • 04714969085
fastpost

关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

手机版|Archiver| |繁體中文 手机客户端  

蒙公网安备 15010502000194号

Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

GMT+8, 2026-7-20 23:18 , Processed in 0.534108 second(s), 52 queries .

回顶部