source: cprs/trunk/CPRS-Chart/Orders/fOrdersTS.dfm@ 1416

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

Upgrade to version 27
File size: 6.8 KB
Line 
1inherited frmOrdersTS: TfrmOrdersTS
2 Left = 84
3 Top = 77
4 Caption = 'Release Orders'
5 ClientHeight = 351
6 ClientWidth = 456
7 Constraints.MinHeight = 365
8 Constraints.MinWidth = 310
9 OnClose = FormClose
10 OnCreate = FormCreate
11 ExplicitLeft = 84
12 ExplicitTop = 77
13 ExplicitWidth = 464
14 ExplicitHeight = 385
15 PixelsPerInch = 96
16 TextHeight = 13
17 object pnlMiddle: TPanel [0]
18 Left = 0
19 Top = 78
20 Width = 456
21 Height = 56
22 Align = alTop
23 Constraints.MinHeight = 45
24 TabOrder = 0
25 object grpChoice: TGroupBox
26 Left = 1
27 Top = 1
28 Width = 454
29 Height = 54
30 Align = alClient
31 Constraints.MinHeight = 45
32 TabOrder = 0
33 DesignSize = (
34 454
35 54)
36 object radReleaseNow: TRadioButton
37 Left = 20
38 Top = 13
39 Width = 333
40 Height = 17
41 Caption = ' &Release new orders immediately'
42 Enabled = False
43 TabOrder = 0
44 OnClick = radReleaseNowClick
45 end
46 object radDelayed: TRadioButton
47 Left = 20
48 Top = 29
49 Width = 329
50 Height = 21
51 Caption = ' &Delay release of new order(s) until'
52 TabOrder = 1
53 OnClick = radDelayedClick
54 end
55 object cmdOK: TButton
56 Left = 355
57 Top = 9
58 Width = 75
59 Height = 20
60 Anchors = [akRight, akBottom]
61 Caption = 'OK'
62 Default = True
63 TabOrder = 2
64 OnClick = cmdOKClick
65 end
66 object cmdCancel: TButton
67 Left = 355
68 Top = 31
69 Width = 75
70 Height = 20
71 Anchors = [akRight, akBottom]
72 Cancel = True
73 Caption = 'Cancel'
74 TabOrder = 3
75 OnClick = cmdCancelClick
76 end
77 end
78 end
79 object pnlTop: TPanel [1]
80 Left = 0
81 Top = 0
82 Width = 456
83 Height = 78
84 Align = alTop
85 Anchors = [akLeft, akTop, akRight, akBottom]
86 AutoSize = True
87 BorderStyle = bsSingle
88 TabOrder = 1
89 object lblPtInfo: TLabel
90 Left = 1
91 Top = 1
92 Width = 3
93 Height = 34
94 Align = alTop
95 Color = clBtnFace
96 Constraints.MinHeight = 34
97 ParentColor = False
98 Layout = tlCenter
99 end
100 object pnldif: TPanel
101 Left = 1
102 Top = 35
103 Width = 450
104 Height = 38
105 Align = alTop
106 Anchors = [akLeft, akTop, akRight, akBottom]
107 TabOrder = 0
108 object Image1: TImage
109 Left = 1
110 Top = 1
111 Width = 24
112 Height = 22
113 Align = alLeft
114 AutoSize = True
115 Enabled = False
116 Picture.Data = {
117 07544269746D61707E010000424D7E0100000000000076000000280000001800
118 000016000000010004000000000008010000C40E0000C40E0000100000000000
119 0000000000000000800000800000008080008000000080008000808000008080
120 8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
121 FF008000000000000000000000080777777777777777777777700F7777777777
122 7777777777700F88888888888888888887700F88888888888888888887700F88
123 888808888888888887700F88888800888888888887700F8888880B0888888888
124 87700F8888880BB00008888887700F888800BBCCBBB0088887700F8880BBBCCC
125 CBBBB08887700F880BBBBBBBBBBBBB0887700F880BBBBBCCBBBBBB0887700F88
126 0BBBBBCCBBBBBB0887700F880BBBBBCCBBBBBB0887700F8880BBBBCCBBBBB088
127 87700F888800BBBBBBB0088887700F88888800000008888887700F8888888888
128 8888888887700F88888888888888888887700FFFFFFFFFFFFFFFFFFFFF708000
129 00000000000000000008}
130 Transparent = True
131 ExplicitHeight = 36
132 end
133 object Label1: TLabel
134 Left = 34
135 Top = 4
136 Width = 327
137 Height = 13
138 Caption =
139 'Use Admit: if patient is newly admitted to the hospital or nursi' +
140 'ng home.'
141 end
142 object Label2: TLabel
143 Left = 34
144 Top = 21
145 Width = 361
146 Height = 13
147 Caption =
148 'Use Transfer: if inpatient will move from one ward or treating t' +
149 'eam to another.'
150 end
151 end
152 end
153 object Panel1: TPanel [2]
154 Left = 0
155 Top = 134
156 Width = 456
157 Height = 217
158 Align = alClient
159 TabOrder = 2
160 inline fraEvntDelayList: TfraEvntDelayList
161 Left = 1
162 Top = 1
163 Width = 454
164 Height = 215
165 Align = alClient
166 AutoScroll = True
167 TabOrder = 0
168 TabStop = True
169 Visible = False
170 ExplicitLeft = 1
171 ExplicitTop = 1
172 ExplicitWidth = 454
173 ExplicitHeight = 215
174 inherited pnlDate: TPanel
175 Left = 349
176 Height = 215
177 ExplicitLeft = 349
178 ExplicitHeight = 215
179 inherited lblEffective: TLabel
180 Left = 453
181 Width = 71
182 ExplicitLeft = 453
183 ExplicitWidth = 71
184 end
185 inherited orDateBox: TORDateBox
186 Left = 453
187 ExplicitLeft = 453
188 end
189 end
190 inherited pnlList: TPanel
191 Width = 349
192 Height = 215
193 ExplicitWidth = 349
194 ExplicitHeight = 215
195 inherited lblEvntDelayList: TLabel
196 Width = 347
197 ExplicitWidth = 80
198 end
199 inherited mlstEvents: TORListBox
200 Width = 347
201 Height = 179
202 OnDblClick = cmdOKClick
203 ExplicitWidth = 347
204 ExplicitHeight = 179
205 end
206 inherited edtSearch: TCaptionEdit
207 Width = 347
208 ExplicitWidth = 347
209 end
210 end
211 end
212 end
213 inherited amgrMain: TVA508AccessibilityManager
214 Data = (
215 (
216 'Component = pnlMiddle'
217 'Status = stsDefault')
218 (
219 'Component = grpChoice'
220 'Status = stsDefault')
221 (
222 'Component = radReleaseNow'
223 'Status = stsDefault')
224 (
225 'Component = radDelayed'
226 'Status = stsDefault')
227 (
228 'Component = cmdOK'
229 'Status = stsDefault')
230 (
231 'Component = cmdCancel'
232 'Status = stsDefault')
233 (
234 'Component = pnlTop'
235 'Status = stsDefault')
236 (
237 'Component = pnldif'
238 'Status = stsDefault')
239 (
240 'Component = Panel1'
241 'Status = stsDefault')
242 (
243 'Component = fraEvntDelayList'
244 'Status = stsDefault')
245 (
246 'Component = fraEvntDelayList.pnlDate'
247 'Status = stsDefault')
248 (
249 'Component = fraEvntDelayList.orDateBox'
250 'Status = stsDefault')
251 (
252 'Component = fraEvntDelayList.pnlList'
253 'Status = stsDefault')
254 (
255 'Component = fraEvntDelayList.mlstEvents'
256 'Status = stsDefault')
257 (
258 'Component = fraEvntDelayList.edtSearch'
259 'Status = stsDefault')
260 (
261 'Component = frmOrdersTS'
262 'Status = stsDefault'))
263 end
264end
Note: See TracBrowser for help on using the repository browser.