source: cprs/branches/HealthSevak-CPRS/CPRS-Chart/fReminderTree.dfm@ 1797

inherited frmReminderTree: TfrmReminderTree
  Left = 229
  Top = 197
  HelpContext = 11200
  BorderIcons = [biSystemMenu]
  Caption = 'Available Reminders'
  ClientHeight = 241
  ClientWidth = 472
  FormStyle = fsStayOnTop
  Menu = mmMain
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  ExplicitWidth = 480
  ExplicitHeight = 295
  PixelsPerInch = 96
  TextHeight = 13
  object pnlTop: TPanel [0]
    Left = 0
    Top = 0
    Width = 472
    Height = 241
    Align = alClient
    BevelOuter = bvNone
    Caption = 'pnlTop'
    Constraints.MinHeight = 120
    Constraints.MinWidth = 300
    TabOrder = 0
    OnResize = pnlTopResize
    ExplicitHeight = 221
    object tvRem: TORTreeView
      Tag = 999
      Left = 0
      Top = 17
      Width = 265
      Height = 192
      HideSelection = False
      Images = dmodShared.imgReminders
      Indent = 23
      ReadOnly = True
      RightClickSelect = True
      RowSelect = True
      StateImages = dmodShared.imgReminders
      TabOrder = 0
      OnChange = tvRemChange
      OnClick = tvRemClick
      OnCollapsed = tvRemCollapsed
      OnEnter = tvRemEnter
      OnExit = tvRemExit
      OnExpanded = tvRemExpanded
      OnKeyDown = tvRemKeyDown
      OnMouseDown = tvRemMouseDown
      Caption = 'Available Reminders'
      NodePiece = 0
      OnNodeCaptioning = tvRemNodeCaptioning
    end
    object hcRem: THeaderControl
      Left = 0
      Top = 0
      Width = 472
      Height = 17
      Sections = <
        item
          ImageIndex = -1
          MaxWidth = 267
          MinWidth = 267
          Text = 'Available Reminders'
          Width = 267
        end
        item
          Alignment = taCenter
          ImageIndex = -1
          MaxWidth = 68
          MinWidth = 68
          Text = 'Due Date'
          Width = 68
        end
        item
          ImageIndex = -1
          MaxWidth = 91
          MinWidth = 91
          Text = 'Last Occurrence'
          Width = 91
        end
        item
          Alignment = taCenter
          ImageIndex = -1
          MaxWidth = 43
          MinWidth = 43
          Text = 'Priority'
          Width = 43
        end>
      OnSectionClick = hcRemSectionClick
    end
    object pnlTopRight: TPanel
      Left = 266
      Top = 17
      Width = 206
      Height = 224
      Align = alRight
      BevelOuter = bvNone
      Caption = 'pnlTopRight'
      TabOrder = 2
      ExplicitHeight = 204
      object bvlGap: TBevel
        Left = 0
        Top = 207
        Width = 206
        Height = 17
        Align = alBottom
        Shape = bsSpacer
        Visible = False
        ExplicitTop = 175
      end
      object lbRem: TORListBox
        Left = 0
        Top = 0
        Width = 206
        Height = 207
        TabStop = False
        Style = lbOwnerDrawFixed
        Align = alClient
        ItemHeight = 16
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnClick = lbRemClick
        OnDblClick = lbRemClick
        OnDrawItem = lbRemDrawItem
        Caption = 'Due Date, last occurance, and priority'
        ItemTipColor = clWindow
        ItemTipEnable = False
        LongList = False
        OnChange = lbRemChange
        ExplicitHeight = 187
      end
    end
  end
  inherited amgrMain: TVA508AccessibilityManager
    Data = (
      (
        'Component = pnlTop'
        'Status = stsDefault')
      (
        'Component = tvRem'
        'Status = stsDefault')
      (
        'Component = hcRem'
        'Status = stsDefault')
      (
        'Component = pnlTopRight'
        'Status = stsDefault')
      (
        'Component = lbRem'
        'Status = stsDefault')
      (
        'Component = frmReminderTree'
        'Status = stsDefault'))
  end
  object mmMain: TMainMenu
    Images = dmodShared.imgReminders2
    Left = 48
    Top = 24
    object memAction: TMenuItem
      Caption = '&Action'
      OnClick = memActionClick
      object memEval: TMenuItem
        Caption = '&Evaluate Reminder'
        OnClick = memEvalClick
      end
      object memEvalCat: TMenuItem
        Caption = 'Evaluate &Category Reminders'
        OnClick = memEvalCatClick
      end
      object memEvalAll: TMenuItem
        Caption = 'Evaluate Processed &Reminders'
        OnClick = memEvalAllClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object memRefresh: TMenuItem
        Caption = 'Re&fresh Reminder Dialogs'
        OnClick = memRefreshClick
      end
      object mnuCoverSheet: TMenuItem
        Caption = 'Edit Cover Sheet Reminder &List'
        OnClick = mnuCoverSheetClick
      end
      object mnuExit: TMenuItem
        Caption = 'E&xit Available Reminders'
        ShortCut = 27
        OnClick = mnuExitClick
      end
    end
  end
  object imgLblReminders: TVA508ImageListLabeler
    Components = <
      item
        Component = tvRem
      end>
    Labels = <>
    RemoteLabeler = dmodShared.imgLblReminders
    Left = 120
    Top = 56
  end
end