Context Navigation

fProbEdt.dfm@ 1722

Last change on this file since 1722 was 1679, checked in by healthsevak, 10 years ago
Updating the working copy to CPRS version 28
File size: 15.5 KB

Rev	Line
[830]	1	inherited frmdlgProb: TfrmdlgProb
	2	Left = 148
	3	Top = 108
[456]	4	HelpContext = 2000
	5	BorderIcons = []
	6	Caption = 'frmdlgProb'
[830]	7	ClientHeight = 358
	8	ClientWidth = 496
[456]	9	OldCreateOrder = True
	10	OnClose = FormClose
	11	OnCreate = FormCreate
	12	OnShow = FormShow
[1679]	13	ExplicitWidth = 504
	14	ExplicitHeight = 392
[456]	15	PixelsPerInch = 96
	16	TextHeight = 13
[830]	17	object Label1: TLabel [0]
[456]	18	Left = 6
	19	Top = 357
	20	Width = 47
	21	Height = 13
	22	Caption = 'Recorded'
	23	Visible = False
	24	end
[830]	25	object Label5: TLabel [1]
[456]	26	Left = 4
	27	Top = 368
	28	Width = 45
	29	Height = 13
	30	Caption = 'Resolved'
	31	Visible = False
	32	end
[830]	33	object Label7: TLabel [2]
[456]	34	Left = 8
	35	Top = 382
	36	Width = 41
	37	Height = 13
	38	Caption = 'Updated'
	39	Visible = False
	40	end
[830]	41	object pnlComments: TPanel [3]
[456]	42	Left = 0
	43	Top = 200
	44	Width = 496
	45	Height = 131
	46	Align = alClient
	47	BevelOuter = bvNone
[1679]	48	TabOrder = 1
[456]	49	DesignSize = (
	50	496
	51	131)
	52	object Bevel1: TBevel
	53	Left = 7
	54	Top = 3
	55	Width = 484
	56	Height = 128
	57	Anchors = [akLeft, akTop, akRight, akBottom]
	58	end
	59	object lblCmtDate: TOROffsetLabel
	60	Left = 10
	61	Top = 20
	62	Width = 29
	63	Height = 15
	64	Caption = 'Date'
	65	HorzOffset = 6
	66	Transparent = False
	67	VertOffset = 2
	68	WordWrap = False
	69	end
	70	object lblComment: TOROffsetLabel
	71	Left = 75
	72	Top = 20
	73	Width = 50
	74	Height = 15
	75	Caption = 'Comment'
	76	HorzOffset = 6
	77	Transparent = False
	78	VertOffset = 2
	79	WordWrap = False
	80	end
	81	object lblCom: TStaticText
	82	Left = 10
	83	Top = 6
	84	Width = 53
	85	Height = 17
	86	Caption = 'Comments'
	87	Font.Charset = DEFAULT_CHARSET
	88	Font.Color = clWindowText
	89	Font.Height = -11
	90	Font.Name = 'MS Sans Serif'
	91	Font.Style = []
	92	ParentFont = False
	93	TabOrder = 0
	94	end
	95	object bbAdd: TBitBtn
	96	Left = 178
	97	Top = 10
	98	Width = 100
	99	Height = 22
	100	Hint = 'Add a new comment'
	101	Anchors = [akTop, akRight]
	102	Caption = 'Add comment'
	103	ParentShowHint = False
	104	ShowHint = True
	105	TabOrder = 1
	106	OnClick = bbAddComClick
	107	Layout = blGlyphBottom
	108	NumGlyphs = 2
	109	end
	110	object bbRemove: TBitBtn
	111	Left = 385
	112	Top = 10
	113	Width = 100
	114	Height = 22
	115	Hint = 'Remove selected comment'
	116	Anchors = [akTop, akRight]
	117	Caption = 'Remove comment'
	118	ParentShowHint = False
	119	ShowHint = True
[1679]	120	TabOrder = 3
[456]	121	OnClick = bbRemoveClick
	122	Layout = blGlyphBottom
	123	NumGlyphs = 2
	124	end
	125	object lstComments: TORListBox
	126	Left = 10
	127	Top = 38
	128	Width = 477
	129	Height = 85
	130	Anchors = [akLeft, akTop, akRight, akBottom]
	131	ExtendedSelect = False
	132	ItemHeight = 13
	133	ParentShowHint = False
	134	ShowHint = True
