Реферат: Создание хранителя экрана

X := Random(MaxX); Y := Random(MaxY);

If SolidColors Then

Color := GetNearestColor(PaintDC,

RGB(Random(255),Random(255)

,Random(255)))

Else Color := RGB(Random(255),

Random(255),Random(255));

OldBrush := SelectObject(PaintDC,

CreateSolidBrush(Color));

If RoundedRectangles Then

RoundRect(PaintDC,X,Y,X+Random(MaxX-X),

Y+Random(MaxY-Y),20,20)

Else Rectangle(PaintDC,X,Y,X+Random(MaxX-X),

Y+Random(MaxY-Y));

DeleteObject(SelectObject(PaintDC,OldBrush));

EndPaint(PreviewWindow,Info);

End;

И последнее - глобальные переменные:

Var

IsPreview : Boolean;

MoveCounter : Integer;

QuitSaver : Boolean;

PreviewWindow : hWnd;

MaxX,MaxY : Integer;

RoundedRectangles : Boolean;

SolidColors : Boolean;

Затем исходная программа проекта (.dpr). Красива, а!?

program MySaverIsGreat;

uses