ucmessages.pas

delphi 控件有需要的可以下载看看,可以用的,希望对你用 帮助

unit UCMessages;

interface
uses SysUtils, Classes, Graphics, dialogs, UCConsts, UCXPSet, Forms;


type

  TAppMessagesMSG = class(TPersistent)
  private
    FMsgRec_LabelDate: String;
    FMsgsForm_BtBtForward: String;
    Fmsgsform_btnew: String;
    FMsgSend_GroupTo: String;
    FMsgSend_WindowCaption: String;
    FMsgSend_GroupMessage: String;
    FMsgsForm_ColFrom: String;
    FMsgsForm_BtDelete: String;
    FMsgRec_LabelMessage: String;
    FMsgRec_Title: String;
    FMsgSend_RadioAll: String;
    FMsgSend_RadioUser: String;
    FMsgSend_Title: String;
    FMsgsForm_ColSubject: String;
    FMsgRec_LabelFrom: String;
    FMsgsForm_WindowCaption: String;
    FMsgRec_LabelSubject: String;
    FMsgRec_WindowCaption: String;
    FMsgSend_BtSend: String;
    FMsgSend_BtCancel: String;
    FMsgsForm_BtReplay: String;
    FMsgRec_BtClose: String;
    FMsgsForm_PromptDelete: String;
    FMsgsForm_ColDate: String;
  protected
  public
    constructor Create(Aowner : TComponent);
    destructor Destroy; override;
    procedure Assign(Source : TPersistent); override;
  published
    property MsgsForm_BtNew : String read Fmsgsform_btnew write Fmsgsform_btnew;
    property MsgsForm_BtReplay : String read FMsgsForm_BtReplay write FMsgsForm_BtReplay;
    property MsgsForm_BtForward : String read FMsgsForm_BtBtForward write FMsgsForm_BtBtForward;
    property MsgsForm_BtDelete : String read FMsgsForm_BtDelete write FMsgsForm_BtDelete;
    property MsgsForm_WindowCaption : String read FMsgsForm_WindowCaption write FMsgsForm_WindowCaption;
    property MsgsForm_ColFrom : String read FMsgsForm_ColFrom write FMsgsForm_ColFrom;
    property MsgsForm_ColSubject : String read FMsgsForm_ColSubject write FMsgsForm_ColSubject;
    property MsgsForm_ColDate : String read FMsgsForm_ColDate write FMsgsForm_ColDate;
    property MsgsForm_PromptDelete : String read FMsgsForm_PromptDelete write FMsgsForm_PromptDelete;

    property MsgRec_BtClose : String read FMsgRec_BtClose write FMsgRec_BtClose;
    property MsgRec_WindowCaption : String read FMsgRec_WindowCaption write FMsgRec_WindowCaption;
    property MsgRec_Title : String read FMsgRec_Title write FMsgRec_Title;
    property MsgRec_LabelFrom : String read FMsgRec_LabelFrom write FMsgRec_LabelFrom;
    property MsgRec_LabelDate : String read FMsgRec_LabelDate write FMsgRec_LabelDate;
    property MsgRec_LabelSubject : String read FMsgRec_LabelSubject write FMsgRec_LabelSubject;
    property MsgRec_LabelMessage : String read FMsgRec_LabelMessage write FMsgRec_LabelMessage;

    property MsgSend_BtSend : String read FMsgSend_BtSend write FMsgSend_BtSend;
    property MsgSend_BtCancel : String read FMsgSend_BtCancel write FMsgSend_BtCancel;
    property MsgSend_WindowCaption : String read FMsgSend_WindowCaption write FMsgSend_WindowCaption;
    property MsgSend_Title : String read FMsgSend_Title write FMsgSend_Title;
    property MsgSend_GroupTo : String read FMsgSend_GroupTo write FMsgSend_GroupTo;
    property MsgSend_RadioUser : String read FMsgSend_RadioUser write FMsgSend_RadioUser;
    property MsgSend_RadioAll : String read FMsgSend_RadioAll write FMsgSend_RadioAll;
    property MsgSend_GroupMessage : String read FMsgSend_GroupMessage write FMsgSend_GroupMessage;
  end;



  TChangePassError = class(TPersistent)
  private
    FInvalidCurrentPassword,
    FNewPasswordError,
    FNewEqualCurrent,
    FPasswordRequired,
    FMinPasswordLength,
    FInvalidNewPassword: String;
  protected

  public
    constructor Create(Aowner : TComponent);
    destructor Destroy; override;
    procedure Assign(Source : TPersistent); override;
  published
    property InvalidCurrentPassword : String read FInvalidCurrentPassword write FInvalidCurrentPassword;
    property NewPasswordError : String read FNewPasswordError write FNewPasswordError;
    property NewEqualCurrent : String read FNewEqualCurrent write FNewEqualCurrent;
    property PasswordRequired : String read FPasswordRequired write FPasswordRequired;
    property MinPasswordLength : String read FMinPasswordLength write FMinPasswordLength;
    property InvalidNewPassword : String read FInvalidNewPassword write FInvalidNewPassword;
  end;

  TUserCommonMSG = class(TPersistent)
  private
    FPasswordOFF,
    FPasswordChanged,
    FInvalidUserPass,
    FMaxLoginTry,
    FAutoLogonError : String;
    FFirstMSG : TStrings;
    FChangePasswordError : TChangePassError;
    procedure SetFErroTrocaSenha(const Value: TChangePassError);
    procedure SetFFirstMSG(const Value: TStrings);
  protected

  public
    constructor Create(Aowner : TComponent);
    destructor Destroy; override;
    procedure Assign(Source : TPersistent); override;
  published
    property AutoLogonError : String read FAutoLogonError write FAutoLogonError;
    property ChangePasswordError : TChangePassError read FChangePasswordError write SetFErroTrocaSenha;
    property InvalidLogin : String read FInvalidUserPass write FInvalidUserPass;
    property InitialMessage :  TStrings read FFirstMSG write SetFFirstMSG;
    property MaxLoginAttemptsError : String read FMaxLoginTry write FMaxLoginTry;
    property PasswordChanged : String read FPasswordChanged write FPasswordChanged;
    property BlankPassword : String read FPasswordOFF write FPasswordOFF;
  end;

  TLoginFormMSG = class(TPersistent)
  private
    FWindowCaption, FLabelUser, FLabelPassword, FBtOk, FBtCancel : String;
    FBottomImage, FLeftImage, FTopImage : TPicture;
    procedure SetFBottomImage(const Value: TPicture);
    procedure SetFLeftImage(const Value: TPicture);
    procedure SetFTopImage(const Value: TPicture);
  protected

  public
    constructor Create(AOwner : TComponent);
    destructor Destroy; override;
    procedure Assign( Source : TPersistent); override;
  published
    property WindowCaption : String read FWindowCaption write FWindowCaption;
    property LabelUser : String read FLabelUser write FLabelUser;
    property LabelPassword : String read FLabelPassword write FLabelPassword;
    property BtOk : String read FBtOk write FBtOk;
    property BtCancel : String read FBtCancel write FBtCancel;
    property TopImage : TPicture read FTopImage write SetFTopImage;
    property LeftImage : TPicture read FLeftImage write SetFLeftImage;
    property BottomImage : TPicture read FBottomImage write SetFBottomImage;
  end;

  TCadUserFormMSG = class(TPersistent)
  private
    FWindowCaption, FLabelDescricao, FColNome, FColLogin, FColEmail, FBtAdic, FBtAlt,
    FBtExc, FBtAccess, FBtPass, FBtClose, FConfExc : String;
  protected

  public
    constructor Create(AOwner : TComponent);
    destructor Destroy; override;
    procedure Assign(Source : TPersistent);override;
  published
    property WindowCaption : String read FWindowCaption write FWindowCaption;
    property LabelDescription : String read FLabelDescricao write FLabelDescricao;
    property ColName : String read FColNome write FColNome;
    property ColLogin : String read FColLogin write FColLogin;
    property ColEmail : String read FColEmail write FColEmail;
    property BtAdd : String read FBtAdic write FBtAdic;
    property BtChange : String read FBtAlt write FBtAlt;
    property BtDelete : String read FBtExc write FBtExc;
    property PromptDelete : String read FConfExc write FConfExc;
    property BtRights : String read FBtAccess write FBtAccess;
    property BtPassword : String read FBtPass write FBtPass;
    property BtClose : String read FBtClose write FBtClose;
  end;

  TLogControlFormMSG = class(TPersistent)
  private
    FColUsuario: String;
    FColMensagem: String;
    FLabelDescription: String;
    FWindowCaption: String;
    FLabelLevel: String;
    FColData: String;
    FColNivel: String;
    FBtClose: String;
    FConfExc: String;
    FLabelUser: String;
    FBtFilt: String;
    FLabelDate: String;
    FBtExc: String;

  protected

  public
    constructor Create(AOwner : TComponent);
    destructor Destroy; override;
    procedure Assign(Source : TPersistent);override;
  published
    property WindowCaption : String read FWindowCaption write FWindowCaption;
    property LabelDescription : String read FLabelDescription write FLabelDescription;
    property LabelUser : String read FLabelUser write FLabelUser;
    property LabelDate : String read FLabelDate write FLabelDate;
    property LabelLevel : String read FLabelLevel write FLabelLevel;
    property ColLevel : String read FColNivel write FColNivel;
    property ColMessage : String read FColMensagem write FColMensagem;
    property ColUser : String read FColUsuario write FColUsuario;
    property ColDate : String read FColData write FColData;
    property BtFilter : String read FBtFilt write FBtFilt;
    property BtDelete : String read FBtExc write FBtExc;
    property PromptDelete : String read FConfExc write FConfExc;
    property BtClose : String read FBtClose write FBtClose;
  end;

  TProfileUserFormMSG = class(TPersistent)
  private
    FWindowCaption, FLabelDescription, FColPerfil, FBtAdic, FBtAlt,
    FBtExc, FBtAcess {BGM}, FBtClose, FConfExc : String;
  protected

  public
    constructor Create(AOwner : TComponent);
    destructor Destroy; override;
    procedure Assign(Source : TPersistent);override;
  published
    property WindowCaption : String read FWindowCaption write FWindowCaption;
    property LabelDescription : String read FLabelDescription write FLabelDescription;
    property ColProfile : String read FColPerfil write FColPerfil;
    property BtAdd : String read FBtAdic write FBtAdic;
    property BtChange : String read FBtAlt write FBtAlt;
    property BtDelete : String read FBtExc write FBtExc;
    property BtRights : String read FBtAcess write FBtAcess;    //BGM
    property PromptDelete : String read FConfExc write FConfExc;
    property BtClose : String read FBtClose write FBtClose;
  end;

  TAddUserFormMSG = class(TPersistent)
  private
    FWindowCaption, FLabelAdd,FLabelChange, FLabelNome, FLabelLogin, FLabelEmail, FCheckPriv, FBtSave, FBtCancelar, FLabelPerfil : String;
  protected

  public
    constructor Create(AOwner : TComponent);
    destructor Destroy; override;
    procedure Assign( Source : TPersistent); override;
  published
    property WindowCaption : String read FWindowCaption write FWindowCaption;
    property LabelAdd : String read FLabelAdd write FLabelAdd;
    property LabelChange : String read FLabelChange write FLabelChange;
    property LabelName : String read FLabelNome write FLabelNome;
    property LabelLogin : String read FLabelLogin write FLabelLogin;
    property LabelEmail : String read FLabelEmail write FLabelEmail;
    property LabelPerfil : String read FLabelPerfil write FLabelPerfil;
    property CheckPrivileged : String read FCheckPriv write FCheckPriv;
    property BtSave : String read FBtSave write FBtSave;
    property BtCancel : String read FBtCancelar write FBtCancelar;

  end;

  TAddProfileFormMSG = class(TPersistent)
  private
    FWindowCaption, FLabelAdd,FLabelChange, FLabelName, FBtGravar, FBtCancel : String;
  protected

  public
    constructor Create(AOwner : TComponent);
    destructor Destroy; override;
    procedure Assign( Source : TPersistent); override;
  published
    property WindowCaption : String read FWindowCaption write FWindowCaption;
    property LabelAdd : String read FLabelAdd write FLabelAdd;
    property LabelChange : String read FLabelChange write FLabelChange;
    property LabelName : String read FLabelName write FLabelName;
    property BtSave : String read FBtGravar write FBtGravar;
    property BtCancel : String read FBtCancel write FBtCancel;
  end;

  TPermissFormMSG = class(TPersistent)
  private
    FWindowCaption, FPageMenu, FPageActions, FBtUnlock, FBtLock, FBtGrava, FBtCancela : String;
    FLabelProfile: String;
    FLabelUser: String;
  protected
  public
    constructor Create(AOwner : TComponent);
    destructor Destroy; override;
    procedure Assign( Source : TPersistent); override;
  published
    property WindowCaption : String read FWindowCaption write FWindowCaption;
    property LabelUser : String read FLabelUser write FLabelUser;
    property LabelProfile : String read FLabelProfile write FLabelProfile;
    property PageMenu : String read FPageMenu write FPageMenu;
    property PageActions : String read FPageActions write FPageActions;
    property BtUnlock : String read FBtUnlock write FBtUnlock;
    property BtLock : String read FBtLock write FBtLock;
    property BtSave : String read FBtGrava write FBtGrava;
    property BtCancel : String read FBtCancela write FBtCancela;
  end;

  TTrocaSenhaFormMSG = class(TPersistent)
  private
    FWindowCaption, FLabelDescription, FLabelCurrentPassword, FLabelNewPassword, FLabelConfirm, FBtSave, FBtCancel : String;
  protected

  public
    constructor Create(AOwner : TComponent);
    destructor Destroy; override;
    procedure Assign( Source : TPersistent); override;
  published
    property WindowCaption : String read FWindowCaption write FWindowCaption;
    property LabelDescription : String read FLabelDescription write FLabelDescription;
    property LabelCurrentPassword : String read FLabelCurrentPassword write FLabelCurrentPassword;
    property LabelNewPassword : String read FLabelNewPassword write FLabelNewPassword;
    property LabelConfirm : String read FLabelConfirm write FLabelConfirm;
    property BtSave : String read FBtSave write FBtSave;
    property BtCancel : String read FBtCancel write FBtCancel;
  end;

  TResetPassword = class(TPersistent)
  private
    FWindowCaption, FLabelPassword : String;
  protected

  public
    constructor Create(AOwner : TComponent);
    destructor Destroy; override;
    procedure Assign( Source : TPersistent); override;
  published
    property WindowCaption : String read FWindowCaption write FWindowCaption;
    property LabelPassword : String read FLabelPassword write FLabelPassword;
  end;

  TUserSettings = class(TPersistent)
  private
    FUserCommomMSG : TUserCommonMSG;
    FLoginFormMSG : TLoginFormMSG;
    FCadUserFormMSG : TCadUserFormMSG;
    FAddUserFormMSG : TAddUserFormMSG;
    FPermissFormMSG : TPermissFormMSG;
    FTrocaSenhaFormMSG : TTrocaSenhaFormMSG;
    FResetPassword : TResetPassword;
    FProfileUserFormMSG: TProfileUserFormMSG;
    FAddProfileFormMSG: TAddProfileFormMSG;
    FLogControlFormMSG: TLogControlFormMSG;
    FAppMessagesMSG: TAppMessagesMSG;
    FUCXPSet: TUCXPSet;
    FXPStyle: Boolean;
    FPosition: TPosition;
    procedure SetFResetPassword(const Value: TResetPassword);
    procedure SetFProfileUserFormMSG(const Value: TProfileUserFormMSG);
    procedure SetFAddProfileFormMSG(const Value: TAddProfileFormMSG);
    procedure SetFLogControlFormMSG(const Value: TLogControlFormMSG);
    procedure SetAppMessagesMSG(const Value: TAppMessagesMSG);
  protected
    procedure SetFUserCommonMsg( const Value : TUserCommonMSG);
    procedure SetFFormLoginMsg( const Value : TLoginFormMSG);
    procedure SetFCadUserFormMSG( const Value : TCadUserFormMSG);
    procedure SetFAddUserFormMSG(const Value : TAddUserFormMSG);
    procedure SetFPermissFormMSG(const Value : TPermissFormMSG);
    procedure SetFTrocaSenhaFormMSG(const Value : TTrocaSenhaFormMSG);
  public
    constructor Create(AOwner : TComponent);
    destructor Destroy; override;
    procedure Assign(Source : TPersistent); override;

  published
    property AppMessages : TAppMessagesMSG read FAppMessagesMSG write SetAppMessagesMSG;  
    property CommonMessages : TUserCommonMSG read FUserCommomMSG write SetFUserCommonMSg;
    property Login : TLoginFormMSG      read FLoginFormMSG      write SetFFormLoginMsg;
    property Log :   TLogControlFormMSG read FLogControlFormMSG write SetFLogControlFormMSG;
    property UsersForm : TCadUserFormMSG read FCadUserFormMSG write SetFCadUserFormMSG;
    property AddChangeUser : TAddUserFormMSG read FAddUserFormMSG write SetFAddUserFormMSG;
    property AddChangeProfile : TAddProfileFormMSG read FAddProfileFormMSG write SetFAddProfileFormMSG;
    property UsersProfile : TProfileUserFormMSG read FProfileUserFormMSG write SetFProfileUserFormMSG;
    property Rights : TPermissFormMSG read FPermissFormMSG write SetFPermissFormMSG;
    property ChangePassword : TTrocaSenhaFormMSG read FTrocaSenhaFormMSG write SetFTrocaSenhaFormMSG;
    property ResetPassword : TResetPassword read FResetPassword write SetFResetPassword;
    property XPStyleSet : TUCXPSet read FUCXPSet write FUCXPSet;
    property XPStyle : Boolean read FXPStyle write FXPStyle;
    property WindowsPosition : TPosition read FPosition write FPosition;
  end;




