Книга: 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 <> mouse.X) or (Y <> mouse.Y) then Halt;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if Form1.AlphaBlendValue > 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 < 5
 then //если форма уже полностью прозрачная
 begin
  color_check(); //выбираем случайный цвет для формы
  Timer2.Enabled:= False; //выключаем второй таймер
  Timer1.Enabled := True; //включаем первый таймер
 end;
 //Уменьшаем прозрачность на 1
 Form1.AlphaBlendValue:= Form1.AlphaBlendValue – 1;
end;
end.

Оглавление книги