123 lines
2.6 KiB
Plaintext
123 lines
2.6 KiB
Plaintext
inherited frmOptionsNewList: TfrmOptionsNewList
|
|
Left = 623
|
|
Top = 446
|
|
HelpContext = 9085
|
|
BorderIcons = [biSystemMenu, biHelp]
|
|
BorderStyle = bsDialog
|
|
Caption = 'New Personal List'
|
|
ClientHeight = 234
|
|
ClientWidth = 173
|
|
Font.Name = 'Tahoma'
|
|
HelpFile = 'CPRSWT.HLP'
|
|
OldCreateOrder = True
|
|
Position = poScreenCenter
|
|
OnCreate = FormCreate
|
|
ExplicitLeft = 623
|
|
ExplicitTop = 446
|
|
ExplicitWidth = 181
|
|
ExplicitHeight = 261
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object lblEnter: TLabel [0]
|
|
Left = 10
|
|
Top = 8
|
|
Width = 96
|
|
Height = 13
|
|
Caption = 'Enter the name of a'
|
|
end
|
|
object lblNew: TLabel [1]
|
|
Left = 10
|
|
Top = 24
|
|
Width = 84
|
|
Height = 13
|
|
Caption = 'new personal list.'
|
|
end
|
|
object Label1: TLabel [2]
|
|
Left = 11
|
|
Top = 80
|
|
Width = 156
|
|
Height = 33
|
|
AutoSize = False
|
|
Caption = 'Who should be able to see and use this list?'
|
|
WordWrap = True
|
|
end
|
|
object pnlBottom: TPanel [3]
|
|
Left = 0
|
|
Top = 200
|
|
Width = 173
|
|
Height = 34
|
|
HelpContext = 9085
|
|
Align = alBottom
|
|
BevelOuter = bvNone
|
|
ParentColor = True
|
|
TabOrder = 2
|
|
object btnOK: TButton
|
|
Left = 11
|
|
Top = 7
|
|
Width = 75
|
|
Height = 22
|
|
HelpContext = 9997
|
|
Caption = 'OK'
|
|
Default = True
|
|
Enabled = False
|
|
TabOrder = 0
|
|
OnClick = btnOKClick
|
|
end
|
|
object btnCancel: TButton
|
|
Left = 91
|
|
Top = 7
|
|
Width = 75
|
|
Height = 22
|
|
HelpContext = 9996
|
|
Cancel = True
|
|
Caption = 'Cancel'
|
|
ModalResult = 2
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
object txtNewList: TCaptionEdit [4]
|
|
Left = 10
|
|
Top = 45
|
|
Width = 153
|
|
Height = 21
|
|
HelpContext = 9086
|
|
MaxLength = 30
|
|
TabOrder = 0
|
|
OnChange = txtNewListChange
|
|
OnKeyPress = txtNewListKeyPress
|
|
Caption = 'Enter the name of a new personal list'
|
|
end
|
|
object grpVisibility: TRadioGroup [5]
|
|
Left = 11
|
|
Top = 105
|
|
Width = 156
|
|
Height = 81
|
|
ItemIndex = 1
|
|
Items.Strings = (
|
|
'&Myself only'
|
|
'&All CPRS users')
|
|
TabOrder = 1
|
|
end
|
|
inherited amgrMain: TVA508AccessibilityManager
|
|
Data = (
|
|
(
|
|
'Component = pnlBottom'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnOK'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnCancel'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = txtNewList'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = grpVisibility'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = frmOptionsNewList'
|
|
'Status = stsDefault'))
|
|
end
|
|
end
|