source: cprs/branches/tmg-cprs/CPRS-Chart/Encounter/fPatientEd.dfm@ 453

inherited frmPatientEd: TfrmPatientEd
  Left = 275
  Top = 267
  Caption = 'Patient Education'
  PixelsPerInch = 96
  TextHeight = 13
  object lblUnderstanding: TLabel [0]
    Left = 490
    Top = 264
    Width = 112
    Height = 13
    Caption = 'Level Of Understanding'
  end
  inherited lblSection: TLabel
    Width = 123
    Caption = 'Patient Education Section'
  end
  inherited btnOK: TBitBtn
    TabOrder = 6
  end
  inherited btnCancel: TBitBtn
    TabOrder = 7
  end
  inherited pnlGrid: TPanel
    TabOrder = 1
    inherited lbGrid: TORListBox
      Tag = 60
      Caption = 'Selected Patient Educations'
      Pieces = '1,2'
    end
    inherited hcGrid: THeaderControl
      Sections = <
        item
          ImageIndex = -1
          MinWidth = 124
          Text = 'Level of Understanding'
          Width = 124
        end
        item
          ImageIndex = -1
          MinWidth = 150
          Text = 'Selected Patient Educations'
          Width = 150
        end>
    end
  end
  inherited edtComment: TCaptionEdit
    TabOrder = 3
  end
  inherited btnRemove: TButton
    TabOrder = 5
  end
  inherited btnSelectAll: TButton
    TabOrder = 2
    TabStop = True
  end
  inherited pnlMain: TPanel
    TabOrder = 0
    inherited lbxSection: TORListBox
      Tag = 60
    end
    inherited pnlLeft: TPanel
      inherited lbSection: TORListBox
        Tag = 60
        TabOrder = 0
        Caption = 'Patient Education Section'
      end
      inherited btnOther: TButton
        Tag = 22
        Caption = 'Other Education Topic...'
        TabOrder = 1
      end
    end
  end
  object cboPatUnderstanding: TORComboBox [12]
    Tag = 40
    Left = 490
    Top = 280
    Width = 121
    Height = 21
    Style = orcsDropDown
    AutoSelect = True
    Caption = 'Level Of Understanding'
    Color = clWindow
    DropDownCount = 8
    Enabled = False
    ItemHeight = 13
    ItemTipColor = clWindow
    ItemTipEnable = True
    ListItemsOnly = False
    LongList = False
    LookupPiece = 0
    MaxLength = 0
    Pieces = '2'
    Sorted = False
    SynonymChars = '<>'
    TabOrder = 4
    OnChange = cboPatUnderstandingChange
    CharsNeedMatch = 1
  end
  inherited DKLanguageController1: TDKLanguageController
    LangData = {
      0C0066726D50617469656E744564010100000001000000070043617074696F6E
      0114000000050062746E4F4B010100000002000000070043617074696F6E0009
      0062746E43616E63656C010100000003000000070043617074696F6E00070070
      6E6C47726964010100000004000000070043617074696F6E0006006C62477269
      6401010000000E000000070043617074696F6E00060068634772696401020000
      000F000000100053656374696F6E735B305D2E54657874100000001000536563
      74696F6E735B315D2E54657874000A006C626C53656374696F6E010100000005
      000000070043617074696F6E0007006C626C4C69737401010000000600000007
      0043617074696F6E000A006C626C436F6D6D656E740101000000070000000700
      43617074696F6E00070062766C4D61696E00000A00656474436F6D6D656E7401
      0100000008000000070043617074696F6E00090062746E52656D6F7665010100
      000009000000070043617074696F6E000C0062746E53656C656374416C6C0101
      0000000A000000070043617074696F6E000700706E6C4D61696E000007007370
      6C4C65667400000A006C627853656374696F6E01010000000B00000007004361
      7074696F6E000700706E6C4C656674000009006C6253656374696F6E01010000
      000C000000070043617074696F6E00080062746E4F7468657201010000000D00
      0000070043617074696F6E0010006C626C556E6465727374616E64696E670101
      00000011000000070043617074696F6E00130063626F506174556E6465727374
      616E64696E67010100000012000000070043617074696F6E00}
  end
end