source: cprs/branches/tmg-cprs/CPRS-Chart/fPtDemo.dfm@ 699

object frmPtDemo: TfrmPtDemo
  Left = 169
  Top = 320
  Width = 590
  Height = 300
  BorderIcons = [biSystemMenu]
  Caption = 'Patient Inquiry'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object lblFontTest: TLabel
    Left = 264
    Top = 148
    Width = 77
    Height = 14
    Caption = 'lblFontTest'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
    Visible = False
  end
  object memPtDemo: TRichEdit
    Left = 0
    Top = 0
    Width = 582
    Height = 229
    Align = alClient
    Color = clCream
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Courier New'
    Font.Style = []
    Lines.Strings = (
      
        'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123ABCDEFGHIJKLMNOPQRSTUVWXYZ0123abcd' +
        'efghijklmnopqrs')
    ParentFont = False
    PlainText = True
    ReadOnly = True
    ScrollBars = ssBoth
    TabOrder = 0
    WantReturns = False
    WordWrap = False
  end
  object pnlTop: TORAutoPanel
    Left = 0
    Top = 229
    Width = 582
    Height = 37
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object cmdNewPt: TButton
      Left = 8
      Top = 8
      Width = 121
      Height = 21
      Caption = 'Select New Patient'
      TabOrder = 0
      OnClick = cmdNewPtClick
    end
    object cmdClose: TButton
      Left = 501
      Top = 8
      Width = 72
      Height = 21
      Cancel = True
      Caption = 'Close'
      Default = True
      TabOrder = 2
      OnClick = cmdCloseClick
    end
    object cmdPrint: TButton
      Left = 411
      Top = 8
      Width = 75
      Height = 21
      Caption = 'Print'
      TabOrder = 1
      OnClick = cmdPrintClick
    end
    object EditaPtButton: TButton
      Left = 144
      Top = 8
      Width = 145
      Height = 21
      Caption = '&Edit Patient Demographics'
      TabOrder = 3
      OnClick = EditaPtButtonClick
    end
  end
  object dlgPrintReport: TPrintDialog
    Left = 289
    Top = 237
  end
  object DKLanguageController1: TDKLanguageController
    Left = 328
    Top = 237
    LangData = {
      090066726D507444656D6F010100000001000000070043617074696F6E010800
      00000B006C626C466F6E7454657374010100000002000000070043617074696F
      6E0009006D656D507444656D6F01010000000300000005004C696E6573000600
      706E6C546F7000000800636D644E657750740101000000040000000700436170
      74696F6E000800636D64436C6F7365010100000005000000070043617074696F
      6E000800636D645072696E74010100000006000000070043617074696F6E000E
      00646C675072696E745265706F727400000D0045646974615074427574746F6E
      010100000007000000070043617074696F6E00}
  end
end