templatemanager.dfm

PatientRunner 20 Source

object TemplateManagerForm: TTemplateManagerForm
  Left = 282
  Top = 152
  Width = 808
  Height = 646
  Caption = 'Template Manager'
  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
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object BottomPanel: TPanel
    Left = 0
    Top = 65
    Width = 800
    Height = 508
    Align = alClient
    TabOrder = 0
    object LeftSplitter: TSplitter
      Left = 189
      Top = 1
      Width = 610
      Height = 506
      Align = alClient
    end
    object RightSplitter: TSplitter
      Left = 186
      Top = 1
      Height = 506
    end
    object TemplateGroupBox: TGroupBox
      Left = 189
      Top = 1
      Width = 610
      Height = 506
      Align = alClient
      Caption = 'Template Text'
      TabOrder = 0
      object TemplateRichEdit: TAddictRichEdit
        Left = 2
        Top = 15
        Width = 606
        Height = 444
        Align = alClient
        PopupMenu = TemplatesPopupMenu
        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
      object Panel1: TPanel
        Left = 2
        Top = 459
        Width = 606
        Height = 45
        Align = alBottom
        TabOrder = 1
        DesignSize = (
          606
          45)
        object OKButton: TButton
          Left = 224
          Top = 10
          Width = 75
          Height = 25
          Anchors = [akTop]
          Caption = 'OK'
          TabOrder = 0
          OnClick = OKButtonClick
        end
        object CancelButton: TButton
          Left = 308
          Top = 10
          Width = 75
          Height = 25
          Anchors = [akTop]
          Caption = 'Cancel'
          TabOrder = 1
          OnClick = CancelButtonClick
        end
      end
    end
    object TemplatesListViewPanel: TPanel
      Left = 1
      Top = 1
      Width = 185
      Height = 506
      Align = alLeft
      TabOrder = 1
      object CheckBoxPanel: TPanel
        Left = 1
        Top = 478
        Width = 183
        Height = 27
        Align = alBottom
        TabOrder = 0
        object ShowOnlyMyTemplatesCheckBox: TCheckBox
          Left = 5
          Top = 5
          Width = 140
          Height = 17
          Caption = 'Show only my templates'
          TabOrder = 0
          OnClick = RefreshTemplatesDBClick
        end
      end
      object TemplatesListView: TListView
        Left = 1
        Top = 1
        Width = 183
        Height = 477
        Align = alClient
        Columns = <
          item
            AutoSize = True
            Caption = 'Template Title'
          end
          item
            AutoSize = True
            Caption = 'Author'
          end>
        ColumnClick = False
        GridLines = True
        HideSelection = False
        ReadOnly = True
        RowSelect = True
        PopupMenu = TemplatesPopupMenu
        TabOrder = 1
        ViewStyle = vsReport
        OnClick = TemplatesListBoxClick
        OnCustomDrawItem = TemplatesListViewCustomDrawItem
        OnDblClick = EditNoteClick
      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 = 65
    AutoSize = True
    Bands = <
      item
        Control = StandardToolBar
        ImageIndex = -1
        MinHeight = 30
        Width = 796
      end
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 29
        Width = 320
      end
      item
        Break = False
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 29
        Width = 474
      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
      end
      object ToolButton11: TToolButton
        Left = 277
        Top = 0
        Width = 8
        ImageIndex = 8
        Style = tbsSeparator
      end
      object FontSize: TEdit
        Left = 285
        Top = 0
        Width = 26
        Height = 22
        Hint = 'Font Size|Select font size'
        TabOrder = 1
        Text = '0'
        OnChange = FontSizeChange
      end
      object UpDown1: TUpDown
        Left = 311
        Top = 0
        Width = 15
        Height = 22
        Associate = FontSize
        TabOrder = 2
      end
      object ToolButton2: TToolButton
        Left = 326
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 15
        Style = tbsSeparator
      end
      object BoldButton: TToolButton
        Left = 334
        Top = 0
        Hint = 'Bold'
        ImageIndex = 4
        Style = tbsCheck
        OnClick = BoldButtonClick
      end
      object ItalicButton: TToolButton
        Left = 357
        Top = 0
        Hint = 'Italic'
        ImageIndex = 5
        Style = tbsCheck
        OnClick = ItalicButtonClick
      end
      object UnderlineButton: TToolButton
        Left = 380
        Top = 0