object Form1: TForm1
  Left = 192
  Top = 107
  BorderStyle = bsDialog
  Caption = 'UCControls Teste  (D7 + ADO + access2000)'
  ClientHeight = 329
  ClientWidth = 688
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 81
    Height = 329
    Align = alLeft
    BevelOuter = bvLowered
    Color = 9737364
    TabOrder = 0
    object SpeedButton1: TSpeedButton
      Left = 8
      Top = 16
      Width = 65
      Height = 65
      Caption = 'Usu'#225'rios'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
[encoded data, 5037 characters]
        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA}
      Layout = blGlyphTop
      NumGlyphs = 2
      ParentFont = False
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 8
      Top = 88
      Width = 65
      Height = 65
      Caption = 'Perfil'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
[encoded data, 5037 characters]
        8887868686868686868686868686868686868686868686866944}
      Layout = blGlyphTop
      NumGlyphs = 2
      ParentFont = False
      OnClick = SpeedButton2Click
    end
    object SpeedButton3: TSpeedButton
      Left = 8
      Top = 160
      Width = 65
      Height = 65
      Caption = 'Trocar '#13#10'Senha'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
[encoded data, 5037 characters]
        7D7D7D7D7D7D7D7D20202020177D7D7D7D7D7D7D7D7D7D7D7D7D}
      Layout = blGlyphTop
      NumGlyphs = 2
      ParentFont = False
      OnClick = SpeedButton3Click
    end
    object SpeedButton4: TSpeedButton
      Left = 8
      Top = 256
      Width = 65
      Height = 65
      Caption = 'Efetuar '#13#10'Logoff'
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
[encoded data, 5037 characters]
        5757575757575757575757575757575757575757575757575757}
      Layout = blGlyphTop
      NumGlyphs = 2
      ParentFont = False
      OnClick = SpeedButton4Click
    end
  end
  object Memo1: TMemo
    Left = 232
    Top = 8
    Width = 449
    Height = 313
    Lines.Strings = (
      'UCControls Sample 2'
      ''
      'Observa'#231#245'es:'
      
        '- Foi necess'#225'rio incluir os nomes dos bot'#245'es manualmente na prop' +
        'riedade '
      '   Login.InitialLogin.InitialRights'
      '')
    ReadOnly = True
    ScrollBars = ssBoth
    TabOrder = 1
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=..\base.mdb;Persist' +
      ' Security Info=False'
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 88
    Top = 8
  end
  object UCControls1: TUCControls
    GroupName = 'Barra de Ferramentas'
    UserControl = UserControl1
    NotAllowed = naDisabled
    Left = 88
    Top = 96
  end
  object UCSettings1: TUCSettings
    AppMessages.MsgsForm_BtNew = '&Nova Mensagem'
    AppMessages.MsgsForm_BtReplay = '&Responder'
    AppMessages.MsgsForm_BtForward = 'E&ncaminhar'
    AppMessages.MsgsForm_BtDelete = '&Excluir'
    AppMessages.MsgsForm_BtClose = '&Close'
    AppMessages.MsgsForm_WindowCaption = 'Mensagens do Sistema'
    AppMessages.MsgsForm_ColFrom = 'Remetente'
    AppMessages.MsgsForm_ColSubject = 'Assunto'
    AppMessages.MsgsForm_ColDate = 'Data'
    AppMessages.MsgsForm_PromptDelete = 'Confirma excluir as mensagens selecionadas ?'
    AppMessages.MsgsForm_PromptDelete_WindowCaption = 'Delete messages'
    AppMessages.MsgsForm_NoMessagesSelected = '!No Messages selected'#161
    AppMessages.MsgsForm_NoMessagesSelected_WindowCaption = 'Information'
    AppMessages.MsgRec_BtClose = '&Fechar'
    AppMessages.MsgRec_WindowCaption = 'Mensagem'
    AppMessages.MsgRec_Title = 'Mensagem Recebida'
    AppMessages.MsgRec_LabelFrom = 'De :'
    AppMessages.MsgRec_LabelDate = 'Date'
    AppMessages.MsgRec_LabelSubject = 'Assunto'
    AppMessages.MsgRec_LabelMessage = 'Mensagem'
    AppMessages.MsgSend_BtSend = '&Enviar'
    AppMessages.MsgSend_BtCancel = '&Cancelar'
    AppMessages.MsgSend_WindowCaption = 'Mensagem'
    AppMessages.MsgSend_Title = 'Enviar Nova Mensagem'
    AppMessages.MsgSend_GroupTo = 'Para'
    AppMessages.MsgSend_RadioUser = 'Usu'#225'rio :'
    AppMessages.MsgSend_RadioAll = 'Todos'
    AppMessages.MsgSend_GroupMessage = 'Mensagem'
    AppMessages.MsgSend_LabelSubject = 'Subject'
    AppMessages.MsgSend_LabelMessageText = 'Message text'
    CommonMessages.AutoLogonError = 'Falha de Auto Logon!'#13#10'Informe um usu'#225'rio e senha v'#225'lidos.'
    CommonMessages.ChangePasswordError.InvalidCurrentPassword = 'Senha Atual n'#227'o confere!'
    CommonMessages.ChangePasswordError.NewPasswordError = 'Os campos: Nova Senha e Confirma'#231#227'o devem ser iguais.'
    CommonMessages.ChangePasswordError.NewEqualCurrent = 'Nova senha igual a senha atual'
    CommonMessages.ChangePasswordError.PasswordRequired = 'A Senha '#233' obrigat'#243'ria'
    CommonMessages.ChangePasswordError.MinPasswordLength = 'A senha deve conter no m'#237'nimo %d caracteres'
    CommonMessages.ChangePasswordError.InvalidNewPassword = 'Proibido utilizar senhas obvias!'
    CommonMessages.InvalidLogin = 'Usu'#225'rio ou Senha inv'#225'lidos!'
    CommonMessages.InitialMessage.Strings = (
      'ATEN'#199#195'O Login Inicial:'
      ''
      'Usu'#225'rio : :user'
      'Senha : :password'
      ''
      'Defina as permiss'#245'es para este usu'#225'rio.')
    CommonMessages.MaxLoginAttemptsError = 
      '%d Tentativas de login inv'#225'lido. Por motivos de segun'#231'a o '#13#10'sist' +
      'ema ser'#225' fechado.'
    CommonMessages.PasswordChanged = 'Senha alterada com sucesso!'
    CommonMessages.BlankPassword = 'Retirada senha do Login %s'
    Login.WindowCaption = 'Login'
    Login.LabelUser = 'Usu'#225'rio '
    Login.LabelPassword = 'Senha : '
    Login.BtOk = 'OK'
    Login.BtCancel = '&Cancelar'
    Login.TopImage.Data = {
[encoded data, 69154 characters]
      0000}
    Login.LeftImage.Data = {
[encoded data, 5183 characters]
      0000}
    Log.WindowCaption = 'Seguran'#231'a'
    Log.LabelDescription = 'Log do Sistema'
    Log.LabelUser = 'Usu'#225'rio :'
    Log.LabelDate = 'Data :'
    Log.LabelLevel = 'N'#237'vel m'#237'nimo : '
    Log.ColLevel = 'N'#237'vel'
    Log.ColMessage = 'Mensagem'
    Log.ColUser = 'Usu'#225'rio'
    Log.ColDate = 'Data'
    Log.BtFilter = '&Aplicar Filtro'
    Log.BtDelete = '&Excluir Log'
    Log.BtClose = '&Fechar'
    Log.PromptDelete = 'Confirma excluir todos os registros de log selecionados ?'
    Log.PromptDelete_WindowCaption = 'Delete confirmation'
    Log.OptionUserAll = 'All'
    Log.OptionLevelLow = 'Baixo'
    Log.OptionLevelNormal = 'Normal'
    Log.OptionLevelHigh = 'Alto'
    Log.OptionLevelCritic = 'Cr'#237'tico'
    Log.DeletePerformed = 
      'Deletion of system log done: User = "%s" | Date = %s a %s | Leve' +
      'l <= %s'
    UsersForm.WindowCaption = 'Seguran'#231'a'
    UsersForm.LabelDescription = 'Cadastro de Usu'#225'rios'
    UsersForm.ColName = 'Nome'
    UsersForm.ColLogin = 'Login'
    UsersForm.ColEmail = 'Email'
    UsersForm.BtAdd = '&Adicionar'
    UsersForm.BtChange = 'A&lterar'
    UsersForm.BtDelete = '&Excluir'
    UsersForm.PromptDelete = 'Confirma excluir o usu'#225'rio "%s" ?'
    UsersForm.PromptDelete_WindowCaption = 'Delete user'
    UsersForm.BtRights = 'A&cessos'
    UsersForm.BtPassword = '&Senha'
    UsersForm.BtClose = '&Fechar'
    AddChangeUser.WindowCaption = 'Cadastro de Usu'#225'rios'
    AddChangeUser.LabelAdd = 'Adicionar Usu'#225'rio'
    AddChangeUser.LabelChange = 'Alterar Usu'#225'rio'
    AddChangeUser.LabelName = 'Nome : '
    AddChangeUser.LabelLogin = 'Login : '
    AddChangeUser.LabelEmail = 'Email : '
    AddChangeUser.CheckPrivileged = 'Usu'#225'rio privilegiado'
    AddChangeUser.BtSave = '&Gravar'
    AddChangeUser.BtCancel = 'Cancelar'
    AddChangeProfile.WindowCaption = 'Perfil de Usu'#225'rios'
    AddChangeProfile.LabelAdd = 'Adicionar Perfil'
    AddChangeProfile.LabelChange = 'Alterar Perfil'
    AddChangeProfile.LabelName = 'Descri'#231#227'o : '
    AddChangeProfile.BtSave = '&Gravar'
    AddChangeProfile.BtCancel = 'Cancelar'
    UsersProfile.WindowCaption = 'Seguran'#231'a'
    UsersProfile.LabelDescription = 'Perfil de Usu'#225'rios'
    UsersProfile.ColProfile = 'Perfil'
    UsersProfile.BtAdd = '&Adicionar'
    UsersProfile.BtChange = 'A&lterar'
    UsersProfile.BtDelete = '&Excluir'
    UsersProfile.BtRights = 'A&cessos'
    UsersProfile.PromptDelete = 'Existem usu'#225'rios com o perfil "%s". Confirma excluir?'
    UsersProfile.PromptDelete_WindowCaption = 'Delete profile'
    UsersProfile.BtClose = '&Fechar'
    Rights.WindowCaption = 'Seguran'#231'a'
    Rights.LabelUser = 'Permiss'#245'es do Usu'#225'rio : '
    Rights.LabelProfile = 'Permiss'#245'es do Perfil : '
    Rights.PageMenu = 'Itens do Menu'
    Rights.PageActions = 'A'#231#245'es'
    Rights.BtUnlock = '&Liberar'
    Rights.BtLock = '&Bloquear'
    Rights.BtSave = '&Gravar'
    Rights.BtCancel = '&Cancelar'
    ChangePassword.WindowCaption = 'Seguran'#231'a'
    ChangePassword.LabelDescription = 'Trocar Senha'
    ChangePassword.LabelCurrentPassword = 'Senha Atual :'
    ChangePassword.LabelNewPassword = 'Nova Senha : '
    ChangePassword.LabelConfirm = 'Confirma'#231#227'o : '
    ChangePassword.BtSave = '&Gravar'
    ChangePassword.BtCancel = 'Cancelar'
    ResetPassword.WindowCaption = 'Definir senha do usu'#225'rio : "%s"'
    ResetPassword.LabelPassword = 'Senha : '
    XPStyleSet.DimLevel = 30
    XPStyleSet.GrayLevel = 10
    XPStyleSet.Font.Charset = DEFAULT_CHARSET
    XPStyleSet.Font.Color = clMenuText
    XPStyleSet.Font.Height = -11
    XPStyleSet.Font.Name = 'Tahoma'
    XPStyleSet.Font.Style = []
    XPStyleSet.Color = clBtnFace
    XPStyleSet.DrawMenuBar = False
    XPStyleSet.IconBackColor = clBtnFace
    XPStyleSet.MenuBarColor = clBtnFace
    XPStyleSet.SelectColor = clHighlight
    XPStyleSet.SelectBorderColor = clHighlight
    XPStyleSet.SelectFontColor = clMenuText
    XPStyleSet.DisabledColor = clInactiveCaption
    XPStyleSet.SeparatorColor = clBtnFace
    XPStyleSet.CheckedColor = clHighlight
    XPStyleSet.IconWidth = 24
    XPStyleSet.DrawSelect = True
    XPStyleSet.UseSystemColors = True
    XPStyleSet.UseDimColor = False
    XPStyleSet.OverrideOwnerDraw = False
    XPStyleSet.Gradient = False
    XPStyleSet.FlatMenu = False
    XPStyleSet.AutoDetect = False
    XPStyleSet.BitBtnColor = clBtnFace
    XPStyleSet.ColorsChanged = True
    XPStyle = False
    WindowsPosition = poDesktopCenter
    Left = 88
    Top = 136
  end
  object UCADOConn1: TUCADOConn
    Connection = ADOConnection1
    Left = 120
    Top = 8
  end
  object UserControl1: TUserControl
    AutoStart = False
    ApplicationID = 'UCCT2'
    UsersForm.UsePrivilegedField = False
    UsersForm.ProtectAdmin = True
    EncryptKey = 0
    NotAllowedItems.MenuVisible = True
    NotAllowedItems.ActionVisible = True
    Login.AutoLogon.Active = False
    Login.AutoLogon.MessageOnError = True
    Login.InitialLogin.User = 'Admin'
    Login.InitialLogin.Email = 'qmd@usercontrol.com.br'
    Login.InitialLogin.Password = '#delphi'
    Login.InitialLogin.InitialRights.Strings = (
      'SpeedButton1'
      'SpeedButton2'
      'SpeedButton3'
      'SpeedButton4')
    Login.MaxLoginAttempts = 0
    Login.GetLoginName = lnNone
    LogControl.Active = False
    LogControl.TableLog = 'UCLog'
    ExtraRight = <
      item
        FormName = 'Form1'
        CompName = 'SpeedButton1'
        Caption = 'Cadastro de Usu'#225'rios'
        GroupName = 'Barra de Ferramentas'
      end
      item
        FormName = 'Form1'
        CompName = 'SpeedButton2'
        Caption = 'Cadastro de Perfil'
        GroupName = 'Barra de Ferramentas'
      end
      item
        FormName = 'Form1'
        CompName = 'SpeedButton3'
        Caption = 'Trocar Senha'
        GroupName = 'Barra de Ferramentas'
      end
      item
        FormName = 'Form1'
        CompName = 'SpeedButton4'
        Caption = 'Efetuar Logoff'
        GroupName = 'Barra de Ferramentas'
      end>
    LoginMode = lmActive
    UsersProfile.Active = True
    TableUsers.FieldUserID = 'UCIdUser'
    TableUsers.FieldUserName = 'UCUserName'
    TableUsers.FieldLogin = 'UCLogin'
    TableUsers.FieldPassword = 'UCPassword'
    TableUsers.FieldEmail = 'UCEmail'
    TableUsers.FieldPrivileged = 'UCPrivileged'
    TableUsers.FieldTypeRec = 'UCTypeRec'
    TableUsers.FieldProfile = 'UCProfile'
    TableUsers.FieldKey = 'UCKey'
    TableUsers.TableName = 'UCOT2TabUsers'
    TableRights.FieldUserID = 'UCIdUser'
    TableRights.FieldModule = 'UCModule'
    TableRights.FieldComponentName = 'UCCompName'
    TableRights.FieldFormName = 'UCFormName'
    TableRights.FieldKey = 'UCKey'
    TableRights.TableName = 'UCOT2TabRights'
    ChangePasswordForm.ForcePassword = False
    ChangePasswordForm.MinPasswordLength = 0
    DataConnector = UCADOConn1
    CheckValidationKey = False
    Left = 88
    Top = 56
  end
end
