<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="cache-control" content="max-age=180,private" />
</head>
<card id="discuz_wml" title="CnPack Forum">
<p>#1 发现cnWaterImage组件(水波效果处理单元)的BUG,已进行简单修复.<br /><small>错误为:<br />
当cnWaterImage的宽度或高度&lt;=0的时候, 程序报错!<br />
简单的用try.. except 修复了一下. 希望作者能重新更新该单元.<br />
 <br />
错误代码片段如下:<br />
procedure TCnWaterEffect.DrawWater(ALightModifier: Integer; Src, Dst:<br />
  TBitmap);<br />
var<br />
  dx, dy: Integer;<br />
  i, c, x, y: Integer;<br />
  P1, P2, P3: PIntArray;<br />
  PDst: PRGBArray;<br />
  PSrcDot, PDstDot: PRGBTriple;<br />
  BytesPerLine1, BytesPerLine2: Integer;<br />
begin<br />
  // 先将源图复制到目标图，如果有变 ..</small><br />
</p>
<p>#1 <a href="index.php?action=thread&amp;tid=3052&amp;start=0&amp;offset=497&amp;sid=YPuauq">&gt;&gt;Next Page</a><br />
<br />Forum:<a href="index.php?action=forum&amp;fid=14&amp;sid=YPuauq">CnVCL 组件包</a>
<br />Thread:<a href="index.php?action=thread&amp;tid=3052&amp;sid=YPuauq">发现cnWaterImage组件 ...</a>
<br />Next Thread:<a href="index.php?action=thread&amp;tid=3018&amp;sid=YPuauq">新手关于CnDES加解密 ...</a>
</p>
<p align="center"><br /><a href="index.php?sid=YPuauq">Home</a><br />
<a href="index.php?action=login&amp;sid=">Login</a><br /><br />
<small>Powered by Discuz!</small></p>
</card>
</wml>