object WeekScreen: TWeekScreen
  Left = 2
  Top = 99
  BorderStyle = bsSingle
  Caption = 'Daily Screen'
  ClientHeight = 296
  ClientWidth = 632
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Pitch = fpFixed
  Font.Style = []
  Menu = MainMenu1
  OnClose = FormClose
  OnDblClick = WeekScreenDblClick
  OnKeyDown = keydown
  OnKeyPress = keypress
  OnMouseDown = MouseDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 15
  object MonthScreenImage: TImage
    Left = 0
    Top = 0
    Width = 632
    Height = 296
    Align = alClient
    OnDblClick = WeekScreenDblClick
    OnDragDrop = MonthScreenImageDragDrop
    OnDragOver = MonthScreenImageDragOver
    OnEndDrag = MonthScreenImageEndDrag
    OnMouseDown = MouseDown
  end
  object OKbtn: TButton
    Left = 554
    Top = 4
    Width = 71
    Height = 25
    Caption = 'OK'
    TabOrder = 0
    TabStop = False
    OnClick = OKbtnClick
    OnKeyDown = keydown
  end
  object CancelBtn: TButton
    Left = 476
    Top = 4
    Width = 71
    Height = 25
    Cancel = True
    Caption = '&Cancel'
    TabOrder = 1
    TabStop = False
    OnClick = OKbtnClick
    OnKeyDown = keydown
  end
  object DailyListBox: TListBox
    Left = 384
    Top = 58
    Width = 121
    Height = 97
    HelpContext = 303
    ItemHeight = 15
    Sorted = True
    TabOrder = 2
    OnDblClick = WeekScreenDblClick
    OnKeyDown = keydown
    OnKeyPress = keypress
    OnMouseDown = MouseDown
  end
  object UpBtn: TButton
    Left = 4
    Top = 4
    Width = 20
    Height = 20
    HelpContext = 303
    Caption = 'UpBtn'
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Terminal'
    Font.Pitch = fpFixed
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    TabStop = False
    OnClick = UpBtnClick
  end
  object DnBtn: TButton
    Left = 4
    Top = 28
    Width = 20
    Height = 20
    HelpContext = 303
    Caption = 'DnBtn'
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Terminal'
    Font.Pitch = fpFixed
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    TabStop = False
    OnClick = UpBtnClick
  end
  object twentyHr: TCheckBox
    Left = 526
    Top = 30
    Width = 97
    Height = 17
    HelpContext = 303
    TabStop = False
    Alignment = taLeftJustify
    Caption = '20-hr View'
    TabOrder = 5
    OnClick = twentyHrClick
  end
  object MainMenu1: TMainMenu
    Left = 190
    Top = 2
    object DayPrint: TMenuItem
      Caption = '&Print'
      HelpContext = 303
      ShortCut = 0
      object DayPrintScreen: TMenuItem
        Caption = '&Print Screen'
        HelpContext = 303
        ShortCut = 0
        OnClick = DayPrintScreenClick
      end
    end
    object WView: TMenuItem
      Caption = '&View'
      HelpContext = 303
      ShortCut = 0
      object ViewDescription1: TMenuItem
        Caption = '&Description'
        HelpContext = 303
        ShortCut = 0
        OnClick = WViewClick
      end
      object ViewDescription2: TMenuItem
        Caption = 'Descri&ption, by Person'
        HelpContext = 303
        ShortCut = 0
        OnClick = WViewClick
      end
      object ViewEventType: TMenuItem
        Caption = '&Event Type, by Person'
        HelpContext = 303
        ShortCut = 0
        OnClick = WViewClick
      end
      object ViewTimeAlloc: TMenuItem
        Caption = '&Time Allocated, by Person'
        HelpContext = 303
        ShortCut = 0
        OnClick = WViewClick
      end
    end
    object DayHelp: TMenuItem
      Caption = '&Help'
      HelpContext = 303
      ShortCut = 112
      OnClick = DayHelpClick
    end
  end
  object PrintDialog1: TPrintDialog
    Options = [poPageNums, poSelection, poWarning]
    Left = 226
    Top = 2
  end
end