source: cprs/branches/tmg-cprs/CPRS-Chart/Options/fOptionsTeams.dfm@ 1623

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

update

File size: 6.0 KB
RevLine 
[453]1object frmOptionsTeams: TfrmOptionsTeams
[793]2 Left = 632
[453]3 Top = 96
4 HelpContext = 9090
5 BorderIcons = [biSystemMenu, biHelp]
6 BorderStyle = bsDialog
7 Caption = 'Team Information'
8 ClientHeight = 369
9 ClientWidth = 384
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 PixelsPerInch = 96
21 TextHeight = 13
22 object lblTeams: TLabel
23 Left = 10
24 Top = 70
25 Width = 115
26 Height = 13
27 Caption = 'You are on these teams:'
28 end
29 object lblPatients: TLabel
30 Left = 200
31 Top = 70
32 Width = 130
33 Height = 13
34 Caption = 'Patients on selected teams:'
35 end
36 object lblTeamMembers: TLabel
37 Left = 200
38 Top = 214
39 Width = 75
40 Height = 13
41 Caption = 'Team members:'
42 end
43 object lblSubscribe: TLabel
44 Left = 8
45 Top = 270
46 Width = 97
47 Height = 13
48 Caption = 'Subscribe to a team:'
49 end
50 object lblInfo: TMemo
51 Left = 8
52 Top = 8
53 Width = 369
54 Height = 33
55 TabStop = False
56 BorderStyle = bsNone
57 Color = clBtnFace
58 Lines.Strings = (
59
60 'View team information by selecting teams. You can subscribe or r' +
61 'emove '
62 'yourself from teams.')
63 ReadOnly = True
64 TabOrder = 8
65 end
66 object pnlBottom: TPanel
67 Left = 0
68 Top = 336
69 Width = 384
70 Height = 33
71 HelpContext = 9090
72 Align = alBottom
73 BevelOuter = bvNone
74 ParentColor = True
75 TabOrder = 7
76 object bvlBottom: TBevel
77 Left = 0
78 Top = 0
79 Width = 384
80 Height = 2
81 Align = alTop
82 end
83 object btnClose: TButton
84 Left = 301
85 Top = 8
86 Width = 75
87 Height = 22
88 HelpContext = 9998
89 Cancel = True
90 Caption = 'Close'
91 ModalResult = 2
92 TabOrder = 0
93 end
94 end
95 object lstPatients: TORListBox
96 Left = 200
97 Top = 86
98 Width = 175
99 Height = 121
100 HelpContext = 9091
101 ItemHeight = 13
102 ParentShowHint = False
103 PopupMenu = mnuPopPatient
104 ShowHint = True
105 Sorted = True
106 TabOrder = 5
107 OnMouseDown = lstPatientsMouseDown
108 Caption = 'Patients on selected teams'
109 ItemTipColor = clWindow
110 LongList = False
111 Pieces = '2'
112 end
113 object lstTeams: TORListBox
114 Left = 10
115 Top = 86
116 Width = 175
117 Height = 145
118 HelpContext = 9092
119 ItemHeight = 13
120 MultiSelect = True
121 ParentShowHint = False
122 ShowHint = True
123 Sorted = True
124 TabOrder = 2
125 OnClick = lstTeamsClick
126 Caption = 'You are on these teams'
127 ItemTipColor = clWindow
128 LongList = False
129 Pieces = '2'
130 end
131 object lstUsers: TORListBox
132 Left = 200
133 Top = 230
134 Width = 175
135 Height = 97
136 HelpContext = 9093
137 ItemHeight = 13
138 ParentShowHint = False
139 ShowHint = True
140 Sorted = True
141 TabOrder = 6
142 Caption = 'Team members'
143 ItemTipColor = clWindow
144 LongList = False
145 Pieces = '2'
146 end
147 object btnRemove: TButton
148 Left = 10
149 Top = 241
150 Width = 175
151 Height = 22
152 HelpContext = 9094
153 Caption = 'Remove yourself from this team'
154 Enabled = False
155 Font.Charset = DEFAULT_CHARSET
156 Font.Color = clWindowText
157 Font.Height = -11
158 Font.Name = 'MS Sans Serif'
159 Font.Style = []
160 ParentFont = False
161 TabOrder = 3
162 OnClick = btnRemoveClick
163 end
164 object chkPersonal: TCheckBox
165 Left = 10
166 Top = 40
167 Width = 175
168 Height = 17
169 HelpContext = 9096
170 Caption = 'Include personal lists'
171 TabOrder = 0
172 OnClick = chkPersonalClick
173 end
174 object chkRestrict: TCheckBox
175 Left = 200
176 Top = 40
177 Width = 185
178 Height = 17
179 HelpContext = 9097
180 Caption = 'View only common members'
181 Enabled = False
182 TabOrder = 1
183 Visible = False
184 OnClick = chkRestrictClick
185 end
186 object cboSubscribe: TORComboBox
187 Left = 12
188 Top = 287
189 Width = 175
190 Height = 21
191 HelpContext = 9095
192 Style = orcsDropDown
193 AutoSelect = True
194 Caption = 'Subscribe to a team'
195 Color = clWindow
196 DropDownCount = 8
197 ItemHeight = 13
198 ItemTipColor = clWindow
199 ItemTipEnable = True
200 ListItemsOnly = False
201 LongList = False
202 LookupPiece = 0
203 MaxLength = 0
204 Pieces = '2'
205 Sorted = True
206 SynonymChars = '<>'
207 TabOrder = 4
208 OnClick = cboSubscribeClick
209 OnKeyDown = cboSubscribeKeyDown
210 OnMouseClick = cboSubscribeMouseClick
211 CharsNeedMatch = 1
212 end
213 object mnuPopPatient: TPopupMenu
214 Top = 336
215 object mnuPatientID: TMenuItem
216 Caption = 'Patient ID...'
217 OnClick = mnuPatientIDClick
218 end
219 end
220 object DKLanguageController1: TDKLanguageController
221 Left = 184
222 Top = 184
223 LangData = {
224 0F0066726D4F7074696F6E735465616D73010200000001000000070043617074
225 696F6E02000000080048656C7046696C65011100000008006C626C5465616D73
226 010100000003000000070043617074696F6E000B006C626C50617469656E7473
227 010100000004000000070043617074696F6E000E006C626C5465616D4D656D62
228 657273010100000005000000070043617074696F6E000C006C626C5375627363
229 72696265010100000006000000070043617074696F6E0007006C626C496E666F
230 01010000000700000005004C696E6573000900706E6C426F74746F6D00000900
231 62766C426F74746F6D0000080062746E436C6F73650101000000080000000700
232 43617074696F6E000B006C737450617469656E74730101000000090000000700
233 43617074696F6E0008006C73745465616D7301010000000A0000000700436170
234 74696F6E0008006C7374557365727301010000000B000000070043617074696F
235 6E00090062746E52656D6F766501010000000C000000070043617074696F6E00
236 0B0063686B506572736F6E616C01010000000D000000070043617074696F6E00
237 0B0063686B526573747269637401010000000E000000070043617074696F6E00
238 0C0063626F53756273637269626501010000000F000000070043617074696F6E
239 000D006D6E75506F7050617469656E7400000C006D6E7550617469656E744944
240 010100000010000000070043617074696F6E00}
241 end
242end
Note: See TracBrowser for help on using the repository browser.