patientexplorer.dfm

PatientRunner 20 Source

object PatientExplorerForm: TPatientExplorerForm
  Left = 90
  Top = 78
  Width = 808
  Height = 646
  ActiveControl = NotesListView
  Caption = 'Patient Explorer'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  Position = poScreenCenter
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object BottomPanel: TPanel
    Left = 0
    Top = 122
    Width = 800
    Height = 451
    Align = alClient
    TabOrder = 0
    object LeftSplitter: TSplitter
      Left = 186
      Top = 1
      Height = 449
    end
    object RightSplitter: TSplitter
      Left = 636
      Top = 1
      Height = 449
      Align = alRight
    end
    object RightPanel: TPanel
      Left = 639
      Top = 1
      Width = 160
      Height = 449
      Align = alRight
      TabOrder = 0
      object UpDownSplitter: TSplitter
        Left = 1
        Top = 201
        Width = 158
        Height = 3
        Cursor = crVSplit
        Align = alTop
      end
      object DiagnosesListView: TListView
        Left = 1
        Top = 1
        Width = 158
        Height = 200
        Align = alTop
        Columns = <
          item
            AutoSize = True
            Caption = 'Diagnosis'
          end>
        ColumnClick = False
        GridLines = True
        HideSelection = False
        ReadOnly = True
        RowSelect = True
        PopupMenu = DiagnosesPopupMenu
        TabOrder = 0
        ViewStyle = vsReport
        OnClick = DiagnosesListViewClick
        OnCustomDrawItem = DiagnosesListViewCustomDrawItem
        OnDblClick = EditDiagnosisClick
      end
      object MedicationsListView: TListView
        Left = 1
        Top = 204
        Width = 158
        Height = 244
        Align = alClient
        Columns = <
          item
            AutoSize = True
            Caption = 'Medication'
          end>
        ColumnClick = False
        GridLines = True
        HideSelection = False
        ReadOnly = True
        RowSelect = True
        PopupMenu = MedsPopupMenu
        TabOrder = 1
        ViewStyle = vsReport
        OnClick = MedicationsListViewClick
        OnCustomDrawItem = MedicationsListViewCustomDrawItem
        OnDblClick = EditMedicationClick
      end
    end
    object NoteGroupBox: TGroupBox
      Left = 189
      Top = 1
      Width = 447
      Height = 449
      Align = alClient
      Caption = 'Note Text'
      TabOrder = 1
      object NoteRichEdit: TAddictRichEdit
        Left = 2
        Top = 15
        Width = 443
        Height = 432
        Align = alClient
        Color = clBtnFace
        PopupMenu = NotesPopupMenu
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
        OnSelectionChange = SelectionChange
        LiveSpelling = True
        LiveCorrect = True
        AddictSpell = AddictSpell31
        LiveSpellingColor = clRed
        DoubleBuffered = True
        LiveSpellingOptions = True
        LiveMenuOptions = [spDialog, spAutoCorrect, spChangeAll, spAdd, spIgnoreAll, spIgnore, spReplace]
        LiveSpellingReadOnly = False
      end
    end
    object Panel1: TPanel
      Left = 1
      Top = 1
      Width = 185
      Height = 449
      Align = alLeft
      TabOrder = 2
      object Splitter1: TSplitter
        Left = 1
        Top = 261
        Width = 183
        Height = 3
        Cursor = crVSplit
        Align = alTop
      end
      object NotesListView: TListView
        Left = 1
        Top = 1
        Width = 183
        Height = 260
        Align = alTop
        Columns = <
          item
            AutoSize = True
            Caption = 'Date'
            MaxWidth = 60
          end
          item
            AutoSize = True
            Caption = 'Note Title'
          end>
        ColumnClick = False
        GridLines = True
        HideSelection = False
        ReadOnly = True
        RowSelect = True
        PopupMenu = NotesPopupMenu
        TabOrder = 0
        ViewStyle = vsReport
        OnClick = NotesListViewClick
        OnCustomDrawItem = NotesListViewCustomDrawItem
        OnDblClick = EditNoteClick
      end
      object ScalesListView: TListView
        Left = 1
        Top = 264
        Width = 183
        Height = 184
        Align = alClient
        Columns = <
          item
            AutoSize = True
            Caption = 'Date'
            MaxWidth = 60
          end
          item
            AutoSize = True
            Caption = 'Scale'
          end
          item
            AutoSize = True
            Caption = 'Result'
          end>
        ColumnClick = False
        GridLines = True
        HideSelection = False
        ReadOnly = True
        RowSelect = True
        PopupMenu = ScalesPopupMenu
        TabOrder = 1
        ViewStyle = vsReport
        OnClick = ScalesListViewClick
        OnDblClick = EditScaleClick
      end
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 573
    Width = 800
    Height = 19
    Panels = <
      item
        Width = 50
      end>
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 800
    Height = 122
    AutoSize = True
    Bands = <
      item
        Control = StandardToolBar
        ImageIndex = -1
        MinHeight = 30
        Width = 796
      end
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 29
        Width = 373
      end
      item
        Break = False
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 29
        Width = 421
      end
      item
        Control = PatientInfoPanel
        ImageIndex = -1
        MinHeight = 55
        Width = 796
      end>
    object StandardToolBar: TToolBar
      Left = 9
      Top = 0
      Width = 783
      Height = 30
      AutoSize = True
      BorderWidth = 2
      DragMode = dmAutomatic
      EdgeBorders = []
      Flat = True
      Images = ToolbarImages
      Indent = 4
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Wrapable = False
      object CutButton: TToolButton
        Left = 4
        Top = 0
        ImageIndex = 1
        OnClick = CutClick
      end
      object CopyButton: TToolButton
        Left = 27
        Top = 0
        ImageIndex = 2
        OnClick = CopyClick
      end
      object PasteButton: TToolButton
        Left = 50
        Top = 0
        ImageIndex = 3
        OnClick = PasteClick
      end
      object UndoButton: TToolButton
        Left = 73
        Top = 0
        ImageIndex = 0
        OnClick = UndoClick
      end
      object ToolButton10: TToolButton
        Left = 96
        Top = 0
        Width = 8
        ImageIndex = 7
        Style = tbsSeparator
      end
      object FontName: TComboBox
        Left = 104
        Top = 0
        Width = 173
        Height = 21
        Hint = 'Font Name|Select font name'
        Ctl3D = False
        DropDownCount = 10
        ItemHeight = 13
        ParentCtl3D = False
        TabOrder = 0
        OnChange = FontNameChange