unit4.~pa

实现Image类型图片打开,目录显示和文件浏览器

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Classes,jpeg,Graphics, Controls, Forms, Dialogs,
  FileCtrl,StdCtrls, ExtCtrls;

type
  TForm4 = class(TForm)
    Panel1: TPanel;
    ScrollBox1: TScrollBox;
    Image1: TImage;
    Panel2: TPanel;
    Panel3: TPanel;
    DriveComboBox1: TDriveComboBox;
    DirectoryListBox1: TDirectoryListBox;
    FileListBox1: TFileListBox;
    Panel4: TPanel;
    FilterComboBox1: TFilterComboBox;
    Button1: TButton;
    Button2: TButton;
    procedure FileListBox1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public

    { Public declarations }
  end;

var
  Form4: TForm4;


implementation

uses Unit3, Unit1;









{$R *.DFM}

procedure TForm4.FileListBox1Click(Sender: TObject);
begin
try
image1.Picture.LoadFromFile (filelistbox1.FileName );
button1.Enabled :=true;
except
on einvalidgraphic do
begin
form3.showmodal  ;
button1.Enabled :=false;
end;
end;
end;
procedure TForm4.Button1Click(Sender: TObject);
begin
try
form1.show;
form1.n6.Enabled :=true;
form1.image1.Picture.LoadFromFile (form4.FileListBox1.FileName);
form1.WindowState :=wsnormal;
form1.image1.AutoSize :=true;
form1.scrollbox1.Width :=image1.width+20;
form1.scrollbox1.Height :=image1.Height+20 ;
form1.Width :=form1.scrollbox1.width+25;
form1.Height :=form1.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;
form1.Caption :='ImgSee V1.0 ('+form4.filelistbox1.filename +')';
form4.visible:=false ;
except
on einvalidgraphic do
begin
form1.Hide ;
form3.showmodal  ;
button1.Enabled :=false;
end;
end;
end;

procedure TForm4.Button2Click(Sender: TObject);
begin
form4.Close ;
end;

end.