imgpas.pas

EasyGasDpr 瓶装液化气 钢瓶 SQL,用户名：SYSTEM 密码：空

unit ImgPas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, OopsTwain, Menus, ExtDlgs, JPEG;

type
  TImgDlg = class(TForm)
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Button1: TButton;
    PopupMenu1: TPopupMenu;
    F1: TMenuItem;
    PICOPEN: TOpenPictureDialog;
    ScrollBox1: TScrollBox;
    IMAGE: TImage;
    C1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    S1: TMenuItem;
    procedure F1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure C1Click(Sender: TObject);
    procedure OPTCaptrue(Sender: TObject; bmp: TBitmap);
    procedure S1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    BTMP:TBitmap;
  end;

var
  ImgDlg: TImgDlg;

implementation
{$R *.dfm}


procedure TImgDlg.F1Click(Sender: TObject);
var JPG:TJPEGImage;
begin
  if PICOPEN.Execute then
  Begin
    if Copy(LowerCase(ExtractFileExt(PICOPEN.FileName)),1,3)='.jp' then
    Begin
      JPG:=TJPEGImage.Create;
      JPG.LoadFromFile(PICOPEN.FileName);
      BTMP.Assign(JPG);
      JPG.Free;
    end;
    if LowerCase(ExtractFileExt(PICOPEN.FileName))='.bmp' then
    BTMP.LoadFromFile(PICOPEN.FileName);
    IMAGE.Picture.Bitmap.Assign(bTmp);
    IMAGE.Invalidate;
  end;
end;

procedure TImgDlg.Button1Click(Sender: TObject);
begin
  PopupMenu1.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y);
end;

procedure TImgDlg.C1Click(Sender: TObject);
begin
  BTMP:=nil;
  IMAGE.Picture.Bitmap.Assign(BTMP);
  IMAGE.Invalidate;
end;

procedure TImgDlg.OPTCaptrue(Sender: TObject; bmp: TBitmap);
begin
  BTMP.Assign(BMP);
  IMAGE.Picture.Bitmap.Assign(BTMP);
end;

procedure TImgDlg.S1Click(Sender: TObject);
var DLG:TSaveDialog;
begin
  DLG:=TSaveDialog.Create(nil);
  With DLG do
  Begin
  try
    Filter:='位图文件|*.bmp';
    if Execute then
    Begin
      IMAGE.Picture.SaveToFile(changefileext(FileName,'.bmp'));
    end;
  Finally
  Free;
  end;
  end;
end;

procedure TImgDlg.FormCreate(Sender: TObject);
begin
  BTMP:=TBitmap.create;
end;

procedure TImgDlg.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  BTMP.Free;
end;

end.