【已解决】AU3能做出“鼠标划过水面”的动态效果么？（内详带图）

KLU3K

该效果是一个软件顶部的图片上带的效果，软件下载在这里：
http://www.hxlive.cn/archives/548/
如果懒得下载，那么我也做了抓图。如下：


方法见第二页，30楼

lynfr8

没那么麻烦，不需要调用dll也可实现
思路：自己做个flash用Au3调用就行了（相关代码论坛找）
参考：
http://www.17flash8.net/teach/teachdetail.asp?/1124.html

afan

只知道调用了一个 waterctrl.dll

yiruirui

对的,就是这个 waterctrl.dll
水纹插件!

republican

回复 3# yiruirui

给个代码，可以参考着自行修改。

function enablewater(ParentWnd: HWND; Left, Top: integer; Bmp: HBITMAP;
     WaterRadius, WaterHeight: integer): BOOL; external 'enablewater@files:waterctrl.dll stdcall';
//ParentWnd     放置特效窗口的父窗口句柄。
//Left          左位置
//Top           上位置
//Bmp           位图句柄。
//WaterRadius   水纹半径，会令到水纹看起来范围更广。
//WaterHeight   水纹高度，会令到水纹看起来更深。
//注意，水纹插件自动根据图片来设定高度和宽度，
//另外水纹底图必须是翻转的图片，显示的时候会翻转图片来显示。

function waterblob(x, y: integer; radius, height: integer): BOOL; external 'waterblob@files:waterctrl.dll stdcall';
// 在 x,y 点产生半径为radius, 高度为height 的水纹。

function flattenwater(): BOOL; external 'flattenwater@files:waterctrl.dll stdcall';
// 平伏所有水纹。

function disablewater(): BOOL; external 'disablewater@files:waterctrl.dll stdcall';
//释放水纹插件

function setwaterparent(ParentWnd: HWND): BOOL; external 'setwaterparent@files:waterctrl.dll stdcall';
//v2 新增，设置水纹插件的父句柄

var
  bmp: TBitmap;

procedure InitializeWizard();
begin
  ExtractTemporaryFile('WizModernImage-Is.bmp');
  bmp := TBitmap.create;
  bmp.LoadFromFile(ExpandConstant('{tmp}\WizModernImage-Is.bmp'));

  enablewater(WizardForm.WelcomePage.Handle, 0, 0, bmp.Handle, 3, 50);
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpWelcome then
  begin
    setwaterparent(WizardForm.WelcomePage.Handle);
    waterblob(70, 198, 10, 1000);
  end else
  if CurPageID = wpFinished then
  begin
    setwaterparent(WizardForm.FinishedPage.Handle);
    waterblob(70, 198, 10, 1000);
  end else
    flattenwater();
end;

procedure DeinitializeSetup();
begin
  disablewater();
  bmp.Free;
end;

zcx880517

用NSIS 、INNO实现过，AU3的就等待高手解决了。

KLU3K

效果不一样，一个是纯代码实现。
一个是第三方实现。
而且flsh的明显感觉比较卡啊！

nxbigdaddy

谢谢楼上各位的分享！

wsfda

没那么麻烦，不需要调用dll也可实现
思路：自己做个flash用Au3调用就行了（相关代码论坛找）
参考：
lynfr8 发表于 2010-8-9 19:48

    卡确实是个问题....

aft525771

真漂亮哦，收下先

yiruirui

回复 4# republican


    不错!感谢分享!

thesnow

回复 4# republican


    这要么是INNO,要么是pascal(delphi).不可能是VB.

menfan1

典型DELPHI吧呵呵

sanmoking

回复 6# lynfr8


    我也想的是这样做。

rolaka

$t = _WinAPI_LoadImage(0,"E:\Documents and Settings\Hyperion\桌面\inno_waterctrl_v2\WizModernImage-Is.bmp",0,0,0,0x2010)
MsgBox(0, "", VarGetType($Form1))
$d = DllCall("waterctrl.dll", "int", "enablewater", "HWND", $Form1, "int", 0, "int", 0, "ptr", $t, "int", 3, "int", 50)

http://sky123.org/thread-33985-1-1.html 根据nsis的代码...改写失败...后面继续