Context Navigation

fOptionsOther.dfm@ 834

Last change on this file since 834 was 729, checked in by Kevin Toppenberg, 15 years ago
Added functions to Templates, and Images tab
File size: 10.5 KB

Rev	Line
[453]	1	object frmOptionsOther: TfrmOptionsOther
[729]	2	Left = 522
[667]	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
[729]	11	ClientWidth = 386
[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
[729]	91	Width = 386
[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
[729]	101	Width = 386
[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]	433	end

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format