source: cprs/branches/foia-cprs/CPRS-Chart/fDrawers.dfm@ 1254

Last change on this file since 1254 was 459, checked in by Kevin Toppenberg, 17 years ago

Adding foia-cprs branch
File size: 11.8 KB
Line 
1object frmDrawers: TfrmDrawers
2 Left = 285
3 Top = 335
4 BorderStyle = bsNone
5 Caption = 'frmDrawers'
6 ClientHeight = 365
7 ClientWidth = 189
8 Color = clBtnFace
9 Font.Charset = DEFAULT_CHARSET
10 Font.Color = clWindowText
11 Font.Height = -11
12 Font.Name = 'MS Sans Serif'
13 Font.Style = []
14 KeyPreview = True
15 OldCreateOrder = False
16 OnCanResize = FormCanResize
17 OnCreate = FormCreate
18 OnDestroy = FormDestroy
19 OnResize = FormResize
20 PixelsPerInch = 96
21 TextHeight = 13
22 object pnlRemindersButton: TKeyClickPanel
23 Left = 0
24 Top = 193
25 Width = 189
26 Height = 22
27 Align = alTop
28 BevelOuter = bvNone
29 Caption = 'Reminders'
30 TabOrder = 4
31 TabStop = True
32 OnClick = sbRemindersClick
33 OnEnter = pnlTemplatesButtonEnter
34 OnExit = pnlTemplatesButtonExit
35 object sbReminders: TORAlignSpeedButton
36 Left = 0
37 Top = 0
38 Width = 189
39 Height = 22
40 AllowAllUp = True
41 GroupIndex = 1
42 Caption = 'Reminders'
43 Glyph.Data = {
44 3E010000424D3E010000000000007600000028000000280000000A0000000100
45 040000000000C800000000000000000000001000000010000000000000000000
46 8000008000000080800080000000800080008080000080808000C0C0C0000000
47 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
48 888888888888888888888888888888887788888888FF88888888FF88888888FF
49 88888888F7888888887F888888887F888888880F8888888F877888888778F888
50 888788F888888078F888888F887888888788F888888788F888888078F88888F8
51 8877888877888F888878888F888807888F8888F88887888878888F888878888F
52 888807888F888F8888877887788888F887888888F880788888F88FFFFFFF7887
53 777777F887777777F880000000F8888888888888888888888888888888888888
54 8888}
55 Margin = 60
56 NumGlyphs = 4
57 Spacing = 2
58 OnClick = sbRemindersClick
59 Align = alClient
60 OnResize = sbResize
61 end
62 end
63 object pnlEncounterButton: TKeyClickPanel
64 Left = 0
65 Top = 107
66 Width = 189
67 Height = 22
68 Align = alTop
69 BevelOuter = bvNone
70 Caption = 'Encounter'
71 TabOrder = 2
72 TabStop = True
73 OnClick = sbEncounterClick
74 OnEnter = pnlTemplatesButtonEnter
75 OnExit = pnlTemplatesButtonExit
76 object sbEncounter: TORAlignSpeedButton
77 Left = 0
78 Top = 0
79 Width = 189
80 Height = 22
81 AllowAllUp = True
82 GroupIndex = 1
83 Caption = 'Encounter'
84 Glyph.Data = {
85 3E010000424D3E010000000000007600000028000000280000000A0000000100
86 040000000000C800000000000000000000001000000010000000000000000000
87 8000008000000080800080000000800080008080000080808000C0C0C0000000
88 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
89 888888888888888888888888888888887788888888FF88888888FF88888888FF
90 88888888F7888888887F888888887F888888880F8888888F877888888778F888
91 888788F888888078F888888F887888888788F888888788F888888078F88888F8
92 8877888877888F888878888F888807888F8888F88887888878888F888878888F
93 888807888F888F8888877887788888F887888888F880788888F88FFFFFFF7887
94 777777F887777777F880000000F8888888888888888888888888888888888888
95 8888}
96 Margin = 60
97 NumGlyphs = 4
98 Spacing = 2
99 OnClick = sbEncounterClick
100 Align = alClient
101 OnResize = sbResize
102 end
103 end
104 object pnlTemplatesButton: TKeyClickPanel
105 Left = 0
106 Top = 0
107 Width = 189
108 Height = 22
109 Align = alTop
110 BevelOuter = bvNone
111 Caption = 'Templates'
112 TabOrder = 0
113 TabStop = True
114 OnClick = sbTemplatesClick
115 OnEnter = pnlTemplatesButtonEnter
116 OnExit = pnlTemplatesButtonExit
117 object sbTemplates: TORAlignSpeedButton
118 Left = 0
119 Top = 0
120 Width = 189
121 Height = 22
122 AllowAllUp = True
123 GroupIndex = 1
124 Caption = 'Templates'
125 Glyph.Data = {
126 3E010000424D3E010000000000007600000028000000280000000A0000000100
127 040000000000C800000000000000000000001000000010000000000000000000
128 8000008000000080800080000000800080008080000080808000C0C0C0000000
129 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
130 888888888888888888888888888888887788888888FF88888888FF88888888FF
131 88888888F7888888887F888888887F888888880F8888888F877888888778F888
132 888788F888888078F888888F887888888788F888888788F888888078F88888F8
133 8877888877888F888878888F888807888F8888F88887888878888F888878888F
134 888807888F888F8888877887788888F887888888F880788888F88FFFFFFF7887
135 777777F887777777F880000000F8888888888888888888888888888888888888
136 8888}
137 Margin = 60
138 NumGlyphs = 4
139 PopupMenu = popTemplates
140 Spacing = 2
141 OnClick = sbTemplatesClick
142 Align = alClient
143 OnResize = sbResize
144 end
145 end
146 object pnlOrdersButton: TKeyClickPanel
147 Left = 0
148 Top = 279
149 Width = 189
150 Height = 22
151 Align = alTop
152 BevelOuter = bvNone
153 Caption = 'Orders'
154 TabOrder = 6
155 TabStop = True
156 OnClick = sbOrdersClick
157 OnEnter = pnlTemplatesButtonEnter
158 OnExit = pnlTemplatesButtonExit
159 object sbOrders: TORAlignSpeedButton
160 Left = 0
161 Top = 0
162 Width = 189
163 Height = 22
164 AllowAllUp = True
165 GroupIndex = 1
166 Caption = 'Orders'
167 Glyph.Data = {
168 3E010000424D3E010000000000007600000028000000280000000A0000000100
169 040000000000C800000000000000000000001000000010000000000000000000
170 8000008000000080800080000000800080008080000080808000C0C0C0000000
171 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
172 888888888888888888888888888888887788888888FF88888888FF88888888FF
173 88888888F7888888887F888888887F888888880F8888888F877888888778F888
174 888788F888888078F888888F887888888788F888888788F888888078F88888F8
175 8877888877888F888878888F888807888F8888F88887888878888F888878888F
176 888807888F888F8888877887788888F887888888F880788888F88FFFFFFF7887
177 777777F887777777F880000000F8888888888888888888888888888888888888
178 8888}
179 Margin = 60
180 NumGlyphs = 4
181 Spacing = 11
182 OnClick = sbOrdersClick
183 Align = alClient
184 OnResize = sbResize
185 end
186 end
187 object lbOrders: TORListBox
188 Left = 0
189 Top = 301
190 Width = 189
191 Height = 64
192 Align = alTop
193 ItemHeight = 13
194 Items.Strings = (
195 'Orders')
196 ParentShowHint = False
197 ShowHint = True
198 TabOrder = 7
199 Visible = False
200 Caption = 'Orders'
201 ItemTipColor = clWindow
202 LongList = False
203 end
204 object lbEncounter: TORListBox
205 Left = 0
206 Top = 129
207 Width = 189
208 Height = 64
209 Align = alTop
210 ItemHeight = 13
211 Items.Strings = (
212 'Encounter')
213 ParentShowHint = False
214 ShowHint = True
215 TabOrder = 3
216 Visible = False
217 Caption = 'Encounter'
218 ItemTipColor = clWindow
219 LongList = False
220 end
221 object pnlTemplates: TPanel
222 Left = 0
223 Top = 22
224 Width = 189
225 Height = 85
226 Align = alTop
227 BevelOuter = bvNone
228 TabOrder = 1
229 Visible = False
230 object tvTemplates: TORTreeView
231 Left = 0
232 Top = 38
233 Width = 189
234 Height = 47
235 Align = alClient
236 DragMode = dmAutomatic
237 HideSelection = False
238 Images = dmodShared.imgTemplates
239 Indent = 19
240 ParentShowHint = False
241 PopupMenu = popTemplates
242 ReadOnly = True
243 RightClickSelect = True
244 ShowHint = False
245 TabOrder = 1
246 OnClick = tvTemplatesClick
247 OnCollapsing = tvTemplatesCollapsing
248 OnDblClick = tvTemplatesDblClick
249 OnExpanding = tvTemplatesExpanding
250 OnGetImageIndex = tvTemplatesGetImageIndex
251 OnGetSelectedIndex = tvTemplatesGetSelectedIndex
252 OnKeyDown = tvTemplatesKeyDown
253 OnKeyUp = tvTemplatesKeyUp
254 Caption = 'Templates'
255 NodePiece = 2
256 OnDragging = tvTemplatesDragging
257 end
258 object pnlTemplateSearch: TPanel
259 Left = 0
260 Top = 0
261 Width = 189
262 Height = 38
263 Align = alTop
264 BevelOuter = bvNone
265 TabOrder = 0
266 OnResize = pnlTemplateSearchResize
267 DesignSize = (
268 189
269 38)
270 object btnFind: TORAlignButton
271 Left = 134
272 Top = 0
273 Width = 55
274 Height = 21
275 Hint = 'Find Template'
276 Anchors = [akTop, akRight]
277 Caption = 'Find'
278 ParentShowHint = False
279 PopupMenu = popTemplates
280 ShowHint = True
281 TabOrder = 1
282 OnClick = btnFindClick
283 end
284 object edtSearch: TCaptionEdit
285 Left = 0
286 Top = 0
287 Width = 134
288 Height = 21
289 Anchors = [akLeft, akTop, akRight]
290 TabOrder = 0
291 OnChange = edtSearchChange
292 OnEnter = edtSearchEnter
293 OnExit = edtSearchExit
294 Caption = 'Text to find'
295 end
296 object cbMatchCase: TCheckBox
297 Left = 0
298 Top = 21
299 Width = 80
300 Height = 17
301 Caption = 'Match Case'
302 TabOrder = 2
303 OnClick = cbFindOptionClick
304 end
305 object cbWholeWords: TCheckBox
306 Left = 80
307 Top = 21
308 Width = 109
309 Height = 17
310 Caption = 'Whole Words Only'
311 TabOrder = 3
312 OnClick = cbFindOptionClick
313 end
314 end
315 end
316 object tvReminders: TORTreeView
317 Left = 0
318 Top = 215
319 Width = 189
320 Height = 64
321 HelpContext = 11300
322 Align = alTop
323 HideSelection = False
324 Images = dmodShared.imgReminders
325 Indent = 23
326 ReadOnly = True
327 RightClickSelect = True
328 StateImages = dmodShared.imgReminders
329 TabOrder = 5
330 OnAddition = tvRemindersAddition
331 OnCollapsed = tvRemindersCurListChanged
332 OnDeletion = tvRemindersDeletion
333 OnExpanded = tvRemindersCurListChanged
334 OnKeyDown = tvRemindersKeyDown
335 OnMouseUp = tvRemindersMouseUp
336 Caption = 'Reminders'
337 NodePiece = 0
338 OnNodeCaptioning = tvRemindersNodeCaptioning
339 end
340 object popTemplates: TPopupMenu
341 OnPopup = popTemplatesPopup
342 Left = 8
343 Top = 70
344 object mnuCopyTemplate: TMenuItem
345 Caption = 'Copy Template Text'
346 ShortCut = 16451
347 OnClick = mnuCopyTemplateClick
348 end
349 object mnuInsertTemplate: TMenuItem
350 Caption = '&Insert Template'
351 ShortCut = 16429
352 OnClick = mnuInsertTemplateClick
353 end
354 object mnuPreviewTemplate: TMenuItem
355 Caption = '&Preview/Print Template'
356 ShortCut = 16471
357 OnClick = mnuPreviewTemplateClick
358 end
359 object N1: TMenuItem
360 Caption = '-'
361 end
362 object mnuGotoDefault: TMenuItem
363 Caption = '&Goto Default'
364 ShortCut = 16455
365 OnClick = mnuGotoDefaultClick
366 end
367 object mnuDefault: TMenuItem
368 Caption = '&Mark as Default'
369 ShortCut = 16416
370 OnClick = mnuDefaultClick
371 end
372 object N3: TMenuItem
373 Caption = '-'
374 end
375 object mnuViewNotes: TMenuItem
376 Caption = '&View Template Notes'
377 ShortCut = 16470
378 OnClick = mnuViewNotesClick
379 end
380 object N4: TMenuItem
381 Caption = '-'
382 end
383 object mnuFindTemplates: TMenuItem
384 Caption = '&Find Templates'
385 ShortCut = 16454
386 OnClick = mnuFindTemplatesClick
387 end
388 object mnuCollapseTree: TMenuItem
389 Caption = '&Collapse Tree'
390 OnClick = mnuCollapseTreeClick
391 end
392 object N2: TMenuItem
393 Caption = '-'
394 end
395 object mnuEditTemplates: TMenuItem
396 Caption = '&Edit Templates'
397 OnClick = mnuEditTemplatesClick
398 end
399 object mnuNewTemplate: TMenuItem
400 Caption = 'Create &New Template'
401 OnClick = mnuNewTemplateClick
402 end
403 object N5: TMenuItem
404 Caption = '-'
405 end
406 object mnuViewTemplateIconLegend: TMenuItem
407 Caption = 'Template Icon Legend'
408 OnClick = mnuViewTemplateIconLegendClick
409 end
410 end
411end
Note: See TracBrowser for help on using the repository browser.