source: cprs/trunk/CPRS-Chart/Consults/fConsultsView.dfm@ 1245

Last change on this file since 1245 was 829, checked in by Kevin Toppenberg, 14 years ago

Upgrade to version 27

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