filelistunit.~pas

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

unit FileListUnit;

interface

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

type
  TFileListForm = class(TForm)
    FileListPanel: TPanel;
    Label9: TLabel;
    Label12: TLabel;
    FileListBox1: TFileListBox;
    StyleComboBox: TComboBox;
    procedure FileListBox1Change(Sender: TObject);
    procedure FileListBox1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FileListForm: TFileListForm;

implementation

uses FileListOpenUnit, PictureViewUnit, DataUnit, MainUnit;

{$R *.dfm}

procedure TFileListForm.FileListBox1Change(Sender: TObject);
begin
  if (FileListBox1.Count>0)and(FileListOpenForm.Visible=True) then
  begin
    ImageViewForm.SqImage.Picture.LoadFromFile(FileListBox1.Directory
    +'\'+FileListBox1.Items[0]);
  end;
end;

procedure TFileListForm.FileListBox1Click(Sender: TObject);
var
  Str:string;
  i,sd:integer;
  Label Loop3;
begin
 for i:=0 to FileListBox1.Count do
 begin
  if FileListBox1.Selected[i]=True then
  begin
   sd:=i;break;
  end;
 end;
 str:=DataUnit.FilePas+'\'+FileListBox1.Items[sd];
 OpenPictureName:=FileListBox1.Items[sd];
 try
   ImageViewForm.SqImage.Picture.LoadFromFile(str);
   ImageViewForm.ViewImage.Picture:=ImageViewForm.SqImage.Picture;
   TextForm.GetRegion(ImageViewForm.ViewImage.Picture.Bitmap);
   TextForm.GuiYi(ImageViewForm.CTImage,ImageViewForm.ZTImage,ImageViewForm.SqImage);
 //TextForm.LetterXH2.Click;
   TextForm.NomalTS.Click;
   ImageViewForm.ClickViewImage.Picture:=ImageViewForm.ViewImage.Picture;
 except
   showmessage('对不起!!系统找不到指定文件,请使用打开文件夹选项确定文件路径.');
 end;
end;

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

end.