Context Navigation

fOCSession.dfm@ 1727

Last change on this file since 1727 was 1693, checked in by healthsevak, 10 years ago
Committing the files for first time to this new branch
File size: 6.0 KB

Line
1	inherited frmOCSession: TfrmOCSession
2	Left = 366
3	Top = 222
4	Width = 714
5	Height = 530
6	HorzScrollBar.Visible = True
7	VertScrollBar.Visible = True
8	AutoScroll = True
9	BorderIcons = []
10	Caption = 'Order Checks'
11	Constraints.MinHeight = 500
12	Constraints.MinWidth = 500
13	Position = poScreenCenter
14	ShowHint = True
15	OnClose = FormClose
16	OnCreate = FormCreate
17	OnMouseWheelDown = FormMouseWheelDown
18	OnShow = FormShow
19	ExplicitWidth = 714
20	ExplicitHeight = 530
21	PixelsPerInch = 96
22	TextHeight = 13
23	object pnlBottom: TPanel [0]
24	Left = 0
25	Top = 352
26	Width = 706
27	Height = 146
28	Anchors = [akLeft, akTop, akBottom]
29	BevelOuter = bvNone
30	TabOrder = 0
31	DesignSize = (
32	706
33	146)
34	object lblJustify: TLabel
35	Left = 9
36	Top = 58
37	Width = 234
38	Height = 13
39	Anchors = [akLeft]
40	Caption = 'Enter reason for overriding order checks:'
41	Font.Charset = DEFAULT_CHARSET
42	Font.Color = clWindowText
43	Font.Height = -11
44	Font.Name = 'MS Sans Serif'
45	Font.Style = [fsBold]
46	ParentFont = False
47	end
48	object memNote: TMemo
49	Left = 392
50	Top = 12
51	Width = 306
52	Height = 40
53	BorderStyle = bsNone
54	Color = clBtnFace
55	Lines.Strings = (
56	'NOTE: The override reason is for tracking purposes and '
57	'does not change or place new order(s).')
58	ReadOnly = True
59	TabOrder = 0
60	OnEnter = memNoteEnter
61	end
62	object txtJustify: TCaptionEdit
63	Left = 8
64	Top = 80
65	Width = 682
66	Height = 21
67	Anchors = [akLeft]
68	AutoSize = False
69	MaxLength = 80
70	TabOrder = 3
71	OnKeyDown = txtJustifyKeyDown
72	Caption = 'Enter justification for overriding critical order checks -'
73	end
74	object cmdCancelOrder: TButton
75	Left = 9
76	Top = 17
77	Width = 168
78	Height = 21
79	Caption = 'Cancel Checked Order(s)'
80	Font.Charset = DEFAULT_CHARSET
81	Font.Color = clWindowText
82	Font.Height = -11
83	Font.Name = 'MS Sans Serif'
84	Font.Style = [fsBold]
85	ParentFont = False
86	TabOrder = 1
87	OnClick = cmdCancelOrderClick
88	end
89	object cmdContinue: TButton
90	Left = 219
91	Top = 112
92	Width = 127
93	Height = 23
94	Anchors = [akLeft, akTop, akRight, akBottom]
95	Caption = 'Accept Order(s)'
96	Font.Charset = DEFAULT_CHARSET
97	Font.Color = clWindowText
98	Font.Height = -11
99	Font.Name = 'MS Sans Serif'
100	Font.Style = [fsBold]
101	ParentFont = False
102	TabOrder = 4
103	OnClick = cmdContinueClick
104	end
105	object btnReturn: TButton
106	Left = 352
107	Top = 112
108	Width = 122
109	Height = 23
110	Anchors = [akLeft, akTop, akRight, akBottom]
111	Cancel = True
112	Caption = 'Return to Orders'
113	Font.Charset = DEFAULT_CHARSET
114	Font.Color = clWindowText
115	Font.Height = -11
116	Font.Name = 'MS Sans Serif'
117	Font.Style = [fsBold]
118	ParentFont = False
119	TabOrder = 5
120	OnClick = btnReturnClick
121	end
122	object cmdMonograph: TButton
123	Left = 536
124	Top = 107
125	Width = 162
126	Height = 21
127	Anchors = [akRight, akBottom]
128	Caption = 'Drug Interaction Monograph'
129	TabOrder = 6
130	OnClick = cmdMonographClick
131	end
132	end
133	object pnlTop: TORAutoPanel [1]
134	Left = 0
135	Top = 0
136	Width = 706
137	Height = 346
138	Align = alTop
139	BevelEdges = []
140	BevelOuter = bvNone
141	TabOrder = 1
142	DesignSize = (
143	706
144	346)
145	object lblHover: TLabel
146	Left = 16
147	Top = 32
148	Width = 445
149	Height = 13
150	Caption =
151	'If the order check description is cut short, hover over the text' +
152	' to view the complete description.'
153	end
154	object grdchecks: TCaptionStringGrid
155	Left = 16
156	Top = 64
157	Width = 682
158	Height = 279
159	Margins.Top = 0
160	Anchors = [akLeft, akBottom]
161	ColCount = 3
162	DefaultDrawing = False
163	FixedColor = clBtnShadow
164	FixedCols = 0
165	RowCount = 2
166	Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goRowMoving, goTabs]
167	ScrollBars = ssVertical
168	TabOrder = 1
169	OnDrawCell = grdchecksDrawCell
170	OnEnter = grdchecksEnter
171	OnKeyDown = grdchecksKeyDown
172	OnMouseDown = grdchecksMouseDown
173	OnMouseMove = grdchecksMouseMove
174	OnMouseWheelDown = grdchecksMouseWheelDown
175	OnMouseWheelUp = grdchecksMouseWheelUp
176	OnSelectCell = grdchecksSelectCell
177	JustToTab = True
178	end
179	object lblInstr: TVA508StaticText
180	Name = 'lblInstr'
181	Left = 0
182	Top = 12
183	Width = 641
184	Height = 15
185	Margins.Bottom = 0
186	Alignment = taLeftJustify
187	AutoSize = True
188	Caption =
189	'To cancel an order select the order by checking the checkbox and' +
190	' press the "Cancel Checked Order(s)" button.'
191	Font.Charset = DEFAULT_CHARSET
192	Font.Color = clWindowText
193	Font.Height = -11
194	Font.Name = 'MS Sans Serif'
195	Font.Style = [fsBold]
196	ParentFont = False
197	TabOrder = 0
198	TabStop = True
199	ShowAccelChar = True
200	end
201	end
202	inherited amgrMain: TVA508AccessibilityManager
203	Data = (
204	(
205	'Component = pnlBottom'
206	'Status = stsDefault')
207	(
208	'Component = txtJustify'
209	'Status = stsDefault')
210	(
211	'Component = cmdCancelOrder'
212	'Status = stsDefault')
213	(
214	'Component = cmdContinue'
215	'Status = stsDefault')
216	(
217	'Component = btnReturn'
218	'Status = stsDefault')
219	(
220	'Component = memNote'
221	'Status = stsDefault')
222	(
223	'Component = frmOCSession'
224	'Status = stsDefault')
225	(
226	'Component = cmdMonograph'
227	'Status = stsDefault')
228	(
229	'Component = grdchecks'
230	'Status = stsDefault')
231	(
232	'Component = pnlTop'
233	'Status = stsDefault'))
234	end
235	end

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

Download in other formats:

Original Format