source: cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptionsCombinations.dfm@ 1802

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

Initial upload of TMG-CPRS 1.0.26.69

File size: 5.5 KB
RevLine 
[453]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 LookupPiece = 0
88 MaxLength = 0
89 Pieces = '2'
90 Sorted = True
91 SynonymChars = '<>'
92 TabOrder = 1
93 OnChange = lstAddByChange
94 OnDblClick = btnAddClick
95 OnEnter = lstAddByEnter
96 OnExit = lstAddByExit
97 OnKeyUp = lstAddByKeyUp
98 OnNeedData = lstAddByNeedData
99 CharsNeedMatch = 1
100 end
101 object btnAdd: TButton
102 Left = 166
103 Top = 145
104 Width = 50
105 Height = 22
106 HelpContext = 9124
107 Caption = 'Add'
108 Enabled = False
109 Font.Charset = DEFAULT_CHARSET
110 Font.Color = clWindowText
111 Font.Height = -11
112 Font.Name = 'MS Sans Serif'
113 Font.Style = []
114 ParentFont = False
115 TabOrder = 2
116 OnClick = btnAddClick
117 end
118 object btnRemove: TButton
119 Left = 165
120 Top = 218
121 Width = 50
122 Height = 22
123 HelpContext = 9125
124 Caption = 'Remove'
125 Enabled = False
126 Font.Charset = DEFAULT_CHARSET
127 Font.Color = clWindowText
128 Font.Height = -11
129 Font.Name = 'MS Sans Serif'
130 Font.Style = []
131 ParentFont = False
132 TabOrder = 3
133 OnClick = btnRemoveClick
134 end
135 object pnlBottom: TPanel
136 Left = 0
137 Top = 273
138 Width = 407
139 Height = 33
140 HelpContext = 9120
141 Align = alBottom
142 BevelOuter = bvNone
143 ParentColor = True
144 TabOrder = 5
145 object bvlBottom: TBevel
146 Left = 0
147 Top = 0
148 Width = 407
149 Height = 2
150 Align = alTop
151 end
152 object btnOK: TButton
153 Left = 245
154 Top = 8
155 Width = 75
156 Height = 22
157 HelpContext = 9996
158 Caption = 'OK'
159 Default = True
160 ModalResult = 1
161 TabOrder = 0
162 OnClick = btnOKClick
163 end
164 object btnCancel: TButton
165 Left = 325
166 Top = 8
167 Width = 75
168 Height = 22
169 HelpContext = 9997
170 Cancel = True
171 Caption = 'Cancel'
172 ModalResult = 2
173 TabOrder = 1
174 end
175 end
176 object lvwCombinations: TCaptionListView
177 Left = 224
178 Top = 112
179 Width = 177
180 Height = 150
181 HelpContext = 9123
182 Columns = <
183 item
184 Caption = 'Entry'
185 Width = 100
186 end
187 item
188 Caption = 'Source'
189 Width = 72
190 end>
191 MultiSelect = True
192 ReadOnly = True
193 RowSelect = True
194 SortType = stBoth
195 TabOrder = 4
196 ViewStyle = vsReport
197 OnChange = lvwCombinationsChange
198 OnColumnClick = lvwCombinationsColumnClick
199 OnCompare = lvwCombinationsCompare
200 OnDblClick = btnRemoveClick
201 Caption = 'Combinations'
202 end
203 object DKLanguageController1: TDKLanguageController
204 Left = 192
205 Top = 160
206 LangData = {
207 160066726D4F7074696F6E73436F6D62696E6174696F6E730102000000010000
208 00070043617074696F6E02000000080048656C7046696C65010C00000008006C
209 626C4164646279010100000003000000070043617074696F6E000F006C626C43
210 6F6D62696E6174696F6E73010100000004000000070043617074696F6E000700
211 6C626C496E666F01010000000500000005004C696E6573000C00726164416464
212 427954797065010200000006000000070043617074696F6E0700000005004974
213 656D730008006C73744164644279010100000008000000070043617074696F6E
214 00060062746E416464010100000009000000070043617074696F6E0009006274
215 6E52656D6F766501010000000A000000070043617074696F6E000900706E6C42
216 6F74746F6D0000090062766C426F74746F6D0000050062746E4F4B0101000000
217 0B000000070043617074696F6E00090062746E43616E63656C01010000000C00
218 0000070043617074696F6E000F006C7677436F6D62696E6174696F6E73010300
219 00000F000000070043617074696F6E0D0000001200436F6C756D6E735B305D2E
220 43617074696F6E0E0000001200436F6C756D6E735B315D2E43617074696F6E00}
221 end
222end
Note: See TracBrowser for help on using the repository browser.