source: cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptionsOther.dfm@ 697

Last change on this file since 697 was 667, checked in by Kevin Toppenberg, 15 years ago

Added button to turn Colored Tabs off
File size: 10.5 KB
RevLine 
[453]1object frmOptionsOther: TfrmOptionsOther
[667]2 Left = 517
3 Top = 143
[453]4 Hint = 'Use system default settings'
5 HelpContext = 9110
6 Align = alCustom
7 BorderIcons = [biSystemMenu, biHelp]
8 BorderStyle = bsDialog
9 Caption = 'Other Parameters'
[541]10 ClientHeight = 463
[473]11 ClientWidth = 391
[453]12 Color = clBtnFace
13 Font.Charset = DEFAULT_CHARSET
14 Font.Color = clWindowText
15 Font.Height = -11
16 Font.Name = 'MS Sans Serif'
17 Font.Style = []
18 HelpFile = 'CPRSWT.HLP'
19 OldCreateOrder = False
[498]20 Position = poDefault
[453]21 ShowHint = True
22 OnCreate = FormCreate
23 OnShow = FormShow
24 PixelsPerInch = 96
25 TextHeight = 13
26 object lblMedsTab: TLabel
27 Left = 7
[541]28 Top = 184
[498]29 Width = 170
30 Height = 13
[453]31 Hint = 'Set date ranges for displaying medication orders on Meds tab.'
32 Caption = 'Set date range for Meds tab display:'
33 ParentShowHint = False
34 ShowHint = True
35 WordWrap = True
36 end
37 object lblTab: TLabel
38 Left = 8
39 Top = 27
40 Width = 134
41 Height = 13
42 Caption = 'Initial tab when CPRS starts:'
43 end
44 object Bevel1: TBevel
45 Left = 1
[541]46 Top = 174
[473]47 Width = 392
48 Height = 3
[453]49 end
50 object lblEncAppts: TLabel
51 Left = 8
[541]52 Top = 285
[453]53 Width = 207
54 Height = 13
55 Hint = 'Set date range for Encounter Appointments.'
56 Caption = 'Set date range for Encounter Appointments:'
57 ParentShowHint = False
58 ShowHint = True
59 WordWrap = True
60 end
61 object Bevel2: TBevel
62 Left = 1
[541]63 Top = 272
[473]64 Width = 392
[453]65 Height = 2
66 end
[473]67 object Label1: TLabel
68 Left = 232
69 Top = 27
70 Width = 106
71 Height = 13
72 Caption = 'Select Tab Positioning'
73 end
[541]74 object lblTabColors: TLabel
[473]75 Left = 8
[541]76 Top = 128
[473]77 Width = 83
78 Height = 13
79 Caption = 'Adjust Tab Colors'
80 end
[541]81 object lblEditTabColor: TLabel
[473]82 Left = 232
[541]83 Top = 128
[473]84 Width = 138
85 Height = 13
86 Caption = '(Click box below to edit color)'
87 end
[453]88 object pnlBottom: TPanel
89 Left = 0
[541]90 Top = 430
[473]91 Width = 391
[453]92 Height = 33
93 HelpContext = 9110
94 Align = alBottom
95 BevelOuter = bvNone
96 ParentColor = True
97 TabOrder = 7
98 object bvlBottom: TBevel
99 Left = 0
100 Top = 0
[473]101 Width = 391
[453]102 Height = 2
103 Align = alTop
104 end
105 object btnOK: TButton
106 Left = 167
107 Top = 7
108 Width = 75
109 Height = 22
110 HelpContext = 9996
111 Caption = 'OK'
112 Default = True
113 ModalResult = 1
114 TabOrder = 0
115 OnClick = btnOKClick
116 end
117 object btnCancel: TButton
118 Left = 248
119 Top = 7
120 Width = 75
121 Height = 22
122 HelpContext = 9997
123 Cancel = True
124 Caption = 'Cancel'
125 ModalResult = 2
126 TabOrder = 1
127 end
128 end
129 object stStart: TStaticText
130 Left = 7
[541]131 Top = 207
[453]132 Width = 55
133 Height = 17
134 Caption = 'Start Date:'
135 TabOrder = 1
136 end
137 object stStop: TStaticText
[473]138 Left = 199
[541]139 Top = 207
[453]140 Width = 55
141 Height = 17
142 Caption = 'Stop Date:'
143 TabOrder = 5
144 end
145 object dtStart: TORDateBox
146 Left = 7
[541]147 Top = 226
[473]148 Width = 178
[453]149 Height = 21
150 TabOrder = 4
151 OnChange = dtStartChange
152 OnExit = dtStartExit
153 DateOnly = True
154 RequireTime = False
155 Caption = 'Start Date'
156 end
157 object dtStop: TORDateBox
[473]158 Left = 200
[541]159 Top = 225
[453]160 Width = 186
161 Height = 21
162 TabOrder = 6
163 OnExit = dtStopExit
164 DateOnly = True
165 RequireTime = False
166 Caption = 'Stop Date'
167 end
168 object lblTabDefault: TStaticText
169 Left = 8
170 Top = 6
[473]171 Width = 62
[453]172 Height = 17
173 Caption = 'Chart tabs'
[473]174 Font.Charset = DEFAULT_CHARSET
175 Font.Color = clWindowText
176 Font.Height = -11
177 Font.Name = 'MS Sans Serif'
178 Font.Style = [fsBold]
179 ParentFont = False
[453]180 TabOrder = 0
181 end
182 object cboTab: TORComboBox
183 Left = 8
[473]184 Top = 43
[453]185 Width = 217
186 Height = 21
187 HelpContext = 9111
188 Style = orcsDropDown
189 AutoSelect = True
190 Caption = 'Initial tab when CPRS starts:'
191 Color = clWindow
192 DropDownCount = 8
193 ItemHeight = 13
194 ItemTipColor = clWindow
195 ItemTipEnable = True
196 ListItemsOnly = False
197 LongList = False
198 LookupPiece = 0
199 MaxLength = 0
200 Pieces = '2'
201 Sorted = True
202 SynonymChars = '<>'
203 TabOrder = 2
204 TabStop = True
205 CharsNeedMatch = 1
206 end
207 object chkLastTab: TCheckBox
208 Left = 8
[473]209 Top = 74
210 Width = 233
[453]211 Height = 21
212 HelpContext = 9112
213 Caption = 'Use last selected tab on patient change'
214 TabOrder = 3
215 end
216 object stStartEncAppts: TStaticText
217 Left = 9
[541]218 Top = 312
[453]219 Width = 55
220 Height = 17
221 Caption = 'Start Date:'
222 TabOrder = 13
223 end
224 object txtTodayMinus: TStaticText
225 Left = 38
[541]226 Top = 337
[453]227 Width = 64
228 Height = 17
229 Alignment = taRightJustify
230 Caption = 'Today minus'
231 Color = clBtnFace
232 ParentColor = False
233 TabOrder = 14
234 end
235 object txtEncStart: TCaptionEdit
236 Left = 110
[541]237 Top = 334
[453]238 Width = 50
239 Height = 21
240 HelpContext = 9015
241 MaxLength = 12
242 TabOrder = 8
243 Text = '0'
244 OnChange = txtEncStartChange
245 OnExit = txtEncStartExit
246 Caption = 'Stop'
247 end
248 object txtDaysMinus: TStaticText
249 Left = 178
[541]250 Top = 338
[453]251 Width = 26
252 Height = 17
253 Caption = 'days'
254 Color = clBtnFace
255 ParentColor = False
256 TabOrder = 16
257 end
258 object spnEncStart: TUpDown
259 Tag = 30
260 Left = 160
[541]261 Top = 334
[453]262 Width = 15
263 Height = 21
264 HelpContext = 9015
265 Associate = txtEncStart
266 Min = -999
267 Max = 999
268 TabOrder = 17
269 Thousands = False
270 end
271 object txtDaysPlus: TStaticText
272 Left = 180
[541]273 Top = 390
[453]274 Width = 26
275 Height = 17
276 Caption = 'days'
277 Color = clBtnFace
278 ParentColor = False
279 TabOrder = 18
280 end
281 object spnEncStop: TUpDown
282 Tag = 30
283 Left = 162
[541]284 Top = 385
[453]285 Width = 15
286 Height = 21
287 HelpContext = 9015
288 Associate = txtEncStop
289 Min = -999
290 Max = 999
291 TabOrder = 19
292 Thousands = False
293 end
294 object txtEncStop: TCaptionEdit
295 Left = 112
[541]296 Top = 385
[453]297 Width = 50
298 Height = 21
299 HelpContext = 9015
300 MaxLength = 12
301 TabOrder = 10
302 Text = '0'
303 OnChange = txtEncStopChange
304 OnExit = txtEncStopExit
305 Caption = 'Stop'
306 end
307 object txtTodayPlus: TStaticText
308 Left = 46
[541]309 Top = 388
[453]310 Width = 56
311 Height = 17
312 Alignment = taRightJustify
313 Caption = 'Today plus'
314 Color = clBtnFace
315 ParentColor = False
316 TabOrder = 21
317 end
318 object stStopEncAppts: TStaticText
319 Left = 10
[541]320 Top = 364
[453]321 Width = 55
322 Height = 17
323 Caption = 'Stop Date:'
324 TabOrder = 22
325 end
326 object btnEncDefaults: TButton
327 Left = 248
[541]328 Top = 303
[453]329 Width = 75
330 Height = 22
331 HelpContext = 9011
332 Caption = 'Use Defaults'
333 Font.Charset = DEFAULT_CHARSET
334 Font.Color = clWindowText
335 Font.Height = -11
336 Font.Name = 'MS Sans Serif'
337 Font.Style = []
338 ParentFont = False
339 TabOrder = 12
340 OnClick = btnEncDefaultsClick
341 end
[473]342 object TabPositionComboBox: TComboBox
343 Left = 232
344 Top = 43
345 Width = 145
346 Height = 21
347 ItemHeight = 13
348 ItemIndex = 0
349 TabOrder = 23
350 Text = 'Tabs on BOTTOM'
351 OnChange = TabPositionComboBoxChange
352 Items.Strings = (
353 'Tabs on BOTTOM'
354 'Tabs on TOP'
355 'Tabs on LEFT'
356 'Tabs on RIGHT')
357 end
358 object pnlShowColor: TPanel
359 Left = 232
[541]360 Top = 144
[473]361 Width = 145
362 Height = 22
363 BevelInner = bvLowered
364 TabOrder = 24
365 OnClick = pnlShowColorClick
366 end
367 object cboTabColors: TComboBox
368 Left = 8
[541]369 Top = 144
[473]370 Width = 217
371 Height = 21
372 ItemHeight = 13
373 ItemIndex = 0
374 TabOrder = 25
375 Text = ' '
376 OnChange = cboTabColorsChange
377 Items.Strings = (
378 ' ')
379 end
[541]380 object cbEnableTabColors: TCheckBox
381 Left = 9
[667]382 Top = 102
[541]383 Width = 169
384 Height = 17
385 Caption = 'Enable Custom Tab Colors'
386 Checked = True
387 State = cbChecked
388 TabOrder = 26
389 OnClick = cbEnableTabColorsClick
390 end
[453]391 object DKLanguageController1: TDKLanguageController
392 Left = 152
[473]393 Top = 8
[453]394 LangData = {
395 0F0066726D4F7074696F6E734F74686572010300000002000000070043617074
[541]396 696F6E03000000080048656C7046696C6501000000040048696E740123000000
[453]397 0A006C626C4D656473546162010200000005000000070043617074696F6E0400
398 0000040048696E740006006C626C546162010100000006000000070043617074
399 696F6E000600426576656C3100000B006C626C456E6341707074730102000000
400 08000000070043617074696F6E07000000040048696E74000600426576656C32
401 00000900706E6C426F74746F6D0000090062766C426F74746F6D000005006274
402 6E4F4B010100000009000000070043617074696F6E00090062746E43616E6365
403 6C01010000000A000000070043617074696F6E00070073745374617274010100
404 00000B000000070043617074696F6E000600737453746F7001010000000C0000
405 00070043617074696F6E0007006474537461727401010000000D000000070043
406 617074696F6E000600647453746F7001010000000E000000070043617074696F
407 6E000D006C626C54616244656661756C7401010000000F000000070043617074
408 696F6E00060063626F546162010100000010000000070043617074696F6E000A
409 0063686B4C617374546162010100000011000000070043617074696F6E000F00
410 73745374617274456E634170707473010100000012000000070043617074696F
411 6E000D00747874546F6461794D696E7573010100000013000000070043617074
412 696F6E000B00747874456E635374617274010100000014000000070043617074
413 696F6E000C00747874446179734D696E75730101000000150000000700436170
414 74696F6E000B0073706E456E63537461727400000B0074787444617973506C75
415 73010100000016000000070043617074696F6E000A0073706E456E6353746F70
416 00000A00747874456E6353746F70010100000017000000070043617074696F6E
417 000C00747874546F646179506C7573010100000018000000070043617074696F
418 6E000E00737453746F70456E6341707074730101000000190000000700436170
419 74696F6E000E0062746E456E6344656661756C747301010000001A0000000700
[473]420 43617074696F6E001300546162506F736974696F6E436F6D626F426F78010200
421 00001C00000005004974656D731B0000000400546578740006004C6162656C31
[541]422 01010000001D000000070043617074696F6E000C006C626C546162436F6C6F72
423 7301010000001E000000070043617074696F6E000C00706E6C53686F77436F6C
424 6F7200000B00436F6C6F724469616C6F6700000F006C626C4564697454616243
425 6F6C6F7201010000001F000000070043617074696F6E000C0063626F54616243
426 6F6C6F7273000011006362456E61626C65546162436F6C6F7273010100000020
427 000000070043617074696F6E00}
[453]428 end
[473]429 object ColorDialog: TColorDialog
430 Left = 192
431 Top = 8
432 end
[453]433end
Note: See TracBrowser for help on using the repository browser.