Screen Saver

I want to create a screen saver that will show bitmaps.

How can I create this?  (I'm working with Delphi3).
tktkAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
d003303Connect With a Mentor Commented:
Yo,
I sent you the sources. Copy ssaverform.pas into your link path and add it to your form repository.
Take a look at the sample (rest of the files). The magic lies in ssaverform.pas and saver1, the project source.
To implement your screen saver on that framework, change the configuration form and add a changing image to the saver form, changing with the timer events.

Have fun,
Slash/d003303
0
 
interCommented:
Hi,
IN ITS SIMPLE FORM screen saver is just a trivial exe program with some requirements. Example:

1 - Open a new project. Add TImage (say Image1) to it. Clear the caption of the form and clean the System Menu Items set. Set form to show windows as wsMaximized(and do other cosmetic), set always on top etc...
2 - add the following to the MouseMove, MouseClick, KeyUp events
begin
  Close;
end;
3 - In formshow do the following
begin
   Image1.Picture.LoadFromFile('MYBITMAP');
end;
4 - Compile the project and rename the executable from .exe to .scr. And copy it to 'windows\system'.(or winnt\system32')

This the dump way of doing screen saver. However,actually there are several specialties about the screen savers(for example preview). If you want such a thing then give me your email and I'll send you a screen saver source...
Regards,
Igor
0
 
d003303Commented:
Take a look at my PAQ
http://www.experts-exchange.com/topics/comp/lang/delphi/Q.10053332
wich includes a complete description of a screensaver and a sample screen saver source.

Slash/d003303
0
 
tktkAuthor Commented:
my email is:

talklein@ort.org.il

please send me your screen saver source.

0
 
tktkAuthor Commented:
thank you very much!
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.