object frmNoteCPFields: TfrmNoteCPFields Left = 508 Top = 307 Width = 257 Height = 178 Caption = 'Enter Required Fields' 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 lblAuthor: TLabel Left = 7 Top = 5 Width = 94 Height = 13 AutoSize = False Caption = 'Author:' end object lblProcSummCode: TOROffsetLabel Left = 4 Top = 50 Width = 125 Height = 15 Caption = 'Procedure Summary Code' HorzOffset = 2 Transparent = False VertOffset = 2 WordWrap = False end object lblProcDateTime: TOROffsetLabel Left = 4 Top = 96 Width = 105 Height = 15 Caption = 'Procedure Date/Time' HorzOffset = 2 Transparent = False VertOffset = 2 WordWrap = False end object cboAuthor: TORComboBox Left = 4 Top = 17 Width = 239 Height = 21 Style = orcsDropDown AutoSelect = True Caption = 'Author' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = False LongList = True LookupPiece = 2 MaxLength = 0 ParentShowHint = False Pieces = '2,3' ShowHint = True Sorted = False SynonymChars = '<>' TabOrder = 0 OnNeedData = cboAuthorNeedData CharsNeedMatch = 1 end object cboProcSummCode: TORComboBox Left = 4 Top = 66 Width = 142 Height = 21 Style = orcsDropDown AutoSelect = True Caption = 'Procedure Summary Code' Color = clWindow DropDownCount = 8 Items.Strings = ( '1^Normal' '2^Abnormal' '3^Borderline' '4^Incomplete') ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = False LongList = False LookupPiece = 0 MaxLength = 0 Pieces = '2' Sorted = False SynonymChars = '<>' TabOrder = 1 CharsNeedMatch = 1 end object calProcDateTime: TORDateBox Left = 4 Top = 112 Width = 142 Height = 21 TabOrder = 2 DateOnly = False RequireTime = True Caption = 'Procedure Date/Time' end object cmdOK: TButton Left = 166 Top = 78 Width = 72 Height = 21 Hint = 'Save these items, and continue to enter text interpretation of r' + 'esults.' Caption = 'Save' Default = True ParentShowHint = False ShowHint = True TabOrder = 3 OnClick = cmdOKClick end object cmdCancel: TButton Left = 166 Top = 105 Width = 72 Height = 21 Hint = 'Enter text interpretation of results now, and enter these items ' + 'later.' Cancel = True Caption = 'Enter Later' ParentShowHint = False ShowHint = True TabOrder = 4 OnClick = cmdCancelClick end object DKLanguageController1: TDKLanguageController Left = 112 Top = 72 LangData = { 0F0066726D4E6F746543504669656C6473010100000001000000070043617074 696F6E010800000009006C626C417574686F7201010000000200000007004361 7074696F6E000F006C626C50726F6353756D6D436F6465010100000003000000 070043617074696F6E000F006C626C50726F634461746554696D650101000000 04000000070043617074696F6E00090063626F417574686F7201010000000500 0000070043617074696F6E000F0063626F50726F6353756D6D436F6465010200 000006000000070043617074696F6E0700000005004974656D73000F0063616C 50726F634461746554696D65010100000008000000070043617074696F6E0005 00636D644F4B01020000000A000000070043617074696F6E0900000004004869 6E74000900636D6443616E63656C01020000000C000000070043617074696F6E 0B000000040048696E7400} end end