unit Unit1;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, AxCtrls, DBOleCtl, StdCtrls, OleCtrls,
   ScanLibCtl_TLB, ieview, ImageEnView, ImageEnIO, ImageEn;

type
   TForm1 = class(TForm)
      ImgScan1: TImgScan;
      Button1: TButton;
      Button2: TButton;
      Button3: TButton;
      Button4: TButton;
      Button5: TButton;
      Button6: TButton;
      ImageEn1: TImageEn;
      procedure Button1Click(Sender: TObject);
      procedure Button2Click(Sender: TObject);
      procedure Button3Click(Sender: TObject);
      procedure Button4Click(Sender: TObject);
      procedure Button5Click(Sender: TObject);
      procedure Button6Click(Sender: TObject);
   private
      { Private declarations }
   public
      { Public declarations }
   end;

var
   Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   ImgScan1.ShowSelectScanner;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   ImgScan1.PageOption := OverwriteAllPages; //6;
   ImgScan1.PageType := Gray256Shades; // 2;
   imgscan1.Zoom := 100;
   //ImgScan1.CompressionType := JPEGCompression;//////4;
   //ImgScan1.CompressionInfo :=JPEGHighHigh;// 1;
   ImgScan1.ScanTo := FileOnly; //2; // '保存為文件　　
   ImgScan1.FileType := 3;//bmp
   ImgScan1.image := '.\rc.bmp'; // TheImageFile; // '圖像將被保存　　
   ImgScan1.ShowSetupBeforeScan := True; //false;//
   ////ImgScan1.MultiPage := True;
   //ReturnValue := ImgScan1.StartScan();
   if not imgscan1.ScannerAvailable then
      //如果選擇的掃描儀不可用
      imgscan1.OpenScanner; //打開掃描儀
   imgscan1.StartScan; //開始掃描圖象
   imgscan1.CloseScanner; //關(guān)閉掃描儀
   ImageEn1.LoadFromFileBMP('rc.bmp');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
   {if (imgedit1.IsClipboardDataAvailable
      and imgedit1.ImageDisplayed) then
      imgedit1.ClipboardPaste(selleft, seltop);}
   //從剪貼板粘貼圖象，其參數(shù)為Imgedit的顯示區(qū)域的起始坐標(biāo)
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
   //if imgedit1.ImageDisplayed then
   //   imgedit1.Flip; //鏡象圖象
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
   //if imgedit1.ImageDisplayed then
   //   imgedit1.RotateRight //向右旋轉(zhuǎn)圖象
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
   {imgedit1.DrawSelectionRect(selleft,
      seltop, selwidth, selheight); //進(jìn)行圖象局部選擇
   imgedit1.ClipboardCut(selleft, seltop,
      selwidth, selheight); //剪切所選區(qū)域  }
end;

end.