■■■看，水波特效！！■■■

goomoo 2003-02-12 12:49:33

看，水波特效！！
这里下载：
http://www.goomoo.net/tmp/water.rar

...全文

75 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

goomoo 2003-02-12

打赏
举报

我也想知道啊。:P~

flyingfly 2003-02-12

打赏
举报

有water.dll的源代码吗？

koma2003 2003-02-12

打赏
举报

呵呵，没关系。做的真不错啊。厉害~~

goomoo 2003-02-12

打赏
举报

对不起，我也没有啊。呵呵～

koma2003 2003-02-12

打赏
举报

可不可以把water.dll的源码发上来啊，谢谢了

goomoo 2003-02-12

打赏
举报

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
function waterInit(hbmp:hbitmap):integer;stdcall;external 'waterDll.dll' name 'WaterInit';
function waterMouseAction(hdc:HDC;sx,sy,mx,my,half,deep:integer):integer;stdcall;external 'waterDll.dll' name 'WaterMouseAction';
function waterTimer(hdc:HDC;sx,sy:integer):integer;stdcall;external 'waterDll.dll' name 'WaterTimer';

procedure TForm1.FormCreate(Sender: TObject);
var
a:integer;
begin
a:=loadImage(0,'home.bmp',image_bitmap,0,0,LR_LOADFROMFILE);
waterInit(a);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
waterTimer(getdc(form1.Handle),0,0);
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
waterMouseAction(getdc(form1.Handle),0,0,x,y,5,80);
end;

end.

koma2003 2003-02-12