
20.07.2010, 22:35
|
Активный
|
|
Регистрация: 15.04.2009
Сообщения: 369
Репутация: 93
|
|
Мерцание - понятие относительное ...
:-)
Код:
unit Unit_Backlight;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
Timer_Pause: TTimer;
Timer_Backlight: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer_BacklightTimer(Sender: TObject);
procedure Timer_PauseTimer(Sender: TObject);
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
Color_Pause, Color_Backlight : TColor;
YesFlicker : boolean;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Color_Pause:=Form1.Color;
Color_Backlight := clLime;
YesFlicker := true;
Timer_Pause.Interval:=500;
Timer_Backlight.Interval:=200;
Timer_Pause.Enabled:=false;
Timer_Backlight.Enabled:=true;
end;
procedure TForm1.Timer_BacklightTimer(Sender: TObject);
begin
Timer_Backlight.Enabled:=false;
Timer_Pause.Enabled:=false;
if YesFlicker then begin
Form1.Color:=Color_Backlight;
Timer_Pause.Enabled:=true;
end
else begin
Form1.Color:=Color_Pause;
end;
end;
procedure TForm1.Timer_PauseTimer(Sender: TObject);
begin
Timer_Pause.Enabled:=false;
Timer_Backlight.Enabled:=false;
Form1.Color:=Color_Pause;
if YesFlicker then begin
Timer_Backlight.Enabled:=true;
end;
end;
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
YesFlicker := not YesFlicker;
if YesFlicker then begin
Timer_Pause.Enabled:=false;
Timer_Backlight.Enabled:=true;
end;
end;
end.
|