.net - The Best of 1999/2000/netCD Special01.iso/pc/Software/We-Blocker/weblock.exe/WebSafe.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 2000-06-22 | 10.0 KB | 295 lines

object Form1: TForm1
  Left = 225
  Top = 143
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = 'We-Blocker'
  ClientHeight = 180
  ClientWidth = 209
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  OldCreateOrder = True
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object PopupMenu1: TPopupMenu
    Left = 6
    Top = 72
    object Controls1: TMenuItem
      Bitmap.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        500055555555555550B055555555555000B0555555555550B3B0555555555000
        3B055555555500B3B055555555550B3B05555800050003B0555580BBB00B3B05
        55550BBBBBB3B05555550BBBBBBB055555550BB003BB0855555588B003BBB055
        555550BB33BBB05555555508BBBB085555555558000085555555}
      Caption = 'Controls'
      Visible = False
      OnClick = Controls1Click
    end
    object SubmitSite1: TMenuItem
      Bitmap.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333339999933333333399999999933333399333333999333399993333339
        9933393999333333993399339993333339939933399933333993993333999333
        3993993333399933399399333333999339933993333339993933399933333399
        9933339993333339933333399999999933333333399999333333}
      Caption = 'Submit Site to Block'
      Visible = False
      OnClick = SubmitSite1Click
    end
    object RemoveSite1: TMenuItem
      Bitmap.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
        5555000000005550555500550005505555550055500555555555500550050055
        5555550050501105555555550509991055555005550999910555500505509990
        305555005055090B03055555555550B0B03055550555550B0B33555555555550
        BBB35550555555550BBB55555555555550BB555555555555550B}
      Caption = 'UnBlock a Site'
      Visible = False
      OnClick = RemoveSite1Click
    end
    object ChangeUser1: TMenuItem
      Bitmap.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500000000000
        0555077777777777705507000000000077055070FFFFFF0507700000000000F0
        F0700FFFFFFFFF0F007050F00F00FFF0F07050FFFFFFFFF0F070000FFFFFFFFF
        00000900F00000F00090090FFFFFFFFF0090000FFFFFFFFF0F00550F000F00FF
        0F05550FFFFFFFFF0005550FFF00000005555550005555555555}
      Caption = 'Change User'
      OnClick = ChangeUser1Click
    end
    object LogOut1: TMenuItem
      Bitmap.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000003
        3333333300777770033333308878087880333307777808777703330888770778
        8803330777700077770333088880008888033307777777777703333000000000
        0033333307033307033333330703330703333333070333070333333388700078
        8333333330777770333333333300000333333333333333333333}
      Caption = 'Log-Out User'
      OnClick = LogOut1Click
    end
    object RegisterWeBlocker1: TMenuItem
      Bitmap.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        1800000000000003000000000000000000000000000000000000FEFEFEFEFEFE
        77250C77250CFEFEFEFEFEFEFEFEFEFEFEFE77250C77250CFEFEFEFEFEFECCA6
        3FCCA63FFEFEFEFEFEFEFFFFFFFFFFFF77250C77250CB88F83FFFFFFFFFFFFFF
        FFFF74230B77250CFFFFFFCDA53BCDA53BCEA53CCCA63FFEFEFEFFFFFFFFFFFF
        77250C77250C77250CFFFFFFFFFFFFDBC7C174240B74230BCCA63FCEA53CFFFF
        FFE0C683CEA53CEBDCB4FFFFFFFFFFFF74240B77250C77250CFFFFFFFFFFFF77
        250C77250C74230BCCA63FCCA63FFFFFFFFEFEFEFFFFFFFFFFFFFFFFFFD3B9B1
        77250C77250C77250CFFFFFFFFFFFF77250C77250C77250CCCA63FCCA63FF2E8
        CDF2E8CDF2E8CDF2E8CDFFFFFF77250C74230B77250C77250CFFFFFFFFFFFF77
        250C77250C77250CCEA53CCCA63FCCA63FCCA63FCCA63FCCA63FFFFFFF77250C
        77250C77250C74230BC9AAA1FFFFFF77250C77250C77250CCCA63FCCA63FF2E8
        CDF2E8CDCCA63FCCA63FFFFFFF77250C77250CE4D4D075230B77250CECE2DF77
        250C77250C77250CCCA63FCCA63FFFFFFFFFFFFFCDA53BD9BA6AFFFFFF77250C
        77250CFFFFFF74240C77250C8C4A3674230BB88F8377250CC49736CCA63FCCA6
        3FCCA63FCDA53BFEFEFEFFFFFF77250C77250CFFFFFF77250C77250C77250C74
        240BFFFFFF7B2E1775230BCCA63FCCA63FCEA53CD0AA45FEFEFE9D655474240B
        77250CFFFFFF77250C77250C77250C77250CFFFFFFD3B9B177250C77250CF5ED
        D9FBF8F1FFFFFFFEFEFE77250C77250C9D6554FFFFFF77250C77250C77250C77
        250CFFFFFFFFFFFF74230B77250CFFFFFFFFFFFFFFFFFFFEFEFE77250C74240C
        F5F0EEFFFFFF77250C74240C77250C77250CFFFFFFFFFFFF77250C77250CFFFF
        FFFFFFFFFFFFFFFEFEFE77250C74230BFFFFFFFFFFFFB88F8374230B74230B77
        250CFFFFFFFFFFFF77250C77250CFFFFFFFFFFFFFFFFFFFEFEFE77250C77250C
        FFFFFFFFFFFFFFFFFF77250C75240B843C26FFFFFFFFFFFF77250C75230BFFFF
        FFFFFFFFFFFFFFFEFEFE77250C77250CFFFFFFFFFFFFFFFFFF77250C77250CFF
        FFFFFFFFFFFFFFFF77250C77250CB88F83FFFFFFFFFFFFFEFEFE}
      Caption = 'Register We-Blocker'
      Visible = False
      OnClick = RegisterWeBlocker1Click
    end
    object Help: TMenuItem
      Bitmap.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333F898F333333333BFB999BFB333333BFBF898FBFB3333BFBFBFBFBFB
        FB333FBFBFB9BFBFBF33FBFBFBF98BFBFBF3BFBFBFB99FBFBFB3FBFBFBFB99FB
        FBF3BFBF88BF899FBFB3FBFB99FB899BFBF33FBF998F899FBF333BFBF99999FB
        FB3333BFBF999FBFB333333BFBFBFBFB333333333FBFBF333333}
      Caption = 'Help'
      OnClick = HelpClick
    end
  end
  object URLS1DB: THalcyonDataSet
    About = 'Halcyon Version 06.6.0 (21 Mar 00)'
    AutoFlush = False
    Exclusive = False
    LockProtocol = Default
    TranslateASCII = True
    UseDeleted = False
    UserID = 0
    Left = 60
    Top = 102
  end
  object UsersDB: THalcyonDataSet
    About = 'Halcyon Version 06.6.0 (21 Mar 00)'
    AutoFlush = False
    Exclusive = False
    LockProtocol = Default
    TranslateASCII = True
    UseDeleted = False
    UserID = 0
    Left = 144
    Top = 12
  end
  object UsersSource: TDataSource
    DataSet = UsersDB
    Left = 114
    Top = 12
  end
  object LogDb: THalcyonDataSet
    About = 'Halcyon Version 06.6.0 (21 Mar 00)'
    AutoFlush = False
    Exclusive = True
    LockProtocol = Default
    TranslateASCII = True
    UseDeleted = False
    UserID = 0
    Left = 144
    Top = 42
  end
  object LogSource: TDataSource
    DataSet = LogDb
    Left = 114
    Top = 42
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 300000
    OnTimer = Timer1Timer
    Left = 56
    Top = 6
  end
  object URLS2DB: THalcyonDataSet
    About = 'Halcyon Version 06.6.0 (21 Mar 00)'
    AutoFlush = False
    Exclusive = False
    LockProtocol = Default
    TranslateASCII = True
    UseDeleted = False
    UserID = 0
    Left = 84
    Top = 102
  end
  object URLS3DB: THalcyonDataSet
    About = 'Halcyon Version 06.6.0 (21 Mar 00)'
    AutoFlush = False
    Exclusive = False
    LockProtocol = Default
    TranslateASCII = True
    UseDeleted = False
    UserID = 0
    Left = 114
    Top = 102
  end
  object URLS4DB: THalcyonDataSet
    About = 'Halcyon Version 06.6.0 (21 Mar 00)'
    AutoFlush = False
    Exclusive = False
    LockProtocol = Default
    TranslateASCII = True
    UseDeleted = False
    UserID = 0
    Left = 144
    Top = 102
  end
  object GHServer1: TGHServer
    Workercode = GHServer1Workercode
    ThreadCacheSize = 10
    Left = 6
    Top = 102
  end
  object Wordsdb: THalcyonDataSet
    About = 'Halcyon Version 06.6.0 (21 Mar 00)'
    AutoFlush = False
    Exclusive = False
    LockProtocol = Default
    TranslateASCII = True
    UseDeleted = False
    UserID = 0
    OnCalcFields = WordsdbCalcFields
    Left = 144
    Top = 66
    object WordsdbWORD: TStringField
      FieldName = 'WORD'
      Size = 30
    end
    object WordsdbCalcWordType: TStringField
      DisplayWidth = 25
      FieldKind = fkCalculated
      FieldName = 'CalcWordType'
      Calculated = True
    end
    object WordsdbTYPE: TSmallintField
      FieldName = 'TYPE'
    end
  end
  object WordsSource: TDataSource
    DataSet = Wordsdb
    Left = 114
    Top = 66
  end
  object AppInfo: TzShowApp
    OnlyOneInstance = True
    CPUType = 5
    CPUString = 'AMD K5/K6'
    CPUVendor = 'AuthenticAMD'
    CPUMMX = True
    CPUStepping = 0
    CPUModel = 8
    CPUSpeed = 299
    UseCmdShow = False
    ShowOnStatusBar = False
    ShowMainForm = False
    ShowHint = True
    OnAskEndSession = AppInfoAskEndSession
    Left = 6
    Top = 6
  end
  object zTrayIcon1: TzTrayIcon
    PopupMenu = PopupMenu1
    LeftPopupMenu = PopupMenu1
    HideParentForm = True
    ShowDesigning = False
    Active = True
    Icon.Data = {<image001.ico>}
    ToolTip = 'WeBlocker'
    OnDblClick = zTrayIcon1DblClick
    Left = 6
    Top = 42
  end
  object AsserterLauncher: TTimer
    Interval = 5000
    OnTimer = AsserterLauncherTimer
    Left = 18
    Top = 144
  end
end