[1679]	135	TabOrder = 4
[456]	136	Caption = 'Comments'
	137	ItemTipColor = clWindow
	138	LongList = True
	139	Pieces = '1,2'
	140	TabPositions = '1,12'
	141	OnChange = ControlChange
	142	end
	143	object bbEdit: TBitBtn
	144	Left = 281
	145	Top = 10
	146	Width = 100
	147	Height = 22
	148	Hint = 'Edit selected comment'
	149	Anchors = [akTop, akRight]
	150	Caption = 'Edit comment'
	151	ParentShowHint = False
	152	ShowHint = True
[1679]	153	TabOrder = 2
[456]	154	OnClick = bbEditClick
	155	Layout = blGlyphBottom
	156	NumGlyphs = 2
	157	end
	158	end
[830]	159	object pnlBottom: TPanel [4]
[456]	160	Left = 0
	161	Top = 331
	162	Width = 496
	163	Height = 27
	164	Align = alBottom
	165	BevelOuter = bvNone
[1679]	166	TabOrder = 4
[456]	167	DesignSize = (
	168	496
	169	27)
	170	object bbQuit: TBitBtn
	171	Left = 299
	172	Top = 4
	173	Width = 78
	174	Height = 21
[1679]	175	Hint = 'Cancel problem update...'
[456]	176	Anchors = [akTop, akRight]
	177	Cancel = True
	178	Caption = 'Cancel'
	179	ModalResult = 2
[1679]	180	TabOrder = 3
[456]	181	OnClick = bbQuitClick
	182	Layout = blGlyphBottom
	183	NumGlyphs = 2
	184	end
	185	object bbFile: TBitBtn
	186	Left = 381
	187	Top = 4
	188	Width = 78
	189	Height = 21
[1679]	190	Hint = 'Submit problem update...'
[456]	191	Anchors = [akTop, akRight]
	192	Caption = 'OK'
[830]	193	Default = True
[456]	194	ModalResult = 1
[1679]	195	TabOrder = 2
[456]	196	OnClick = bbFileClick
	197	Layout = blGlyphBottom
	198	NumGlyphs = 2
	199	end
	200	object ckVerify: TCheckBox
	201	Left = 15
	202	Top = 7
	203	Width = 130
	204	Height = 15
	205	TabStop = False
	206	Caption = 'Problem Verified'
[1679]	207	TabOrder = 0
[456]	208	Visible = False
	209	end
	210	object edRecDate: TCaptionEdit
[1679]	211	Left = 151
	212	Top = 6
[456]	213	Width = 94
	214	Height = 21
	215	TabStop = False
	216	Color = clInactiveCaptionText
	217	Enabled = False
[1679]	218	TabOrder = 1
[456]	219	Text = 'Today'
	220	Visible = False
	221	OnChange = ControlChange
	222	Caption = 'Rec Date'
	223	end
	224	end
[830]	225	object edResDate: TCaptionEdit [5]
[456]	226	Left = 66
	227	Top = 365
	228	Width = 94
	229	Height = 21
	230	TabStop = False
	231	Color = clInactiveCaptionText
	232	Enabled = False
[1679]	233	TabOrder = 2
[456]	234	Text = 'Today'
	235	Visible = False
	236	OnChange = ControlChange
	237	Caption = 'Res Date'
	238	end
[830]	239	object edUpdate: TCaptionEdit [6]
[456]	240	Left = 67
	241	Top = 376
	242	Width = 94
	243	Height = 21
	244	TabStop = False
	245	Color = clInactiveCaptionText
	246	Enabled = False
[1679]	247	TabOrder = 3
[456]	248	Text = 'Today'
	249	Visible = False
	250	OnChange = ControlChange
	251	Caption = 'Update'
	252	end
[830]	253	object pnlTop: TPanel [7]
[456]	254	Left = 0
	255	Top = 0
	256	Width = 496
	257	Height = 200
	258	Align = alTop
	259	BevelOuter = bvNone
