source: cprs/branches/foia-cprs/CPRS-Chart/Options/fOptionsCombinations.dfm

Last change on this file was 459, checked in by Kevin Toppenberg, 16 years ago

Adding foia-cprs branch

File size: 4.4 KB
Line 
1object frmOptionsCombinations: TfrmOptionsCombinations
2 Left = 366
3 Top = 189
4 HelpContext = 9120
5 BorderIcons = [biSystemMenu, biHelp]
6 BorderStyle = bsSingle
7 Caption = 'Source Combinations'
8 ClientHeight = 306
9 ClientWidth = 407
10 Color = clBtnFace
11 Font.Charset = DEFAULT_CHARSET
12 Font.Color = clWindowText
13 Font.Height = -11
14 Font.Name = 'MS Sans Serif'
15 Font.Style = []
16 HelpFile = 'CPRSWT.HLP'
17 OldCreateOrder = False
18 Position = poScreenCenter
19 OnCreate = FormCreate
20 OnShow = FormShow
21 PixelsPerInch = 96
22 TextHeight = 13
23 object lblAddby: TLabel
24 Left = 7
25 Top = 97
26 Width = 29
27 Height = 13
28 Caption = 'Ward:'
29 end
30 object lblCombinations: TLabel
31 Left = 224
32 Top = 97
33 Width = 66
34 Height = 13
35 Caption = 'Combinations:'
36 end
37 object lblInfo: TMemo
38 Left = 183
39 Top = 16
40 Width = 218
41 Height = 81
42 TabStop = False
43 BorderStyle = bsNone
44 Color = clBtnFace
45 Lines.Strings = (
46 'You can change your combinations by adding '
47 'or removing specific wards, clinics, providers, '
48 'specialties, or lists. Patients meeting this '
49 'criteria can be used for patient selection.')
50 ReadOnly = True
51 TabOrder = 6
52 end
53 object radAddByType: TRadioGroup
54 Left = 7
55 Top = 8
56 Width = 153
57 Height = 86
58 HelpContext = 9121
59 Caption = 'Select source by '
60 Columns = 2
61 ItemIndex = 0
62 Items.Strings = (
63 '&Ward'
64 '&Clinic'
65 '&Provider'
66 '&Specialty'
67 '&List')
68 TabOrder = 0
69 OnClick = radAddByTypeClick
70 end
71 object lstAddBy: TORComboBox
72 Left = 7
73 Top = 112
74 Width = 153
75 Height = 153
76 HelpContext = 9122
77 Style = orcsSimple
78 AutoSelect = True
79 Caption = 'Ward'
80 Color = clWindow
81 DropDownCount = 8
82 ItemHeight = 13
83 ItemTipColor = clWindow
84 ItemTipEnable = True
85 ListItemsOnly = False
86 LongList = False
87 MaxLength = 0
88 Pieces = '2'
89 Sorted = True
90 SynonymChars = '<>'
91 TabOrder = 1
92 OnChange = lstAddByChange
93 OnDblClick = btnAddClick
94 OnEnter = lstAddByEnter
95 OnExit = lstAddByExit
96 OnKeyUp = lstAddByKeyUp
97 OnNeedData = lstAddByNeedData
98 end
99 object btnAdd: TButton
100 Left = 166
101 Top = 145
102 Width = 50
103 Height = 22
104 HelpContext = 9124
105 Caption = 'Add'
106 Enabled = False
107 Font.Charset = DEFAULT_CHARSET
108 Font.Color = clWindowText
109 Font.Height = -11
110 Font.Name = 'MS Sans Serif'
111 Font.Style = []
112 ParentFont = False
113 TabOrder = 2
114 OnClick = btnAddClick
115 end
116 object btnRemove: TButton
117 Left = 165
118 Top = 218
119 Width = 50
120 Height = 22
121 HelpContext = 9125
122 Caption = 'Remove'
123 Enabled = False
124 Font.Charset = DEFAULT_CHARSET
125 Font.Color = clWindowText
126 Font.Height = -11
127 Font.Name = 'MS Sans Serif'
128 Font.Style = []
129 ParentFont = False
130 TabOrder = 3
131 OnClick = btnRemoveClick
132 end
133 object pnlBottom: TPanel
134 Left = 0
135 Top = 273
136 Width = 407
137 Height = 33
138 HelpContext = 9120
139 Align = alBottom
140 BevelOuter = bvNone
141 ParentColor = True
142 TabOrder = 5
143 object bvlBottom: TBevel
144 Left = 0
145 Top = 0
146 Width = 407
147 Height = 2
148 Align = alTop
149 end
150 object btnOK: TButton
151 Left = 245
152 Top = 8
153 Width = 75
154 Height = 22
155 HelpContext = 9996
156 Caption = 'OK'
157 Default = True
158 ModalResult = 1
159 TabOrder = 0
160 OnClick = btnOKClick
161 end
162 object btnCancel: TButton
163 Left = 325
164 Top = 8
165 Width = 75
166 Height = 22
167 HelpContext = 9997
168 Cancel = True
169 Caption = 'Cancel'
170 ModalResult = 2
171 TabOrder = 1
172 end
173 end
174 object lvwCombinations: TCaptionListView
175 Left = 224
176 Top = 112
177 Width = 177
178 Height = 150
179 HelpContext = 9123
180 Columns = <
181 item
182 Caption = 'Entry'
183 Width = 100
184 end
185 item
186 Caption = 'Source'
187 Width = 72
188 end>
189 MultiSelect = True
190 ReadOnly = True
191 RowSelect = True
192 SortType = stBoth
193 TabOrder = 4
194 ViewStyle = vsReport
195 OnChange = lvwCombinationsChange
196 OnColumnClick = lvwCombinationsColumnClick
197 OnCompare = lvwCombinationsCompare
198 OnDblClick = btnRemoveClick
199 Caption = 'Combinations'
200 end
201end
Note: See TracBrowser for help on using the repository browser.