home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1997 July
/
Chip_1997-07_cd.bin
/
sharewar
/
delphi
/
ssexp
/
readme.txt
< prev
next >
Wrap
Text File
|
1996-09-02
|
1KB
|
44 lines
Unzip SSEXPERT.ZIP into a temporary directory and run the SETUP utility.
The SETUP utility will copy the DLL, HLP and DCU files to the
appropriate directories and update Delphi's Registry entries. Note that
if Delphi is running you will have to close and restart Delphi for the
changes to take effect.
Run Delphi and select "File|New". You will see that there is a new
"Shareware Expert" on the Projects page. Select and use the expert and
the basic shell of a screen saver will be created. If you told the
expert to generate an idle event handler, writing a screen saver simply
requires that you write some code in the idle event handler such as:
procedure TSaverForm.IdleEvent;
var
X,Y,R,G,B:integer;
TheColor : TColor;
begin
X := Random(ClientWidth);
Y := Random(ClientHeight);
R := Random(256);
G := Random(256);
B := Random(256);
if ((R+G+B) div 3) >= 200 then
TheColor := RGB(R,G,B)
else
TheColor := 0;
Canvas.Pen.Color := TheColor;
Canvas.MoveTo(LastX,LastY);
Canvas.LineTo(X,Y);
LastX := X;
LastY := Y;
Done := false;
end;
Once compiled, you must give the generated EXE file an ".SCR" extension
and copy it to your WINDOWS\SYSTEM directory.
This expert maintains UNISTALL information. In Win95/WinNT4 select the
Control Panel's "Add/Remove Programs" icon, and then select the
ScreenSaver entry in the displayed list.
Pat
70007.4660@compuserve.com