unit UCMessages; interface {$I 'UserControl.inc'} uses Classes, Dialogs, Forms, Graphics, SysUtils, UCConsts_language; type TUCAppMessagesMSG = 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; TUCChangePassError = class(TPersistent) private FInvalidCurrentPassword: String; FNewPasswordError: String; FNewEqualCurrent: String; FPasswordRequired: String; FMinPasswordLength: String; 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; TUCUserCommonMSG = class(TPersistent) private FPasswordOFF: String; FPasswordChanged: String; FInvalidUserPass: String; FMaxLoginTry: String; FAutoLogonError: String; FFirstMSG: TStrings; FChangePasswordError: TUCChangePassError; FUsuarioExiste: String; fPasswordExpired: String; fForcaTrocaSenha: String; procedure SetFErroTrocaSenha(const Value: TUCChangePassError); 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: TUCChangePassError 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; property UsuarioExiste: String read FUsuarioExiste write FUsuarioExiste; property PasswordExpired : String read fPasswordExpired write fPasswordExpired; property ForcaTrocaSenha : String read fForcaTrocaSenha write fForcaTrocaSenha; end; TUCLoginFormMSG = class(TPersistent) private FWindowCaption: String; FLabelUser: String; FLabelPassword: String; FBtOk: String; FBtCancel: String; FBottomImage: TPicture; FLeftImage: TPicture; FTopImage: TPicture; fLabelTentativas: String; fLabelTentativa: String; 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; property LabelTentativa : String read fLabelTentativa write fLabelTentativa; // by vicente barros leonel property LabelTentativas : String read fLabelTentativas write fLabelTentativas; // by vicente barros leonel end; TUCCadUserFormMSG = class(TPersistent) private FWindowCaption: String; FLabelDescricao: String; FColNome: String; FColLogin: String; FColEmail: String; FBtAdic: String; FBtAlt: String; FBtExc: String; FBtAccess: String; FBtPass: String; FBtClose: String; 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; TUCLogControlFormMSG = class(TPersistent) private FColAppID: String; FColData: String; FColNivel: String; FColUsuario: String; FColMensagem: String; FLabelDescription: String; FWindowCaption: String; FLabelLevel: 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; 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 ColAppID: String read FColAppID write FColAppID; 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; TUCProfileUserFormMSG = class(TPersistent) private FWindowCaption: String; FLabelDescription: String; FColPerfil: String; FBtAdic: String; FBtAlt: String; FBtExc: String; FBtAcess: String; FBtClose: String; 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; TUCAddUserFormMSG = class(TPersistent) private FWindowCaption: String; FLabelAdd: String; FLabelChange: String; FLabelNome: String; FLabelLogin: String; FLabelEmail: String; FCheckPriv: String; FBtSave: String; FBtCancelar: String; FLabelPerfil: String; fCheckExpira: String; fExpiredIn: string; fDay: 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; property CheckExpira: String read fCheckExpira write fCheckExpira; property Day : String read fDay write fDay; property ExpiredIn : string read fExpiredIn write fExpiredIn; end; TUCAddProfileFormMSG = 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; TUCPermissFormMSG = class(TPersistent) private FWindowCaption: String; FBtCancela: String; FBtGrava: String; FBtLock: String; FBtUnlock: String; FPageActions: String; FPageMenu: String; FLabelProfile: String; FLabelUser: String; fPageControls: 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 PageControls: string read fPageControls write fPageControls; 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; TUCTrocaSenhaFormMSG = class(TPersistent) private FWindowCaption: String; FBtCancel: String; FBtSave: String; FLabelConfirm: String; FLabelNewPassword: String; FLabelCurrentPassword: String; FLabelDescription: 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; TUCResetPassword = class(TPersistent) private FWindowCaption: String; 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; TUCHistoryMSG = class(TPersistent) // by vicente barros leonel private fEvento_edit: String; fEvento_NewRecord: String; fEvento_Insert: String; fEvento_delete: String; fLabelTabela: String; fMsg_LogEmptyHistory: String; fMsg_MensConfirma: String; fLabelDescricao: String; fHist_BtnExcluir: String; fHist_BtnFiltro: String; fLabelForm: String; fHist_BtnFechar: String; fLabelDataEvento: String; fLabelEvento: String; fMsg_NewRecord: String; fHist_All: String; fMsg_LimpHistorico: String; fLabelHoraEvento: String; fLabelUser: String; fHist_MsgExceptPropr: String; protected public constructor Create(AOwner: TComponent); destructor Destroy; override; procedure Assign(Source: TPersistent); override; published Property Evento_Insert : String read fEvento_Insert write fEvento_Insert; Property Evento_Delete : String read fEvento_delete write fEvento_delete; Property Evento_Edit : String read fEvento_edit write fEvento_edit; Property Evento_NewRecord : String read fEvento_NewRecord write fEvento_NewRecord; Property Hist_All : String read fHist_All Write fHist_All ; Property Msg_LimpHistorico : String read fMsg_LimpHistorico Write fMsg_LimpHistorico ; Property Msg_MensConfirma : String read fMsg_MensConfirma Write fMsg_MensConfirma ; Property Msg_LogEmptyHistory : String read fMsg_LogEmptyHistory Write fMsg_LogEmptyHistory; Property LabelDescricao : String read fLabelDescricao Write fLabelDescricao ; Property LabelUser : String read fLabelUser Write fLabelUser; Property LabelForm : String read fLabelForm Write fLabelForm ; Property LabelEvento : String read fLabelEvento Write fLabelEvento; Property LabelTabela : String read fLabelTabela Write fLabelTabela; Property LabelDataEvento : String read fLabelDataEvento Write fLabelDataEvento; Property LabelHoraEvento : String read fLabelHoraEvento Write fLabelHoraEvento; Property Msg_NewRecord : String read fMsg_NewRecord Write fMsg_NewRecord; Property Hist_MsgExceptPropr : String read fHist_MsgExceptPropr write fHist_MsgExceptPropr; Property Hist_BtnFiltro : String read fHist_BtnFiltro write fHist_BtnFiltro; Property Hist_BtnExcluir : String read fHist_BtnExcluir write fHist_BtnExcluir; Property Hist_BtnFechar : String read fHist_BtnFechar write fHist_BtnFechar; end; TUCFieldType = class(TPersistent) // classe serve para controlar os tipos de campos // no comando sql de create e alter table private fTypeChar: String; fTypeVarChar: String; fTypeInt: String; fTypeMemo: String; public constructor Create(AOwner: TComponent); destructor Destroy; override; procedure Assign(Source: TPersistent); override; published Property Type_VarChar : String read fTypeVarChar write fTypeVarChar; property Type_Char : String read fTypeChar write fTypeChar; property Type_Int : String read fTypeInt write fTypeInt; Property Type_MemoField : String read fTypeMemo write fTypeMemo; end; TUCUserSettings = class(TPersistent) private FUserCommomMSG: TUCUserCommonMSG; FLoginFormMSG: TUCLoginFormMSG; FCadUserFormMSG: TUCCadUserFormMSG; FAddUserFormMSG: TUCAddUserFormMSG; FPermissFormMSG: TUCPermissFormMSG; FTrocaSenhaFormMSG: TUCTrocaSenhaFormMSG; FResetPassword: TUCResetPassword; FProfileUserFormMSG: TUCProfileUserFormMSG; FAddProfileFormMSG: TUCAddProfileFormMSG; FLogControlFormMSG: TUCLogControlFormMSG; FAppMessagesMSG: TUCAppMessagesMSG; FPosition: TPosition; fHistory: TUCHistoryMSG; fTypeFields: TUCFieldType; fLanguage: TUCLanguage; procedure SetFResetPassword(const Value: TUCResetPassword); procedure SetFProfileUserFormMSG(const Value: TUCProfileUserFormMSG); procedure SetFAddProfileFormMSG(const Value: TUCAddProfileFormMSG); procedure SetFLogControlFormMSG(const Value: TUCLogControlFormMSG); procedure SetAppMessagesMSG(const Value: TUCAppMessagesMSG); procedure SetfHistory(const Value: TUCHistoryMSG); protected procedure SetFUserCommonMsg(const Value: TUCUserCommonMSG); procedure SetFFormLoginMsg(const Value: TUCLoginFormMSG); procedure SetFCadUserFormMSG(const Value: TUCCadUserFormMSG); procedure SetFAddUserFormMSG(const Value: TUCAddUserFormMSG); procedure SetFPermissFormMSG(const Value: TUCPermissFormMSG); procedure SetFTrocaSenhaFormMSG(const Value: TUCTrocaSenhaFormMSG); public constructor Create(AOwner: TComponent); destructor Destroy; override; procedure Assign(Source: TPersistent); override; published property AppMessages: TUCAppMessagesMSG read FAppMessagesMSG write SetAppMessagesMSG; property CommonMessages: TUCUserCommonMSG read FUserCommomMSG write SetFUserCommonMSg; property Login: TUCLoginFormMSG read FLoginFormMSG write SetFFormLoginMsg; property Log: TUCLogControlFormMSG read FLogControlFormMSG write SetFLogControlFormMSG; property UsersForm: TUCCadUserFormMSG read FCadUserFormMSG write SetFCadUserFormMSG; property AddChangeUser: TUCAddUserFormMSG read FAddUserFormMSG write SetFAddUserFormMSG; property AddChangeProfile: TUCAddProfileFormMSG read FAddProfileFormMSG write SetFAddProfileFormMSG; property UsersProfile: TUCProfileUserFormMSG read FProfileUserFormMSG write SetFProfileUserFormMSG; property Rights: TUCPermissFormMSG read FPermissFormMSG write SetFPermissFormMSG; property ChangePassword: TUCTrocaSenhaFormMSG read FTrocaSenhaFormMSG write SetFTrocaSenhaFormMSG; property ResetPassword: TUCResetPassword read FResetPassword write SetFResetPassword; property History : TUCHistoryMSG read fHistory write SetfHistory; property WindowsPosition: TPosition read FPosition write FPosition; Property TypeFieldsDB : TUCFieldType read fTypeFields write fTypeFields; property Language : TUCLanguage read fLanguage write fLanguage; end; implementation { TUserSettings } procedure TUCUserSettings.Assign(Source: TPersistent); begin if Source is TUCUserSettings then Self.CommonMessages.Assign(TUCUserSettings(Source).CommonMessages) else inherited; end; constructor TUCUserSettings.Create(AOwner: TComponent); begin inherited Create; FAppMessagesMSG := TUCAppMessagesMSG.Create(nil); FLoginFormMSG := TUCLoginFormMSG.Create(nil); FUserCommomMSG := TUCUserCommonMSG.Create(nil); FCadUserFormMSG := TUCCadUserFormMSG.Create(nil); FAddUserFormMSG := TUCAddUserFormMSG.Create(nil); FAddProfileFormMSG := TUCAddProfileFormMSG.Create(nil); FPermissFormMSG := TUCPermissFormMSG.Create(nil); FProfileUserFormMSG := TUCProfileUserFormMSG.Create(nil); FTrocaSenhaFormMSG := TUCTrocaSenhaFormMSG.Create(nil); FResetPassword := TUCResetPassword.Create(nil); FLogControlFormMSG := TUCLogControlFormMSG.Create(nil); FPosition := poMainFormCenter; fHistory := TUCHistoryMsg.Create(Nil); fTypeFields := TUCFieldType.Create(Nil); end; destructor TUCUserSettings.Destroy; begin SysUtils.FreeAndNil(FAppMessagesMSG); SysUtils.FreeAndNil(FLoginFormMSG); SysUtils.FreeAndNil(FUserCommomMSG); SysUtils.FreeAndNil(FCadUserFormMSG); SysUtils.FreeAndNil(FAddUserFormMSG); SysUtils.FreeAndNil(FAddProfileFormMSG); SysUtils.FreeAndNil(FPermissFormMSG); SysUtils.FreeAndNil(FProfileUserFormMSG); SysUtils.FreeAndNil(FTrocaSenhaFormMSG); SysUtils.FreeAndNil(FResetPassword); SysUtils.FreeAndNil(FLogControlFormMSG); SysUtils.FreeAndNil(fHistory); SysUtils.FreeAndNil(fTypeFields); inherited; end; procedure TUCUserSettings.SetAppMessagesMSG(const Value: TUCAppMessagesMSG); begin FAppMessagesMSG := Value; end; procedure TUCUserSettings.SetFAddProfileFormMSG(const Value: TUCAddProfileFormMSG); begin FAddProfileFormMSG := Value; end; procedure TUCUserSettings.SetFAddUserFormMSG(const Value: TUCAddUserFormMSG); begin AddChangeUser := Value; end; procedure TUCUserSettings.SetFCadUserFormMSG(const Value: TUCCadUserFormMSG); begin UsersForm := Value; end; procedure TUCUserSettings.SetFFormLoginMsg(const Value: TUCLoginFormMSG); begin Login := Value; end; procedure TUCUserSettings.SetfHistory(const Value: TUCHistoryMSG); begin History := Value; end; procedure TUCUserSettings.SetFLogControlFormMSG(const Value: TUCLogControlFormMSG); begin FLogControlFormMSG := Value; end; procedure TUCUserSettings.SetFPermissFormMSG(const Value: TUCPermissFormMSG); begin Rights := Value; end; procedure TUCUserSettings.SetFProfileUserFormMSG(const Value: TUCProfileUserFormMSG); begin FProfileUserFormMSG := Value; end; procedure TUCUserSettings.SetFResetPassword(const Value: TUCResetPassword); begin FResetPassword := Value; end; procedure TUCUserSettings.SetFTrocaSenhaFormMSG(const Value: TUCTrocaSenhaFormMSG); begin ChangePassword := Value; end; procedure TUCUserSettings.SetFUserCommonMsg(const Value: TUCUserCommonMSG); begin CommonMessages := Value; end; { TUserCommonMSG } procedure TUCUserCommonMSG.Assign(Source: TPersistent); begin if Source is TUCUserCommonMSG then begin Self.BlankPassword := TUCUserCommonMSG(Source).BlankPassword; Self.PasswordChanged := TUCUserCommonMSG(Source).PasswordChanged; Self.InitialMessage := TUCUserCommonMSG(Source).InitialMessage; Self.InvalidLogin := TUCUserCommonMSG(Source).InvalidLogin; Self.MaxLoginAttemptsError := TUCUserCommonMSG(Source).MaxLoginAttemptsError; Self.ChangePasswordError := TUCUserCommonMSG(Source).ChangePasswordError; Self.UsuarioExiste := TUCUserCommonMSG(Source).UsuarioExiste; Self.PasswordExpired := TUCUserCommonMSG(Source).PasswordExpired; Self.ForcaTrocaSenha := TUCUserCommonMSG(Source).ForcaTrocaSenha; end else inherited; end; constructor TUCUserCommonMSG.Create(Aowner: TComponent); begin inherited Create; ChangePasswordError := TUCChangePassError.Create(nil); FFirstMSG := TStringList.Create; end; destructor TUCUserCommonMSG.Destroy; begin SysUtils.FreeAndNil(FChangePasswordError); SysUtils.FreeAndNil(FFirstMSG); inherited; end; procedure TUCUserCommonMSG.SetFErroTrocaSenha(const Value: TUCChangePassError); begin FChangePasswordError := Value; end; procedure TUCUserCommonMSG.SetFFirstMSG(const Value: TStrings); begin FFirstMSG.Assign(Value); end; { TLoginFormMSG } procedure TUCLoginFormMSG.Assign(Source: TPersistent); begin if Source is TUCLoginFormMSG then with Source as TUCLoginFormMSG do begin Self.WindowCaption := WindowCaption; Self.LabelUser := LabelUser; Self.LabelPassword := LabelPassword; Self.BtOk := BtOK; Self.BtCancel := BtCancel; end else inherited; end; constructor TUCLoginFormMSG.Create(AOwner: TComponent); begin inherited Create; FTopImage := TPicture.Create; FLeftImage := TPicture.Create; FBottomImage := TPicture.Create; end; destructor TUCLoginFormMSG.Destroy; begin SysUtils.FreeAndNil(FTopImage); SysUtils.FreeAndNil(FLeftImage); SysUtils.FreeAndNil(FBottomImage); inherited; end; procedure TUCLoginFormMSG.SetFBottomImage(const Value: TPicture); begin FBottomImage.Assign(Value); end; procedure TUCLoginFormMSG.SetFLeftImage(const Value: TPicture); begin FLeftImage.Assign(Value); end; procedure TUCLoginFormMSG.SetFTopImage(const Value: TPicture); begin FTopImage.Assign(Value); end; { TCadUserFormMSG } procedure TUCCadUserFormMSG.Assign(Source: TPersistent); begin if Source is TUCCadUserFormMSG then with Source as TUCCadUserFormMSG do begin Self.WindowCaption := WindowCaption; Self.LabelDescription := LabelDescription; Self.ColName := ColName; Self.ColLogin := ColLogin; Self.ColEmail := ColEmail; Self.BtAdd := BtAdd; Self.BtChange := BtChange; Self.BtDelete := BtDelete; Self.BtRights := BtRights; Self.BtPassword := BtPassword; Self.BtClose := BtClose; Self.PromptDelete := PromptDelete; Self.PromptDelete_WindowCaption := PromptDelete_WindowCaption; //added by fduenas end else inherited; end; constructor TUCCadUserFormMSG.Create(AOwner: TComponent); begin inherited Create; end; destructor TUCCadUserFormMSG.Destroy; begin inherited; end; { TAddUserFormMSG } procedure TUCAddUserFormMSG.Assign(Source: TPersistent); begin if Source is TUCAddUserFormMSG then with Source as TUCAddUserFormMSG do begin Self.WindowCaption := WindowCaption; Self.LabelAdd := LabelAdd; Self.LabelChange := LabelChange; Self.LabelName := LabelName; Self.LabelLogin := LabelLogin; Self.LabelEmail := LabelEmail; Self.LabelPerfil := LabelPerfil; Self.CheckPrivileged := CheckPrivileged; Self.BtSave := BtSave; Self.BtCancel := BtCancel; Self.CheckExpira := CheckExpira; Self.Day := Day; Self.ExpiredIn := ExpiredIn; end else inherited; end; constructor TUCAddUserFormMSG.Create(AOwner: TComponent); begin inherited Create; end; destructor TUCAddUserFormMSG.Destroy; begin inherited; end; { TPermissFormMSG } procedure TUCPermissFormMSG.Assign(Source: TPersistent); begin if Source is TUCPermissFormMSG then with Source as TUCPermissFormMSG do begin Self.WindowCaption := WindowCaption; Self.LabelUser := LabelUser; Self.LabelProfile := LabelProfile; Self.PageMenu := PageMenu; Self.PageActions := PageActions; Self.BtUnlock := BtUnlock; Self.BtLock := BtLock; Self.BtSave := BtSave; Self.BtCancel := BtCancel; Self.PageControls := PageControls; end else inherited; end; constructor TUCPermissFormMSG.Create(AOwner: TComponent); begin inherited Create; end; destructor TUCPermissFormMSG.Destroy; begin inherited; end; { TTrocaSenhaFormMSG } procedure TUCTrocaSenhaFormMSG.Assign(Source: TPersistent); begin if Source is TUCTrocaSenhaFormMSG then with Source as TUCTrocaSenhaFormMSG do begin Self.WindowCaption := WindowCaption; Self.LabelDescription := LabelDescription; Self.LabelCurrentPassword := LabelCurrentPassword; Self.LabelNewPassword := LabelNewPassword; Self.LabelConfirm := LabelConfirm; Self.BtSave := BtSave; Self.BtCancel := BtCancel; end else inherited; end; constructor TUCTrocaSenhaFormMSG.Create(AOwner: TComponent); begin inherited Create; end; destructor TUCTrocaSenhaFormMSG.Destroy; begin inherited; end; { TChangePassError } procedure TUCChangePassError.Assign(Source: TPersistent); begin if Source is TUCChangePassError then with Source as TUCChangePassError do begin Self.InvalidCurrentPassword := InvalidCurrentPassword; Self.NewPasswordError := NewPasswordError; Self.NewEqualCurrent := NewEqualCurrent; Self.PasswordRequired := PasswordRequired; Self.MinPasswordLength := MinPasswordLength; end else inherited; end; constructor TUCChangePassError.Create(Aowner: TComponent); begin inherited Create; end; destructor TUCChangePassError.Destroy; begin inherited; end; { TResetPassword } procedure TUCResetPassword.Assign(Source: TPersistent); begin if Source is TUCResetPassword then begin Self.WindowCaption := TUCResetPassword(Source).WindowCaption; Self.LabelPassword := TUCResetPassword(Source).LabelPassword; end else inherited; end; constructor TUCResetPassword.Create(AOwner: TComponent); begin inherited Create; end; destructor TUCResetPassword.Destroy; begin inherited; end; { TProfileUserFormMSG } procedure TUCProfileUserFormMSG.Assign(Source: TPersistent); begin if Source is TUCProfileUserFormMSG then with Source as TUCProfileUserFormMSG do begin Self.WindowCaption := WindowCaption; Self.LabelDescription := LabelDescription; Self.ColProfile := ColProfile; Self.BtAdd := BtAdd; Self.BtChange := BtChange; Self.BtDelete := BtDelete; Self.BtRights := BtRights; //BGM Self.BtClose := BtClose; Self.PromptDelete := PromptDelete; Self.PromptDelete_WindowCaption := PromptDelete_WindowCaption; //added by fduenas end else inherited; end; constructor TUCProfileUserFormMSG.Create(AOwner: TComponent); begin inherited Create; end; destructor TUCProfileUserFormMSG.Destroy; begin inherited; end; { TAddProfileFormMSG } procedure TUCAddProfileFormMSG.Assign(Source: TPersistent); begin if Source is TUCAddProfileFormMSG then with Source as TUCAddProfileFormMSG do begin Self.WindowCaption := WindowCaption; Self.LabelAdd := LabelAdd; Self.LabelChange := LabelChange; Self.LabelName := LabelName; Self.BtSave := BtSave; Self.BtCancel := BtCancel; end else inherited; end; constructor TUCAddProfileFormMSG.Create(AOwner: TComponent); begin inherited Create; end; destructor TUCAddProfileFormMSG.Destroy; begin inherited; end; { TLogControlFormMSG } procedure TUCLogControlFormMSG.Assign(Source: TPersistent); begin if Source is TUCLogControlFormMSG then with Source as TUCLogControlFormMSG do begin Self.WindowCaption := WindowCaption; Self.LabelDescription := LabelDescription; Self.LabelUser := LabelUser; Self.LabelDate := LabelDate; Self.LabelLevel := LabelLevel; Self.ColLevel := ColLevel; Self.ColAppID := ColAppID; Self.ColMessage := ColMessage; Self.ColUser := ColUser; Self.ColDate := ColDate; Self.BtFilter := BtFilter; Self.BtDelete := BtDelete; Self.BtClose := BtClose; Self.PromptDelete := PromptDelete; Self.PromptDelete_WindowCaption := PromptDelete_WindowCaption; //added by fduenas Self.OptionUserAll := OptionUserAll; //added by fduenas Self.OptionLevelLow := OptionLevelLow; //added by fduenas Self.OptionLevelNormal := OptionLevelNormal; //added by fduenas Self.OptionLevelHigh := OptionLevelHigh; //added by fduenas Self.OptionLevelCritic := OptionLevelCritic; //added by fduenas Self.DeletePerformed := DeletePerformed; //added by fduenas end else inherited; end; constructor TUCLogControlFormMSG.Create(AOwner: TComponent); begin inherited Create; end; destructor TUCLogControlFormMSG.Destroy; begin inherited; end; { TAppMessagesMSG } procedure TUCAppMessagesMSG.Assign(Source: TPersistent); begin if Source is TUCAppMessagesMSG then with Source as TUCAppMessagesMSG do begin Self.MsgsForm_BtNew := MsgsForm_BtNew; Self.MsgsForm_BtReplay := MsgsForm_BtReplay; Self.MsgsForm_BtForward := MsgsForm_BtForward; Self.MsgsForm_BtDelete := MsgsForm_BtDelete; Self.MsgsForm_WindowCaption := MsgsForm_WindowCaption; Self.MsgsForm_ColFrom := MsgsForm_ColFrom; Self.MsgsForm_ColSubject := MsgsForm_ColSubject; Self.MsgsForm_ColDate := MsgsForm_ColDate; Self.MsgsForm_PromptDelete := MsgsForm_PromptDelete; Self.MsgsForm_PromptDelete_WindowCaption := MsgsForm_PromptDelete_WindowCaption; //added by fduenas Self.MsgsForm_BtClose := MsgsForm_BtClose; //added by fduenas Self.MsgsForm_NoMessagesSelected := MsgsForm_NoMessagesSelected; //added by fduenas Self.MsgsForm_NoMessagesSelected_WindowCaption := MsgsForm_NoMessagesSelected_WindowCaption; //added by fduenas Self.MsgRec_BtClose := MsgRec_BtClose; Self.MsgRec_WindowCaption := MsgRec_WindowCaption; Self.MsgRec_Title := MsgRec_Title; Self.MsgRec_LabelFrom := MsgRec_LabelFrom; Self.MsgRec_LabelDate := MsgRec_LabelDate; Self.MsgRec_LabelSubject := MsgRec_LabelSubject; Self.MsgRec_LabelMessage := MsgRec_LabelMessage; Self.MsgSend_BtSend := MsgSend_BtSend; Self.MsgSend_BtCancel := MsgSend_BtCancel; Self.MsgSend_WindowCaption := MsgSend_WindowCaption; Self.MsgSend_Title := MsgSend_Title; Self.MsgSend_GroupTo := MsgSend_GroupTo; Self.MsgSend_RadioUser := MsgSend_RadioUser; Self.MsgSend_RadioAll := MsgSend_RadioAll; Self.MsgSend_GroupMessage := MsgSend_GroupMessage; Self.MsgSend_LabelSubject := MsgSend_LabelSubject; Self.MsgSend_LabelMessageText := MsgSend_LabelMessageText; end else inherited; end; constructor TUCAppMessagesMSG.Create(Aowner: TComponent); begin inherited Create; end; destructor TUCAppMessagesMSG.Destroy; begin inherited; end; { TUCHistoryMSG } procedure TUCHistoryMSG.Assign(Source: TPersistent); begin if Source is TUCHistoryMSG then Begin Self.Evento_edit := TUCHistoryMSG(Source).Evento_edit; Self.Evento_NewRecord := TUCHistoryMSG(Source).Evento_NewRecord; Self.Evento_Insert := TUCHistoryMSG(Source).Evento_Insert; Self.Evento_delete := TUCHistoryMSG(Source).Evento_Delete; Self.LabelTabela := TUCHistoryMSG(Source).LabelTabela; Self.Msg_LogEmptyHistory := TUCHistoryMSG(Source).Msg_LogEmptyHistory; Self.Msg_MensConfirma := TUCHistoryMSG(Source).Msg_MensConfirma; Self.LabelDescricao := TUCHistoryMSG(Source).LabelDescricao; Self.Hist_BtnExcluir := TUCHistoryMSG(Source).Hist_BtnExcluir; Self.Hist_BtnFiltro := TUCHistoryMSG(Source).Hist_BtnFiltro; Self.LabelForm := TUCHistoryMSG(Source).LabelForm; Self.Hist_BtnFechar := TUCHistoryMSG(Source).Hist_BtnFechar; Self.LabelDataEvento := TUCHistoryMSG(Source).LabelDataEvento; Self.LabelEvento := TUCHistoryMSG(Source).LabelEvento; Self.Msg_NewRecord := TUCHistoryMSG(Source).Msg_NewRecord; Self.Hist_All := TUCHistoryMSG(Source).Hist_All; Self.Msg_LimpHistorico := TUCHistoryMSG(Source).Msg_LimpHistorico; Self.LabelHoraEvento := TUCHistoryMSG(Source).LabelHoraEvento; Self.LabelUser := TUCHistoryMSG(Source).LabelUser; Self.Hist_MsgExceptPropr := TUCHistoryMSG(Source).Hist_MsgExceptPropr; End else inherited; end; constructor TUCHistoryMSG.Create(AOwner: TComponent); begin inherited Create; end; destructor TUCHistoryMSG.Destroy; begin inherited; end; { TUCFieldType } procedure TUCFieldType.Assign(Source: TPersistent); begin if Source is TUCFieldType then Begin Self.Type_VarChar := TUCFieldType(Source).Type_VarChar; Self.Type_Char := TUCFieldType(Source).Type_Char; Self.Type_Int := TUCFieldType(Source).Type_Int; Self.Type_MemoField := TUCFieldType(Source).Type_MemoField; end else inherited; end; constructor TUCFieldType.Create(AOwner: TComponent); begin inherited Create; end; destructor TUCFieldType.Destroy; begin inherited; end; end.