图像浏览器

unit UImage;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, Buttons, ToolWin, ComCtrls, ExtCtrls, StdCtrls, jpeg;type  TFImage = class(TForm)    ToolBar1: TToolBar;    BOpen: TSpeedButton;    GroupBox1: TGroupBox;    Image1: TImage;    procedure BOpenClick(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  FImage: TFImage;implementation   uses UDialog;{$R *.dfm}procedure TFImage.BOpenClick(Sender: TObject);begin    if  FDialog.ShowModal = mrOk then    Image1.Picture.LoadFromFile(FDialog.FileListBox1.FileName);end;end.