unit1.pas

delphi 7.0下写的水波纹显示的效果!

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    imgBanner: TImage;
    tmr1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure imgBannerMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure tmr1Timer(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    Bmp: TBitmap;
    Water: TCnWaterEffect;

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation


{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Bmp := TBitmap.Create;
  Bmp.Assign(imgBanner.Picture.Graphic);
  imgBanner.Picture.Graphic := nil;
  imgBanner.Picture.Bitmap.Width := Bmp.Width;
  imgBanner.Picture.Bitmap.Height := Bmp.Height;
  Water := TCnWaterEffect.Create;
  Water.SetSize(Bmp.Width, Bmp.Height);
end;

procedure TForm1.imgBannerMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if ssLeft in Shift then
    Water.Blob(X, Y, 1, 60)
  else
    Water.Blob(X, Y, 1, 30);
end;

procedure TForm1.tmr1Timer(Sender: TObject);
begin
  if Random(8) = 1 then
    Water.Blob(-1, -1, 1, RandomRange(10, 600));
  Water.Render(Bmp, imgBanner.Picture.Bitmap);
  DoubleBuffered:=true;
  imgBanner.Repaint;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Water.Free;
  Bmp.Free;
end;

end.