pictureviewunit.pas

来自「用Delphi写的车牌字符各种特征提取实验系统」· PAS 代码 · 共 86 行

unit PictureViewUnit;

interface

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

type
  TImageViewForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    ZTImage: TImage;
    CTImage: TImage;
    Image1: TImage;
    SqImage: TImage;
    ViewImage: TImage;
    Panel5: TPanel;
    BoneImage: TImage;
    Panel6: TPanel;
    SXImage: TImage;
    XHPanel: TPanel;
    XHImage: TImage;
    ClickViewImage: TImage;
    procedure ViewImageClick(Sender: TObject);
    procedure CTImageClick(Sender: TObject);
    procedure ZTImageClick(Sender: TObject);
    procedure BoneImageClick(Sender: TObject);
    procedure SXImageClick(Sender: TObject);
    procedure XHImageClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ImageViewForm: TImageViewForm;

implementation

uses MainUnit;

{$R *.dfm}

procedure TImageViewForm.ViewImageClick(Sender: TObject);
begin
ClickViewImage.Picture:=ViewImage.Picture;
end;

procedure TImageViewForm.CTImageClick(Sender: TObject);
begin
ClickViewImage.Picture:=CTImage.Picture;
end;

procedure TImageViewForm.ZTImageClick(Sender: TObject);
begin
ClickViewImage.Picture:=ZTImage.Picture;
end;

procedure TImageViewForm.BoneImageClick(Sender: TObject);
begin
ClickViewImage.Picture:=BoneImage.Picture;
end;

procedure TImageViewForm.SXImageClick(Sender: TObject);
begin
ClickViewImage.Picture:=SXImage.Picture;
end;

procedure TImageViewForm.XHImageClick(Sender: TObject);
begin
ClickViewImage.Picture:=XHImage.Picture;
end;

procedure TImageViewForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
TextForm.N6.Checked:=False;
end;

end.