patientexplorer.dfm

PatientRunner 20 Source

    end
    object DeleteDiagnosisMenuItem: TMenuItem
      Caption = 'Delete Diagnosis'
      OnClick = DeleteDiagnosisClick
    end
    object MenuItem5: TMenuItem
      Caption = '-'
    end
    object MenuItem6: TMenuItem
      Caption = 'Refresh'
      OnClick = RefreshDiagnosesDBClick
    end
  end
  object MedsPopupMenu: TPopupMenu
    Left = 648
    Top = 336
    object NewMedMenuItem: TMenuItem
      Caption = 'New Medication'
      OnClick = NewMedicationClick
    end
    object EditMedMenuItem: TMenuItem
      Caption = 'Edit Medication'
      OnClick = EditMedicationClick
    end
    object DeleteMedMenuItem: TMenuItem
      Caption = 'Delete Medication'
      OnClick = DeleteMedicationClick
    end
    object MenuItem11: TMenuItem
      Caption = '-'
    end
    object MenuItem12: TMenuItem
      Caption = 'Refresh'
      OnClick = RefreshMedsDBClick
    end
  end
  object MainMenu: TMainMenu
    AutoMerge = True
    Images = ToolbarImages
    Left = 256
    Top = 80
    object Notes1: TMenuItem
      Caption = 'Notes'
      object NewNote: TMenuItem
        Caption = 'New'
        OnClick = NewNoteClick
      end
      object NewfromTemplate1: TMenuItem
        Caption = 'New from Template'
        OnClick = NewNotefromTemplateClick
      end
      object EditNote: TMenuItem
        Caption = 'Edit'
        OnClick = EditNoteClick
      end
      object DeleteNote: TMenuItem
        Caption = 'Delete'
        OnClick = DeleteNoteClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Save1: TMenuItem
        Caption = 'Save'
        OnClick = SaveNoteClick
      end
      object Revert1: TMenuItem
        Caption = 'Revert'
        OnClick = RevertNoteClick
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object Refresh1: TMenuItem
        Caption = 'Refresh'
        OnClick = RefreshNotesDBClick
      end
    end
    object Edit1: TMenuItem
      Caption = 'Edit'
      object Undo1: TMenuItem
        Caption = 'Undo'
        ImageIndex = 0
        OnClick = UndoClick
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object Cut1: TMenuItem
        Caption = 'Cut'
        ImageIndex = 1
        OnClick = CutClick
      end
      object Copy1: TMenuItem
        Caption = 'Copy'
        ImageIndex = 2
        OnClick = CopyClick
      end
      object Paste1: TMenuItem
        Caption = 'Paste'
        ImageIndex = 3
        OnClick = PasteClick
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object PasteDiagnosesList1: TMenuItem
        Caption = 'Paste Diagnoses List'
        OnClick = PasteDiagnosesListClick
      end
      object PasteMedicationsList1: TMenuItem
        Caption = 'Paste Medications List'
        OnClick = PasteMedicationsListClick
      end
      object N14: TMenuItem
        Caption = '-'
      end
      object Font1: TMenuItem
        Caption = 'Font ...'
        OnClick = FontClick
      end
    end
    object ools1: TMenuItem
      Caption = 'Tools'
      object Spelling1: TMenuItem
        Caption = 'Spelling'
        ImageIndex = 11
        OnClick = Spelling1Click
      end
      object Spellcheckoptions1: TMenuItem
        Caption = 'Spelling Options'
        OnClick = Spellcheckoptions1Click
      end
    end
    object Print1: TMenuItem
      Caption = 'Print'
      object DisableHeaderandFooter: TMenuItem
        AutoCheck = True
        Caption = 'Disable Header and Footer'
        OnClick = DisableHeaderandFooterClick
      end
      object PrintSetup: TMenuItem
        Caption = 'Print Setup'
        OnClick = PrintSetupClick
      end
      object PrintPreview: TMenuItem
        Caption = 'Print Preview'
        OnClick = PrintPreviewClick
      end
      object Print: TMenuItem
        Caption = 'Print'
        OnClick = PrintClick
      end
    end
    object RatingScales1: TMenuItem
      Caption = 'Rating Scales'
      object NewScale: TMenuItem
        Caption = 'New'
        OnClick = NewScaleClick
      end
      object EditScale: TMenuItem
        Caption = 'Edit'
        OnClick = EditScaleClick
      end
      object DeleteScale: TMenuItem
        Caption = 'Delete'
        OnClick = DeleteScaleClick
      end
      object N15: TMenuItem
        Caption = '-'
      end
      object Refresh3: TMenuItem
        Caption = 'Refresh'
        OnClick = RefreshScalesDBClick
      end
    end
    object Diagnoses1: TMenuItem
      Caption = 'Diagnoses'
      object NewDiagnosis: TMenuItem
        Caption = 'New'
        OnClick = NewDiagnosisClick
      end
      object EditDiagnosis: TMenuItem
        Caption = 'Edit'
        OnClick = EditDiagnosisClick
      end
      object DeleteDiagnosis: TMenuItem
        Caption = 'Delete'
        OnClick = DeleteDiagnosisClick
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object Refresh2: TMenuItem
        Caption = 'Refresh'
        OnClick = RefreshDiagnosesDBClick
      end
    end
    object Medications2: TMenuItem
      Caption = 'Medications'
      object NewMedication: TMenuItem
        Caption = 'New'
        OnClick = NewMedicationClick
      end
      object EditMedication: TMenuItem
        Caption = 'Edit'
        OnClick = EditMedicationClick
      end
      object DeleteMedication: TMenuItem
        Caption = 'Delete'
        OnClick = DeleteMedicationClick
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object RefreshMedsDB: TMenuItem
        Caption = 'Refresh'
        OnClick = RefreshMedsDBClick
      end
    end
  end
  object SQLQuery: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQLConnection = MainForm.SQLConnection
    Left = 584
    Top = 160
  end
  object FontDialog: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Left = 288
    Top = 240
  end
  object PrintDialog: TPrintDialog
    Left = 328
    Top = 184
  end
  object PrinterSetupDialog: TPrinterSetupDialog
    Left = 224
    Top = 176
  end
  object AddictSpell31: TAddictSpell3
    ConfigStorage = csRegistry
    ConfigID = '%UserName%'
    ConfigFilename = '%AppDir%\Spell.cfg'
    ConfigRegistryKey = 'Software\Addictive Software\%AppName%'
    ConfigDictionaryDir.Strings = (
      '%AppDir%')
    ConfigAvailableOptions = [soUpcase, soNumbers, soPrimaryOnly, soRepeated, soDUalCaps]
    ConfigUseMSWordCustom = True
    ConfigDefaultMain.Strings = (
      'American.adm')
    ConfigDefaultActiveCustom = '%ConfigID%.adu'
    ConfigDefaultOptions = [soLiveSpelling, soLiveCorrect, soInternet, soAbbreviations, soRepeated, soDUalCaps]
    ConfigDefaultUseMSWordCustom = False
    SuggestionsAutoReplace = False
    SuggestionsLearning = True
    SuggestionsLearningDict = '%AppDir%\%UserName%_sp.adl'
    QuoteChars = '>'
    DialogInitialPos = ipLastUserPos
    DialogSelectionAvoid = saAvoid
    DialogShowImmediate = False
    DialogShowModal = False
    EndMessage = emExceptCancel
    EndCursorPosition = epOriginal
    EndMessageWordCount = False
    MaxUndo = -1
    MaxSuggestions = -1
    KeepDictionariesActive = False
    SynchronousCheck = True
    UseHourglassCursor = True
    CommandsVisible = [sdcIgnore, sdcIgnoreAll, sdcChange, sdcChangeAll, sdcAdd, sdcAutoCorrect, sdcUndo, sdcHelp, sdcCancel, sdcOptions, sdcCustomDictionary, sdcCustomDictionaries, sdcConfigOK, sdcAddedEdit, sdcAutoCorrectEdit, sdcExcludedEdit, sdcInternalEdit, sdcMainDictFolderBrowse, sdcResetDefaults]
    CommandsEnabled = [sdcIgnore, sdcIgnoreAll, sdcChange, sdcChangeAll, sdcAdd, sdcAutoCorrect, sdcUndo, sdcHelp, sdcCancel, sdcOptions, sdcCustomDictionary, sdcCustomDictionaries, sdcConfigOK, sdcAddedEdit, sdcAutoCorrectEdit, sdcExcludedEdit, sdcInternalEdit, sdcMainDictFolderBrowse, sdcResetDefaults]
    PhoneticSuggestions = True
    PhoneticMaxDistance = 4
    PhoneticDivisor = 2
    PhoneticDepth = 2
    MappingAutoReplace = True
    UseExcludeWords = True
    UseAutoCorrectFirst = False
    RecheckReplacedWords = True
    ResumeFromLastPosition = True
    AllowedCases = cmInitialCapsOrUpcase
    UILanguage = ltEnglish
    UIType = suiDialog
    UILanguageFontControls.Charset = DEFAULT_CHARSET
    UILanguageFontControls.Color = clWindowText
    UILanguageFontControls.Height = -11
    UILanguageFontControls.Name = 'MS Sans Serif'
    UILanguageFontControls.Style = []
    UILanguageFontText.Charset = DEFAULT_CHARSET
    UILanguageFontText.Color = clWindowText
    UILanguageFontText.Height = -11
    UILanguageFontText.Name = 'MS Sans Serif'
    UILanguageFontText.Style = []
    UILanguageUseFonts = False
    Left = 152
    Top = 72
  end
end