source: cprs/branches/HealthSevak-CPRS/CPRS-Chart/Options/fOptionsSurrogate.dfm@ 1763

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

Upgrade to version 27

File size: 4.7 KB
Line 
1inherited frmOptionsSurrogate: TfrmOptionsSurrogate
2 Left = 232
3 Top = 107
4 HelpContext = 9100
5 BorderIcons = [biSystemMenu, biHelp]
6 BorderStyle = bsDialog
7 Caption = 'Surrogate for Notifications'
8 ClientHeight = 136
9 ClientWidth = 313
10 HelpFile = 'CPRSWT.HLP'
11 OnShow = FormShow
12 ExplicitLeft = 232
13 ExplicitTop = 107
14 PixelsPerInch = 96
15 TextHeight = 13
16 object lblSurrogate: TLabel [0]
17 Left = 7
18 Top = 51
19 Width = 49
20 Height = 13
21 Caption = 'Surrogate:'
22 Font.Charset = DEFAULT_CHARSET
23 Font.Color = clWindowText
24 Font.Height = -11
25 Font.Name = 'MS Sans Serif'
26 Font.Style = []
27 ParentFont = False
28 end
29 object lblSurrogateText: TStaticText [1]
30 Left = 157
31 Top = 4
32 Width = 81
33 Height = 17
34 Caption = 'lblSurrogateText'
35 TabOrder = 4
36 end
37 object lblStart: TStaticText [2]
38 Left = 157
39 Top = 24
40 Width = 36
41 Height = 17
42 Caption = 'lblStart'
43 TabOrder = 5
44 end
45 object lblStop: TStaticText [3]
46 Left = 157
47 Top = 44
48 Width = 36
49 Height = 17
50 Caption = 'lblStop'
51 TabOrder = 6
52 end
53 object cboSurrogate: TORComboBox [4]
54 Left = 7
55 Top = 66
56 Width = 145
57 Height = 21
58 HelpContext = 9102
59 Style = orcsDropDown
60 AutoSelect = True
61 Caption = 'Surrogate'
62 Color = clWindow
63 DropDownCount = 8
64 ItemHeight = 13
65 ItemTipColor = clWindow
66 ItemTipEnable = True
67 ListItemsOnly = True
68 LongList = True
69 LookupPiece = 2
70 MaxLength = 0
71 Pieces = '2,3'
72 Sorted = False
73 SynonymChars = '<>'
74 TabOrder = 0
75 OnChange = cboSurrogateChange
76 OnExit = cboSurrogateChange
77 OnKeyDown = cboSurrogateKeyDown
78 OnNeedData = cboSurrogateNeedData
79 CharsNeedMatch = 1
80 end
81 object btnSurrogateDateRange: TButton [5]
82 Left = 157
83 Top = 66
84 Width = 145
85 Height = 22
86 HelpContext = 9103
87 Caption = 'Surrogate Date Range...'
88 Font.Charset = DEFAULT_CHARSET
89 Font.Color = clWindowText
90 Font.Height = -11
91 Font.Name = 'MS Sans Serif'
92 Font.Style = []
93 ParentFont = False
94 TabOrder = 1
95 OnClick = btnSurrogateDateRangeClick
96 end
97 object btnRemove: TButton [6]
98 Left = 7
99 Top = 20
100 Width = 145
101 Height = 22
102 HelpContext = 9101
103 Caption = 'Remove Surrogate'
104 Font.Charset = DEFAULT_CHARSET
105 Font.Color = clWindowText
106 Font.Height = -11
107 Font.Name = 'MS Sans Serif'
108 Font.Style = []
109 ParentFont = False
110 TabOrder = 3
111 OnClick = btnRemoveClick
112 end
113 object pnlBottom: TPanel [7]
114 Left = 0
115 Top = 103
116 Width = 313
117 Height = 33
118 HelpContext = 9100
119 Align = alBottom
120 BevelOuter = bvNone
121 ParentColor = True
122 TabOrder = 2
123 DesignSize = (
124 313
125 33)
126 object bvlBottom: TBevel
127 Left = 0
128 Top = 0
129 Width = 313
130 Height = 2
131 Align = alTop
132 end
133 object btnCancel: TButton
134 Left = 229
135 Top = 8
136 Width = 75
137 Height = 22
138 HelpContext = 9997
139 Anchors = [akTop, akRight]
140 Cancel = True
141 Caption = 'Cancel'
142 ModalResult = 2
143 TabOrder = 1
144 end
145 object btnOK: TButton
146 Left = 149
147 Top = 8
148 Width = 75
149 Height = 22
150 HelpContext = 9996
151 Anchors = [akTop, akRight]
152 Caption = 'OK'
153 Default = True
154 ModalResult = 1
155 TabOrder = 0
156 OnClick = btnOKClick
157 end
158 end
159 inherited amgrMain: TVA508AccessibilityManager
160 Data = (
161 (
162 'Component = lblSurrogateText'
163 'Status = stsDefault')
164 (
165 'Component = lblStart'
166 'Status = stsDefault')
167 (
168 'Component = lblStop'
169 'Status = stsDefault')
170 (
171 'Component = cboSurrogate'
172 'Status = stsDefault')
173 (
174 'Component = btnSurrogateDateRange'
175 'Status = stsDefault')
176 (
177 'Component = btnRemove'
178 'Status = stsDefault')
179 (
180 'Component = pnlBottom'
181 'Status = stsDefault')
182 (
183 'Component = btnCancel'
184 'Status = stsDefault')
185 (
186 'Component = btnOK'
187 'Status = stsDefault')
188 (
189 'Component = frmOptionsSurrogate'
190 'Status = stsDefault'))
191 end
192 object dlgSurrogateDateRange: TORDateRangeDlg
193 DateOnly = False
194 Instruction =
195 'Enter a date range to begin and end when this will be in effect.' +
196 ' Otherwise it will always be in effect.'
197 LabelStart = 'Start Date'
198 LabelStop = 'Stop Date'
199 RequireTime = False
200 Format = 'mmm d,yy@hh:nn'
201 TextOfStop = 'Jun 6,99@12:45'
202 Left = 265
203 Top = 4
204 end
205end
Note: See TracBrowser for help on using the repository browser.