object LaunchFrm: TLaunchFrm
  Left = 363
  Top = 597
  HelpContext = 1004
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'DesqTop Solutions'
  ClientHeight = 34
  ClientWidth = 252
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object ClockPnl: TPanel
    Tag = 10
    Left = 0
    Top = 0
    Width = 40
    Height = 34
    Hint = 'Screen Saver Launcher & Wallpaper Changer'
    Align = alLeft
    BevelInner = bvLowered
    BevelOuter = bvLowered
    BorderStyle = bsSingle
    Caption = '12:00'
    Color = clBlack
    Font.Color = clLime
    Font.Height = -9
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnMouseUp = ClockPnlMouseDown
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 250
    OnTimer = Timer1Timer
    Left = 42
    Top = 4
  end
  object Validator: TValidator
    RandSeed = 3299
    IniFileName = 'DESKSOL.INI'
    OnVldOk = ValidatorVldOk
    OnVldFailed = ValidatorVldFailed
    Left = 70
    Top = 4
  end
  object Reg: TRegFile
    Key = 'AppEvents\Schemes\Apps\.Default'
    Left = 98
    Top = 4
  end
  object JustOne321: TJustOne32
    Left = 184
    Top = 4
  end
  object SSTrayIcon: TTrayIcon
    Picture.Data = {<image000.unknown>}
    PopupMenu = TrayPopUpMn
    ShowHint = True
    Hint = 'Launch Screen Saver'
    OnMouseUp = TrayIconClick
    Left = 128
    Top = 4
  end
  object BMPTrayIcon: TTrayIcon
    Picture.Data = {<image001.unknown>}
    PopupMenu = TrayPopUpMn
    ShowHint = True
    Hint = 'Change Wallpaper'
    OnMouseUp = TrayIconClick
    Left = 156
    Top = 4
  end
  object TrayPopUpMn: TPopupMenu
    Left = 214
    Top = 4
    object ConfigItm: TMenuItem
      Caption = '&Configuration'
      Default = True
      ShortCut = 0
      OnClick = ConfigItmClick
    end
    object HelpItm: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      OnClick = HelpItmClick
    end
    object N1: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object ExitItm: TMenuItem
      Caption = 'E&xit'
      ShortCut = 0
      OnClick = ExitItmClick
    end
  end
end