unit1.pas

Delphi实现水波纹效果源码

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    img1: TImage;
    tmr1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure img1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure tmr1Timer(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    Water: TWaterEffect;
    Bmp: TBitmap;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x:integer;


implementation

{$R *.dfm}

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

procedure TForm1.img1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Water.Blob(x,y,1,100);
end;

procedure TForm1.tmr1Timer(Sender: TObject);
begin
  if Random(8)= 1 then
    Water.Blob(-1,-1,Random(1)+1,Random(500)+50);
  Water.Render(Bmp,img1.Picture.Bitmap);


  with img1.Canvas do
    begin
      Brush.Style:=bsClear;
      font.size:=12;
//      Font.Style:=[fsBold];
//      Font.Name := '隶书';
      font.color:=$FFFFFF;
      TextOut((Bmp.Width - TextWidth('http://www.huosoft.com'))div 2+2,
        10,'http://www.huosoft.com');
    end;
end;

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

end.