ulogin.dfm

电脑锁定

object frmLogin: TfrmLogin
  Left = 325
  Top = 84
  ActiveControl = edPassword
  AlphaBlend = True
  AlphaBlendValue = 215
  BorderIcons = []
  Caption = 'Computer Lock'
  ClientHeight = 357
  ClientWidth = 421
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 8
    Top = 8
    Width = 403
    Height = 233
  end
  object lblNameLabel: TLabel
    Left = 24
    Top = 20
    Width = 182
    Height = 25
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Computer Name:'
    Font.Charset = EASTEUROPE_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lblUserLabel: TLabel
    Left = 24
    Top = 49
    Width = 182
    Height = 25
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Current User:'
    Font.Charset = EASTEUROPE_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lblLogoffLabel: TLabel
    Left = 24
    Top = 80
    Width = 182
    Height = 25
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Logoff Time:'
    Font.Charset = EASTEUROPE_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lblUpTimeLabel: TLabel
    Left = 24
    Top = 140
    Width = 182
    Height = 25
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Total Up-Time:'
    Font.Charset = EASTEUROPE_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lblNetworkLabel: TLabel
    Left = 24
    Top = 170
    Width = 182
    Height = 25
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Network Usage:'
    Font.Charset = EASTEUROPE_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lblComputerLabel: TLabel
    Left = 24
    Top = 200
    Width = 182
    Height = 25
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Computer Usage:'
    Font.Charset = EASTEUROPE_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lblComputerName: TLabel
    Left = 225
    Top = 25
    Width = 179
    Height = 19
    Caption = '<<COMPUTER NAME>>'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object lblCurrentUser: TLabel
    Left = 225
    Top = 55
    Width = 163
    Height = 19
    Caption = '<<CURRENT USER>>'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object lblLogoffTime: TLabel
    Left = 225
    Top = 85
    Width = 92
    Height = 19
    Caption = '00:00:00 PM'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object lblTotalUpTime: TLabel
    Left = 225
    Top = 145
    Width = 90
    Height = 19
    Caption = '00:00:00:00'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object lblNetworkUsage: TLabel
    Left = 225
    Top = 175
    Width = 72
    Height = 19
    Caption = '0000 Kb/s'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object lblComputerUsage: TLabel
    Left = 225
    Top = 205
    Width = 43
    Height = 19
    Caption = '000%'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object lblTimeLabel: TLabel
    Left = 24
    Top = 110
    Width = 182
    Height = 25
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Current Time:'
    Font.Charset = EASTEUROPE_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lblCurrentTime: TLabel
    Left = 225
    Top = 115
    Width = 92
    Height = 19
    Caption = '00:00:00 PM'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object lblPasswordLabel: TLabel
    Left = 8
    Top = 263
    Width = 60
    Height = 16
    Caption = 'Password:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object lblIncorrect: TLabel
    Left = 74
    Top = 285
    Width = 339
    Height = 13
    AutoSize = False
    Caption = 'Incorrect password attempt 0/0'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
    Visible = False
  end
  object edPassword: TEdit
    Left = 74
    Top = 262
    Width = 258
    Height = 21
    PasswordChar = '*'
    TabOrder = 0
    OnKeyPress = edPasswordKeyPress
  end
  object btnLogin: TButton
    Left = 338
    Top = 260
    Width = 75
    Height = 25
    Caption = 'Login'
    TabOrder = 1
    OnClick = btnLoginClick
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 304
    Width = 405
    Height = 44
    TabOrder = 2
    object btnLogoff: TButton
      Left = 330
      Top = 10
      Width = 66
      Height = 25
      Caption = 'Logoff'
      TabOrder = 0
      OnClick = btnLogoffClick
    end
    object btnShutdown: TButton
      Left = 180
      Top = 10
      Width = 69
      Height = 25
      Caption = 'Shutdown'
      TabOrder = 1
      OnClick = btnShutdownClick
    end
    object btnRestart: TButton
      Left = 255
      Top = 10
      Width = 69
      Height = 25
      Caption = 'Restart'
      TabOrder = 2
      OnClick = btnRestartClick
    end
    object cbDeletePassword: TCheckBox
      Left = 10
      Top = 15
      Width = 146
      Height = 17
      Caption = 'Delete Password On Login'
      TabOrder = 3
    end
  end
  object tmrUpdate: TTimer
    OnTimer = tmrUpdateTimer
  end
end