当前位置：首页 -> 技术开发 -> 程序开发 -> 图像的消隐效果

图像的消隐效果

时间： 2021-07-31 作者：daque

unit bmp?-disaper;? interface? uses? sysutils,wintypes,winprocs,messages,classes,graphics,controls,forms,dialogs,ex tctrls,stdctrls;? type? tform1=class(tform)? image1:timage;{表露渐隐图像}? timer1:ttimer;{时钟构件}? panel1:tpanel;{表露渐隐进程，已渐隐为背局面的脸色数}? button1:tbutton;{发端渐隐按钮}? procedure timer1 timer(sender:tobject);{一直遏制进程}? procedure button1 click (sender:tobject);{激励渐隐进程}? procedure formcreate (sender:tobject);{窗体结构进程}? private? paldevice:imteger;{绘图板形式标记}? go:integer;{渐隐发端标记}? pal:arrar［0...255］ of tpaletteentry;{论理绘图板}? end;?? var? form1:tform1; implementation? {$r *.dfm}?? procedure tform1.timer1timer(sender:tobject);? var? i,n:integer;? begin? if go=1 then{发端渐隐}? begin? for i:=0 to 255 do{绘图板脸色值减产}? begin? pal［i］.peflags:=pc?-reserved;{绘图板动画标记，确定得如许树立}? if pal［i］.pered>0 thenpal［i］.pered:=pal［i］.pered-1;? if pal［i］.pegreen>0 thenpal［i］.pegreen:=pal［i］.pegreen-1;? if pal［i］.peblue>0 thenpal［i］.peblue:=pal［i］.peblue-1;〖zk)〗? end;?? setpaletteentries(image1.picture.bitmap.palette,0,256,pal);{树立新的脸色到 dib绘图板}? realizepalette(image1.picture.bitmap.canvas.handle);{暗射论理绘图板到体例硬件绘图板}? {计划仍旧渐隐消逝的脸色数，如所有实行则中断渐隐进程，令go=0}? n:=0;? for i:=0 to 255 do? if(pal［i］.pered=0) and (pal［i］.pegreen=0) and (pal［i］.peblue=0) then? n:=n+1? if n=256 then? begin? panel1.caption:='ok';? go:=0;? end? else? panel1.caption:='n='+inttostr(n);? end;? end;?? procedure tform1.button1click(sender:tobject);? begin? getpaletteentries(image1.pictrue.bitmap.palette,0,256,pal);{赢得dib图像的绘图板}? {确定体例能否是鉴于绘图板的表露形式，即使是则发端渐隐进程}? paldevice:=getdevicecaps(canvas.handle,rastercaps) and rc?-palette;? if(paldevice>0) the go:=1;? end;? procedure tform1.formcreate(sender:tobject);? begin? image1.pictrue.bitmap.loadfromfile('c:＼video10＼ts.bmp');{加载dib图像}? end;? end.

图像的消隐效果

相关推荐

推荐下载

热门阅览

最新排行