pictureview.~pas

来自「本光盘是《Delphi 7应用教程》一书的配套光盘」· ~PAS 代码 · 共 93 行

unit pictureview;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, Menus;

type
  TpictureViewer = class(TForm)
    Image1: TImage;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Open1: TMenuItem;
    Close1: TMenuItem;
    N1: TMenuItem;
    Exit1: TMenuItem;
    Widows1: TMenuItem;
    Tile1: TMenuItem;
    Cascade1: TMenuItem;
    All1: TMenuItem;
    procedure Open1Click(Sender: TObject);
    procedure Close1Click(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
    procedure Tile1Click(Sender: TObject);
    procedure Cascade1Click(Sender: TObject);
    procedure All1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    filename:string;
  public
    { Public declarations }
    procedure open(const afilename:string);
  end;

var
  pictureViewer: TpictureViewer;

implementation
 uses viewmain;

{$R *.DFM}

procedure tpictureviewer.open(const afilename:string);
begin
    filename:=afilename;
    image1.picture.loadfromfile(filename);
    caption:=filename;

end;




procedure TpictureViewer.Open1Click(Sender: TObject);
begin
  mdifileviewer.open1click(sender);
end;

procedure TpictureViewer.Close1Click(Sender: TObject);
begin
  close;
end;

procedure TpictureViewer.Exit1Click(Sender: TObject);
begin
  mdifileviewer.exit1click(sender);
end;

procedure TpictureViewer.Tile1Click(Sender: TObject);
begin
  Mdifileviewer.tile;
end;

procedure TpictureViewer.Cascade1Click(Sender: TObject);
begin
  mdifileviewer.cascade;
end;

procedure TpictureViewer.All1Click(Sender: TObject);
begin
  mdifileviewer.closeallchildren;
end;

procedure TpictureViewer.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  action:=cafree;
end;

end.