[1679]	260	TabOrder = 0
[456]	261	DesignSize = (
	262	496
	263	200)
	264	object lblAct: TLabel
	265	Left = 12
	266	Top = 4
	267	Width = 34
	268	Height = 13
	269	Caption = 'Activity'
	270	Font.Charset = DEFAULT_CHARSET
	271	Font.Color = clWindowText
	272	Font.Height = -11
	273	Font.Name = 'MS Sans Serif'
	274	Font.Style = []
	275	ParentFont = False
	276	Visible = False
	277	end
	278	object lblLoc: TLabel
	279	Left = 187
	280	Top = 149
	281	Width = 28
	282	Height = 13
	283	Caption = 'Clinic:'
	284	Font.Charset = DEFAULT_CHARSET
	285	Font.Color = clWindowText
	286	Font.Height = -11
	287	Font.Name = 'MS Sans Serif'
	288	Font.Style = []
	289	ParentFont = False
	290	end
	291	object Label3: TLabel
	292	Left = 187
	293	Top = 105
	294	Width = 70
	295	Height = 13
	296	Caption = 'Resp Provider:'
	297	Font.Charset = DEFAULT_CHARSET
	298	Font.Color = clWindowText
	299	Font.Height = -11
	300	Font.Name = 'MS Sans Serif'
	301	Font.Style = []
	302	ParentFont = False
	303	end
	304	object Label6: TLabel
	305	Left = 187
	306	Top = 63
	307	Width = 69
	308	Height = 13
	309	Caption = 'Date of Onset:'
	310	end
	311	object rgStatus: TKeyClickRadioGroup
	312	Left = 9
	313	Top = 64
	314	Width = 81
	315	Height = 124
	316	Caption = 'Status'
	317	ItemIndex = 0
	318	Items.Strings = (
	319	'Active'
	320	'Inactive')
[1679]	321	TabOrder = 2
[456]	322	TabStop = True
	323	OnClick = rgStatusClick
	324	end
	325	object rgStage: TKeyClickRadioGroup
	326	Left = 92
	327	Top = 64
	328	Width = 87
	329	Height = 124
	330	Caption = 'Immediacy'
	331	Ctl3D = True
	332	ItemIndex = 2
	333	Items.Strings = (
	334	'Acute'
	335	'Chronic'
	336	'<unknown>')
	337	ParentCtl3D = False
[1679]	338	TabOrder = 3
[456]	339	TabStop = True
	340	OnClick = ControlChange
	341	end
	342	object bbChangeProb: TBitBtn
	343	Left = 318
	344	Top = 18
	345	Width = 124
	346	Height = 21
	347	Anchors = [akTop, akRight]
	348	Caption = 'Change problem...'
[1679]	349	TabOrder = 1
[456]	350	OnClick = bbChangeProbClick
	351	Layout = blGlyphBottom
	352	end
	353	object edProb: TCaptionEdit
	354	Left = 9
	355	Top = 19
	356	Width = 296
	357	Height = 21
[1679]	358	Hint = 'Problem Name'
[456]	359	Anchors = [akLeft, akTop, akRight]
	360	ReadOnly = True
[1679]	361	TabOrder = 0
[456]	362	Text = 'Problem Title'
	363	OnChange = ControlChange
	364	Caption = 'Activity'
	365	end
	366	object gbTreatment: TGroupBox
	367	Left = 310
[830]	368	Top = 58
[456]	369	Width = 181
[830]	370	Height = 142
[456]	371	Anchors = [akTop, akRight]
	372	Caption = 'Treatment Factors'
[1679]	373	TabOrder = 8
[456]	374	DesignSize = (
	375	181
[830]	376	142)
[456]	377	object ckSC: TCheckBox
	378	Left = 7
	379	Top = 15
	380	Width = 160
	381	Height = 17
	382	Anchors = [akTop, akRight]
	383	Caption = 'Service Connected '
	384	Enabled = False
	385	TabOrder = 0
	386	OnClick = ControlChange
	387	end
	388	object ckRad: TCheckBox
	389	Left = 7
[830]	390	Top = 50
[456]	391	Width = 154
	392	Height = 17
	393	Anchors = [akTop, akRight]
	394	Caption = 'Radiation '
	395	Enabled = False
[1679]	396	TabOrder = 2
[456]	397	OnClick = ControlChange
	398	end
	399	object ckAO: TCheckBox
	400	Left = 7
[830]	401	Top = 32
[456]	402	Width = 154
	403	Height = 17
	404	Anchors = [akTop, akRight]
	405	Caption = 'Agent Orange '
	406	Enabled = False
[1679]	407	TabOrder = 1
[456]	408	OnClick = ControlChange
	409	end
	410	object ckENV: TCheckBox
	411	Left = 7
