source: cprs/branches/tmg-cprs/CPRS-Chart/Encounter/fPatientEd.dfm@ 1806

Last change on this file since 1806 was 453, checked in by Kevin Toppenberg, 16 years ago

Initial upload of TMG-CPRS 1.0.26.69

File size: 3.6 KB
RevLine 
[453]1inherited frmPatientEd: TfrmPatientEd
2 Left = 275
3 Top = 267
4 Caption = 'Patient Education'
5 PixelsPerInch = 96
6 TextHeight = 13
7 object lblUnderstanding: TLabel [0]
8 Left = 490
9 Top = 264
10 Width = 112
11 Height = 13
12 Caption = 'Level Of Understanding'
13 end
14 inherited lblSection: TLabel
15 Width = 123
16 Caption = 'Patient Education Section'
17 end
18 inherited btnOK: TBitBtn
19 TabOrder = 6
20 end
21 inherited btnCancel: TBitBtn
22 TabOrder = 7
23 end
24 inherited pnlGrid: TPanel
25 TabOrder = 1
26 inherited lbGrid: TORListBox
27 Tag = 60
28 Caption = 'Selected Patient Educations'
29 Pieces = '1,2'
30 end
31 inherited hcGrid: THeaderControl
32 Sections = <
33 item
34 ImageIndex = -1
35 MinWidth = 124
36 Text = 'Level of Understanding'
37 Width = 124
38 end
39 item
40 ImageIndex = -1
41 MinWidth = 150
42 Text = 'Selected Patient Educations'
43 Width = 150
44 end>
45 end
46 end
47 inherited edtComment: TCaptionEdit
48 TabOrder = 3
49 end
50 inherited btnRemove: TButton
51 TabOrder = 5
52 end
53 inherited btnSelectAll: TButton
54 TabOrder = 2
55 TabStop = True
56 end
57 inherited pnlMain: TPanel
58 TabOrder = 0
59 inherited lbxSection: TORListBox
60 Tag = 60
61 end
62 inherited pnlLeft: TPanel
63 inherited lbSection: TORListBox
64 Tag = 60
65 TabOrder = 0
66 Caption = 'Patient Education Section'
67 end
68 inherited btnOther: TButton
69 Tag = 22
70 Caption = 'Other Education Topic...'
71 TabOrder = 1
72 end
73 end
74 end
75 object cboPatUnderstanding: TORComboBox [12]
76 Tag = 40
77 Left = 490
78 Top = 280
79 Width = 121
80 Height = 21
81 Style = orcsDropDown
82 AutoSelect = True
83 Caption = 'Level Of Understanding'
84 Color = clWindow
85 DropDownCount = 8
86 Enabled = False
87 ItemHeight = 13
88 ItemTipColor = clWindow
89 ItemTipEnable = True
90 ListItemsOnly = False
91 LongList = False
92 LookupPiece = 0
93 MaxLength = 0
94 Pieces = '2'
95 Sorted = False
96 SynonymChars = '<>'
97 TabOrder = 4
98 OnChange = cboPatUnderstandingChange
99 CharsNeedMatch = 1
100 end
101 inherited DKLanguageController1: TDKLanguageController
102 LangData = {
103 0C0066726D50617469656E744564010100000001000000070043617074696F6E
104 0114000000050062746E4F4B010100000002000000070043617074696F6E0009
105 0062746E43616E63656C010100000003000000070043617074696F6E00070070
106 6E6C47726964010100000004000000070043617074696F6E0006006C62477269
107 6401010000000E000000070043617074696F6E00060068634772696401020000
108 000F000000100053656374696F6E735B305D2E54657874100000001000536563
109 74696F6E735B315D2E54657874000A006C626C53656374696F6E010100000005
110 000000070043617074696F6E0007006C626C4C69737401010000000600000007
111 0043617074696F6E000A006C626C436F6D6D656E740101000000070000000700
112 43617074696F6E00070062766C4D61696E00000A00656474436F6D6D656E7401
113 0100000008000000070043617074696F6E00090062746E52656D6F7665010100
114 000009000000070043617074696F6E000C0062746E53656C656374416C6C0101
115 0000000A000000070043617074696F6E000700706E6C4D61696E000007007370
116 6C4C65667400000A006C627853656374696F6E01010000000B00000007004361
117 7074696F6E000700706E6C4C656674000009006C6253656374696F6E01010000
118 000C000000070043617074696F6E00080062746E4F7468657201010000000D00
119 0000070043617074696F6E0010006C626C556E6465727374616E64696E670101
120 00000011000000070043617074696F6E00130063626F506174556E6465727374
121 616E64696E67010100000012000000070043617074696F6E00}
122 end
123end
Note: See TracBrowser for help on using the repository browser.