source: cprs/trunk/CPRS-Chart/Encounter/fProcedure.dfm@ 1008

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

Upgrade to version 27
File size: 6.2 KB
RevLine 
[456]1inherited frmProcedures: TfrmProcedures
[829]2 Left = 548
3 Top = 172
[456]4 Caption = 'Encounter Procedure'
[829]5 ExplicitWidth = 632
6 ExplicitHeight = 427
[456]7 PixelsPerInch = 96
8 TextHeight = 13
9 object lblProcQty: TLabel [0]
10 Left = 240
11 Top = 375
12 Width = 39
13 Height = 13
14 Caption = 'Quantity'
15 end
16 inherited lblSection: TLabel
17 Width = 88
18 Caption = 'Procedure Section'
[829]19 ExplicitWidth = 88
[456]20 end
21 inherited lblList: TLabel
22 Left = 154
[829]23 ExplicitLeft = 154
[456]24 end
25 inherited bvlMain: TBevel
26 Top = 232
27 Width = 537
28 Height = 166
[829]29 ExplicitTop = 232
30 ExplicitWidth = 537
31 ExplicitHeight = 166
[456]32 end
33 object lblMod: TLabel [5]
34 Left = 358
35 Top = 6
36 Width = 42
37 Height = 13
38 Hint = 'Modifiers'
39 Caption = 'Modifiers'
40 ParentShowHint = False
41 ShowHint = True
42 end
43 object lblProvider: TLabel [6]
44 Left = 6
45 Top = 376
46 Width = 42
47 Height = 13
48 Caption = 'Provider:'
49 end
50 inherited btnOK: TBitBtn
51 Left = 544
52 Top = 344
53 TabOrder = 8
[829]54 ExplicitLeft = 544
55 ExplicitTop = 344
[456]56 end
57 inherited btnCancel: TBitBtn
58 Top = 371
59 TabOrder = 9
[829]60 ExplicitTop = 371
[456]61 end
62 inherited pnlGrid: TPanel
63 Width = 523
64 TabOrder = 1
[829]65 ExplicitWidth = 523
[456]66 inherited lbGrid: TORListBox
67 Tag = 30
68 Width = 523
69 Caption = 'Selected Procedures'
70 Pieces = '1,2'
[829]71 ExplicitWidth = 523
[456]72 end
73 inherited hcGrid: THeaderControl
74 Width = 523
75 Sections = <
76 item
77 ImageIndex = -1
78 MinWidth = 52
79 Text = 'Quantity'
80 Width = 52
81 end
82 item
83 ImageIndex = -1
84 MinWidth = 112
85 Text = 'Selected Procedures'
86 Width = 112
87 end>
[829]88 ExplicitWidth = 523
[456]89 end
90 end
91 inherited edtComment: TCaptionEdit
92 TabOrder = 2
93 end
[829]94 object spnProcQty: TUpDown [11]
95 Left = 348
96 Top = 371
97 Width = 15
98 Height = 21
99 Associate = txtProcQty
100 Min = 1
101 Position = 1
102 TabOrder = 5
103 end
104 object txtProcQty: TCaptionEdit [12]
105 Left = 288
106 Top = 371
107 Width = 60
108 Height = 21
109 Enabled = False
110 TabOrder = 4
111 Text = '1'
112 OnChange = txtProcQtyChange
113 Caption = 'Quantity'
114 end
115 object cboProvider: TORComboBox [13]
116 Left = 56
117 Top = 371
118 Width = 177
119 Height = 21
120 Style = orcsDropDown
121 AutoSelect = True
122 Caption = 'Provider'
123 Color = clWindow
124 DropDownCount = 8
125 ItemHeight = 13
126 ItemTipColor = clWindow
127 ItemTipEnable = True
128 ListItemsOnly = True
129 LongList = True
130 LookupPiece = 2
131 MaxLength = 0
132 Pieces = '2,3'
133 Sorted = False
134 SynonymChars = '<>'
135 TabOrder = 3
136 TabStop = True
137 OnChange = cboProviderChange
138 OnNeedData = cboProviderNeedData
139 CharsNeedMatch = 1
140 end
[456]141 inherited btnRemove: TButton
142 Left = 454
143 Top = 371
144 TabOrder = 7
[829]145 ExplicitLeft = 454
146 ExplicitTop = 371
[456]147 end
148 inherited btnSelectAll: TButton
149 Left = 374
150 Top = 371
151 Height = 21
152 TabOrder = 6
153 TabStop = True
[829]154 ExplicitLeft = 374
155 ExplicitTop = 371
156 ExplicitHeight = 21
[456]157 end
158 inherited pnlMain: TPanel
159 TabOrder = 0
160 inherited splLeft: TSplitter
161 Left = 145
[829]162 ExplicitLeft = 145
[456]163 end
164 object splRight: TSplitter [1]
165 Left = 349
166 Top = 0
167 Height = 204
168 Align = alRight
169 OnMoved = splRightMoved
170 end
171 inherited lbxSection: TORListBox
172 Tag = 30
173 Left = 148
174 Width = 201
175 ItemHeight = 14
176 Pieces = '2,3'
[829]177 ExplicitLeft = 148
178 ExplicitWidth = 201
[456]179 end
180 inherited pnlLeft: TPanel
181 Width = 145
[829]182 ExplicitWidth = 145
[456]183 inherited lbSection: TORListBox
184 Tag = 30
185 Width = 145
186 TabOrder = 0
[829]187 ExplicitWidth = 145
[456]188 end
189 inherited btnOther: TButton
190 Tag = 13
191 Left = 3
192 Caption = 'Other Procedure...'
193 TabOrder = 1
[829]194 ExplicitLeft = 3
[456]195 end
196 end
197 object lbMods: TORListBox
198 Left = 352
199 Top = 0
200 Width = 260
201 Height = 204
202 Style = lbOwnerDrawFixed
203 Align = alRight
204 Font.Charset = DEFAULT_CHARSET
205 Font.Color = clWindowText
206 Font.Height = -11
207 Font.Name = 'MS Sans Serif'
208 Font.Style = []
209 ItemHeight = 14
210 ParentFont = False
211 ParentShowHint = False
212 ShowHint = True
213 TabOrder = 2
[829]214 OnExit = lbModsExit
[456]215 Caption = 'Modifiers'
216 ItemTipColor = clWindow
217 LongList = False
218 Pieces = '2,3'
219 TabPosInPixels = True
220 CheckBoxes = True
221 CheckEntireLine = True
222 OnClickCheck = lbModsClickCheck
223 end
224 end
[829]225 inherited amgrMain: TVA508AccessibilityManager
226 Data = (
227 (
228 'Component = lbMods'
229 'Label = lblMod'
230 'Status = stsOK')
231 (
232 'Component = spnProcQty'
233 'Status = stsDefault')
234 (
235 'Component = txtProcQty'
236 'Status = stsDefault')
237 (
238 'Component = cboProvider'
239 'Status = stsDefault')
240 (
241 'Component = edtComment'
242 'Label = lblComment'
243 'Status = stsOK')
244 (
245 'Component = btnRemove'
246 'Status = stsDefault')
247 (
248 'Component = btnSelectAll'
249 'Status = stsDefault')
250 (
251 'Component = pnlMain'
252 'Status = stsDefault')
253 (
254 'Component = lbxSection'
255 'Label = lblList'
256 'Status = stsOK')
257 (
258 'Component = pnlLeft'
259 'Status = stsDefault')
260 (
261 'Component = lbSection'
262 'Label = lblSection'
263 'Status = stsOK')
264 (
265 'Component = btnOther'
266 'Status = stsDefault')
267 (
268 'Component = pnlGrid'
269 'Status = stsDefault')
270 (
271 'Component = lbGrid'
272 'Status = stsDefault')
273 (
274 'Component = hcGrid'
275 'Status = stsDefault')
276 (
277 'Component = btnOK'
278 'Status = stsDefault')
279 (
280 'Component = btnCancel'
281 'Status = stsDefault')
282 (
283 'Component = frmProcedures'
284 'Status = stsDefault'))
[456]285 end
286end
Note: See TracBrowser for help on using the repository browser.