source: cprs/branches/foia-cprs/CPRS-Chart/Encounter/fPatientEd.dfm@ 913

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

Adding foia-cprs branch

File size: 2.2 KB
RevLine 
[459]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
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 MaxLength = 0
93 Pieces = '2'
94 Sorted = False
95 SynonymChars = '<>'
96 TabOrder = 4
97 OnChange = cboPatUnderstandingChange
98 end
99end
Note: See TracBrowser for help on using the repository browser.