Category : Files from Magazines
Archive   : ITP9002.ZIP
Filename : MAIN.PAS

Unit Screen;

{ A demonstration unit utilizing units from the Technojock Toolkit }
{ Purpose: Initialize a program's main screen, including Main Menu, }
{ Date_Time bar, and Program Title. }
{ }
{ Copyright 1990 George L. Butts Small Systems Development }

interface

uses
Crt, { Borland Unit }
MiscTTT5, { Provides the Date and Time Functions }
FastTTT5, { Screen Write routines }
menuttt5,
keyttt5,
winttt5;
Var
Main_Menu : Menu_Record;
Choice,
Error : Integer;

Procedure Init_Menu;
Procedure Run_Menu;

Implementation

{$F+}
Procedure Clock_Bar;
begin
WriteAt(1,25,Black,LightGray,Date);
WriteAt(55,25,Black,LightGray,Time);
end;
{$F-}

Procedure Init_Menu;
begin
SaveScreen( 1 );
FillScreen(1,2,80,24,LightGray,Blue,' ');
ClearLine(1,Red,LightGray);
WriteCenter(1,Red,LightGray,'TechnoJock Demo');
ClearLine(25,Black,LightGray);
Menu_Set( Main_Menu );
With Main_Menu do
begin
Heading1 := 'Main Menu';
Topic[1] := 'Load';
Topic[2] := 'Save';
Topic[3] := 'Print';
Topic[4] := 'Exit';
TotalPicks := 4;
end;
end;
Procedure Load_Something;
begin
end;

Procedure Save_Something;
begin
end;

Procedure Print_Something;
begin
end;


Procedure Run_Menu;
begin
Choice := 1;
Repeat
DisplayMenu( Main_Menu , False , Choice , Error );
Case Choice of
1 : Load_Something;
2 : Save_Something;
3 : Print_Something;
end;
Until (Choice = 4) OR (Error = 1);
RestoreScreen( 1 );
end;

Begin
Assign_Idle_Hook( Clock_Bar );
Init_Menu;
End.