Category : Pascal Source Code
Archive   : OOPWIN.ZIP
Filename : OOPWIN.PAS

 
Output of file : OOPWIN.PAS contained in archive : OOPWIN.ZIP

program OOPWin;

uses TPCRT,
TPDOS,
ColorDef,
TPEdit,
TPString,
OWWind, { Unit containing window object }
OWVars; { Unit containing Global Variables, types & constants }

var
OW: OOPWindow;
FindFile: String;
Escaped: Boolean;

begin
OW.Init(5, 6, 18, 20,
GreenOnBlue, WhiteOnBlue, WhiteOnBlue,
'OOPFILE.VAR'); { initialize the array }
OW.ShowWindow; { Show the Keep Window }
repeat
ForceUpper := true;
ReadString('Enter Search Name:',24,1,sizeof(FileStr),
WhiteOnBlue, YellowOnBlue, YellowOnBlue,
Escaped, FindFile);
if (not escaped) then
if OW.wildSearch(FindFile) then
fastwrite(pad(findFile,13)+'Found ',23,1,RedOnLtGray)
else
fastwrite(pad(findFile,13)+'Not found',23,1,GreenOnLtGray)
until escaped;
OW.Done; { Remove the Array }
end.