TUCUserSettings

type TUCUserSettings = class(TPersistent)

protected

  procedure SetFUserCommonMsg();

  procedure SetFFormLoginMsg();

  procedure SetFCadUserFormMSG();

  procedure SetFAddUserFormMSG();

  procedure SetFPermissFormMSG();

  procedure SetFTrocaSenhaFormMSG();

public

  Type_Int: string;

  Type_Char: string;

  Type_VarChar: string;

  Type_Memo: string;

  constructor Create();

  destructor Destroy; override;

  procedure Assign(); override;

published

  property AppMessages: TUCAppMessagesMSG; [rw]

  property CommonMessages: TUCUserCommonMSG; [rw]

  property Login: TUCLoginFormMSG; [rw]

  property Log: TUCLogControlFormMSG; [rw]

  property UsersForm: TUCCadUserFormMSG; [rw]

  property AddChangeUser: TUCAddUserFormMSG; [rw]

  property AddChangeProfile: TUCAddProfileFormMSG; [rw]

  property UsersProfile: TUCProfileUserFormMSG; [rw]

  property Rights: TUCPermissFormMSG; [rw]

  property ChangePassword: TUCTrocaSenhaFormMSG; [rw]

  property ResetPassword: TUCResetPassword; [rw]

  property WindowsPosition: TPosition; [rw]

  property BancoDados: TUCTypeBancoDados; [rw]

  property Language: TUCLanguage; [rw]

  property UsersLogged: TUCCadUserLoggedMSG; [rw]

end;

TUCUserSettings

TObject