templatemanager.dfm

PatientRunner 20 Source

        Hint = 'Underline'
        ImageIndex = 6
        Style = tbsCheck
        OnClick = UnderlineButtonClick
      end
      object ToolButton16: TToolButton
        Left = 403
        Top = 0
        Width = 8
        ImageIndex = 12
        Style = tbsDivider
      end
      object LeftAlign: TToolButton
        Left = 411
        Top = 0
        Hint = 'Align Left'
        Grouped = True
        ImageIndex = 7
        Style = tbsCheck
        OnClick = AlignButtonClick
      end
      object CenterAlign: TToolButton
        Tag = 2
        Left = 434
        Top = 0
        Hint = 'Center'
        Grouped = True
        ImageIndex = 8
        Style = tbsCheck
        OnClick = AlignButtonClick
      end
      object RightAlign: TToolButton
        Tag = 1
        Left = 457
        Top = 0
        Hint = 'Align Right'
        Grouped = True
        ImageIndex = 9
        Style = tbsCheck
        OnClick = AlignButtonClick
      end
      object ToolButton20: TToolButton
        Left = 480
        Top = 0
        Width = 8
        ImageIndex = 15
        Style = tbsDivider
      end
      object BulletsButton: TToolButton
        Left = 488
        Top = 0
        Hint = 'Bullets|Enter bullet mode'
        ImageIndex = 10
        Style = tbsCheck
        OnClick = BulletsButtonClick
      end
      object ToolButton1: TToolButton
        Left = 511
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 11
        Style = tbsSeparator
      end
      object SpellingButton: TToolButton
        Left = 519
        Top = 0
        ImageIndex = 11
        OnClick = SpellingButtonClick
      end
    end
    object ToolBar1: TToolBar
      Left = 331
      Top = 32
      Width = 461
      Height = 29
      AutoSize = True
      BorderWidth = 2
      ButtonHeight = 21
      DragMode = dmAutomatic
      EdgeBorders = []
      Flat = True
      TabOrder = 1
      object Label7: TLabel
        Left = 0
        Top = 0
        Width = 120
        Height = 21
        Alignment = taCenter
        AutoSize = False
        Caption = 'Template Description'
        Layout = tlCenter
      end
      object DescriptionEdit: TEdit
        Left = 120
        Top = 0
        Width = 200
        Height = 21
        ReadOnly = True
        TabOrder = 0
      end
    end
    object ToolBar2: TToolBar
      Left = 9
      Top = 32
      Width = 307
      Height = 29
      AutoSize = True
      BorderWidth = 2
      ButtonHeight = 21
      ButtonWidth = 56
      Caption = 'ToolBar2'
      DragMode = dmAutomatic
      EdgeBorders = []
      Flat = True
      Menu = MainMenu
      ShowCaptions = True
      TabOrder = 2
      Transparent = True
    end
  end
  object TemplatesPopupMenu: TPopupMenu
    Images = ToolbarImages
    Left = 56
    Top = 288
    object Undo2: TMenuItem
      Caption = 'Undo'
      ImageIndex = 0
      OnClick = UndoClick
    end
    object N9: TMenuItem
      Caption = '-'
    end
    object Cut2: TMenuItem
      Caption = 'Cut'
      ImageIndex = 1
      OnClick = CutClick
    end
    object Copy2: TMenuItem
      Caption = 'Copy'
      ImageIndex = 2
      OnClick = CopyClick
    end
    object Paste2: TMenuItem
      Caption = 'Paste'
      ImageIndex = 3
      OnClick = PasteClick
    end
    object N10: TMenuItem
      Caption = '-'
    end
    object Font2: TMenuItem
      Caption = 'Font ...'
      OnClick = FontClick
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object Spelling2: TMenuItem
      Caption = 'Spelling'
      ImageIndex = 11
      OnClick = SpellingButtonClick
    end
    object N13: TMenuItem
      Caption = '-'
    end
    object NewNoteMenuItem: TMenuItem
      Caption = 'New Template'
      OnClick = NewNoteClick
    end
    object EditNoteMenuItem: TMenuItem
      Caption = 'Edit Template'
      OnClick = EditNoteClick
    end
    object DeleteNoteMenuItem: TMenuItem
      Caption = 'Delete Template'
      OnClick = DeleteNoteClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object Save2: TMenuItem
      Caption = 'Save'
      OnClick = SaveNoteClick
    end
    object RevertNoteMenuItem: TMenuItem
      Caption = 'Revert'
      OnClick = RevertNoteClick
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object Refresh: TMenuItem
      Caption = 'Refresh'
      OnClick = RefreshTemplatesDBClick
    end
  end
  object MainMenu: TMainMenu
    AutoMerge = True
    Images = ToolbarImages
    Left = 56
    Top = 248
    object Templates: TMenuItem
      Caption = 'Templates'
      object NewNote: TMenuItem
        Caption = 'New'
        OnClick = NewNoteClick
      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 RevertNote: TMenuItem
        Caption = 'Revert'
        OnClick = RevertNoteClick
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object Refresh1: TMenuItem
        Caption = 'Refresh'
        OnClick = RefreshTemplatesDBClick
      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 Font1: TMenuItem
        Caption = 'Font ...'
        OnClick = FontClick
      end
    end
    object ools1: TMenuItem
      Caption = 'Tools'
      object Spelling1: TMenuItem
        Caption = 'Spelling'
        ImageIndex = 11
        OnClick = SpellingButtonClick
      end
      object SpellingOptions1: TMenuItem
        Caption = 'Spelling Options'
        OnClick = SpellingOptions1Click
      end
    end
  end
  object SQLQuery: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQLConnection = MainForm.SQLConnection
    Left = 592
  end
  object PrintDialog: TPrintDialog
    Left = 328
    Top = 184
  end
  object PrinterSetupDialog: TPrinterSetupDialog
    Left = 224
    Top = 176
  end
  object FontDialog: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []