www.pudn.com > tuxiangbantouminghechneg.rar > Unit1.pas

  { 
 
   SmallC 
   small_c@mail.china.com 
   图像合成,速度较快. 
   小弟是改自一个叫 "AlComps"的控件包. 
  } 
 
unit Unit1; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs,CBmp, ExtCtrls, StdCtrls, ComCtrls; 
 
type 
  TForm1 = class(TForm) 
    Image1: TImage; 
    Image2: TImage; 
    Image3: TImage; 
    TrackBar1: TTrackBar; 
    Button1: TButton; 
    Button2: TButton; 
    procedure Button1Click(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  Form1: TForm1; 
 
implementation 
{$R *.dfm} 
 
procedure TForm1.Button1Click(Sender: TObject); 
 //  var i,j : Integer  ; 
begin 
     //i:=GetTickCount; 
     Image3.Picture:= Image2.Picture; 
 
     //  for j:=0 to 99 do 
        CBmp.BlendPic(Image1.Picture.Bitmap.Handle,Image2.Picture.Bitmap.Handle, 
                 Image3.Picture.Bitmap.Canvas.Handle ,TrackBar1.Position   ); 
 
   // form1.Caption:=inttostr(GetTickCount-i); 
end; 
 
procedure TForm1.Button2Click(Sender: TObject); 
  // var i,j : Integer  ; 
begin 
   //   i:=GetTickCount; 
      Image3.Picture:= Image2.Picture; 
   // for j:=0 to 99 do 
      CBmp.BlendPic2(Image1.Picture.Bitmap.Handle,Image2.Picture.Bitmap.Handle, 
                 Image3.Picture.Bitmap.Canvas.Handle,TrackBar1.Position   ); 
 
     form1.Refresh; 
   // form1.Caption:=inttostr(GetTickCount-i); 
end; 
 
end.