It's a simple alarm clock, written on Free Pascal with library Turbo Vision.
geosel
ec6813c373
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. |
||
---|---|---|
Clock.zip | ||
README.md |
pascal_turbo_vision
It's a simple alarm clock, written on Free Pascal with library Turbo Vision.