object frmPCEEdit: TfrmPCEEdit Left = 214 Top = 107 BorderStyle = bsDialog Caption = 'Edit Encounter' ClientHeight = 128 ClientWidth = 543 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnCreate = FormCreate DesignSize = ( 543 128) PixelsPerInch = 96 TextHeight = 13 object Label1: TStaticText Left = 0 Top = 0 Width = 543 Height = 24 Align = alTop Alignment = taCenter Caption = 'Select Encounter to Edit' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 5 end object lblNew: TMemo Left = 136 Top = 32 Width = 401 Height = 26 TabStop = False BorderStyle = bsNone Color = clBtnFace Lines.Strings = ( 'New') TabOrder = 3 end object lblNote: TMemo Left = 136 Top = 73 Width = 401 Height = 26 TabStop = False BorderStyle = bsNone Color = clBtnFace Lines.Strings = ( 'Note') TabOrder = 4 end object btnNew: TButton Left = 8 Top = 28 Width = 121 Height = 21 Caption = 'Edit Current Encounter' ModalResult = 6 TabOrder = 0 end object btnNote: TButton Left = 8 Top = 69 Width = 121 Height = 21 Caption = 'Edit Note Encounter' ModalResult = 7 TabOrder = 1 end object btnCancel: TButton Left = 465 Top = 104 Width = 75 Height = 21 Anchors = [akRight, akBottom] Cancel = True Caption = '&Cancel' ModalResult = 2 TabOrder = 2 end object DKLanguageController1: TDKLanguageController Left = 264 Top = 64 LangData = { 0A0066726D50434545646974010100000001000000070043617074696F6E0106 00000006004C6162656C31010100000002000000070043617074696F6E000600 6C626C4E657701010000000300000005004C696E65730007006C626C4E6F7465 01010000000400000005004C696E657300060062746E4E657701010000000500 0000070043617074696F6E00070062746E4E6F74650101000000060000000700 43617074696F6E00090062746E43616E63656C01010000000700000007004361 7074696F6E00} end end