source: cprs/trunk/CPRS-Chart/Orders/fOrdersCopy.dfm@ 1103

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

Upgrade to version 27
File size: 7.3 KB
RevLine 
[829]1inherited frmCopyOrders: TfrmCopyOrders
[456]2 Left = 319
3 Top = 139
4 Caption = 'Copy Orders'
5 ClientHeight = 419
6 ClientWidth = 441
7 Constraints.MinHeight = 100
8 Constraints.MinWidth = 330
9 OldCreateOrder = True
10 OnCreate = FormCreate
[829]11 ExplicitWidth = 449
12 ExplicitHeight = 446
[456]13 PixelsPerInch = 96
14 TextHeight = 13
[829]15 object pnlRadio: TPanel [0]
[456]16 Left = 0
[829]17 Top = 80
[456]18 Width = 441
[829]19 Height = 65
[456]20 Align = alTop
21 TabOrder = 1
22 object GroupBox1: TGroupBox
23 Left = 1
24 Top = 1
25 Width = 439
[829]26 Height = 63
[456]27 Align = alClient
28 Constraints.MinHeight = 50
29 DragMode = dmAutomatic
30 TabOrder = 0
31 object radRelease: TRadioButton
32 Left = 12
33 Top = 15
34 Width = 318
35 Height = 20
36 Caption = '&Release copied orders immediately'
37 Checked = True
38 TabOrder = 0
39 TabStop = True
40 OnClick = radReleaseClick
41 end
42 object radEvtDelay: TRadioButton
43 Left = 12
44 Top = 37
45 Width = 320
46 Height = 20
47 Caption = '&Delay release of copied orders'
48 TabOrder = 1
49 OnClick = radEvtDelayClick
50 end
[829]51 object cmdOK: TButton
52 Left = 345
53 Top = 14
54 Width = 72
55 Height = 19
56 Caption = 'OK'
57 Constraints.MaxWidth = 73
58 Default = True
59 TabOrder = 2
60 OnClick = cmdOKClick
61 end
62 object cmdCancel: TButton
63 Left = 345
64 Top = 38
65 Width = 72
66 Height = 18
67 Cancel = True
68 Caption = 'Cancel'
69 Constraints.MaxWidth = 73
70 TabOrder = 3
71 OnClick = cmdCancelClick
72 end
[456]73 end
74 end
[829]75 object pnlTop: TPanel [1]
[456]76 Left = 0
77 Top = 0
78 Width = 441
[829]79 Height = 80
[456]80 Align = alTop
81 BevelOuter = bvNone
82 TabOrder = 0
[829]83 object lblPtInfo: TVA508StaticText
84 Name = 'lblPtInfo'
[456]85 Left = 0
[829]86 Top = 5
87 Width = 400
88 Height = 35
89 Alignment = taLeftJustify
90 AutoSize = True
91 Caption = ' '
92 Constraints.MinHeight = 15
[456]93 TabOrder = 0
[829]94 ShowAccelChar = True
[456]95 end
[829]96 object pnlInfo: TPanel
97 Left = 0
98 Top = 46
99 Width = 441
100 Height = 34
101 Align = alBottom
102 TabOrder = 1
103 object Image1: TImage
104 Left = 1
105 Top = 1
106 Width = 24
107 Height = 22
108 AutoSize = True
109 Enabled = False
110 Picture.Data = {
111 07544269746D61707E010000424D7E0100000000000076000000280000001800
112 000016000000010004000000000008010000C40E0000C40E0000100000000000
113 0000000000000000800000800000008080008000000080008000808000008080
114 8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
115 FF008000000000000000000000080777777777777777777777700F7777777777
116 7777777777700F88888888888888888887700F88888888888888888887700F88
117 888808888888888887700F88888800888888888887700F8888880B0888888888
118 87700F8888880BB00008888887700F888800BBCCBBB0088887700F8880BBBCCC
119 CBBBB08887700F880BBBBBBBBBBBBB0887700F880BBBBBCCBBBBBB0887700F88
120 0BBBBBCCBBBBBB0887700F880BBBBBCCBBBBBB0887700F8880BBBBCCBBBBB088
121 87700F888800BBBBBBB0088887700F88888800000008888887700F8888888888
122 8888888887700F88888888888888888887700FFFFFFFFFFFFFFFFFFFFF708000
123 00000000000000000008}
124 Transparent = True
125 end
126 object lblInstruction2: TVA508StaticText
127 Name = 'lblInstruction2'
128 Left = 31
129 Top = 17
130 Width = 363
131 Height = 15
132 Alignment = taLeftJustify
133 Caption =
134 'Use Transfer: if inpatient will move from one ward or treating t' +
135 'eam to another.'
136 TabOrder = 1
137 ShowAccelChar = True
138 end
139 object lblInstruction: TVA508StaticText
140 Name = 'lblInstruction'
141 Left = 31
142 Top = 1
143 Width = 329
144 Height = 15
145 Alignment = taLeftJustify
146 Caption =
147 'Use Admit: if patient is newly admitted to the hospital or nursi' +
148 'ng home.'
149 TabOrder = 0
150 ShowAccelChar = True
151 end
152 end
[456]153 end
[829]154 object pnlBottom: TPanel [2]
155 Left = 0
156 Top = 145
157 Width = 441
158 Height = 274
159 Align = alClient
160 TabOrder = 2
161 ExplicitLeft = 8
162 ExplicitTop = 165
163 ExplicitWidth = 425
164 ExplicitHeight = 236
165 inline fraEvntDelayList: TfraEvntDelayList
[456]166 Left = 1
167 Top = 1
[829]168 Width = 439
169 Height = 272
170 Align = alBottom
171 AutoScroll = True
[456]172 TabOrder = 0
[829]173 TabStop = True
174 Visible = False
175 ExplicitTop = 145
176 ExplicitWidth = 441
177 ExplicitHeight = 274
178 inherited pnlDate: TPanel
179 Left = 334
180 Height = 272
181 ExplicitLeft = 336
182 ExplicitHeight = 274
183 inherited lblEffective: TLabel
184 Left = 451
185 Width = 71
186 ExplicitLeft = 451
187 ExplicitWidth = 71
188 end
189 inherited orDateBox: TORDateBox
190 Left = 451
191 ExplicitLeft = 451
192 end
[456]193 end
[829]194 inherited pnlList: TPanel
195 Width = 334
196 Height = 272
197 ExplicitWidth = 336
198 ExplicitHeight = 274
199 inherited lblEvntDelayList: TLabel
200 Width = 332
201 ExplicitWidth = 80
202 end
203 inherited mlstEvents: TORListBox
204 Width = 332
205 Height = 236
206 OnDblClick = cmdOKClick
207 OnChange = fraEvntDelayListmlstEventsChange
208 ExplicitWidth = 334
209 ExplicitHeight = 238
210 end
211 inherited edtSearch: TCaptionEdit
212 Width = 332
213 ExplicitWidth = 334
214 end
[456]215 end
216 end
217 end
[829]218 inherited amgrMain: TVA508AccessibilityManager
219 Data = (
220 (
221 'Component = pnlInfo'
222 'Status = stsDefault')
223 (
224 'Component = lblInstruction2'
225 'Status = stsDefault')
226 (
227 'Component = lblInstruction'
228 'Status = stsDefault')
229 (
230 'Component = fraEvntDelayList'
231 'Status = stsDefault')
232 (
233 'Component = fraEvntDelayList.pnlDate'
234 'Status = stsDefault')
235 (
236 'Component = fraEvntDelayList.orDateBox'
237 'Status = stsDefault')
238 (
239 'Component = fraEvntDelayList.pnlList'
240 'Status = stsDefault')
241 (
242 'Component = fraEvntDelayList.mlstEvents'
243 'Status = stsDefault')
244 (
245 'Component = fraEvntDelayList.edtSearch'
246 'Status = stsDefault')
247 (
248 'Component = pnlRadio'
249 'Status = stsDefault')
250 (
251 'Component = GroupBox1'
252 'Status = stsDefault')
253 (
254 'Component = radRelease'
255 'Status = stsDefault')
256 (
257 'Component = radEvtDelay'
258 'Status = stsDefault')
259 (
260 'Component = pnlTop'
261 'Status = stsDefault')
262 (
263 'Component = lblPtInfo'
264 'Status = stsDefault')
265 (
266 'Component = frmCopyOrders'
267 'Status = stsDefault')
268 (
269 'Component = cmdOK'
270 'Status = stsDefault')
271 (
272 'Component = cmdCancel'
273 'Status = stsDefault')
274 (
275 'Component = pnlBottom'
276 'Status = stsDefault'))
277 end
[456]278end
Note: See TracBrowser for help on using the repository browser.