source: cprs/branches/tmg-cprs/CPRS-Chart/Consults/fConsultsView.dfm@ 793

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

Initial upload of TMG-CPRS 1.0.26.69
File size: 5.7 KB
Line 
1object frmConsultsView: TfrmConsultsView
2 Left = 320
3 Top = 172
4 Width = 414
5 Height = 400
6 BorderIcons = []
7 Caption = 'List Selected Consults'
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 OldCreateOrder = True
15 Position = poScreenCenter
16 PixelsPerInch = 96
17 TextHeight = 13
18 object pnlBase: TORAutoPanel
19 Left = 0
20 Top = 0
21 Width = 406
22 Height = 366
23 Align = alClient
24 BevelOuter = bvNone
25 TabOrder = 0
26 object lblBeginDate: TLabel
27 Left = 239
28 Top = 128
29 Width = 73
30 Height = 13
31 Caption = 'Beginning Date'
32 end
33 object lblEndDate: TLabel
34 Left = 239
35 Top = 173
36 Width = 59
37 Height = 13
38 Caption = 'Ending Date'
39 end
40 object lblService: TLabel
41 Left = 8
42 Top = 9
43 Width = 36
44 Height = 13
45 Caption = 'Service'
46 end
47 object lblStatus: TLabel
48 Left = 239
49 Top = 10
50 Width = 30
51 Height = 13
52 Caption = 'Status'
53 end
54 object Label1: TLabel
55 Left = 239
56 Top = 217
57 Width = 44
58 Height = 13
59 Caption = 'Group By'
60 end
61 object calBeginDate: TORDateBox
62 Left = 239
63 Top = 142
64 Width = 155
65 Height = 21
66 TabOrder = 3
67 DateOnly = False
68 RequireTime = False
69 Caption = 'Beginning Date'
70 end
71 object calEndDate: TORDateBox
72 Left = 239
73 Top = 187
74 Width = 155
75 Height = 21
76 TabOrder = 4
77 DateOnly = False
78 RequireTime = False
79 Caption = 'Ending Date'
80 end
81 object lstStatus: TORListBox
82 Left = 239
83 Top = 24
84 Width = 156
85 Height = 96
86 ItemHeight = 13
87 MultiSelect = True
88 ParentShowHint = False
89 PopupMenu = popStatus
90 ShowHint = True
91 TabOrder = 2
92 Caption = 'Status'
93 ItemTipColor = clWindow
94 LongList = False
95 Pieces = '2'
96 end
97 object radSort: TRadioGroup
98 Left = 239
99 Top = 266
100 Width = 155
101 Height = 64
102 Caption = 'Sort Order'
103 Items.Strings = (
104 '&Ascending (oldest first)'
105 '&Descending (newest first)')
106 TabOrder = 6
107 end
108 object cmdOK: TButton
109 Left = 239
110 Top = 340
111 Width = 72
112 Height = 21
113 Caption = 'OK'
114 Default = True
115 TabOrder = 7
116 OnClick = cmdOKClick
117 end
118 object cmdCancel: TButton
119 Left = 324
120 Top = 340
121 Width = 72
122 Height = 21
123 Cancel = True
124 Caption = 'Cancel'
125 TabOrder = 8
126 OnClick = cmdCancelClick
127 end
128 object treService: TORTreeView
129 Left = 8
130 Top = 57
131 Width = 214
132 Height = 304
133 HideSelection = False
134 Indent = 19
135 ReadOnly = True
136 TabOrder = 1
137 OnChange = treServiceChange
138 Caption = 'Service'
139 NodePiece = 0
140 end
141 object cboService: TORComboBox
142 Left = 8
143 Top = 27
144 Width = 214
145 Height = 21
146 Style = orcsDropDown
147 AutoSelect = True
148 Caption = 'Service'
149 Color = clWindow
150 DropDownCount = 8
151 ItemHeight = 13
152 ItemTipColor = clWindow
153 ItemTipEnable = True
154 ListItemsOnly = True
155 LongList = False
156 LookupPiece = 0
157 MaxLength = 0
158 Pieces = '2'
159 Sorted = True
160 SynonymChars = '<>'
161 TabOrder = 0
162 OnKeyPause = cboServiceSelect
163 OnMouseClick = cboServiceSelect
164 CharsNeedMatch = 1
165 end
166 object cboGroupBy: TORComboBox
167 Left = 239
168 Top = 230
169 Width = 155
170 Height = 21
171 Style = orcsDropDown
172 AutoSelect = True
173 Caption = 'Group By'
174 Color = clWindow
175 DropDownCount = 8
176 Items.Strings = (
177 '^(none)'
178 'T^Consults/Procedures'
179 'V^Service'
180 'S^Status')
181 ItemHeight = 13
182 ItemTipColor = clWindow
183 ItemTipEnable = True
184 ListItemsOnly = False
185 LongList = False
186 LookupPiece = 0
187 MaxLength = 0
188 Pieces = '2'
189 Sorted = False
190 SynonymChars = '<>'
191 TabOrder = 5
192 CharsNeedMatch = 1
193 end
194 end
195 object popStatus: TPopupMenu
196 Left = 284
197 Top = 51
198 object popStatusSelectNone: TMenuItem
199 Caption = 'Select None'
200 OnClick = popStatusSelectNoneClick
201 end
202 end
203 object DKLanguageController1: TDKLanguageController
204 Left = 216
205 Top = 16
206 LangData = {
207 0F0066726D436F6E73756C747356696577010100000001000000070043617074
208 696F6E01110000000700706E6C4261736500000C006C626C426567696E446174
209 65010100000002000000070043617074696F6E000A006C626C456E6444617465
210 010100000003000000070043617074696F6E000A006C626C5365727669636501
211 0100000004000000070043617074696F6E0009006C626C537461747573010100
212 000005000000070043617074696F6E0006004C6162656C310101000000060000
213 00070043617074696F6E000C0063616C426567696E4461746501010000000700
214 0000070043617074696F6E000A0063616C456E64446174650101000000080000
215 00070043617074696F6E0009006C737453746174757301010000000900000007
216 0043617074696F6E000700726164536F727401020000000A0000000700436170
217 74696F6E0B00000005004974656D73000500636D644F4B01010000000C000000
218 070043617074696F6E000900636D6443616E63656C01010000000D0000000700
219 43617074696F6E000A007472655365727669636501010000000E000000070043
220 617074696F6E000A0063626F5365727669636501010000000F00000007004361
221 7074696F6E000A0063626F47726F757042790102000000100000000700436170
222 74696F6E1100000005004974656D73000900706F705374617475730000130070
223 6F7053746174757353656C6563744E6F6E650101000000120000000700436170
224 74696F6E00}
225 end
226end
Note: See TracBrowser for help on using the repository browser.