home *** CD-ROM | disk | FTP | other *** search
- object ProtectionForm: TProtectionForm
- Left = 214
- Top = 110
- ActiveControl = PasswordEdit
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Protection'
- ClientHeight = 252
- ClientWidth = 299
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poMainFormCenter
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 24
- Top = 64
- Width = 49
- Height = 13
- Caption = 'Password:'
- end
- object Label4: TLabel
- Left = 8
- Top = 8
- Width = 281
- Height = 49
- AutoSize = False
- Caption =
- 'The protection password stops locked objects and the background ' +
- 'in the design from being modified unless the password is entered' +
- '.'
- WordWrap = True
- end
- object OkBtn: TBitBtn
- Left = 20
- Top = 220
- Width = 75
- Height = 25
- Caption = '&OK'
- TabOrder = 2
- Kind = bkOK
- end
- object CancelBtn: TBitBtn
- Left = 112
- Top = 220
- Width = 75
- Height = 25
- Caption = '&Cancel'
- TabOrder = 3
- Kind = bkCancel
- end
- object HelpBtn: TBitBtn
- Left = 204
- Top = 220
- Width = 75
- Height = 25
- TabOrder = 4
- Kind = bkHelp
- end
- object PasswordEdit: TEdit
- Left = 120
- Top = 64
- Width = 121
- Height = 21
- MaxLength = 8
- PasswordChar = '*'
- TabOrder = 0
- end
- object ChangePanel: TPanel
- Left = 16
- Top = 96
- Width = 281
- Height = 113
- BevelOuter = bvNone
- TabOrder = 1
- Visible = False
- object Label2: TLabel
- Left = 8
- Top = 8
- Width = 74
- Height = 13
- Caption = 'New Password:'
- end
- object Label3: TLabel
- Left = 8
- Top = 32
- Width = 78
- Height = 13
- Caption = 'Verify Password:'
- end
- object Label5: TLabel
- Left = 8
- Top = 56
- Width = 265
- Height = 49
- AutoSize = False
- Caption =
- 'To set or change the password enter the exisiting password follo' +
- 'wed by the new password twice. An empty password means no passw' +
- 'ord.'
- WordWrap = True
- end
- object NewPasswordEdit: TEdit
- Left = 104
- Top = 4
- Width = 121
- Height = 21
- MaxLength = 8
- PasswordChar = '*'
- TabOrder = 0
- end
- object VerifyPasswordEdit: TEdit
- Left = 104
- Top = 28
- Width = 121
- Height = 21
- MaxLength = 8
- PasswordChar = '*'
- TabOrder = 1
- end
- end
- end
-