source: cprs/trunk/CPRS-Chart/Encounter/fSkinTest.dfm@ 1727

Last change on this file since 1727 was 829, checked in by Kevin Toppenberg, 14 years ago

Upgrade to version 27

File size: 5.2 KB
RevLine 
[456]1inherited frmSkinTests: TfrmSkinTests
2 Left = 213
3 Top = 163
4 Caption = 'Encounter Skin Test form'
[829]5 ExplicitLeft = 213
6 ExplicitTop = 163
[456]7 PixelsPerInch = 96
8 TextHeight = 13
9 object lblSkinResults: TLabel [0]
10 Left = 490
11 Top = 244
12 Width = 35
13 Height = 13
14 Caption = 'Results'
15 end
16 object lblDTRead: TLabel [1]
17 Left = 46
18 Top = 380
19 Width = 52
20 Height = 13
21 Caption = 'Date Read'
22 Visible = False
23 end
24 object lblReading: TLabel [2]
25 Left = 490
26 Top = 290
27 Width = 40
28 Height = 13
29 Caption = 'Reading'
30 end
31 object lblDTGiven: TLabel [3]
32 Left = 216
33 Top = 380
34 Width = 54
35 Height = 13
36 Caption = 'Date Given'
37 Visible = False
38 end
39 inherited lblSection: TLabel
40 Width = 84
41 Caption = 'Skin Test Section'
[829]42 ExplicitWidth = 84
[456]43 end
44 inherited btnOK: TBitBtn
45 TabOrder = 10
46 end
47 inherited btnCancel: TBitBtn
48 TabOrder = 11
49 end
50 inherited pnlGrid: TPanel
51 TabOrder = 1
52 inherited lbGrid: TORListBox
53 Tag = 50
54 Caption = 'Selected Skin Tests'
55 Pieces = '1,2,3'
56 end
57 inherited hcGrid: THeaderControl
58 Sections = <
59 item
60 ImageIndex = -1
61 MinWidth = 50
62 Text = 'Results'
63 Width = 55
64 end
65 item
66 ImageIndex = -1
67 MinWidth = 55
68 Text = 'Reading'
69 Width = 55
70 end
71 item
72 ImageIndex = -1
73 Text = 'Selected Skin Tests'
74 Width = 110
75 end>
76 end
77 end
78 inherited edtComment: TCaptionEdit
79 TabOrder = 3
80 end
[829]81 object UpDnReading: TUpDown [12]
[456]82 Left = 531
83 Top = 304
84 Width = 15
85 Height = 21
86 Associate = EdtReading
87 Max = 40
88 TabOrder = 6
89 OnChanging = UpDnReadingChanging
90 end
[829]91 object EdtReading: TCaptionEdit [13]
[456]92 Left = 490
93 Top = 304
94 Width = 41
95 Height = 21
96 Enabled = False
97 TabOrder = 5
98 Text = '0'
99 OnChange = EdtReadingChange
100 Caption = 'Reading'
101 end
[829]102 object edtDtRead: TCaptionEdit [14]
[456]103 Left = 104
104 Top = 376
105 Width = 97
106 Height = 21
107 TabOrder = 8
108 Text = 'edtDtRead'
109 Visible = False
110 Caption = 'Date Read'
111 end
[829]112 object edtDTGiven: TCaptionEdit [15]
[456]113 Left = 280
114 Top = 376
115 Width = 81
116 Height = 21
117 TabOrder = 9
118 Text = 'edtDTGiven'
119 Visible = False
120 Caption = 'Date Given'
121 end
[829]122 object cboSkinResults: TORComboBox [16]
[456]123 Tag = 30
124 Left = 490
125 Top = 260
126 Width = 121
127 Height = 21
128 Style = orcsDropDown
129 AutoSelect = True
130 Caption = 'Results'
131 Color = clWindow
132 DropDownCount = 8
133 Enabled = False
134 ItemHeight = 13
135 ItemTipColor = clWindow
136 ItemTipEnable = True
137 ListItemsOnly = False
138 LongList = False
[829]139 LookupPiece = 0
[456]140 MaxLength = 0
141 Pieces = '2'
142 Sorted = False
143 SynonymChars = '<>'
144 TabOrder = 4
145 OnChange = cboSkinResultsChange
[829]146 CharsNeedMatch = 1
[456]147 end
[829]148 inherited btnRemove: TButton
149 TabOrder = 7
150 end
151 inherited btnSelectAll: TButton
152 TabOrder = 2
153 TabStop = True
154 end
155 inherited pnlMain: TPanel
156 TabOrder = 0
157 inherited lbxSection: TORListBox
158 Tag = 50
159 end
160 inherited pnlLeft: TPanel
161 inherited lbSection: TORListBox
162 Tag = 50
163 TabOrder = 0
164 Caption = 'Skin Test Section'
165 end
166 inherited btnOther: TButton
167 Tag = 21
168 Caption = 'Other Skin Test...'
169 TabOrder = 1
170 end
171 end
172 end
173 inherited amgrMain: TVA508AccessibilityManager
174 Data = (
175 (
176 'Component = UpDnReading'
177 'Status = stsDefault')
178 (
179 'Component = EdtReading'
180 'Label = lblReading'
181 'Status = stsOK')
182 (
183 'Component = edtDtRead'
184 'Label = lblDTRead'
185 'Status = stsOK')
186 (
187 'Component = edtDTGiven'
188 'Label = lblDTGiven'
189 'Status = stsOK')
190 (
191 'Component = cboSkinResults'
192 'Label = lblSkinResults'
193 'Status = stsOK')
194 (
195 'Component = edtComment'
196 'Label = lblComment'
197 'Status = stsOK')
198 (
199 'Component = btnRemove'
200 'Status = stsDefault')
201 (
202 'Component = btnSelectAll'
203 'Status = stsDefault')
204 (
205 'Component = pnlMain'
206 'Status = stsDefault')
207 (
208 'Component = lbxSection'
209 'Label = lblList'
210 'Status = stsOK')
211 (
212 'Component = pnlLeft'
213 'Status = stsDefault')
214 (
215 'Component = lbSection'
216 'Label = lblSection'
217 'Status = stsOK')
218 (
219 'Component = btnOther'
220 'Status = stsDefault')
221 (
222 'Component = pnlGrid'
223 'Status = stsDefault')
224 (
225 'Component = lbGrid'
226 'Status = stsDefault')
227 (
228 'Component = hcGrid'
229 'Status = stsDefault')
230 (
231 'Component = btnOK'
232 'Status = stsDefault')
233 (
234 'Component = btnCancel'
235 'Status = stsDefault')
236 (
237 'Component = frmSkinTests'
238 'Status = stsDefault'))
239 end
[456]240end
Note: See TracBrowser for help on using the repository browser.