Class TInventaris (unit DirListP) |
Inherits from
TForm
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;
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;
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;
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;