It's a simple alarm clock, written on Free Pascal with library Turbo Vision.
Go to file
geosel ec6813c373 Upload files to ''
The SetAlarm.pas file contains general purpose routines:
pocedure ErrorMessageDialog; - creates a new notification window about invalid data format.
procedure NewMessageDialog; - creates a new notification window about the expiration of time;
procedure SetAlarmClock; - processes user input;
procedure NewDialog; - creates an interface (a new window with fields for input and buttons for control).
procedure InitMenuBar; virtual; - creates the top menu;
procedure HandleEvent (var Event: TEvent); virtual; - processes the main events;
procedure HandleEvent (var Event: TEvent); virtual; - event handler for the OK button;

And it also contains unit Check.pas to check the entered data.
2020-10-30 22:28:54 +03:00
Clock.zip Upload files to '' 2020-10-30 22:28:54 +03:00
README.md Initial commit 2020-10-30 21:07:23 +03:00

pascal_turbo_vision

It's a simple alarm clock, written on Free Pascal with library Turbo Vision.