home *** CD-ROM | disk | FTP | other *** search
- object DlgChgPW: TDlgChgPW
- Left = 227
- Top = 110
- Width = 237
- Height = 241
- Caption = 'Password'
- Color = clBtnFace
- Constraints.MaxHeight = 241
- Constraints.MaxWidth = 237
- Constraints.MinHeight = 241
- Constraints.MinWidth = 237
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- OnClose = FormClose
- OnShow = OnShow
- PixelsPerInch = 96
- TextHeight = 13
- object Shape2: TShape
- Left = 8
- Top = 156
- Width = 15
- Height = 15
- Brush.Color = clRed
- Pen.Color = clGray
- Shape = stCircle
- Visible = False
- end
- object Shape1: TShape
- Left = 8
- Top = 156
- Width = 15
- Height = 15
- Brush.Color = clLime
- Pen.Color = clGray
- Shape = stCircle
- Visible = False
- end
- object CurPW: TLabel
- Left = 8
- Top = 6
- Width = 83
- Height = 13
- Caption = 'Current Password'
- end
- object NewPW: TLabel
- Left = 8
- Top = 54
- Width = 71
- Height = 13
- Caption = 'New Password'
- end
- object ConPW: TLabel
- Left = 8
- Top = 102
- Width = 109
- Height = 13
- Caption = 'Confirm New Password'
- end
- object StaticText3: TLabel
- Left = 8
- Top = 182
- Width = 65
- Height = 16
- Caption = 'Message'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object BChange: TSpeedButton
- Left = 32
- Top = 152
- Width = 75
- Height = 25
- Caption = 'Change'
- OnClick = BChgPW
- end
- object BCancel: TSpeedButton
- Left = 120
- Top = 152
- Width = 75
- Height = 25
- Caption = 'Cancel'
- OnClick = BCancelClick
- end
- object PassWord: TMaskEdit
- Left = 16
- Top = 72
- Width = 185
- Height = 21
- MaxLength = 25
- PasswordChar = '*'
- TabOrder = 1
- OnKeyPress = PWKeyPressEdit
- end
- object CPassWord: TMaskEdit
- Left = 16
- Top = 120
- Width = 185
- Height = 21
- MaxLength = 25
- PasswordChar = '*'
- TabOrder = 2
- OnKeyPress = PWKeyPressEdit
- end
- object OPassWord: TMaskEdit
- Left = 16
- Top = 24
- Width = 185
- Height = 21
- MaxLength = 25
- PasswordChar = '*'
- TabOrder = 0
- OnKeyPress = PWKeyPressEdit
- end
- object Timer1: TTimer
- Enabled = False
- OnTimer = OnTimer1
- Left = 200
- Top = 48
- end
- object ClientSocket1: TClientSocket
- Active = False
- ClientType = ctNonBlocking
- Port = 80
- OnConnect = ClientSocket1OnConnect
- OnRead = ClientSocket1OnRead
- OnError = ClientSocket1OnError
- Left = 200
- Top = 16
- end
- end
-