ucmessages.pas

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

unit UCMessages;

interface
uses SysUtils, Classes, Graphics, dialogs, UCConsts, UCXPSettings, 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;
    FMsgsForm_BtClose: String; //added by fduenas
    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;
    FMsgSend_LabelSubject: String; //added by fduenas
    FMsgSend_LabelMessageText: String; //added by fduenas

    FMsgsForm_PromptDelete: String;
    FMsgsForm_PromptDelete_WindowCaption: String; //added by fduenas
    FMsgsForm_ColDate: String;

    FMsgsForm_NoMessagesSelected: String; //added by fduenas
    FMsgsForm_NoMessagesSelected_WindowCaption: String; //added by fduenas
  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_BtClose: String read FMsgsForm_BtClose write FMsgsForm_BtClose; //added By fduenas
    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 MsgsForm_PromptDelete_WindowCaption: String read FMsgsForm_PromptDelete_WindowCaption write FMsgsForm_PromptDelete_WindowCaption; //added by fduenas
    property MsgsForm_NoMessagesSelected: String read FMsgsForm_NoMessagesSelected write FMsgsForm_NoMessagesSelected; //added by fduenas
    property MsgsForm_NoMessagesSelected_WindowCaption: String read FMsgsForm_NoMessagesSelected_WindowCaption write FMsgsForm_NoMessagesSelected_WindowCaption; //added by fduenas

    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;
    property MsgSend_LabelSubject: String read FMsgSend_LabelSubject write FMsgSend_LabelSubject; //added by fduenas
    property MsgSend_LabelMessageText: String read FMsgSend_LabelMessageText write FMsgSend_LabelMessageText; //added by fduenas
  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;
    FPromptDelete_WindowCaption: string; //added by fduenas
  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 PromptDelete_WindowCaption : String read FPromptDelete_WindowCaption write FPromptDelete_WindowCaption; //added by fduenas
    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;
    FOptionUserAll: string; //added by fduenas
    FOptionLevelLow: string; //added by fduenas
    FOptionLevelNormal: string; //added by fduenas
    FOptionLevelHigh: string; //added by fduenas
    FOptionLevelCritic: string; //added by fduenas
    FPromptDelete_WindowCaption: string; //added by fduenas
    FDeletePerformed: string; //added by fduenas
  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 BtClose : String read FBtClose write FBtClose;
    property PromptDelete : String read FConfExc write FConfExc;
    property PromptDelete_WindowCaption : String read FPromptDelete_WindowCaption write FPromptDelete_WindowCaption; //added by fduenas
    property OptionUserAll : String read FOptionUserAll write FOptionUserAll; //added by fduenas
    property OptionLevelLow : String read FOptionLevelLow write FOptionLevelLow; //added by fduenas
    property OptionLevelNormal : String read FOptionLevelNormal write FOptionLevelNormal; //added by fduenas
    property OptionLevelHigh : String read FOptionLevelHigh write FOptionLevelHigh; //added by fduenas
    property OptionLevelCritic : String read FOptionLevelCritic write FOptionLevelCritic; //added by fduenas
    property DeletePerformed : String read FDeletePerformed write FDeletePerformed; //added by fduenas
  end;

  TProfileUserFormMSG = class(TPersistent)
  private
    FWindowCaption, FLabelDescription, FColPerfil, FBtAdic, FBtAlt,
    FBtExc, FBtAcess {BGM}, FBtClose, FConfExc : String;
    FPromptDelete_WindowCaption: string; //added by fduenas
  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 PromptDelete_WindowCaption : String read FPromptDelete_WindowCaption write FPromptDelete_WindowCaption; //added by fduenas
    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