"Delphi. Учимся на примерах" - читать интересную книгу автора (Парижский Сергей Михайлович)

Полный исходный код модуля

Полный исходный код модуля программы Хранитель экрана представлен в листинге 5.1.

unit Unit1;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;

type TForm1 = class(TForm)

 Timer1: TTimer;

 Timer2: TTimer;

 procedure FormCreate(Sender: TObject);

 procedure FormKeyPress(Sender: TObject; var Key: Char);

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

 procedure Timer1Timer(Sender: TObject);

 procedure Timer2Timer(Sender: TObject);

private

 { Private declarations }

 procedure color_check();

public

 { Public declarations }

end;

var

 Form1: TForm1;

 mouse: TPoint;

implementation

{$R *.dfm}

procedure TForm1.color_check();

var

 ran: integer; //случайное число, соответствующее

 //определенному цвету

begin

 Randomize; //включаем генератор случайных чисел

 ran: = Random(6) + 1; //выбираем случайное число от 1 до 6

 //Назначаем форме цвет, соответствующий выбранному числу

 case ran of

 1: Form1.Color:= clBlack;

 2: Form1.Color:= clWhite;

 3: Form1.Color:= clBlue;

 4: Form1.Color:= clGray;

 5: Form1.Color:= clYellow;

 6: Form1.Color:= clGreen;

 end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

 GetCursorPos(mouse); //получаем координаты курсора мыши

 ShowCursor(False); //прячем курсор

end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key:Char)

begin

 Halt; //завершение работы программы

end;

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

begin

 if (X lt;gt; mouse.X) or (Y lt;gt; mouse.Y) then Halt;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

 if Form1.AlphaBlendValue gt; 250

 then //проверяем: не полностью ли мы закрасили форму

 begin

  Timer1.Enabled:= False; //выключаем насыщение формы

  Timer2.Enabled:= True; //включаем обратный процесс

 end;

 //постепенное насыщение формы

 Form1.AlphaBlendValue:= Form1.AlphaBlendValue + 1;

end;

procedure TForm1.Timer2Timer(Sender: TObject);

begin

 if Form1.AlphaBlendValue lt; 5

 then //если форма уже полностью прозрачная

 begin

  color_check(); //выбираем случайный цвет для формы

  Timer2.Enabled:= False; //выключаем второй таймер

  Timer1.Enabled := True; //включаем первый таймер

 end;

 //Уменьшаем прозрачность на 1

 Form1.AlphaBlendValue:= Form1.AlphaBlendValue – 1;

end;

end.