VistA-cprs/CPRS-Chart/Options/fOptionsSurrogate.dfm

206 lines
4.7 KiB
Plaintext

inherited frmOptionsSurrogate: TfrmOptionsSurrogate
Left = 232
Top = 107
HelpContext = 9100
BorderIcons = [biSystemMenu, biHelp]
BorderStyle = bsDialog
Caption = 'Surrogate for Notifications'
ClientHeight = 136
ClientWidth = 313
HelpFile = 'CPRSWT.HLP'
OnShow = FormShow
ExplicitLeft = 232
ExplicitTop = 107
PixelsPerInch = 96
TextHeight = 13
object lblSurrogate: TLabel [0]
Left = 7
Top = 51
Width = 49
Height = 13
Caption = 'Surrogate:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lblSurrogateText: TStaticText [1]
Left = 157
Top = 4
Width = 81
Height = 17
Caption = 'lblSurrogateText'
TabOrder = 4
end
object lblStart: TStaticText [2]
Left = 157
Top = 24
Width = 36
Height = 17
Caption = 'lblStart'
TabOrder = 5
end
object lblStop: TStaticText [3]
Left = 157
Top = 44
Width = 36
Height = 17
Caption = 'lblStop'
TabOrder = 6
end
object cboSurrogate: TORComboBox [4]
Left = 7
Top = 66
Width = 145
Height = 21
HelpContext = 9102
Style = orcsDropDown
AutoSelect = True
Caption = 'Surrogate'
Color = clWindow
DropDownCount = 8
ItemHeight = 13
ItemTipColor = clWindow
ItemTipEnable = True
ListItemsOnly = True
LongList = True
LookupPiece = 2
MaxLength = 0
Pieces = '2,3'
Sorted = False
SynonymChars = '<>'
TabOrder = 0
OnChange = cboSurrogateChange
OnExit = cboSurrogateChange
OnKeyDown = cboSurrogateKeyDown
OnNeedData = cboSurrogateNeedData
CharsNeedMatch = 1
end
object btnSurrogateDateRange: TButton [5]
Left = 157
Top = 66
Width = 145
Height = 22
HelpContext = 9103
Caption = 'Surrogate Date Range...'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = btnSurrogateDateRangeClick
end
object btnRemove: TButton [6]
Left = 7
Top = 20
Width = 145
Height = 22
HelpContext = 9101
Caption = 'Remove Surrogate'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = btnRemoveClick
end
object pnlBottom: TPanel [7]
Left = 0
Top = 103
Width = 313
Height = 33
HelpContext = 9100
Align = alBottom
BevelOuter = bvNone
ParentColor = True
TabOrder = 2
DesignSize = (
313
33)
object bvlBottom: TBevel
Left = 0
Top = 0
Width = 313
Height = 2
Align = alTop
end
object btnCancel: TButton
Left = 229
Top = 8
Width = 75
Height = 22
HelpContext = 9997
Anchors = [akTop, akRight]
Cancel = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 1
end
object btnOK: TButton
Left = 149
Top = 8
Width = 75
Height = 22
HelpContext = 9996
Anchors = [akTop, akRight]
Caption = 'OK'
Default = True
ModalResult = 1
TabOrder = 0
OnClick = btnOKClick
end
end
inherited amgrMain: TVA508AccessibilityManager
Data = (
(
'Component = lblSurrogateText'
'Status = stsDefault')
(
'Component = lblStart'
'Status = stsDefault')
(
'Component = lblStop'
'Status = stsDefault')
(
'Component = cboSurrogate'
'Status = stsDefault')
(
'Component = btnSurrogateDateRange'
'Status = stsDefault')
(
'Component = btnRemove'
'Status = stsDefault')
(
'Component = pnlBottom'
'Status = stsDefault')
(
'Component = btnCancel'
'Status = stsDefault')
(
'Component = btnOK'
'Status = stsDefault')
(
'Component = frmOptionsSurrogate'
'Status = stsDefault'))
end
object dlgSurrogateDateRange: TORDateRangeDlg
DateOnly = False
Instruction =
'Enter a date range to begin and end when this will be in effect.' +
' Otherwise it will always be in effect.'
LabelStart = 'Start Date'
LabelStop = 'Stop Date'
RequireTime = False
Format = 'mmm d,yy@hh:nn'
TextOfStop = 'Jun 6,99@12:45'
Left = 265
Top = 4
end
end