bimagebrowse.pas

三层ERP系统 (SQL)

unit BImageBrowse;

interface

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

type
  TfrmImageBrowse = class(TfrmBase_DLL)
    ImageB: TImage;
    procedure FormDestroy(Sender: TObject);
    procedure ImageBClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    WDSTATUS:Boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmImageBrowse: TfrmImageBrowse;

implementation

uses Global;

{$R *.dfm}

procedure TfrmImageBrowse.FormDestroy(Sender: TObject);
begin
  inherited;
  frmImageBrowse:=nil;
end;

procedure TfrmImageBrowse.ImageBClick(Sender: TObject);
begin
  inherited;
  if WDSTATUS then
    begin
      self.Height:=480;
      self.Width:=640;
      WDSTATUS:=False;
      self.Position:=poScreenCenter;
      application.ProcessMessages;
    end
    else
    begin
      self.Height:=600;
      self.Width:=800;
      WDSTATUS:=True;
      self.Position:=poScreenCenter;
      application.ProcessMessages;
    end;
end;

procedure TfrmImageBrowse.FormShow(Sender: TObject);
var
  imgStream:TmemoryStream;
  jpg:TjpegImage;
begin
  inherited;
  if ItemImages<>'' then
    begin
      try
        try
          imgStream:=TmemoryStream.Create;
          jpg:=TjpegImage.Create;
          imgStream.LoadFromFile(ItemImages);
          jpg.LoadFromStream(imgStream);
          imageB.Picture.Assign(jpg);
        except
          imageB.Picture:=nil;
        end;
      finally
        imgStream.Free;
        Jpg.free;
      end;
    end
    else
    imageB.Picture:=nil;   
end;

procedure TfrmImageBrowse.FormCreate(Sender: TObject);
begin
  inherited;
  self.Height:=400;
  self.Width:=600;
end;

end.