Class TInventaris (unit DirListP)

Inherits from

TForm

Constructors



Functions

procedure About1Click(Sender: TObject);

ALL DIR

procedure CD1Click(Sender: TObject);

PRINT ZIPLABEL

procedure close1Click(Sender: TObject);


procedure DriveComboBox1Click(Sender: TObject);

complete filename

procedure ErasebttnClick(Sender: TObject);

FIND BUTTON

procedure FilebttnClick(Sender: TObject);

SET STATE OF PANELS

procedure FindBttnClick(Sender: TObject);


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

Closes the printer variable

procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);

SET STATE OF BTTNS

procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

ERASE THE CONTENT OF MYLIST AND SAVE IT TO DISK SO A TOTALLY NEW SCANNING CAN BE PERFORMED

procedure HlpBttnClick(Sender: TObject);


procedure Lijst1Click(Sender: TObject);

SCANRESULT: ONLY ROOT

procedure MPanel1Click(Sender: TObject);

OPENBUTTON

procedure OpenBttnClick(Sender: TObject);

Closes the printer variable

procedure PrintCD(sender:tobject);

PRINT CDLABEL

procedure printZIP(sender:TObject);

FIND

procedure procesfile(const filename:string);

DURING THE FOLLOWING PROC, FIRST I DETERMINE THE TOTAL OF SUBDIRS -aa- TO SCAN AND COMPARE IT TO AltNode BEING THE CHOSEN TOTAL OF SUBDIRS ; THEN IN FUNCTION OF CHOICE DRIVE/FILE I WRITE THE FOUNDED FILENAME TO Mylist

procedure RecurseDirs(Dir:string);


procedure RootBttnClick(Sender: TObject);


procedure SaveBttnClick(Sender: TObject);

FILL RICHEDIT1 WITH THE RESULT OF RECURSEDIRS

procedure ScanBttnClick(Sender: TObject);

FUNCTION F3

function searchbuf(buf:pchar;buflen:integer; selstart,sellength:integer;searchstring:string;options:TFindoptions):pchar;

ROUTINE TO CHANGE THE OUTPUT ON LABELS

procedure Zip1Click(Sender: TObject);

PRINT LIST

procedure GetDiskInfo(szdisk:Char);

Public declarations

TO ERASE THE CONTENTS OF TEMP.


procedure buttonup;

Private declarations

procedure changetxt;


function search(const searchstring:string;options: TFindoptions):boolean;


procedure vindclick;


Properties

Events

Variables

About1 : TMenuItem;


AboutBttn : TToolbarButton97;


AMCustomAboutDialog1 : TAMCustomAboutDialog;


BrkLne1 : TMenuItem;


BrkLne2 : TMenuItem;


CD1 : TMenuItem;


CD2 : TMenuItem;


close1 : TMenuItem;


Dirbttn : TToolbarButton97;


DriveComboBox1 : TDriveComboBox;


Erasebttn : TToolbarButton97;


ExitBttn : TToolbarButton97;


Filebttn : TToolbarButton97;


FindBttn : TToolbarButton97;


FindDialog1 : TFindDialog;


HlpBttn : TToolbarButton97;


Lijst1 : TMenuItem;


Lijst2 : TMenuItem;


MPanel1 : TMPanel;


MPanel2 : TMPanel;


MSOfficeCaption1 : TMSOfficeCaption;


OpenBttn : TToolbarButton97;


OpenDialog1 : TOpenDialog;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


Panel4 : TPanel;


Panel5 : TPanel;


Panel6 : TPanel;


Panel7 : TPanel;


Panel8 : TPanel;


Panel9 : TPanel;


PanelManager1 : TPanelManager;


PopupMenu1 : TPopupMenu;


PopupMenu2 : TPopupMenu;


Print1 : TMenuItem;


PrintBttn : TToolbarButton97;


RichEdit1 : TRichEdit;


Root2Bttn : TToolbarButton97;


Root3Bttn : TToolbarButton97;


RootAllBttn : TToolbarButton97;


RootBttn : TToolbarButton97;


RsltEdit : TRichEdit;


Save1 : TMenuItem;


SaveBttn : TToolbarButton97;


SaveDialog1 : TSaveDialog;


ScanBttn : TToolbarButton97;


Zip1 : TMenuItem;


Zip2 : TMenuItem;



Constructors


Functions


