untimagebrowse.pas

用delphi编写的数据库管理软件

unit untImageBrowse;

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);
var
  iHight,iWidth:integer;
begin
  inherited;
  if WDSTATUS then
    begin
      iWidth:=Trunc(GetSystemMetrics(SM_CXSCREEN)/1.6);
      iHight:=Trunc(GetSystemMetrics(SM_CYSCREEN)/1.6);
      self.Height:=ihight;
      self.Width:=iWidth;
      WDSTATUS:=False;
      self.Position:=poScreenCenter;
      application.ProcessMessages;
    end
    else
    begin
      iWidth:=Trunc(GetSystemMetrics(SM_CXSCREEN)/1.2);
      iHight:=Trunc(GetSystemMetrics(SM_CYSCREEN)/1.2);
      self.Height:=iHight;
      self.Width:=iWidth;
      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
        imgStream:=TmemoryStream.Create;
        jpg:=TjpegImage.Create;
        try
          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:=Trunc(GetSystemMetrics(SM_CYSCREEN)/1.6);
  self.Width:=Trunc(GetSystemMetrics(SM_CXSCREEN)/1.6);
end;

end.