unit1.pas

lbgl 劳保用品管理系统源码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, jpeg,Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ToolWin,printers,Menus, ExtCtrls, ExtDlgs, ImgList;

type
  TForm1 = class(TForm)
    OpenPictureDialog1: TOpenPictureDialog;
    ScrollBox1: TScrollBox;
    Image1: TImage;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N6: TMenuItem;
    Brower1: TMenuItem;
    N4: TMenuItem;
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure Brower1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4;

{$R *.DFM}

procedure TForm1.N3Click(Sender: TObject);
begin
if openpicturedialog1.Execute then
begin
try
form1.WindowState :=wsnormal;
image1.AutoSize :=true;
n6.Enabled :=true;
image1.Picture.LoadFromFile (openpicturedialog1.filename);
scrollbox1.Width :=image1.width+20;
scrollbox1.Height :=image1.Height+20 ;
form1.Width :=scrollbox1.width+25;
form1.Height :=scrollbox1.Height+70;
form1.Top :=240-form1.Height div 2;
form1.Left :=320-form1.Width div 2;
if form1.height>480 then
form1.Top :=0;
if form1.width>640 then
form1.Left :=0;
// if image1.Height >280 then
//form1.top:=0
//else form1.top:=100;
//if image1.width >400 then
//form1.Left :=0
//else form1.left :=200;
form1.Caption :='ImgSee V1.0 ('+openpicturedialog1.FileName +')';
except
on einvalidgraphic do
begin
form3.showmodal  ;
end;
end;
end;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
form2.top:=form1.top+80;
form2.left:=form1.left+100;
form2.showmodal;

end;

procedure TForm1.N4Click(Sender: TObject);
begin
form1.hide;
form4.Visible :=true;
end;



procedure TForm1.N6Click(Sender: TObject);
begin
form1.WindowState :=wsmaximized;
//form1.top:=0;
//form1.Left :=0;
image1.autosize:=false;
image1.Stretch :=true;
image1.Width :=image1.Width *2;
image1.Height :=image1.Height *2;
scrollbox1.Width :=image1.Width ;
scrollbox1.Height :=image1.Height ;
//form1.Width :=form1.Width *2;
//form1.Height :=form1.Height *2;
//form1.WindowState :=wsmaximized;
n6.Enabled :=false;
end;

procedure TForm1.Brower1Click(Sender: TObject);
begin
form1.hide;
form4.visible:=true;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.hide;
form4.visible:=true;
end;

end.