procedure About1Click(Sender: TObject);

ALL DIR


procedure CD1Click(Sender: TObject);

PRINT ZIPLABEL


procedure close1Click(Sender: TObject);


procedure DriveComboBox1Click(Sender: TObject);

complete filename


procedure ErasebttnClick(Sender: TObject);

FIND BUTTON


procedure FilebttnClick(Sender: TObject);

SET STATE OF PANELS


procedure FindBttnClick(Sender: TObject);


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

Closes the printer variable


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);

SET STATE OF BTTNS


procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

ERASE THE CONTENT OF MYLIST AND SAVE IT TO DISK SO A TOTALLY NEW SCANNING CAN BE PERFORMED


procedure HlpBttnClick(Sender: TObject);


procedure Lijst1Click(Sender: TObject);

SCANRESULT: ONLY ROOT


procedure MPanel1Click(Sender: TObject);

OPENBUTTON


procedure OpenBttnClick(Sender: TObject);

Closes the printer variable


procedure PrintCD(sender:tobject);

PRINT CDLABEL


procedure printZIP(sender:TObject);

FIND


procedure procesfile(const filename:string);

DURING THE FOLLOWING PROC, FIRST I DETERMINE THE TOTAL OF SUBDIRS -aa- TO SCAN AND COMPARE IT TO AltNode BEING THE CHOSEN TOTAL OF SUBDIRS ; THEN IN FUNCTION OF CHOICE DRIVE/FILE I WRITE THE FOUNDED FILENAME TO Mylist


procedure RecurseDirs(Dir:string);


procedure RootBttnClick(Sender: TObject);


procedure SaveBttnClick(Sender: TObject);

FILL RICHEDIT1 WITH THE RESULT OF RECURSEDIRS


procedure ScanBttnClick(Sender: TObject);

FUNCTION F3


function searchbuf(buf:pchar;buflen:integer; selstart,sellength:integer;searchstring:string;options:TFindoptions):pchar;

ROUTINE TO CHANGE THE OUTPUT ON LABELS


procedure Zip1Click(Sender: TObject);

PRINT LIST


procedure GetDiskInfo(szdisk:Char);

Public declarations

TO ERASE THE CONTENTS OF TEMP.CAT SO THAT BY THE NEXT START OF THE PROGRAM WE START AGAIN FROM ZERO FILES


procedure buttonup;

Private declarations


procedure changetxt;


function search(const searchstring:string;options: TFindoptions):boolean;


procedure vindclick;


Properties


Events


Variables


About1 : TMenuItem;


AboutBttn : TToolbarButton97;


AMCustomAboutDialog1 : TAMCustomAboutDialog;


BrkLne1 : TMenuItem;


BrkLne2 : TMenuItem;


CD1 : TMenuItem;


CD2 : TMenuItem;


close1 : TMenuItem;


Dirbttn : TToolbarButton97;


DriveComboBox1 : TDriveComboBox;


Erasebttn : TToolbarButton97;


ExitBttn : TToolbarButton97;


Filebttn : TToolbarButton97;


FindBttn : TToolbarButton97;


FindDialog1 : TFindDialog;


HlpBttn : TToolbarButton97;


Lijst1 : TMenuItem;


Lijst2 : TMenuItem;


MPanel1 : TMPanel;


MPanel2 : TMPanel;


MSOfficeCaption1 : TMSOfficeCaption;


OpenBttn : TToolbarButton97;


OpenDialog1 : TOpenDialog;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


Panel4 : TPanel;


Panel5 : TPanel;


Panel6 : TPanel;


Panel7 : TPanel;


Panel8 : TPanel;


Panel9 : TPanel;


PanelManager1 : TPanelManager;


PopupMenu1 : TPopupMenu;


PopupMenu2 : TPopupMenu;


Print1 : TMenuItem;


PrintBttn : TToolbarButton97;


RichEdit1 : TRichEdit;


Root2Bttn : TToolbarButton97;


Root3Bttn : TToolbarButton97;


RootAllBttn : TToolbarButton97;


RootBttn : TToolbarButton97;


RsltEdit : TRichEdit;


Save1 : TMenuItem;


SaveBttn : TToolbarButton97;


SaveDialog1 : TSaveDialog;


ScanBttn : TToolbarButton97;


Zip1 : TMenuItem;


Zip2 : TMenuItem;