Embedded screensaver is like system screensaver - it is launching if a user is inactive for some period (no mouse or keyboard input).
Unlike system screensaver, embedded one is running inside your program, keeping your opened windows away from prying eyes while you have lunch.
The package includes 4 sample screensavers: Floating Text, Digital Clock, Static Image, and Ball Fusion, but you can easily add your owns.
Just add global extension and local extension to WINDOW procedure, usually it is Main Appframe procedure.
- Password protected screensaver.
The demo is standard School application. Run the program and leave your computer alone for 10-12 seconds to see the effect, or select Test item from Screensaver menu to run active screensaver immediately.
All 4 screensavers are available.
Customizable options: text, font, size, style, text color, speed.
Customizable options: font, size, style, color, time format.
Customizable options: text, font, size, style, text color, speed.
Customizable options: image file.
PROGRAM
INCLUDE('scrsvr.inc'), ONCE
MAP
END
Window WINDOW('Caption'),AT(,,361,210),GRAY,FONT('Segoe UI',9),RESIZE
ENTRY(@s20),AT(34,56),USE(?ENTRY1)
BUTTON('Button1'),AT(140,55),USE(?BUTTON1)
BUTTON('Close'),AT(304,182,46),USE(?bClose),STD(STD:Close)
END
im TIdleMonitor
ss TScreenSaverFloatingText
CODE
OPEN(Window)
im.Init(Window, 5, ss)
ACCEPT
END
- Windows 2000 and higher
- C6 and higher, ABC/Legacy
- No dependencies