screensave.pas

pasa人力资源考勤管理系统

unit screensave;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, thread_screensave;

type
  TFormscreensave = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Timer1Timer(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formscreensave: TFormscreensave;
  t_screen:Pasa_ScreenSaver;

implementation

uses main, screenpass;
{$R *.DFM}

procedure TFormscreensave.FormCreate(Sender: TObject);
begin
   with formmain do
   begin                       
      Menu:=nil;
      BorderStyle:=bsnone;
      outlook1.Visible:=false;
      toolbar1.visible:=false;
      statusbarpro1.visible:=false;
   end;  //with
   image1.Picture.LoadFromFile(screenpic);
   image1.update;
end;

procedure TFormscreensave.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
//   t_screen.free;
   with formmain do
   begin
      Menu:=MainMenu1;
      BorderStyle:=bsSizeable;
      outlook1.Visible:=true;
      toolbar1.visible:=true;
      statusbarpro1.visible:=true;
      timer2.enabled:=true;
//      image1.visible:=true;
//      image1.update;
   end;
   formscreensave:=nil;
   action:=cafree;
end;

procedure TFormscreensave.FormKeyPress(Sender: TObject; var Key: Char);
begin
   if not assigned(formscreenpass) then
   formscreenpass:=TFormscreenpass.create(self);
   t_screen.Suspend;
   formscreenpass.show;
end;

procedure TFormscreensave.Timer1Timer(Sender: TObject);
begin
   timer1.enabled:=false;
   t_screen:=Pasa_ScreenSaver.Create (False);  // start
   t_screen.Priority := tpLowest;
//   t_screen.FreeOnTerminate := True;
end;

procedure TFormscreensave.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if (shift=[ssCtrl]) and (key=ord('T')) then
      t_screen.free;
end;

procedure TFormscreensave.FormDestroy(Sender: TObject);
begin
   if assigned(t_screen) then
      t_screen.free;
end;

end.