[830]	412	Top = 68
[456]	413	Width = 149
	414	Height = 17
	415	Anchors = [akTop, akRight]
[830]	416	Caption = 'Southwest &Asia Conditions'
[456]	417	Enabled = False
	418	TabOrder = 3
	419	OnClick = ControlChange
	420	end
	421	object ckHNC: TCheckBox
	422	Left = 7
[830]	423	Top = 119
[456]	424	Width = 149
	425	Height = 17
	426	Anchors = [akTop, akRight]
	427	Caption = 'Head and/or Neck Cancer'
	428	Enabled = False
[1679]	429	TabOrder = 6
[456]	430	OnClick = ControlChange
	431	end
	432	object ckMST: TCheckBox
	433	Left = 7
[830]	434	Top = 102
[456]	435	Width = 149
	436	Height = 17
	437	Anchors = [akTop, akRight]
	438	Caption = 'MST'
	439	Enabled = False
	440	TabOrder = 5
	441	OnClick = ControlChange
	442	end
[830]	443	object ckSHAD: TCheckBox
	444	Left = 7
	445	Top = 85
	446	Width = 170
	447	Height = 17
	448	Caption = 'Shipboard Hazard and Defense'
[1679]	449	TabOrder = 4
[830]	450	end
[456]	451	end
	452	object cbServ: TORComboBox
	453	Left = 186
	454	Top = 166
	455	Width = 113
	456	Height = 21
	457	Anchors = [akLeft, akTop, akRight]
	458	Style = orcsDropDown
	459	AutoSelect = True
	460	Caption = 'Service:'
	461	Color = clWindow
	462	DropDownCount = 8
	463	Font.Charset = DEFAULT_CHARSET
	464	Font.Color = clWindowText
	465	Font.Height = -11
	466	Font.Name = 'MS Sans Serif'
	467	Font.Style = []
	468	ItemHeight = 13
	469	ItemTipColor = clWindow
	470	ItemTipEnable = True
	471	ListItemsOnly = True
	472	LongList = True
	473	LookupPiece = 0
	474	MaxLength = 0
	475	ParentFont = False
	476	Pieces = '2'
	477	Sorted = False
	478	SynonymChars = '<>'
[1679]	479	TabOrder = 7
[456]	480	Visible = False
	481	OnChange = ControlChange
	482	OnNeedData = cbServNeedData
	483	CharsNeedMatch = 1
	484	end
	485	object cbLoc: TORComboBox
[1679]	486	Left = 185
	487	Top = 168
[456]	488	Width = 113
	489	Height = 21
	490	Anchors = [akLeft, akTop, akRight]
	491	Style = orcsDropDown
	492	AutoSelect = True
	493	Color = clWindow
	494	DropDownCount = 8
	495	Font.Charset = DEFAULT_CHARSET
	496	Font.Color = clWindowText
	497	Font.Height = -11
	498	Font.Name = 'MS Sans Serif'
	499	Font.Style = []
	500	ItemHeight = 13
	501	ItemTipColor = clWindow
	502	ItemTipEnable = True
	503	ListItemsOnly = True
	504	LongList = True
	505	LookupPiece = 0
	506	MaxLength = 0
	507	ParentFont = False
	508	Pieces = '2'
	509	Sorted = False
	510	SynonymChars = '<>'
[1679]	511	TabOrder = 6
[456]	512	OnChange = ControlChange
	513	OnClick = cbLocClick
	514	OnKeyPress = cbLocKeyPress
	515	OnNeedData = cbLocNeedData
	516	CharsNeedMatch = 1
	517	end
	518	object cbProv: TORComboBox
	519	Left = 186
	520	Top = 122
	521	Width = 113
	522	Height = 21
	523	Anchors = [akLeft, akTop, akRight]
	524	Style = orcsDropDown
	525	AutoSelect = True
	526	Caption = 'Resp Provider'
	527	Color = clWindow
	528	DropDownCount = 8
	529	Font.Charset = DEFAULT_CHARSET
	530	Font.Color = clWindowText
	531	Font.Height = -11
	532	Font.Name = 'MS Sans Serif'
	533	Font.Style = []
	534	ItemHeight = 13
	535	ItemTipColor = clWindow
	536	ItemTipEnable = True
	537	ListItemsOnly = True
	538	LongList = True
	539	LookupPiece = 2
	540	MaxLength = 0
	541	ParentFont = False
	542	Pieces = '2,3'
	543	Sorted = False
	544	SynonymChars = '<>'
