source: cprs/trunk/CPRS-Chart/Orders/fOrderSaveQuick.dfm@ 1655

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

Upgrade to version 27
File size: 6.2 KB
Line 
1inherited frmSaveQuickOrder: TfrmSaveQuickOrder
2 Left = 308
3 Top = 171
4 Caption = 'Add to Common List (Meds, Inpatient)'
5 ClientHeight = 335
6 ClientWidth = 355
7 Position = poScreenCenter
8 OnCreate = FormCreate
9 ExplicitLeft = 308
10 ExplicitTop = 171
11 ExplicitWidth = 363
12 ExplicitHeight = 362
13 PixelsPerInch = 96
14 TextHeight = 13
15 object Panel1: TPanel [0]
16 Left = 0
17 Top = 0
18 Width = 355
19 Height = 113
20 Align = alTop
21 TabOrder = 0
22 object lblDisplayName: TLabel
23 Left = 8
24 Top = 70
25 Width = 261
26 Height = 13
27 Caption = 'Enter the name that should be used for this quick order.'
28 Font.Charset = DEFAULT_CHARSET
29 Font.Color = clWindowText
30 Font.Height = -11
31 Font.Name = 'MS Sans Serif'
32 Font.Style = []
33 ParentFont = False
34 end
35 object memOrder: TMemo
36 Left = 8
37 Top = 8
38 Width = 340
39 Height = 46
40 Color = clBtnFace
41 ReadOnly = True
42 TabOrder = 0
43 WantReturns = False
44 end
45 object txtDisplayName: TCaptionEdit
46 Left = 8
47 Top = 84
48 Width = 340
49 Height = 21
50 TabOrder = 1
51 OnChange = txtDisplayNameChange
52 Caption = 'Enter the name that should be used for this quick order.'
53 end
54 end
55 object Panel2: TPanel [1]
56 Left = 0
57 Top = 113
58 Width = 355
59 Height = 181
60 Align = alClient
61 TabOrder = 1
62 object lblQuickList: TLabel
63 Left = 8
64 Top = 8
65 Width = 136
66 Height = 13
67 Caption = 'Meds, Inpatient Common List'
68 end
69 object lstQuickList: TORListBox
70 Left = 8
71 Top = 30
72 Width = 270
73 Height = 141
74 ItemHeight = 13
75 ParentShowHint = False
76 ShowHint = True
77 TabOrder = 0
78 Caption = 'Meds, Inpatient Common List'
79 ItemTipColor = clWindow
80 LongList = False
81 Pieces = '2'
82 end
83 object pnlUpButton: TKeyClickPanel
84 Left = 292
85 Top = 42
86 Width = 30
87 Height = 27
88 BevelOuter = bvNone
89 Caption = 'Display selected medication earlier'
90 TabOrder = 2
91 TabStop = True
92 OnClick = cmdUpClick
93 OnEnter = pnlUpButtonEnter
94 OnExit = pnlUpButtonExit
95 DesignSize = (
96 30
97 27)
98 object cmdUp: TSpeedButton
99 Left = 0
100 Top = 0
101 Width = 30
102 Height = 24
103 Anchors = [akLeft, akTop, akRight, akBottom]
104 Glyph.Data = {
105 F6000000424DF600000000000000760000002800000010000000100000000100
106 0400000000008000000000000000000000001000000010000000000000000000
107 8000008000000080800080000000800080008080000080808000C0C0C0000000
108 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
109 33333333333333333333333333333333333333333CCCCC33333333333CCCCC33
110 333333333CCCCC33333333333CCCCC33333333333CCCCC33333333333CCCCC33
111 3333333CCCCCCCCC33333333CCCCCCC3333333333CCCCC333333333333CCC333
112 33333333333C3333333333333333333333333333333333333333}
113 OnClick = cmdUpClick
114 end
115 end
116 object pnlDownButton: TKeyClickPanel
117 Left = 292
118 Top = 76
119 Width = 31
120 Height = 26
121 BevelOuter = bvNone
122 Caption = 'Display selected medication later'
123 TabOrder = 3
124 TabStop = True
125 OnClick = cmdDownClick
126 OnEnter = pnlUpButtonEnter
127 OnExit = pnlUpButtonExit
128 DesignSize = (
129 31
130 26)
131 object cmdDown: TSpeedButton
132 Left = 0
133 Top = 1
134 Width = 31
135 Height = 22
136 Anchors = [akLeft, akTop, akRight, akBottom]
137 Glyph.Data = {
138 F6000000424DF600000000000000760000002800000010000000100000000100
139 0400000000008000000000000000000000001000000010000000000000000000
140 8000008000000080800080000000800080008080000080808000C0C0C0000000
141 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
142 3333333333333333333333333333333333333333333C33333333333333CCC333
143 333333333CCCCC3333333333CCCCCCC33333333CCCCCCCCC333333333CCCCC33
144 333333333CCCCC33333333333CCCCC33333333333CCCCC33333333333CCCCC33
145 333333333CCCCC33333333333333333333333333333333333333}
146 OnClick = cmdDownClick
147 end
148 end
149 object cmdRename: TButton
150 Left = 286
151 Top = 128
152 Width = 62
153 Height = 21
154 Caption = 'Rename'
155 TabOrder = 4
156 OnClick = cmdRenameClick
157 end
158 object cmdDelete: TButton
159 Left = 286
160 Top = 153
161 Width = 62
162 Height = 21
163 Caption = 'Delete'
164 TabOrder = 5
165 OnClick = cmdDeleteClick
166 end
167 end
168 object Panel3: TPanel [2]
169 Left = 0
170 Top = 294
171 Width = 355
172 Height = 41
173 Align = alBottom
174 TabOrder = 2
175 object cmdOK: TButton
176 Left = 98
177 Top = 11
178 Width = 72
179 Height = 21
180 Caption = 'OK'
181 TabOrder = 0
182 OnClick = cmdOKClick
183 end
184 object cmdCancel: TButton
185 Left = 186
186 Top = 11
187 Width = 72
188 Height = 21
189 Cancel = True
190 Caption = 'Cancel'
191 TabOrder = 1
192 OnClick = cmdCancelClick
193 end
194 end
195 inherited amgrMain: TVA508AccessibilityManager
196 Data = (
197 (
198 'Component = Panel1'
199 'Status = stsDefault')
200 (
201 'Component = memOrder'
202 'Status = stsDefault')
203 (
204 'Component = txtDisplayName'
205 'Status = stsDefault')
206 (
207 'Component = Panel2'
208 'Status = stsDefault')
209 (
210 'Component = lstQuickList'
211 'Status = stsDefault')
212 (
213 'Component = pnlUpButton'
214 'Status = stsDefault')
215 (
216 'Component = pnlDownButton'
217 'Status = stsDefault')
218 (
219 'Component = cmdRename'
220 'Status = stsDefault')
221 (
222 'Component = cmdDelete'
223 'Status = stsDefault')
224 (
225 'Component = Panel3'
226 'Status = stsDefault')
227 (
228 'Component = cmdOK'
229 'Status = stsDefault')
230 (
231 'Component = cmdCancel'
232 'Status = stsDefault')
233 (
234 'Component = frmSaveQuickOrder'
235 'Status = stsDefault'))
236 end
237end
Note: See TracBrowser for help on using the repository browser.