implementation


{ TUserSettings }

procedure TUserSettings.Assign(Source: TPersistent);
begin
  if Source is TUserSettings then
  begin
    Self.CommonMessages := TUserSettings(Source).CommonMessages;
  end else inherited;
end;

constructor TUserSettings.Create(AOwner: TComponent);
begin
  inherited Create;
  FAppMessagesMSG := TAppMessagesMSG.Create(nil);
  FLoginFormMSG := TLoginFormMSG.Create(nil);
  FUserCommomMSG := TUserCommonMSG.Create(nil);
  FCadUserFormMSG := TCadUserFormMSG.Create(nil);
  FAddUserFormMSG := TAddUserFormMSG.Create(nil);
  FAddProfileFormMSG := TAddProfileFormMSG.Create(nil);
  FPermissFormMSG := TPermissFormMSG.Create(nil);
  FProfileUserFormMSG := TProfileUserFormMSG.Create(nil);
  FTrocaSenhaFormMSG := TTrocaSenhaFormMSG.Create(nil);
  FResetPassword := TResetPassword.Create(nil);
  FLogControlFormMSG := TLogControlFormMSG.Create(nil);
  FUCXPSet := TUCXPSet.Create(nil);
  FPosition := poDesktopCenter;
end;

destructor TUserSettings.Destroy;
begin
  inherited;
end;

procedure TUserSettings.SetAppMessagesMSG(const Value: TAppMessagesMSG);
begin
  FAppMessagesMSG := Value;
end;

procedure TUserSettings.SetFAddProfileFormMSG(
  const Value: TAddProfileFormMSG);
begin
  FAddProfileFormMSG := Value;
end;

procedure TUserSettings.SetFAddUserFormMSG(const Value: TAddUserFormMSG);
begin
  AddChangeUser := Value;
end;