Class TimgFinder (unit Imgfind)

Inherits from

TForm

Constructors



Functions

procedure Add1Click(Sender: TObject);


procedure BitBtn3Click(Sender: TObject);


procedure BitBtn4Click(Sender: TObject);

procedure TimgFinder.

procedure Delete1Click(Sender: TObject);


procedure DirHistoryChange(Sender: TObject);


procedure FileListBox1Change(Sender: TObject);


procedure FilterComboBox1Change(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure AddDirectory(s : string);


Properties

Events

Variables

Add1 : TMenuItem;


BitBtn1 : TBitBtn;


BitBtn2 : TBitBtn;


BitBtn3 : TBitBtn;


BitBtn4 : TBitBtn;


Delete1 : TMenuItem;


DirectoryListBox1 : TDirectoryListBox;


DirHistory : TComboBox;


DriveComboBox1 : TDriveComboBox;


Edit1 : TEdit;


FileListBox1 : TFileListBox;


FilterComboBox1 : TFilterComboBox;


Image : TImage;


Panel1 : TPanel;


PopupMenu1 : TPopupMenu;


ScrollBox1 : TScrollBox;


UnivBMLoader1 : TUnivBMLoader;


bmpOnly : boolean;

Public declarations

dirs : TStringList;

Private declarations


Constructors


Functions


procedure Add1Click(Sender: TObject);


procedure BitBtn3Click(Sender: TObject);


procedure BitBtn4Click(Sender: TObject);

procedure TimgFinder.BitBtn4Click(Sender: TObject); var temp : TBitmap; begin if image.picture.bitmap<>nil then begin temp:=TBitmap.Create; image.picture.bitmap.assign(temp); temp.free; BitBtn4.enabled:=FALSE; end; end;


procedure Delete1Click(Sender: TObject);


procedure DirHistoryChange(Sender: TObject);


procedure FileListBox1Change(Sender: TObject);


procedure FilterComboBox1Change(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure AddDirectory(s : string);


Properties


Events


Variables


Add1 : TMenuItem;


BitBtn1 : TBitBtn;


BitBtn2 : TBitBtn;


BitBtn3 : TBitBtn;


BitBtn4 : TBitBtn;


Delete1 : TMenuItem;


DirectoryListBox1 : TDirectoryListBox;


DirHistory : TComboBox;


DriveComboBox1 : TDriveComboBox;


Edit1 : TEdit;


FileListBox1 : TFileListBox;


FilterComboBox1 : TFilterComboBox;


Image : TImage;


Panel1 : TPanel;


PopupMenu1 : TPopupMenu;


ScrollBox1 : TScrollBox;


UnivBMLoader1 : TUnivBMLoader;


bmpOnly : boolean;

Public declarations


dirs : TStringList;

Private declarations