unit1.pas

水纹效果 很好的东东

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    procedure Load(Sender: TObject);
    procedure MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
function WaterInit(bitmap:Integer):Integer; stdcall; external 'waterdll.dll';
function WaterMouseAction(hdc:Integer; sx,sy,mx,my,half,deep:Integer):Integer; stdcall; external 'waterdll.dll';
function WaterTimer(hdc:Integer; sx,sy:Integer):Integer; stdcall; external 'waterdll.dll';
implementation

{$R *.dfm}

procedure TForm1.Load(Sender: TObject);
begin
WaterInit(image1.Picture.Bitmap.Handle);
end;

procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 WaterMouseAction(form1.Canvas.Handle,10,10,X,Y,60,500);
end;

procedure TForm1.MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
   WaterMouseAction (form1.Canvas.Handle,10,10,X,Y,5,80);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
WaterTimer(form1.Canvas.Handle,10,10);
end;
end.