Class TScreenForm (unit Main)

Inherits from

TForm

This unit contains the code for the screen saver's main form which is a borderless black window which covers the entire screen. The screen saver displays one or more "spotlights" which move around on the screen. The code for the spotlights is contained in the Spots unit. The form closes when the user presses a key, clicks a mouse button, or moves the mouse.

Constructors



Functions

procedure FormActivate(Sender: TObject);

And free the list itself

procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);

Set application's OnIdle event handler to DoScreenSaver

procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure DoScreenSaver(Sender: TObject; var Done: Boolean);

The form receives a MouseMove event when it is activated

Properties

Events

Variables

MouseAlreadyMoved : Boolean;

Private declarations

SpotList : TList;



Constructors


Functions


procedure FormActivate(Sender: TObject);

And free the list itself


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);

Set application's OnIdle event handler to DoScreenSaver


procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure DoScreenSaver(Sender: TObject; var Done: Boolean);

The form receives a MouseMove event when it is activated


Properties


Events


Variables


MouseAlreadyMoved : Boolean;

Private declarations


SpotList : TList;