[1679]	545	TabOrder = 5
[456]	546	OnChange = ControlChange
	547	OnClick = cbProvClick
	548	OnKeyPress = cbProvKeyPress
	549	OnNeedData = cbProvNeedData
	550	CharsNeedMatch = 1
	551	end
	552	object edOnsetdate: TCaptionEdit
	553	Left = 187
	554	Top = 79
	555	Width = 113
	556	Height = 21
	557	Anchors = [akLeft, akTop, akRight]
[1679]	558	TabOrder = 4
[456]	559	Text = 'Today'
	560	OnChange = ControlChange
	561	Caption = 'Date of Onset'
	562	end
	563	end
[830]	564	inherited amgrMain: TVA508AccessibilityManager
[1679]	565	Left = 472
[830]	566	Data = (
	567	(
	568	'Component = pnlComments'
	569	'Status = stsDefault')
	570	(
	571	'Component = lblCom'
	572	'Status = stsDefault')
	573	(
	574	'Component = bbAdd'
[1679]	575	'Property = Hint'
	576	'Status = stsOK')
[830]	577	(
	578	'Component = bbRemove'
[1679]	579	'Property = Hint'
	580	'Status = stsOK')
[830]	581	(
	582	'Component = lstComments'
[1679]	583	'Property = Caption'
	584	'Status = stsOK')
[830]	585	(
	586	'Component = bbEdit'
[1679]	587	'Property = Hint'
	588	'Status = stsOK')
[830]	589	(
	590	'Component = pnlBottom'
	591	'Status = stsDefault')
	592	(
	593	'Component = bbQuit'
[1679]	594	'Property = Hint'
	595	'Status = stsOK')
[830]	596	(
	597	'Component = bbFile'
[1679]	598	'Property = Hint'
	599	'Status = stsOK')
[830]	600	(
	601	'Component = ckVerify'
[1679]	602	'Property = Caption'
	603	'Status = stsOK')
[830]	604	(
	605	'Component = edRecDate'
[1679]	606	'Label = Label1'
	607	'Status = stsOK')
[830]	608	(
	609	'Component = edResDate'
	610	'Status = stsDefault')
	611	(
	612	'Component = edUpdate'
	613	'Status = stsDefault')
	614	(
	615	'Component = pnlTop'
	616	'Status = stsDefault')
	617	(
	618	'Component = rgStatus'
[1679]	619	'Property = Caption'
	620	'Status = stsOK')
[830]	621	(
	622	'Component = rgStage'
[1679]	623	'Property = Caption'
	624	'Status = stsOK')
[830]	625	(
	626	'Component = bbChangeProb'
[1679]	627	'Property = Caption'
	628	'Status = stsOK')
[830]	629	(
	630	'Component = edProb'
[1679]	631	'Property = Hint'
	632	'Status = stsOK')
[830]	633	(
	634	'Component = gbTreatment'
[1679]	635	'Property = Caption'
	636	'Status = stsOK')
[830]	637	(
	638	'Component = ckSC'
	639	'Status = stsDefault')
	640	(
	641	'Component = ckRad'
	642	'Status = stsDefault')
	643	(
	644	'Component = ckAO'
	645	'Status = stsDefault')
	646	(
	647	'Component = ckENV'
	648	'Status = stsDefault')
	649	(
	650	'Component = ckHNC'
	651	'Status = stsDefault')
	652	(
	653	'Component = ckMST'
	654	'Status = stsDefault')
	655	(
	656	'Component = ckSHAD'
	657	'Status = stsDefault')
	658	(
	659	'Component = cbServ'
[1679]	660	'Property = Caption'
	661	'Status = stsOK')
[830]	662	(
	663	'Component = cbLoc'
[1679]	664	'Label = lblLoc'
	665	'Status = stsOK')
[830]	666	(
	667	'Component = cbProv'
[1679]	668	'Text = Responsible Provider'
	669	'Status = stsOK')
[830]	670	(
	671	'Component = edOnsetdate'
[1679]	672	'Property = Caption'
	673	'Status = stsOK')
[830]	674	(
	675	'Component = frmdlgProb'
	676	'Status = stsDefault'))
	677	end
[456]	678	end

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

Download in other formats:

Original Format