| Class TInventaris (unit DirListP) |
TForm
| Constructors |
| Functions |
procedure About1Click(Sender: TObject);
procedure CD1Click(Sender: TObject);
procedure close1Click(Sender: TObject);
procedure DriveComboBox1Click(Sender: TObject);
procedure ErasebttnClick(Sender: TObject);
procedure FilebttnClick(Sender: TObject);
procedure FindBttnClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure HlpBttnClick(Sender: TObject);
procedure Lijst1Click(Sender: TObject);
procedure MPanel1Click(Sender: TObject);
procedure OpenBttnClick(Sender: TObject);
procedure PrintCD(sender:tobject);
procedure printZIP(sender:TObject);
procedure procesfile(const filename:string);
procedure RecurseDirs(Dir:string);
procedure RootBttnClick(Sender: TObject);
procedure SaveBttnClick(Sender: TObject);
procedure ScanBttnClick(Sender: TObject);
function searchbuf(buf:pchar;buflen:integer;
selstart,sellength:integer;searchstring:string;options:TFindoptions):pchar;
procedure Zip1Click(Sender: TObject);
procedure GetDiskInfo(szdisk:Char);TO ERASE THE CONTENTS OF TEMP.
procedure buttonup;
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;