Revista CD Expert 8/Revista CD Expert nº 08 CD1.iso/Utilitarios/Seguranca/Secur-all/sec32380.exe/%MAINDIR%/Securi32.exe/0/RCDATA/TDLGUSERS/TDLGUSERS.txt

Text File | 1998-08-03 | 3.5 KB | 169 lines

object dlgUsers: TdlgUsers
  Left = 224
  Top = 116
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Users'
  ClientHeight = 236
  ClientWidth = 289
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object btnOK: TBitBtn
    Left = 121
    Top = 205
    Width = 77
    Height = 23
    Caption = 'OK'
    Default = True
    TabOrder = 0
    OnClick = btnOKClick
    NumGlyphs = 2
    Style = bsNew
  end
  object btnCancel: TBitBtn
    Left = 205
    Top = 205
    Width = 77
    Height = 23
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 1
    NumGlyphs = 2
    Style = bsNew
  end
  object pageUsers: TPageControl
    Left = 8
    Top = 8
    Width = 273
    Height = 185
    ActivePage = tabUsers
    TabOrder = 2
    OnChange = pageUsersChange
    object tabUsers: TTabSheet
      Caption = 'Users'
      object imgUsers: TImage
        Left = 12
        Top = 12
        Width = 16
        Height = 16
        AutoSize = True
      end
      object btnUserNew: TSpeedButton
        Left = 40
        Top = 124
        Width = 65
        Height = 23
        Caption = 'New...'
        OnClick = btnUserNewClick
      end
      object btnUserRename: TSpeedButton
        Left = 116
        Top = 124
        Width = 65
        Height = 23
        Caption = 'Rename...'
        Enabled = False
        OnClick = btnUserRenameClick
      end
      object btnUserDelete: TSpeedButton
        Left = 192
        Top = 124
        Width = 65
        Height = 23
        Caption = 'Delete...'
        Enabled = False
        OnClick = btnUserDeleteClick
      end
      object lboUsers: TListBox
        Left = 40
        Top = 12
        Width = 217
        Height = 101
        ItemHeight = 13
        TabOrder = 0
        OnClick = lboUsersClick
      end
    end
    object tabChangePassword: TTabSheet
      Caption = 'Change Password'
      object Label1: TLabel
        Left = 12
        Top = 16
        Width = 25
        Height = 13
        Caption = 'User:'
        Transparent = True
      end
      object Label2: TLabel
        Left = 12
        Top = 48
        Width = 67
        Height = 13
        Caption = 'Old password:'
        Transparent = True
      end
      object Label3: TLabel
        Left = 12
        Top = 84
        Width = 73
        Height = 13
        Caption = 'New password:'
        Transparent = True
      end
      object Label4: TLabel
        Left = 12
        Top = 108
        Width = 29
        Height = 13
        Caption = 'Verify:'
        Transparent = True
      end
      object tedOldPassword: TEdit
        Left = 96
        Top = 44
        Width = 161
        Height = 21
        PasswordChar = '*'
        TabOrder = 0
        Text = 'tedOldPassword'
      end
      object tedNewPassword: TEdit
        Left = 96
        Top = 80
        Width = 161
        Height = 21
        PasswordChar = '*'
        TabOrder = 1
        Text = 'tedNewPassword'
      end
      object tedVerifyPassword: TEdit
        Left = 96
        Top = 108
        Width = 161
        Height = 21
        PasswordChar = '*'
        TabOrder = 2
        Text = 'tedVerifyPassword'
        OnChange = tedVerifyPasswordChange
      end
      object tedUser: TEdit
        Left = 96
        Top = 12
        Width = 161
        Height = 21
        ReadOnly = True
        TabOrder = 3
        Text = 'tedUser'
      end
    end
  end
end