david
630e91ec0c
- Cambiado el formato de fechas 'mm/dd/yyyy' a 'dd/mm/yyyy'. git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.UserControl@14 970f2627-a9d2-4748-b3d4-b5283c4fe7db
1412 lines
75 KiB
ObjectPascal
1412 lines
75 KiB
ObjectPascal
unit UCSettings;
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes,
|
|
Forms,
|
|
UCMessages,
|
|
UcConsts_Language;
|
|
|
|
type
|
|
TUCSettings = class(TComponent)
|
|
private
|
|
FAddProfileFormMSG: TUCAddProfileFormMSG;
|
|
FAddUserFormMSG: TUCAddUserFormMSG;
|
|
FCadUserFormMSG: TUCCadUserFormMSG;
|
|
FLogControlFormMSG: TUCLogControlFormMSG;
|
|
FLoginFormMSG: TUCLoginFormMSG;
|
|
FPermissFormMSG: TUCPermissFormMSG;
|
|
FProfileUserFormMSG: TUCProfileUserFormMSG;
|
|
FResetPassword: TUCResetPassword;
|
|
FTrocaSenhaFormMSG: TUCTrocaSenhaFormMSG;
|
|
FUserCommomMSG: TUCUserCommonMSG;
|
|
FAppMessagesMSG: TUCAppMessagesMSG;
|
|
FPosition: TPosition;
|
|
fHistory: TUCHistoryMSG;
|
|
fTypeFields: TUCFieldType;
|
|
fLanguage: TUCLanguage;
|
|
procedure SetFAddProfileFormMSG(const Value: TUCAddProfileFormMSG);
|
|
procedure SetFAddUserFormMSG(const Value: TUCAddUserFormMSG);
|
|
procedure SetFCadUserFormMSG(const Value: TUCCadUserFormMSG);
|
|
procedure SetFFormLoginMsg(const Value: TUCLoginFormMSG);
|
|
procedure SetFLogControlFormMSG(const Value: TUCLogControlFormMSG);
|
|
procedure SetFPermissFormMSG(const Value: TUCPermissFormMSG);
|
|
procedure SetFProfileUserFormMSG(const Value: TUCProfileUserFormMSG);
|
|
procedure SetFResetPassword(const Value: TUCResetPassword);
|
|
procedure SetFTrocaSenhaFormMSG(const Value: TUCTrocaSenhaFormMSG);
|
|
procedure SetFUserCommonMSg(const Value: TUCUserCommonMSG);
|
|
procedure SetAppMessagesMSG(const Value: TUCAppMessagesMSG);
|
|
procedure SetfHistory(const Value: TUCHistoryMSG);
|
|
procedure SetfLanguage(const Value: TUCLanguage);
|
|
protected
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
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 TypeFieldsDB : TUCFieldType read fTypeFields write fTypeFields;
|
|
property WindowsPosition: TPosition read FPosition write FPosition default poMainFormCenter;
|
|
Property Language : TUCLanguage read fLanguage write SetfLanguage;
|
|
end;
|
|
|
|
procedure IniSettings (DestSettings: TUCUserSettings);
|
|
procedure IniSettings2(DestSettings: TUCSettings);
|
|
|
|
procedure AlterLanguage(DestSettings: TUCUserSettings);
|
|
procedure AlterLanguage2(DestSettings: TUCSettings);
|
|
|
|
implementation
|
|
|
|
uses
|
|
Graphics,
|
|
SysUtils,
|
|
UCBase;
|
|
// UCConsts;
|
|
|
|
{$IFDEF DELPHI9_UP} {$REGION 'Inicializacao'} {$ENDIF}
|
|
|
|
procedure IniSettings(DestSettings: TUCUserSettings);
|
|
var
|
|
tmp: TBitmap;
|
|
begin
|
|
with DestSettings.CommonMessages do
|
|
begin
|
|
if BlankPassword = '' then
|
|
BlankPassword := RetornaLingua( ucPortuguesBr ,'Const_Men_SenhaDesabitada');
|
|
if PasswordChanged = '' then
|
|
PasswordChanged := RetornaLingua( ucPortuguesBr ,'Const_Men_SenhaAlterada');
|
|
if InitialMessage.Text = '' then
|
|
InitialMessage.Text := RetornaLingua( ucPortuguesBr ,'Const_Men_MsgInicial');
|
|
if MaxLoginAttemptsError = '' then
|
|
MaxLoginAttemptsError := RetornaLingua( ucPortuguesBr ,'Const_Men_MaxTentativas');
|
|
if InvalidLogin = '' then
|
|
InvalidLogin := RetornaLingua( ucPortuguesBr ,'Const_Men_LoginInvalido');
|
|
if AutoLogonError = '' then
|
|
AutoLogonError := RetornaLingua( ucPortuguesBr ,'Const_Men_AutoLogonError');
|
|
if UsuarioExiste = '' then
|
|
UsuarioExiste := RetornaLingua( ucPortuguesBr ,'Const_Men_UsuarioExiste');
|
|
if PasswordExpired = '' then
|
|
PasswordExpired := RetornaLingua( ucPortuguesBr ,'Const_Men_PasswordExpired');
|
|
If ForcaTrocaSenha = '' then
|
|
ForcaTrocaSenha := RetornaLingua( ucPortuguesBr ,'Const_ErrPass_ForcaTrocaSenha');
|
|
end;
|
|
|
|
with DestSettings.Login do
|
|
begin
|
|
if BtCancel = '' then
|
|
BtCancel := RetornaLingua( ucPortuguesBr ,'Const_Log_BtCancelar');
|
|
if BtOK = '' then
|
|
BtOK := RetornaLingua( ucPortuguesBr ,'Const_Log_BtOK');
|
|
if LabelPassword = '' then
|
|
LabelPassword := RetornaLingua( ucPortuguesBr ,'Const_Log_LabelSenha');
|
|
if LabelUser = '' then
|
|
LabelUser := RetornaLingua( ucPortuguesBr ,'Const_Log_LabelUsuario');
|
|
if WindowCaption = '' then
|
|
WindowCaption := RetornaLingua( ucPortuguesBr ,'Const_Log_WindowCaption');
|
|
|
|
if LabelTentativa = '' then
|
|
LabelTentativa := RetornaLingua( ucPortuguesBr ,'Const_Log_LabelTentativa');
|
|
if LabelTentativas = '' then
|
|
LabelTentativas := RetornaLingua( ucPortuguesBr ,'Const_Log_LabelTentativas');
|
|
|
|
|
|
try
|
|
Tmp := TBitmap.Create;
|
|
Tmp.LoadFromResourceName(HInstance, 'UCLOCKLOGIN');
|
|
LeftImage.Assign(tmp);
|
|
finally
|
|
FreeAndNil(tmp);
|
|
end;
|
|
end;
|
|
|
|
with DestSettings.UsersForm do
|
|
begin
|
|
if WindowCaption = '' then
|
|
WindowCaption := RetornaLingua( ucPortuguesBr ,'Const_Cad_WindowCaption');
|
|
if LabelDescription = '' then
|
|
LabelDescription := RetornaLingua( ucPortuguesBr ,'Const_Cad_LabelDescricao');
|
|
if ColName = '' then
|
|
ColName := RetornaLingua( ucPortuguesBr ,'Const_Cad_ColunaNome');
|
|
if ColLogin = '' then
|
|
ColLogin := RetornaLingua( ucPortuguesBr ,'Const_Cad_ColunaLogin');
|
|
if ColEmail = '' then
|
|
ColEmail := RetornaLingua( ucPortuguesBr ,'Const_Cad_ColunaEmail');
|
|
if BtAdd = '' then
|
|
BtAdd := RetornaLingua( ucPortuguesBr ,'Const_Cad_BtAdicionar');
|
|
if BtChange = '' then
|
|
BtChange := RetornaLingua( ucPortuguesBr ,'Const_Cad_BtAlterar');
|
|
if BtDelete = '' then
|
|
BtDelete := RetornaLingua( ucPortuguesBr ,'Const_Cad_BtExcluir');
|
|
if BtRights = '' then
|
|
BtRights := RetornaLingua( ucPortuguesBr ,'Const_Cad_BtPermissoes');
|
|
if BtPassword = '' then
|
|
BtPassword := RetornaLingua( ucPortuguesBr ,'Const_Cad_BtSenha');
|
|
if BtClose = '' then
|
|
BtClose := RetornaLingua( ucPortuguesBr ,'Const_Cad_BtFechar');
|
|
if PromptDelete = '' then
|
|
PromptDelete := RetornaLingua( ucPortuguesBr ,'Const_Cad_ConfirmaExcluir');
|
|
if PromptDelete_WindowCaption = '' then
|
|
PromptDelete_WindowCaption := RetornaLingua( ucPortuguesBr ,'Const_Cad_ConfirmaDelete_WindowCaption'); //added by fduenas
|
|
end;
|
|
|
|
with DestSettings.UsersProfile do
|
|
begin
|
|
if WindowCaption = '' then
|
|
WindowCaption := RetornaLingua( ucPortuguesBr ,'Const_Prof_WindowCaption');
|
|
if LabelDescription = '' then
|
|
LabelDescription := RetornaLingua( ucPortuguesBr ,'Const_Prof_LabelDescricao');
|
|
if ColProfile = '' then
|
|
ColProfile := RetornaLingua( ucPortuguesBr ,'Const_Prof_ColunaNome');
|
|
if BtAdd = '' then
|
|
BtAdd := RetornaLingua( ucPortuguesBr ,' Const_Prof_BtAdicionar');
|
|
if BtChange = '' then
|
|
BtChange := RetornaLingua( ucPortuguesBr ,'Const_Prof_BtAlterar');
|
|
if BtDelete = '' then
|
|
BtDelete := RetornaLingua( ucPortuguesBr ,'Const_Prof_BtExcluir');
|
|
if BtRights = '' then
|
|
BtRights := RetornaLingua( ucPortuguesBr ,'Const_Prof_BtPermissoes');
|
|
if BtClose = '' then
|
|
BtClose := RetornaLingua( ucPortuguesBr ,'Const_Prof_BtFechar');
|
|
if PromptDelete = '' then
|
|
PromptDelete := RetornaLingua( ucPortuguesBr ,'Const_Prof_ConfirmaExcluir');
|
|
if PromptDelete_WindowCaption = '' then
|
|
PromptDelete_WindowCaption := RetornaLingua( ucPortuguesBr ,'Const_Prof_ConfirmaDelete_WindowCaption'); //added by fduenas
|
|
end;
|
|
|
|
with DestSettings.AddChangeUser do
|
|
begin
|
|
if WindowCaption = '' then
|
|
WindowCaption := RetornaLingua( ucPortuguesBr ,'Const_Inc_WindowCaption');
|
|
if LabelAdd = '' then
|
|
LabelAdd := RetornaLingua( ucPortuguesBr ,'Const_Inc_LabelAdicionar');
|
|
if LabelChange = '' then
|
|
LabelChange := RetornaLingua( ucPortuguesBr ,'Const_Inc_LabelAlterar');
|
|
if LabelName = '' then
|
|
LabelName := RetornaLingua( ucPortuguesBr ,'Const_Inc_LabelNome');
|
|
if LabelLogin = '' then
|
|
LabelLogin := RetornaLingua( ucPortuguesBr ,'Const_Inc_LabelLogin');
|
|
if LabelEmail = '' then
|
|
LabelEmail := RetornaLingua( ucPortuguesBr ,'Const_Inc_LabelEmail');
|
|
if LabelPerfil = '' then
|
|
LabelPerfil := RetornaLingua( ucPortuguesBr ,'Const_Inc_LabelPerfil');
|
|
if CheckPrivileged = '' then
|
|
CheckPrivileged := RetornaLingua( ucPortuguesBr ,'Const_Inc_CheckPrivilegiado');
|
|
|
|
if BtSave = '' then
|
|
BtSave := RetornaLingua( ucPortuguesBr ,'Const_Inc_BtGravar');
|
|
if BtCancel = '' then
|
|
BtCancel := RetornaLingua( ucPortuguesBr ,'Const_Inc_BtCancelar');
|
|
|
|
if CheckExpira = '' then
|
|
CheckExpira := RetornaLingua( ucPortuguesBr ,'Const_Inc_CheckEspira');
|
|
If Day = '' then
|
|
Day := RetornaLingua( ucPortuguesBr ,'Const_Inc_Dia');
|
|
If ExpiredIn = '' then
|
|
ExpiredIn := RetornaLingua( ucPortuguesBr ,'Const_Inc_ExpiraEm');
|
|
end;
|
|
|
|
with DestSettings.AddChangeProfile do
|
|
begin
|
|
if WindowCaption = '' then
|
|
WindowCaption := RetornaLingua( ucPortuguesBr ,'Const_PInc_WindowCaption');
|
|
if LabelAdd = '' then
|
|
LabelAdd := RetornaLingua( ucPortuguesBr ,'Const_PInc_LabelAdicionar');
|
|
if LabelChange = '' then
|
|
LabelChange := RetornaLingua( ucPortuguesBr ,'Const_PInc_LabelAlterar');
|
|
if LabelName = '' then
|
|
LabelName := RetornaLingua( ucPortuguesBr ,'Const_PInc_LabelNome');
|
|
if BtSave = '' then
|
|
BtSave := RetornaLingua( ucPortuguesBr ,'Const_PInc_BtGravar');
|
|
if BtCancel = '' then
|
|
BtCancel := RetornaLingua( ucPortuguesBr ,'Const_PInc_BtCancelar');
|
|
end;
|
|
|
|
with DestSettings.Rights do
|
|
begin
|
|
if WindowCaption = '' then
|
|
WindowCaption := RetornaLingua( ucPortuguesBr ,'Const_Perm_WindowCaption');
|
|
if LabelUser = '' then
|
|
LabelUser := RetornaLingua( ucPortuguesBr ,'Const_Perm_LabelUsuario');
|
|
if LabelProfile = '' then
|
|
LabelProfile := RetornaLingua( ucPortuguesBr ,'Const_Perm_LabelPerfil');
|
|
if PageMenu = '' then
|
|
PageMenu := RetornaLingua( ucPortuguesBr ,'Const_Perm_PageMenu');
|
|
if PageActions = '' then
|
|
PageActions := RetornaLingua( ucPortuguesBr ,'Const_Perm_PageActions');
|
|
If PageControls = '' then
|
|
PageControls := RetornaLingua( ucPortuguesBr ,'Const_Perm_PageControls'); // by vicente barros leonel
|
|
if BtUnlock = '' then
|
|
BtUnlock := RetornaLingua( ucPortuguesBr ,'Const_Perm_BtLibera');
|
|
if BtLock = '' then
|
|
BtLock := RetornaLingua( ucPortuguesBr ,'Const_Perm_BtBloqueia');
|
|
if BtSave = '' then
|
|
BtSave := RetornaLingua( ucPortuguesBr ,'Const_Perm_BtGravar');
|
|
if BtCancel = '' then
|
|
BtCancel := RetornaLingua( ucPortuguesBr ,'Const_Perm_BtCancelar');
|
|
end;
|
|
|
|
with DestSettings.ChangePassword do
|
|
begin
|
|
if WindowCaption = '' then
|
|
WindowCaption := RetornaLingua( ucPortuguesBr ,'Const_Troc_WindowCaption');
|
|
if LabelDescription = '' then
|
|
LabelDescription := RetornaLingua( ucPortuguesBr ,'Const_Troc_LabelDescricao');
|
|
if LabelCurrentPassword = '' then
|
|
LabelCurrentPassword := RetornaLingua( ucPortuguesBr ,'Const_Troc_LabelSenhaAtual');
|
|
if LabelNewPassword = '' then
|
|
LabelNewPassword := RetornaLingua( ucPortuguesBr ,'Const_Troc_LabelNovaSenha');
|
|
if LabelConfirm = '' then
|
|
LabelConfirm := RetornaLingua( ucPortuguesBr ,'Const_Troc_LabelConfirma');
|
|
if BtSave = '' then
|
|
BtSave := RetornaLingua( ucPortuguesBr ,'Const_Troc_BtGravar');
|
|
if BtCancel = '' then
|
|
BtCancel := RetornaLingua( ucPortuguesBr ,'Const_Troc_BtCancelar');
|
|
end;
|
|
|
|
with DestSettings.CommonMessages.ChangePasswordError do
|
|
begin
|
|
if InvalidCurrentPassword = '' then
|
|
InvalidCurrentPassword := RetornaLingua( ucPortuguesBr ,'Const_ErrPass_SenhaAtualInvalida');
|
|
if NewPasswordError = '' then
|
|
NewPasswordError := RetornaLingua( ucPortuguesBr ,'Const_ErrPass_ErroNovaSenha');
|
|
if NewEqualCurrent = '' then
|
|
NewEqualCurrent := RetornaLingua( ucPortuguesBr ,'Const_ErrPass_NovaIgualAtual');
|
|
if PasswordRequired = '' then
|
|
PasswordRequired := RetornaLingua( ucPortuguesBr ,'Const_ErrPass_SenhaObrigatoria');
|
|
if MinPasswordLength = '' then
|
|
MinPasswordLength := RetornaLingua( ucPortuguesBr ,'Const_ErrPass_SenhaMinima');
|
|
if InvalidNewPassword = '' then
|
|
InvalidNewPassword := RetornaLingua( ucPortuguesBr ,'Const_ErrPass_SenhaInvalida');
|
|
end;
|
|
|
|
with DestSettings.ResetPassword do
|
|
begin
|
|
if WindowCaption = '' then
|
|
WindowCaption := RetornaLingua( ucPortuguesBr ,'Const_DefPass_WindowCaption');
|
|
if LabelPassword = '' then
|
|
LabelPassword := RetornaLingua( ucPortuguesBr ,'Const_DefPass_LabelSenha');
|
|
end;
|
|
|
|
with DestSettings.Log do
|
|
begin
|
|
if WindowCaption = '' then
|
|
WindowCaption := RetornaLingua( ucPortuguesBr ,'Const_LogC_WindowCaption');
|
|
if LabelDescription = '' then
|
|
LabelDescription := RetornaLingua( ucPortuguesBr ,'Const_LogC_LabelDescricao');
|
|
if LabelUser = '' then
|
|
LabelUser := RetornaLingua( ucPortuguesBr ,'Const_LogC_LabelUsuario');
|
|
if LabelDate = '' then
|
|
LabelDate := RetornaLingua( ucPortuguesBr ,'Const_LogC_LabelData');
|
|
if LabelLevel = '' then
|
|
LabelLevel := RetornaLingua( ucPortuguesBr ,'Const_LogC_LabelNivel');
|
|
if ColLevel = '' then
|
|
ColLevel := RetornaLingua( ucPortuguesBr ,'Const_LogC_ColunaNivel');
|
|
if ColAppID = '' then
|
|
ColAppID := RetornaLingua( ucPortuguesBr ,'Const_LogC_ColunaAppID');
|
|
if ColMessage = '' then
|
|
ColMessage := RetornaLingua( ucPortuguesBr ,'Const_LogC_ColunaMensagem');
|
|
if ColUser = '' then
|
|
ColUser := RetornaLingua( ucPortuguesBr ,'Const_LogC_ColunaUsuario');
|
|
if ColDate = '' then
|
|
ColDate := RetornaLingua( ucPortuguesBr ,'Const_LogC_ColunaData');
|
|
if BtFilter = '' then
|
|
BtFilter := RetornaLingua( ucPortuguesBr ,'Const_LogC_BtFiltro');
|
|
if BtDelete = '' then
|
|
BtDelete := RetornaLingua( ucPortuguesBr ,'Const_LogC_BtExcluir');
|
|
if BtClose = '' then
|
|
BtClose := RetornaLingua( ucPortuguesBr ,'Const_LogC_BtFechar');
|
|
if PromptDelete = '' then
|
|
PromptDelete := RetornaLingua( ucPortuguesBr ,'Const_LogC_ConfirmaExcluir');
|
|
if PromptDelete_WindowCaption = '' then
|
|
PromptDelete_WindowCaption := RetornaLingua( ucPortuguesBr ,'Const_LogC_ConfirmaDelete_WindowCaption'); //added by fduenas
|
|
if OptionUserAll = '' then
|
|
OptionUserAll := RetornaLingua( ucPortuguesBr ,'Const_LogC_Todos'); //added by fduenas
|
|
if OptionLevelLow = '' then
|
|
OptionLevelLow := RetornaLingua( ucPortuguesBr ,'Const_LogC_Low'); //added by fduenas
|
|
if OptionLevelNormal = '' then
|
|
OptionLevelNormal := RetornaLingua( ucPortuguesBr ,'Const_LogC_Normal'); //added by fduenas
|
|
if OptionLevelHigh = '' then
|
|
OptionLevelHigh := RetornaLingua( ucPortuguesBr ,'Const_LogC_High'); //added by fduenas
|
|
if OptionLevelCritic = '' then
|
|
OptionLevelCritic := RetornaLingua( ucPortuguesBr ,'Const_LogC_Critic'); //added by fduenas
|
|
if DeletePerformed = '' then
|
|
DeletePerformed := RetornaLingua( ucPortuguesBr ,'Const_LogC_ExcluirEfectuada'); //added by fduenas
|
|
end;
|
|
|
|
with DestSettings.AppMessages do
|
|
begin
|
|
if MsgsForm_BtNew = '' then
|
|
MsgsForm_BtNew := RetornaLingua( ucPortuguesBr ,'Const_Msgs_BtNew');
|
|
if MsgsForm_BtReplay = '' then
|
|
MsgsForm_BtReplay := RetornaLingua( ucPortuguesBr ,'Const_Msgs_BtReplay');
|
|
if MsgsForm_BtForward = '' then
|
|
MsgsForm_BtForward := RetornaLingua( ucPortuguesBr ,'Const_Msgs_BtForward');
|
|
if MsgsForm_BtDelete = '' then
|
|
MsgsForm_BtDelete := RetornaLingua( ucPortuguesBr ,'Const_Msgs_BtDelete');
|
|
if MsgsForm_BtClose = '' then
|
|
MsgsForm_BtDelete := RetornaLingua( ucPortuguesBr ,'Const_Msgs_BtClose'); //added by fduenas
|
|
if MsgsForm_WindowCaption = '' then
|
|
MsgsForm_WindowCaption := RetornaLingua( ucPortuguesBr ,'Const_Msgs_WindowCaption');
|
|
if MsgsForm_ColFrom = '' then
|
|
MsgsForm_ColFrom := RetornaLingua( ucPortuguesBr ,'Const_Msgs_ColFrom');
|
|
if MsgsForm_ColSubject = '' then
|
|
MsgsForm_ColSubject := RetornaLingua( ucPortuguesBr ,'Const_Msgs_ColSubject');
|
|
if MsgsForm_ColDate = '' then
|
|
MsgsForm_ColDate := RetornaLingua( ucPortuguesBr ,'Const_Msgs_ColDate');
|
|
if MsgsForm_PromptDelete = '' then
|
|
MsgsForm_PromptDelete := RetornaLingua( ucPortuguesBr ,'Const_Msgs_PromptDelete');
|
|
if MsgsForm_PromptDelete_WindowCaption = '' then
|
|
MsgsForm_PromptDelete_WindowCaption := RetornaLingua( ucPortuguesBr ,'Const_Msgs_PromptDelete_WindowCaption');
|
|
if MsgsForm_NoMessagesSelected = '' then
|
|
MsgsForm_NoMessagesSelected := RetornaLingua( ucPortuguesBr ,'Const_Msgs_NoMessagesSelected');
|
|
if MsgsForm_NoMessagesSelected_WindowCaption = '' then
|
|
MsgsForm_NoMessagesSelected_WindowCaption := RetornaLingua( ucPortuguesBr ,'Const_Msgs_NoMessagesSelected_WindowCaption');
|
|
if MsgRec_BtClose = '' then
|
|
MsgRec_BtClose := RetornaLingua( ucPortuguesBr ,'Const_MsgRec_BtClose');
|
|
if MsgRec_WindowCaption = '' then
|
|
MsgRec_WindowCaption := RetornaLingua( ucPortuguesBr ,'Const_MsgRec_WindowCaption');
|
|
if MsgRec_Title = '' then
|
|
MsgRec_Title := RetornaLingua( ucPortuguesBr ,'Const_MsgRec_Title');
|
|
if MsgRec_LabelFrom = '' then
|
|
MsgRec_LabelFrom := RetornaLingua( ucPortuguesBr ,'Const_MsgRec_LabelFrom');
|
|
if MsgRec_LabelDate = '' then
|
|
MsgRec_LabelDate := RetornaLingua( ucPortuguesBr ,'Const_MsgRec_LabelDate');
|
|
if MsgRec_LabelSubject = '' then
|
|
MsgRec_LabelSubject := RetornaLingua( ucPortuguesBr ,'Const_MsgRec_LabelSubject');
|
|
if MsgRec_LabelMessage = '' then
|
|
MsgRec_LabelMessage := RetornaLingua( ucPortuguesBr ,'Const_MsgRec_LabelMessage');
|
|
if MsgSend_BtSend = '' then
|
|
MsgSend_BtSend := RetornaLingua( ucPortuguesBr ,'Const_MsgSend_BtSend');
|
|
if MsgSend_BtCancel = '' then
|
|
MsgSend_BtCancel := RetornaLingua( ucPortuguesBr ,'Const_MsgSend_BtCancel');
|
|
if MsgSend_WindowCaption = '' then
|
|
MsgSend_WindowCaption := RetornaLingua( ucPortuguesBr ,'Const_MsgSend_WindowCaption');
|
|
if MsgSend_Title = '' then
|
|
MsgSend_Title := RetornaLingua( ucPortuguesBr ,'Const_MsgSend_Title');
|
|
if MsgSend_GroupTo = '' then
|
|
MsgSend_GroupTo := RetornaLingua( ucPortuguesBr ,'Const_MsgSend_GroupTo');
|
|
if MsgSend_RadioUser = '' then
|
|
MsgSend_RadioUser := RetornaLingua( ucPortuguesBr ,'Const_MsgSend_RadioUser');
|
|
if MsgSend_RadioAll = '' then
|
|
MsgSend_RadioAll := RetornaLingua( ucPortuguesBr ,'Const_MsgSend_RadioAll');
|
|
if MsgSend_GroupMessage = '' then
|
|
MsgSend_GroupMessage := RetornaLingua( ucPortuguesBr ,'Const_MsgSend_GroupMessage');
|
|
if MsgSend_LabelSubject = '' then
|
|
MsgSend_LabelSubject := RetornaLingua( ucPortuguesBr ,'Const_MsgSend_LabelSubject'); //added by fduenas
|
|
if MsgSend_LabelMessageText = '' then
|
|
MsgSend_LabelMessageText := RetornaLingua( ucPortuguesBr ,'Const_MsgSend_LabelMessageText'); //added by fduenas
|
|
end;
|
|
|
|
DestSettings.WindowsPosition := poMainFormCenter;
|
|
|
|
With DestSettings.History do
|
|
Begin
|
|
If Evento_Insert = '' then
|
|
Evento_Insert := RetornaLingua( ucPortuguesBr ,'Const_Evento_Insert');
|
|
if Evento_Delete = '' then
|
|
Evento_Delete := RetornaLingua( ucPortuguesBr ,'Const_Evento_Delete');
|
|
if Evento_Edit = '' then
|
|
Evento_Edit := RetornaLingua( ucPortuguesBr ,'Const_Evento_Edit');
|
|
If Evento_NewRecord = '' then
|
|
Evento_NewRecord := RetornaLingua( ucPortuguesBr ,'Const_Evento_NewRecord');
|
|
If Hist_all = '' then
|
|
Hist_All := RetornaLingua( ucPortuguesBr ,'Const_Hist_All');
|
|
If Msg_LimpHistorico = '' then
|
|
Msg_LimpHistorico := RetornaLingua( ucPortuguesBr ,'Const_Msg_LimpHistorico');
|
|
If Msg_MensConfirma = '' then
|
|
Msg_MensConfirma := RetornaLingua( ucPortuguesBr ,'Const_Msg_MensConfirma');
|
|
if Msg_LogEmptyHistory = '' then
|
|
Msg_LogEmptyHistory := RetornaLingua( ucPortuguesBr ,'Const_Msg_LogEmptyHistory');
|
|
if LabelDescricao = '' then
|
|
LabelDescricao := RetornaLingua( ucPortuguesBr ,'Const_LabelDescricao');
|
|
if LabelUser = '' then
|
|
LabelUser := RetornaLingua( ucPortuguesBr ,'Const_LabelUser');
|
|
if LabelForm = '' then
|
|
LabelForm := RetornaLingua( ucPortuguesBr ,'Const_LabelForm');
|
|
if LabelEvento = '' then
|
|
LabelEvento := RetornaLingua( ucPortuguesBr ,'const_LabelEvento');
|
|
if LabelTabela = '' then
|
|
LabelTabela := RetornaLingua( ucPortuguesBr ,'const_LabelTabela');
|
|
if LabelDataEvento = '' then
|
|
LabelDataEvento := RetornaLingua( ucPortuguesBr ,'const_LabelDataEvento');
|
|
if LabelHoraEvento = '' then
|
|
LabelHoraEvento := RetornaLingua( ucPortuguesBr ,'const_LabelHoraEvento');
|
|
if Msg_NewRecord = '' then
|
|
Msg_NewRecord := RetornaLingua( ucPortuguesBr ,'const_Msg_NewRecord');
|
|
if Hist_MsgExceptPropr = '' then
|
|
Hist_MsgExceptPropr := RetornaLingua( ucPortuguesBr ,'Const_Hist_MsgExceptPropr');
|
|
if Hist_BtnFiltro = '' then
|
|
Hist_BtnFiltro := RetornaLingua( ucPortuguesBr ,'const_Hist_BtnFiltro');
|
|
if Hist_BtnExcluir = '' then
|
|
Hist_BtnExcluir := RetornaLingua( ucPortuguesBr ,'const_Hist_BtnExcluir');
|
|
if Hist_BtnFechar = '' then
|
|
Hist_BtnFechar := RetornaLingua( ucPortuguesBr ,'const_Hist_BtnFechar');
|
|
End;
|
|
|
|
With DestSettings.TypeFieldsDB do
|
|
Begin
|
|
If Type_VarChar = '' then
|
|
Type_VarChar := 'VarChar';
|
|
if Type_Char = '' then
|
|
Type_Char := 'Char';
|
|
if Type_Int = '' then
|
|
Type_Int := 'Int';
|
|
if Type_MemoField = '' then
|
|
Type_MemoField := 'BLOB SUB_TYPE 1 SEGMENT SIZE 1024';
|
|
end;
|
|
end;
|
|
|
|
procedure IniSettings2(DestSettings: TUCSettings);
|
|
var
|
|
tmp: TBitmap;
|
|
begin
|
|
with DestSettings.CommonMessages do
|
|
begin
|
|
if BlankPassword = '' then
|
|
BlankPassword := RetornaLingua( DestSettings.fLanguage , 'Const_Men_SenhaDesabitada');
|
|
if PasswordChanged = '' then
|
|
PasswordChanged := RetornaLingua( DestSettings.fLanguage , 'Const_Men_SenhaAlterada');
|
|
if InitialMessage.Text = '' then
|
|
InitialMessage.Text := RetornaLingua( DestSettings.fLanguage , 'Const_Men_MsgInicial');
|
|
if MaxLoginAttemptsError = '' then
|
|
MaxLoginAttemptsError := RetornaLingua( DestSettings.fLanguage , 'Const_Men_MaxTentativas');
|
|
if InvalidLogin = '' then
|
|
InvalidLogin := RetornaLingua( DestSettings.fLanguage , 'Const_Men_LoginInvalido');
|
|
if AutoLogonError = '' then
|
|
AutoLogonError := RetornaLingua( DestSettings.fLanguage , 'Const_Men_AutoLogonError');
|
|
if UsuarioExiste = '' then
|
|
UsuarioExiste := RetornaLingua( DestSettings.fLanguage , 'Const_Men_UsuarioExiste');
|
|
if PasswordExpired = '' then
|
|
PasswordExpired := RetornaLingua( DestSettings.fLanguage , 'Const_Men_PasswordExpired');
|
|
If ForcaTrocaSenha = '' then
|
|
ForcaTrocaSenha := RetornaLingua( DestSettings.fLanguage , 'Const_ErrPass_ForcaTrocaSenha');
|
|
end;
|
|
|
|
with DestSettings.Login do
|
|
begin
|
|
if BtCancel = '' then
|
|
BtCancel := RetornaLingua( DestSettings.fLanguage , 'Const_Log_BtCancelar');
|
|
if BtOK = '' then
|
|
BtOK := RetornaLingua( DestSettings.fLanguage , 'Const_Log_BtOK');
|
|
if LabelPassword = '' then
|
|
LabelPassword := RetornaLingua( DestSettings.fLanguage , 'Const_Log_LabelSenha');
|
|
if LabelUser = '' then
|
|
LabelUser := RetornaLingua( DestSettings.fLanguage , 'Const_Log_LabelUsuario');
|
|
if WindowCaption = '' then
|
|
WindowCaption := RetornaLingua( DestSettings.fLanguage , 'Const_Log_WindowCaption');
|
|
|
|
if LabelTentativa = '' then
|
|
LabelTentativa := RetornaLingua( DestSettings.fLanguage , 'Const_Log_LabelTentativa');
|
|
if LabelTentativas = '' then
|
|
LabelTentativas := RetornaLingua( DestSettings.fLanguage , 'Const_Log_LabelTentativas');
|
|
|
|
try
|
|
Tmp := TBitmap.Create;
|
|
Tmp.LoadFromResourceName(HInstance, 'UCLOCKLOGIN');
|
|
LeftImage.Assign(tmp);
|
|
finally
|
|
FreeAndNil(tmp);
|
|
end;
|
|
end;
|
|
|
|
with DestSettings.UsersForm do
|
|
begin
|
|
if WindowCaption = '' then
|
|
WindowCaption := RetornaLingua( DestSettings.fLanguage , 'Const_Cad_WindowCaption');
|
|
if LabelDescription = '' then
|
|
LabelDescription := RetornaLingua( DestSettings.fLanguage , 'Const_Cad_LabelDescricao');
|
|
if ColName = '' then
|
|
ColName := RetornaLingua( DestSettings.fLanguage , 'Const_Cad_ColunaNome');
|
|
if ColLogin = '' then
|
|
ColLogin := RetornaLingua( DestSettings.fLanguage , 'Const_Cad_ColunaLogin');
|
|
if ColEmail = '' then
|
|
ColEmail := RetornaLingua( DestSettings.fLanguage , 'Const_Cad_ColunaEmail');
|
|
if BtAdd = '' then
|
|
BtAdd := RetornaLingua( DestSettings.fLanguage , 'Const_Cad_BtAdicionar');
|
|
if BtChange = '' then
|
|
BtChange := RetornaLingua( DestSettings.fLanguage , 'Const_Cad_BtAlterar');
|
|
if BtDelete = '' then
|
|
BtDelete := RetornaLingua( DestSettings.fLanguage , 'Const_Cad_BtExcluir');
|
|
if BtRights = '' then
|
|
BtRights := RetornaLingua( DestSettings.fLanguage , 'Const_Cad_BtPermissoes');
|
|
if BtPassword = '' then
|
|
BtPassword := RetornaLingua( DestSettings.fLanguage , 'Const_Cad_BtSenha');
|
|
if BtClose = '' then
|
|
BtClose := RetornaLingua( DestSettings.fLanguage , 'Const_Cad_BtFechar');
|
|
if PromptDelete = '' then
|
|
PromptDelete := RetornaLingua( DestSettings.fLanguage , 'Const_Cad_ConfirmaExcluir');
|
|
if PromptDelete_WindowCaption = '' then
|
|
PromptDelete_WindowCaption := RetornaLingua( DestSettings.fLanguage , 'Const_Cad_ConfirmaDelete_WindowCaption');
|
|
end;
|
|
|
|
with DestSettings.UsersProfile do
|
|
begin
|
|
if WindowCaption = '' then
|
|
WindowCaption := RetornaLingua( DestSettings.fLanguage , 'Const_Prof_WindowCaption');
|
|
if LabelDescription = '' then
|
|
LabelDescription := RetornaLingua( DestSettings.fLanguage , 'Const_Prof_LabelDescricao');
|
|
if ColProfile = '' then
|
|
ColProfile := RetornaLingua( DestSettings.fLanguage , 'Const_Prof_ColunaNome');
|
|
if BtAdd = '' then
|
|
BtAdd := RetornaLingua( DestSettings.Language,'Const_Prof_BtAdicionar');
|
|
if BtChange = '' then
|
|
BtChange := RetornaLingua( DestSettings.fLanguage , 'Const_Prof_BtAlterar');
|
|
if BtDelete = '' then
|
|
BtDelete := RetornaLingua( DestSettings.fLanguage , 'Const_Prof_BtExcluir');
|
|
if BtRights = '' then
|
|
BtRights := RetornaLingua( DestSettings.fLanguage , 'Const_Prof_BtPermissoes');
|
|
if BtClose = '' then
|
|
BtClose := RetornaLingua( DestSettings.fLanguage , 'Const_Prof_BtFechar');
|
|
if PromptDelete = '' then
|
|
PromptDelete := RetornaLingua( DestSettings.fLanguage , 'Const_Prof_ConfirmaExcluir');
|
|
if PromptDelete_WindowCaption = '' then
|
|
PromptDelete_WindowCaption := RetornaLingua( DestSettings.fLanguage , 'Const_Prof_ConfirmaDelete_WindowCaption'); //added by fduenas
|
|
end;
|
|
|
|
with DestSettings.AddChangeUser do
|
|
begin
|
|
if WindowCaption = '' then
|
|
WindowCaption := RetornaLingua( DestSettings.fLanguage , 'Const_Inc_WindowCaption');
|
|
if LabelAdd = '' then
|
|
LabelAdd := RetornaLingua( DestSettings.fLanguage , 'Const_Inc_LabelAdicionar');
|
|
if LabelChange = '' then
|
|
LabelChange := RetornaLingua( DestSettings.fLanguage , 'Const_Inc_LabelAlterar');
|
|
if LabelName = '' then
|
|
LabelName := RetornaLingua( DestSettings.fLanguage , 'Const_Inc_LabelNome');
|
|
if LabelLogin = '' then
|
|
LabelLogin := RetornaLingua( DestSettings.fLanguage , 'Const_Inc_LabelLogin');
|
|
if LabelEmail = '' then
|
|
LabelEmail := RetornaLingua( DestSettings.fLanguage , 'Const_Inc_LabelEmail');
|
|
if CheckPrivileged = '' then
|
|
CheckPrivileged := RetornaLingua( DestSettings.fLanguage , 'Const_Inc_CheckPrivilegiado');
|
|
if BtSave = '' then
|
|
BtSave := RetornaLingua( DestSettings.fLanguage , 'Const_Inc_BtGravar');
|
|
if BtCancel = '' then
|
|
BtCancel := RetornaLingua( DestSettings.fLanguage , 'Const_Inc_BtCancelar');
|
|
if LabelPerfil = '' then
|
|
LabelPerfil := RetornaLingua( DestSettings.fLanguage , 'Const_Inc_LabelPerfil');
|
|
|
|
if CheckExpira = '' then
|
|
CheckExpira := RetornaLingua( DestSettings.fLanguage , 'Const_Inc_CheckEspira');
|
|
If Day = '' then
|
|
Day := RetornaLingua( DestSettings.fLanguage , 'Const_Inc_Dia');
|
|
If ExpiredIn = '' then
|
|
ExpiredIn := RetornaLingua( DestSettings.fLanguage , 'Const_Inc_ExpiraEm');
|
|
end;
|
|
|
|
with DestSettings.AddChangeProfile do
|
|
begin
|
|
if WindowCaption = '' then
|
|
WindowCaption := RetornaLingua( DestSettings.fLanguage , 'Const_PInc_WindowCaption');
|
|
if LabelAdd = '' then
|
|
LabelAdd := RetornaLingua( DestSettings.fLanguage , 'Const_PInc_LabelAdicionar');
|
|
if LabelChange = '' then
|
|
LabelChange := RetornaLingua( DestSettings.fLanguage , 'Const_PInc_LabelAlterar');
|
|
if LabelName = '' then
|
|
LabelName := RetornaLingua( DestSettings.fLanguage , 'Const_PInc_LabelNome');
|
|
if BtSave = '' then
|
|
BtSave := RetornaLingua( DestSettings.fLanguage , 'Const_PInc_BtGravar');
|
|
if BtCancel = '' then
|
|
BtCancel := RetornaLingua( DestSettings.fLanguage , 'Const_PInc_BtCancelar');
|
|
end;
|
|
|
|
with DestSettings.Rights do
|
|
begin
|
|
if WindowCaption = '' then
|
|
WindowCaption := RetornaLingua( DestSettings.fLanguage , 'Const_Perm_WindowCaption');
|
|
if LabelUser = '' then
|
|
LabelUser := RetornaLingua( DestSettings.fLanguage , 'Const_Perm_LabelUsuario');
|
|
if LabelProfile = '' then
|
|
LabelProfile := RetornaLingua( DestSettings.fLanguage , 'Const_Perm_LabelPerfil');
|
|
if PageMenu = '' then
|
|
PageMenu := RetornaLingua( DestSettings.fLanguage , 'Const_Perm_PageMenu');
|
|
if PageActions = '' then
|
|
PageActions := RetornaLingua( DestSettings.fLanguage , 'Const_Perm_PageActions');
|
|
If PageControls = '' then
|
|
PageControls := RetornaLingua( DestSettings.fLanguage , 'Const_Perm_PageControls'); // by vicente barros leonel
|
|
if BtUnlock = '' then
|
|
BtUnlock := RetornaLingua( DestSettings.fLanguage , 'Const_Perm_BtLibera');
|
|
if BtLock = '' then
|
|
BtLock := RetornaLingua( DestSettings.fLanguage , 'Const_Perm_BtBloqueia');
|
|
if BtSave = '' then
|
|
BtSave := RetornaLingua( DestSettings.fLanguage , 'Const_Perm_BtGravar');
|
|
if BtCancel = '' then
|
|
BtCancel := RetornaLingua( DestSettings.fLanguage , 'Const_Perm_BtCancelar');
|
|
end;
|
|
|
|
with DestSettings.ChangePassword do
|
|
begin
|
|
if WindowCaption = '' then
|
|
WindowCaption := RetornaLingua( DestSettings.fLanguage , 'Const_Troc_WindowCaption');
|
|
if LabelDescription = '' then
|
|
LabelDescription := RetornaLingua( DestSettings.fLanguage , 'Const_Troc_LabelDescricao');
|
|
if LabelCurrentPassword = '' then
|
|
LabelCurrentPassword := RetornaLingua( DestSettings.fLanguage , 'Const_Troc_LabelSenhaAtual');
|
|
if LabelNewPassword = '' then
|
|
LabelNewPassword := RetornaLingua( DestSettings.fLanguage , 'Const_Troc_LabelNovaSenha');
|
|
if LabelConfirm = '' then
|
|
LabelConfirm := RetornaLingua( DestSettings.fLanguage , 'Const_Troc_LabelConfirma');
|
|
if BtSave = '' then
|
|
BtSave := RetornaLingua( DestSettings.fLanguage , 'Const_Troc_BtGravar');
|
|
if BtCancel = '' then
|
|
BtCancel := RetornaLingua( DestSettings.fLanguage , 'Const_Troc_BtCancelar');
|
|
end;
|
|
|
|
with DestSettings.CommonMessages.ChangePasswordError do
|
|
begin
|
|
if InvalidCurrentPassword = '' then
|
|
InvalidCurrentPassword := RetornaLingua( DestSettings.fLanguage , 'Const_ErrPass_SenhaAtualInvalida');
|
|
if NewPasswordError = '' then
|
|
NewPasswordError := RetornaLingua( DestSettings.fLanguage , 'Const_ErrPass_ErroNovaSenha');
|
|
if NewEqualCurrent = '' then
|
|
NewEqualCurrent := RetornaLingua( DestSettings.fLanguage , 'Const_ErrPass_NovaIgualAtual');
|
|
if PasswordRequired = '' then
|
|
PasswordRequired := RetornaLingua( DestSettings.fLanguage , 'Const_ErrPass_SenhaObrigatoria');
|
|
if MinPasswordLength = '' then
|
|
MinPasswordLength := RetornaLingua( DestSettings.fLanguage , 'Const_ErrPass_SenhaMinima');
|
|
if InvalidNewPassword = '' then
|
|
InvalidNewPassword := RetornaLingua( DestSettings.fLanguage , 'Const_ErrPass_SenhaInvalida');
|
|
end;
|
|
|
|
with DestSettings.ResetPassword do
|
|
begin
|
|
if WindowCaption = '' then
|
|
WindowCaption := RetornaLingua( DestSettings.fLanguage , 'Const_DefPass_WindowCaption');
|
|
if LabelPassword = '' then
|
|
LabelPassword := RetornaLingua( DestSettings.fLanguage , 'Const_DefPass_LabelSenha');
|
|
end;
|
|
|
|
with DestSettings.Log do
|
|
begin
|
|
if WindowCaption = '' then
|
|
WindowCaption := RetornaLingua( DestSettings.fLanguage , 'Const_LogC_WindowCaption');
|
|
if LabelDescription = '' then
|
|
LabelDescription := RetornaLingua( DestSettings.fLanguage , 'Const_LogC_LabelDescricao');
|
|
if LabelUser = '' then
|
|
LabelUser := RetornaLingua( DestSettings.fLanguage , 'Const_LogC_LabelUsuario');
|
|
if LabelDate = '' then
|
|
LabelDate := RetornaLingua( DestSettings.fLanguage , 'Const_LogC_LabelData');
|
|
if LabelLevel = '' then
|
|
LabelLevel := RetornaLingua( DestSettings.fLanguage , 'Const_LogC_LabelNivel');
|
|
if ColLevel = '' then
|
|
ColLevel := RetornaLingua( DestSettings.fLanguage , 'Const_LogC_ColunaNivel');
|
|
if ColAppID = '' then
|
|
ColAppID := RetornaLingua( DestSettings.fLanguage , 'Const_LogC_ColunaAppID');
|
|
if ColMessage = '' then
|
|
ColMessage := RetornaLingua( DestSettings.fLanguage , 'Const_LogC_ColunaMensagem');
|
|
if ColUser = '' then
|
|
ColUser := RetornaLingua( DestSettings.fLanguage , 'Const_LogC_ColunaUsuario');
|
|
if ColDate = '' then
|
|
ColDate := RetornaLingua( DestSettings.fLanguage , 'Const_LogC_ColunaData');
|
|
if BtFilter = '' then
|
|
BtFilter := RetornaLingua( DestSettings.fLanguage , 'Const_LogC_BtFiltro');
|
|
if BtDelete = '' then
|
|
BtDelete := RetornaLingua( DestSettings.fLanguage , 'Const_LogC_BtExcluir');
|
|
if BtClose = '' then
|
|
BtClose := RetornaLingua( DestSettings.fLanguage , 'Const_LogC_BtFechar');
|
|
if PromptDelete = '' then
|
|
PromptDelete := RetornaLingua( DestSettings.fLanguage , 'Const_LogC_ConfirmaExcluir');
|
|
if PromptDelete_WindowCaption = '' then
|
|
PromptDelete_WindowCaption := RetornaLingua( DestSettings.fLanguage , 'Const_LogC_ConfirmaDelete_WindowCaption'); //added by fduenas
|
|
if OptionUserAll = '' then
|
|
OptionUserAll := RetornaLingua( DestSettings.fLanguage , 'Const_LogC_Todos'); //added by fduenas
|
|
if OptionLevelLow = '' then
|
|
OptionLevelLow := RetornaLingua( DestSettings.fLanguage , 'Const_LogC_Low'); //added by fduenas
|
|
if OptionLevelNormal = '' then
|
|
OptionLevelNormal := RetornaLingua( DestSettings.fLanguage , 'Const_LogC_Normal'); //added by fduenas
|
|
if OptionLevelHigh = '' then
|
|
OptionLevelHigh := RetornaLingua( DestSettings.fLanguage , 'Const_LogC_High'); //added by fduenas
|
|
if OptionLevelCritic = '' then
|
|
OptionLevelCritic := RetornaLingua( DestSettings.fLanguage , 'Const_LogC_Critic'); //added by fduenas
|
|
if DeletePerformed = '' then
|
|
DeletePerformed := RetornaLingua( DestSettings.fLanguage , 'Const_LogC_ExcluirEfectuada'); //added by fduenas
|
|
end;
|
|
|
|
with DestSettings.AppMessages do
|
|
begin
|
|
if MsgsForm_BtNew = '' then
|
|
MsgsForm_BtNew := RetornaLingua( DestSettings.fLanguage , 'Const_Msgs_BtNew');
|
|
if MsgsForm_BtReplay = '' then
|
|
MsgsForm_BtReplay := RetornaLingua( DestSettings.fLanguage , 'Const_Msgs_BtReplay');
|
|
if MsgsForm_BtForward = '' then
|
|
MsgsForm_BtForward := RetornaLingua( DestSettings.fLanguage , 'Const_Msgs_BtForward');
|
|
if MsgsForm_BtDelete = '' then
|
|
MsgsForm_BtDelete := RetornaLingua( DestSettings.fLanguage , 'Const_Msgs_BtDelete');
|
|
if MsgsForm_BtClose = '' then
|
|
MsgsForm_BtClose := RetornaLingua( DestSettings.fLanguage , 'Const_Msgs_BtClose'); //added by fduenas
|
|
if MsgsForm_WindowCaption = '' then
|
|
MsgsForm_WindowCaption := RetornaLingua( DestSettings.fLanguage , 'Const_Msgs_WindowCaption');
|
|
if MsgsForm_ColFrom = '' then
|
|
MsgsForm_ColFrom := RetornaLingua( DestSettings.fLanguage , 'Const_Msgs_ColFrom');
|
|
if MsgsForm_ColSubject = '' then
|
|
MsgsForm_ColSubject := RetornaLingua( DestSettings.fLanguage , 'Const_Msgs_ColSubject');
|
|
if MsgsForm_ColDate = '' then
|
|
MsgsForm_ColDate := RetornaLingua( DestSettings.fLanguage , 'Const_Msgs_ColDate');
|
|
if MsgsForm_PromptDelete = '' then
|
|
MsgsForm_PromptDelete := RetornaLingua( DestSettings.fLanguage , 'Const_Msgs_PromptDelete');
|
|
if MsgsForm_PromptDelete_WindowCaption = '' then
|
|
MsgsForm_PromptDelete_WindowCaption := RetornaLingua( DestSettings.fLanguage , 'Const_Msgs_PromptDelete_WindowCaption'); //added by fduenas
|
|
if MsgsForm_NoMessagesSelected = '' then
|
|
MsgsForm_NoMessagesSelected := RetornaLingua( DestSettings.fLanguage , 'Const_Msgs_NoMessagesSelected'); //added by fduenas
|
|
if MsgsForm_NoMessagesSelected_WindowCaption = '' then
|
|
MsgsForm_NoMessagesSelected_WindowCaption := RetornaLingua( DestSettings.fLanguage , 'Const_Msgs_NoMessagesSelected_WindowCaption'); //added by fduenas
|
|
if MsgRec_BtClose = '' then
|
|
MsgRec_BtClose := RetornaLingua( DestSettings.fLanguage , 'Const_MsgRec_BtClose');
|
|
if MsgRec_WindowCaption = '' then
|
|
MsgRec_WindowCaption := RetornaLingua( DestSettings.fLanguage , 'Const_MsgRec_WindowCaption');
|
|
if MsgRec_Title = '' then
|
|
MsgRec_Title := RetornaLingua( DestSettings.fLanguage , 'Const_MsgRec_Title');
|
|
if MsgRec_LabelFrom = '' then
|
|
MsgRec_LabelFrom := RetornaLingua( DestSettings.fLanguage , 'Const_MsgRec_LabelFrom');
|
|
if MsgRec_LabelDate = '' then
|
|
MsgRec_LabelDate := RetornaLingua( DestSettings.fLanguage , 'Const_MsgRec_LabelDate');
|
|
if MsgRec_LabelSubject = '' then
|
|
MsgRec_LabelSubject := RetornaLingua( DestSettings.fLanguage , 'Const_MsgRec_LabelSubject');
|
|
if MsgRec_LabelMessage = '' then
|
|
MsgRec_LabelMessage := RetornaLingua( DestSettings.fLanguage , 'Const_MsgRec_LabelMessage');
|
|
if MsgSend_BtSend = '' then
|
|
MsgSend_BtSend := RetornaLingua( DestSettings.fLanguage , 'Const_MsgSend_BtSend');
|
|
if MsgSend_BtCancel = '' then
|
|
MsgSend_BtCancel := RetornaLingua( DestSettings.fLanguage , 'Const_MsgSend_BtCancel');
|
|
if MsgSend_WindowCaption = '' then
|
|
MsgSend_WindowCaption := RetornaLingua( DestSettings.fLanguage , 'Const_MsgSend_WindowCaption');
|
|
if MsgSend_Title = '' then
|
|
MsgSend_Title := RetornaLingua( DestSettings.fLanguage , 'Const_MsgSend_Title');
|
|
if MsgSend_GroupTo = '' then
|
|
MsgSend_GroupTo := RetornaLingua( DestSettings.fLanguage , 'Const_MsgSend_GroupTo');
|
|
if MsgSend_RadioUser = '' then
|
|
MsgSend_RadioUser := RetornaLingua( DestSettings.fLanguage , 'Const_MsgSend_RadioUser');
|
|
if MsgSend_RadioAll = '' then
|
|
MsgSend_RadioAll := RetornaLingua( DestSettings.fLanguage , 'Const_MsgSend_RadioAll');
|
|
if MsgSend_GroupMessage = '' then
|
|
MsgSend_GroupMessage := RetornaLingua( DestSettings.fLanguage , 'Const_MsgSend_GroupMessage');
|
|
if MsgSend_LabelSubject = '' then
|
|
MsgSend_LabelSubject := RetornaLingua( DestSettings.fLanguage , 'Const_MsgSend_LabelSubject'); //added by fduenas
|
|
if MsgSend_LabelMessageText = '' then
|
|
MsgSend_LabelMessageText := RetornaLingua( DestSettings.fLanguage , 'Const_MsgSend_LabelMessageText'); //added by fduenas
|
|
end;
|
|
|
|
DestSettings.WindowsPosition := poMainFormCenter;
|
|
|
|
With DestSettings.History do
|
|
Begin
|
|
If Evento_Insert = '' then
|
|
Evento_Insert := RetornaLingua( DestSettings.fLanguage , 'Const_Evento_Insert');
|
|
if Evento_Delete = '' then
|
|
Evento_Delete := RetornaLingua( DestSettings.fLanguage , 'Const_Evento_Delete');
|
|
if Evento_Edit = '' then
|
|
Evento_Edit := RetornaLingua( DestSettings.fLanguage , 'Const_Evento_Edit');
|
|
If Evento_NewRecord = '' then
|
|
Evento_NewRecord := RetornaLingua( DestSettings.fLanguage , 'Const_Evento_NewRecord');
|
|
If Hist_all = '' then
|
|
Hist_All := RetornaLingua( DestSettings.fLanguage , 'Const_Hist_All');
|
|
If Msg_LimpHistorico = '' then
|
|
Msg_LimpHistorico := RetornaLingua( DestSettings.fLanguage , 'Const_Msg_LimpHistorico');
|
|
If Msg_MensConfirma = '' then
|
|
Msg_MensConfirma := RetornaLingua( DestSettings.fLanguage , 'Const_Msg_MensConfirma');
|
|
if Msg_LogEmptyHistory = '' then
|
|
Msg_LogEmptyHistory := RetornaLingua( DestSettings.fLanguage , 'Const_Msg_LogEmptyHistory');
|
|
if LabelDescricao = '' then
|
|
LabelDescricao := RetornaLingua( DestSettings.fLanguage , 'Const_LabelDescricao');
|
|
if LabelUser = '' then
|
|
LabelUser := RetornaLingua( DestSettings.fLanguage , 'Const_LabelUser');
|
|
if LabelForm = '' then
|
|
LabelForm := RetornaLingua( DestSettings.fLanguage , 'Const_LabelForm');
|
|
if LabelEvento = '' then
|
|
LabelEvento := RetornaLingua( DestSettings.fLanguage , 'const_LabelEvento');
|
|
if LabelTabela = '' then
|
|
LabelTabela := RetornaLingua( DestSettings.fLanguage , 'const_LabelTabela');
|
|
if LabelDataEvento = '' then
|
|
LabelDataEvento := RetornaLingua( DestSettings.fLanguage , 'const_LabelDataEvento');
|
|
if LabelHoraEvento = '' then
|
|
LabelHoraEvento := RetornaLingua( DestSettings.fLanguage , 'const_LabelHoraEvento');
|
|
if Msg_NewRecord = '' then
|
|
Msg_NewRecord := RetornaLingua( DestSettings.fLanguage , 'const_Msg_NewRecord');
|
|
if Hist_MsgExceptPropr = '' then
|
|
Hist_MsgExceptPropr := RetornaLingua( DestSettings.fLanguage , 'Const_Hist_MsgExceptPropr');
|
|
if Hist_BtnFiltro = '' then
|
|
Hist_BtnFiltro := RetornaLingua( DestSettings.fLanguage , 'const_Hist_BtnFiltro');
|
|
if Hist_BtnExcluir = '' then
|
|
Hist_BtnExcluir := RetornaLingua( DestSettings.fLanguage , 'const_Hist_BtnExcluir');
|
|
if Hist_BtnFechar = '' then
|
|
Hist_BtnFechar := RetornaLingua( DestSettings.fLanguage , 'const_Hist_BtnFechar');
|
|
End;
|
|
|
|
With DestSettings.TypeFieldsDB do
|
|
Begin
|
|
If Type_VarChar = '' then
|
|
Type_VarChar := 'VarChar';
|
|
if Type_Char = '' then
|
|
Type_Char := 'Char';
|
|
if Type_Int = '' then
|
|
Type_Int := 'Int';
|
|
if Type_MemoField = '' then
|
|
Type_MemoField := 'BLOB SUB_TYPE 1 SEGMENT SIZE 1024';
|
|
end;
|
|
end;
|
|
|
|
{-------------------------------------------------------------------------------}
|
|
|
|
procedure AlterLanguage(DestSettings: TUCUserSettings);
|
|
begin
|
|
with DestSettings.CommonMessages do
|
|
begin
|
|
BlankPassword := RetornaLingua( DestSettings.Language,'Const_Men_SenhaDesabitada');
|
|
PasswordChanged := RetornaLingua( DestSettings.Language,'Const_Men_SenhaAlterada');
|
|
InitialMessage.Text := RetornaLingua( DestSettings.Language,'Const_Men_MsgInicial');
|
|
MaxLoginAttemptsError := RetornaLingua( DestSettings.Language,'Const_Men_MaxTentativas');
|
|
InvalidLogin := RetornaLingua( DestSettings.Language,'Const_Men_LoginInvalido');
|
|
AutoLogonError := RetornaLingua( DestSettings.Language,'Const_Men_AutoLogonError');
|
|
UsuarioExiste := RetornaLingua( DestSettings.Language,'Const_Men_UsuarioExiste');
|
|
PasswordExpired := RetornaLingua( DestSettings.Language,'Const_Men_PasswordExpired');
|
|
end;
|
|
|
|
with DestSettings.Login do
|
|
begin
|
|
BtCancel := RetornaLingua( DestSettings.Language,'Const_Log_BtCancelar');
|
|
BtOK := RetornaLingua( DestSettings.Language,'Const_Log_BtOK');
|
|
LabelPassword := RetornaLingua( DestSettings.Language,'Const_Log_LabelSenha');
|
|
LabelUser := RetornaLingua( DestSettings.Language,'Const_Log_LabelUsuario');
|
|
WindowCaption := RetornaLingua( DestSettings.Language,'Const_Log_WindowCaption');
|
|
LabelTentativa := RetornaLingua( DestSettings.Language,'Const_Log_LabelTentativa');
|
|
LabelTentativas := RetornaLingua( DestSettings.Language,'Const_Log_LabelTentativas');
|
|
end;
|
|
|
|
with DestSettings.UsersForm do
|
|
begin
|
|
WindowCaption := RetornaLingua( DestSettings.Language,'Const_Cad_WindowCaption');
|
|
LabelDescription := RetornaLingua( DestSettings.Language,'Const_Cad_LabelDescricao');
|
|
ColName := RetornaLingua( DestSettings.Language,'Const_Cad_ColunaNome');
|
|
ColLogin := RetornaLingua( DestSettings.Language,'Const_Cad_ColunaLogin');
|
|
ColEmail := RetornaLingua( DestSettings.Language,'Const_Cad_ColunaEmail');
|
|
BtAdd := RetornaLingua( DestSettings.Language,'Const_Cad_BtAdicionar');
|
|
BtChange := RetornaLingua( DestSettings.Language,'Const_Cad_BtAlterar');
|
|
BtDelete := RetornaLingua( DestSettings.Language,'Const_Cad_BtExcluir');
|
|
BtRights := RetornaLingua( DestSettings.Language,'Const_Cad_BtPermissoes');
|
|
BtPassword := RetornaLingua( DestSettings.Language,'Const_Cad_BtSenha');
|
|
BtClose := RetornaLingua( DestSettings.Language,'Const_Cad_BtFechar');
|
|
PromptDelete := RetornaLingua( DestSettings.Language,'Const_Cad_ConfirmaExcluir');
|
|
PromptDelete_WindowCaption := RetornaLingua( DestSettings.Language,'Const_Cad_ConfirmaDelete_WindowCaption');
|
|
end;
|
|
|
|
with DestSettings.UsersProfile do
|
|
begin
|
|
WindowCaption := RetornaLingua( DestSettings.Language,'Const_Prof_WindowCaption');
|
|
LabelDescription := RetornaLingua( DestSettings.Language,'Const_Prof_LabelDescricao');
|
|
ColProfile := RetornaLingua( DestSettings.Language,'Const_Prof_ColunaNome');
|
|
BtAdd := RetornaLingua( DestSettings.Language,'Const_Prof_BtAdicionar');
|
|
BtChange := RetornaLingua( DestSettings.Language,'Const_Prof_BtAlterar');
|
|
BtDelete := RetornaLingua( DestSettings.Language,'Const_Prof_BtExcluir');
|
|
BtRights := RetornaLingua( DestSettings.Language,'Const_Prof_BtPermissoes');
|
|
BtClose := RetornaLingua( DestSettings.Language,'Const_Prof_BtFechar');
|
|
PromptDelete := RetornaLingua( DestSettings.Language,'Const_Prof_ConfirmaExcluir');
|
|
PromptDelete_WindowCaption := RetornaLingua( DestSettings.Language,'Const_Prof_ConfirmaDelete_WindowCaption');
|
|
end;
|
|
|
|
with DestSettings.AddChangeUser do
|
|
begin
|
|
WindowCaption := RetornaLingua( DestSettings.Language,'Const_Inc_WindowCaption');
|
|
LabelAdd := RetornaLingua( DestSettings.Language,'Const_Inc_LabelAdicionar');
|
|
LabelChange := RetornaLingua( DestSettings.Language,'Const_Inc_LabelAlterar');
|
|
LabelName := RetornaLingua( DestSettings.Language,'Const_Inc_LabelNome');
|
|
LabelLogin := RetornaLingua( DestSettings.Language,'Const_Inc_LabelLogin');
|
|
LabelEmail := RetornaLingua( DestSettings.Language,'Const_Inc_LabelEmail');
|
|
CheckPrivileged := RetornaLingua( DestSettings.Language,'Const_Inc_CheckPrivilegiado');
|
|
BtSave := RetornaLingua( DestSettings.Language,'Const_Inc_BtGravar');
|
|
BtCancel := RetornaLingua( DestSettings.Language,'Const_Inc_BtCancelar');
|
|
LabelPerfil := RetornaLingua( DestSettings.Language,'Const_Inc_LabelPerfil');
|
|
CheckExpira := RetornaLingua( DestSettings.Language,'Const_Inc_CheckEspira');
|
|
Day := RetornaLingua( DestSettings.Language,'Const_Inc_Dia');
|
|
ExpiredIn := RetornaLingua( DestSettings.Language,'Const_Inc_ExpiraEm');
|
|
end;
|
|
|
|
with DestSettings.AddChangeProfile do
|
|
begin
|
|
WindowCaption := RetornaLingua( DestSettings.Language,'Const_PInc_WindowCaption');
|
|
LabelAdd := RetornaLingua( DestSettings.Language,'Const_PInc_LabelAdicionar');
|
|
LabelChange := RetornaLingua( DestSettings.Language,'Const_PInc_LabelAlterar');
|
|
LabelName := RetornaLingua( DestSettings.Language,'Const_PInc_LabelNome');
|
|
BtSave := RetornaLingua( DestSettings.Language,'Const_PInc_BtGravar');
|
|
BtCancel := RetornaLingua( DestSettings.Language,'Const_PInc_BtCancelar');
|
|
end;
|
|
|
|
with DestSettings.Rights do
|
|
begin
|
|
WindowCaption := RetornaLingua( DestSettings.Language,'Const_Perm_WindowCaption');
|
|
LabelUser := RetornaLingua( DestSettings.Language,'Const_Perm_LabelUsuario');
|
|
LabelProfile := RetornaLingua( DestSettings.Language,'Const_Perm_LabelPerfil');
|
|
PageMenu := RetornaLingua( DestSettings.Language,'Const_Perm_PageMenu');
|
|
PageActions := RetornaLingua( DestSettings.Language,'Const_Perm_PageActions');
|
|
PageControls := RetornaLingua( DestSettings.Language,'Const_Perm_PageControls');
|
|
BtUnlock := RetornaLingua( DestSettings.Language,'Const_Perm_BtLibera');
|
|
BtLock := RetornaLingua( DestSettings.Language,'Const_Perm_BtBloqueia');
|
|
BtSave := RetornaLingua( DestSettings.Language,'Const_Perm_BtGravar');
|
|
BtCancel := RetornaLingua( DestSettings.Language,'Const_Perm_BtCancelar');
|
|
end;
|
|
|
|
with DestSettings.ChangePassword do
|
|
begin
|
|
WindowCaption := RetornaLingua( DestSettings.Language,'Const_Troc_WindowCaption');
|
|
LabelDescription := RetornaLingua( DestSettings.Language,'Const_Troc_LabelDescricao');
|
|
LabelCurrentPassword := RetornaLingua( DestSettings.Language,'Const_Troc_LabelSenhaAtual');
|
|
LabelNewPassword := RetornaLingua( DestSettings.Language,'Const_Troc_LabelNovaSenha');
|
|
LabelConfirm := RetornaLingua( DestSettings.Language,'Const_Troc_LabelConfirma');
|
|
BtSave := RetornaLingua( DestSettings.Language,'Const_Troc_BtGravar');
|
|
BtCancel := RetornaLingua( DestSettings.Language,'Const_Troc_BtCancelar');
|
|
end;
|
|
|
|
with DestSettings.CommonMessages.ChangePasswordError do
|
|
begin
|
|
InvalidCurrentPassword := RetornaLingua( DestSettings.Language,'Const_ErrPass_SenhaAtualInvalida');
|
|
NewPasswordError := RetornaLingua( DestSettings.Language,'Const_ErrPass_ErroNovaSenha');
|
|
NewEqualCurrent := RetornaLingua( DestSettings.Language,'Const_ErrPass_NovaIgualAtual');
|
|
PasswordRequired := RetornaLingua( DestSettings.Language,'Const_ErrPass_SenhaObrigatoria');
|
|
MinPasswordLength := RetornaLingua( DestSettings.Language,'Const_ErrPass_SenhaMinima');
|
|
InvalidNewPassword := RetornaLingua( DestSettings.Language,'Const_ErrPass_SenhaInvalida');
|
|
end;
|
|
|
|
with DestSettings.ResetPassword do
|
|
begin
|
|
WindowCaption := RetornaLingua( DestSettings.Language,'Const_DefPass_WindowCaption');
|
|
LabelPassword := RetornaLingua( DestSettings.Language,'Const_DefPass_LabelSenha');
|
|
end;
|
|
|
|
with DestSettings.Log do
|
|
begin
|
|
WindowCaption := RetornaLingua( DestSettings.Language,'Const_LogC_WindowCaption');
|
|
LabelDescription := RetornaLingua( DestSettings.Language,'Const_LogC_LabelDescricao');
|
|
LabelUser := RetornaLingua( DestSettings.Language,'Const_LogC_LabelUsuario');
|
|
LabelDate := RetornaLingua( DestSettings.Language,'Const_LogC_LabelData');
|
|
LabelLevel := RetornaLingua( DestSettings.Language,'Const_LogC_LabelNivel');
|
|
ColLevel := RetornaLingua( DestSettings.Language,'Const_LogC_ColunaNivel');
|
|
ColAppID := RetornaLingua( DestSettings.Language,'Const_LogC_ColunaAppID');
|
|
ColMessage := RetornaLingua( DestSettings.Language,'Const_LogC_ColunaMensagem');
|
|
ColUser := RetornaLingua( DestSettings.Language,'Const_LogC_ColunaUsuario');
|
|
ColDate := RetornaLingua( DestSettings.Language,'Const_LogC_ColunaData');
|
|
BtFilter := RetornaLingua( DestSettings.Language,'Const_LogC_BtFiltro');
|
|
BtDelete := RetornaLingua( DestSettings.Language,'Const_LogC_BtExcluir');
|
|
BtClose := RetornaLingua( DestSettings.Language,'Const_LogC_BtFechar');
|
|
PromptDelete := RetornaLingua( DestSettings.Language,'Const_LogC_ConfirmaExcluir');
|
|
PromptDelete_WindowCaption := RetornaLingua( DestSettings.Language,'Const_LogC_ConfirmaDelete_WindowCaption');
|
|
OptionUserAll := RetornaLingua( DestSettings.Language,'Const_LogC_Todos');
|
|
OptionLevelLow := RetornaLingua( DestSettings.Language,'Const_LogC_Low');
|
|
OptionLevelNormal := RetornaLingua( DestSettings.Language,'Const_LogC_Normal');
|
|
OptionLevelHigh := RetornaLingua( DestSettings.Language,'Const_LogC_High');
|
|
OptionLevelCritic := RetornaLingua( DestSettings.Language,'Const_LogC_Critic');
|
|
DeletePerformed := RetornaLingua( DestSettings.Language,'Const_LogC_ExcluirEfectuada');
|
|
end;
|
|
|
|
with DestSettings.AppMessages do
|
|
begin
|
|
MsgsForm_BtNew := RetornaLingua( DestSettings.Language,'Const_Msgs_BtNew');
|
|
MsgsForm_BtReplay := RetornaLingua( DestSettings.Language,'Const_Msgs_BtReplay');
|
|
MsgsForm_BtForward := RetornaLingua( DestSettings.Language,'Const_Msgs_BtForward');
|
|
MsgsForm_BtDelete := RetornaLingua( DestSettings.Language,'Const_Msgs_BtDelete');
|
|
MsgsForm_BtClose := RetornaLingua( DestSettings.Language,'Const_Msgs_BtClose'); //added by fduenas
|
|
MsgsForm_WindowCaption := RetornaLingua( DestSettings.Language,'Const_Msgs_WindowCaption');
|
|
MsgsForm_ColFrom := RetornaLingua( DestSettings.Language,'Const_Msgs_ColFrom');
|
|
MsgsForm_ColSubject := RetornaLingua( DestSettings.Language,'Const_Msgs_ColSubject');
|
|
MsgsForm_ColDate := RetornaLingua( DestSettings.Language,'Const_Msgs_ColDate');
|
|
MsgsForm_PromptDelete := RetornaLingua( DestSettings.Language,'Const_Msgs_PromptDelete');
|
|
MsgsForm_PromptDelete_WindowCaption := RetornaLingua( DestSettings.Language,'Const_Msgs_PromptDelete_WindowCaption'); //added by fduenas
|
|
MsgsForm_NoMessagesSelected := RetornaLingua( DestSettings.Language,'Const_Msgs_NoMessagesSelected'); //added by fduenas
|
|
MsgsForm_NoMessagesSelected_WindowCaption := RetornaLingua( DestSettings.Language,'Const_Msgs_NoMessagesSelected_WindowCaption'); //added by fduenas
|
|
MsgRec_BtClose := RetornaLingua( DestSettings.Language,'Const_MsgRec_BtClose');
|
|
MsgRec_WindowCaption := RetornaLingua( DestSettings.Language,'Const_MsgRec_WindowCaption');
|
|
MsgRec_Title := RetornaLingua( DestSettings.Language,'Const_MsgRec_Title');
|
|
MsgRec_LabelFrom := RetornaLingua( DestSettings.Language,'Const_MsgRec_LabelFrom');
|
|
MsgRec_LabelDate := RetornaLingua( DestSettings.Language,'Const_MsgRec_LabelDate');
|
|
MsgRec_LabelSubject := RetornaLingua( DestSettings.Language,'Const_MsgRec_LabelSubject');
|
|
MsgRec_LabelMessage := RetornaLingua( DestSettings.Language,'Const_MsgRec_LabelMessage');
|
|
MsgSend_BtSend := RetornaLingua( DestSettings.Language,'Const_MsgSend_BtSend');
|
|
MsgSend_BtCancel := RetornaLingua( DestSettings.Language,'Const_MsgSend_BtCancel');
|
|
MsgSend_WindowCaption := RetornaLingua( DestSettings.Language,'Const_MsgSend_WindowCaption');
|
|
MsgSend_Title := RetornaLingua( DestSettings.Language,'Const_MsgSend_Title');
|
|
MsgSend_GroupTo := RetornaLingua( DestSettings.Language,'Const_MsgSend_GroupTo');
|
|
MsgSend_RadioUser := RetornaLingua( DestSettings.Language,'Const_MsgSend_RadioUser');
|
|
MsgSend_RadioAll := RetornaLingua( DestSettings.Language,'Const_MsgSend_RadioAll');
|
|
MsgSend_GroupMessage := RetornaLingua( DestSettings.Language,'Const_MsgSend_GroupMessage');
|
|
MsgSend_LabelSubject := RetornaLingua( DestSettings.Language,'Const_MsgSend_LabelSubject'); //added by fduenas
|
|
MsgSend_LabelMessageText := RetornaLingua( DestSettings.Language,'Const_MsgSend_LabelMessageText'); //added by fduenas
|
|
end;
|
|
|
|
DestSettings.WindowsPosition := poMainFormCenter;
|
|
|
|
With DestSettings.History do
|
|
Begin
|
|
Evento_Insert := RetornaLingua( DestSettings.Language,'Const_Evento_Insert');
|
|
Evento_Delete := RetornaLingua( DestSettings.Language,'Const_Evento_Delete');
|
|
Evento_Edit := RetornaLingua( DestSettings.Language,'Const_Evento_Edit');
|
|
Evento_NewRecord := RetornaLingua( DestSettings.Language,'Const_Evento_NewRecord');
|
|
Hist_All := RetornaLingua( DestSettings.Language,'Const_Hist_All');
|
|
Msg_LimpHistorico := RetornaLingua( DestSettings.Language,'Const_Msg_LimpHistorico');
|
|
Msg_MensConfirma := RetornaLingua( DestSettings.Language,'Const_Msg_MensConfirma');
|
|
Msg_LogEmptyHistory := RetornaLingua( DestSettings.Language,'Const_Msg_LogEmptyHistory');
|
|
LabelDescricao := RetornaLingua( DestSettings.Language,'Const_LabelDescricao');
|
|
LabelUser := RetornaLingua( DestSettings.Language,'Const_LabelUser');
|
|
LabelForm := RetornaLingua( DestSettings.Language,'Const_LabelForm');
|
|
LabelEvento := RetornaLingua( DestSettings.Language,'const_LabelEvento');
|
|
LabelTabela := RetornaLingua( DestSettings.Language,'const_LabelTabela');
|
|
LabelDataEvento := RetornaLingua( DestSettings.Language,'const_LabelDataEvento');
|
|
LabelHoraEvento := RetornaLingua( DestSettings.Language,'const_LabelHoraEvento');
|
|
Msg_NewRecord := RetornaLingua( DestSettings.Language,'const_Msg_NewRecord');
|
|
Hist_MsgExceptPropr := RetornaLingua( DestSettings.Language,'Const_Hist_MsgExceptPropr');
|
|
Hist_BtnFiltro := RetornaLingua( DestSettings.Language,'const_Hist_BtnFiltro');
|
|
Hist_BtnExcluir := RetornaLingua( DestSettings.Language,'const_Hist_BtnExcluir');
|
|
Hist_BtnFechar := RetornaLingua( DestSettings.Language,'const_Hist_BtnFechar');
|
|
End;
|
|
end;
|
|
|
|
procedure AlterLanguage2(DestSettings: TUCSettings);
|
|
begin
|
|
with DestSettings.CommonMessages do
|
|
begin
|
|
BlankPassword := RetornaLingua( DestSettings.Language,'Const_Men_SenhaDesabitada');
|
|
PasswordChanged := RetornaLingua( DestSettings.Language,'Const_Men_SenhaAlterada');
|
|
InitialMessage.Text := RetornaLingua( DestSettings.Language,'Const_Men_MsgInicial');
|
|
MaxLoginAttemptsError := RetornaLingua( DestSettings.Language,'Const_Men_MaxTentativas');
|
|
InvalidLogin := RetornaLingua( DestSettings.Language,'Const_Men_LoginInvalido');
|
|
AutoLogonError := RetornaLingua( DestSettings.Language,'Const_Men_AutoLogonError');
|
|
UsuarioExiste := RetornaLingua( DestSettings.Language,'Const_Men_UsuarioExiste');
|
|
PasswordExpired := RetornaLingua( DestSettings.Language,'Const_Men_PasswordExpired');
|
|
end;
|
|
|
|
with DestSettings.Login do
|
|
begin
|
|
BtCancel := RetornaLingua( DestSettings.Language,'Const_Log_BtCancelar');
|
|
BtOK := RetornaLingua( DestSettings.Language,'Const_Log_BtOK');
|
|
LabelPassword := RetornaLingua( DestSettings.Language,'Const_Log_LabelSenha');
|
|
LabelUser := RetornaLingua( DestSettings.Language,'Const_Log_LabelUsuario');
|
|
WindowCaption := RetornaLingua( DestSettings.Language,'Const_Log_WindowCaption');
|
|
LabelTentativa := RetornaLingua( DestSettings.Language,'Const_Log_LabelTentativa');
|
|
LabelTentativas := RetornaLingua( DestSettings.Language,'Const_Log_LabelTentativas');
|
|
end;
|
|
|
|
with DestSettings.UsersForm do
|
|
begin
|
|
WindowCaption := RetornaLingua( DestSettings.Language,'Const_Cad_WindowCaption');
|
|
LabelDescription := RetornaLingua( DestSettings.Language,'Const_Cad_LabelDescricao');
|
|
ColName := RetornaLingua( DestSettings.Language,'Const_Cad_ColunaNome');
|
|
ColLogin := RetornaLingua( DestSettings.Language,'Const_Cad_ColunaLogin');
|
|
ColEmail := RetornaLingua( DestSettings.Language,'Const_Cad_ColunaEmail');
|
|
BtAdd := RetornaLingua( DestSettings.Language,'Const_Cad_BtAdicionar');
|
|
BtChange := RetornaLingua( DestSettings.Language,'Const_Cad_BtAlterar');
|
|
BtDelete := RetornaLingua( DestSettings.Language,'Const_Cad_BtExcluir');
|
|
BtRights := RetornaLingua( DestSettings.Language,'Const_Cad_BtPermissoes');
|
|
BtPassword := RetornaLingua( DestSettings.Language,'Const_Cad_BtSenha');
|
|
BtClose := RetornaLingua( DestSettings.Language,'Const_Cad_BtFechar');
|
|
PromptDelete := RetornaLingua( DestSettings.Language,'Const_Cad_ConfirmaExcluir');
|
|
PromptDelete_WindowCaption := RetornaLingua( DestSettings.Language,'Const_Cad_ConfirmaDelete_WindowCaption');
|
|
end;
|
|
|
|
with DestSettings.UsersProfile do
|
|
begin
|
|
WindowCaption := RetornaLingua( DestSettings.Language,'Const_Prof_WindowCaption');
|
|
LabelDescription := RetornaLingua( DestSettings.Language,'Const_Prof_LabelDescricao');
|
|
ColProfile := RetornaLingua( DestSettings.Language,'Const_Prof_ColunaNome');
|
|
BtAdd := RetornaLingua( DestSettings.Language,'Const_Prof_BtAdicionar');
|
|
BtChange := RetornaLingua( DestSettings.Language,'Const_Prof_BtAlterar');
|
|
BtDelete := RetornaLingua( DestSettings.Language,'Const_Prof_BtExcluir');
|
|
BtRights := RetornaLingua( DestSettings.Language,'Const_Prof_BtPermissoes');
|
|
BtClose := RetornaLingua( DestSettings.Language,'Const_Prof_BtFechar');
|
|
PromptDelete := RetornaLingua( DestSettings.Language,'Const_Prof_ConfirmaExcluir');
|
|
PromptDelete_WindowCaption := RetornaLingua( DestSettings.Language,'Const_Prof_ConfirmaDelete_WindowCaption');
|
|
end;
|
|
|
|
with DestSettings.AddChangeUser do
|
|
begin
|
|
WindowCaption := RetornaLingua( DestSettings.Language,'Const_Inc_WindowCaption');
|
|
LabelAdd := RetornaLingua( DestSettings.Language,'Const_Inc_LabelAdicionar');
|
|
LabelChange := RetornaLingua( DestSettings.Language,'Const_Inc_LabelAlterar');
|
|
LabelName := RetornaLingua( DestSettings.Language,'Const_Inc_LabelNome');
|
|
LabelLogin := RetornaLingua( DestSettings.Language,'Const_Inc_LabelLogin');
|
|
LabelEmail := RetornaLingua( DestSettings.Language,'Const_Inc_LabelEmail');
|
|
CheckPrivileged := RetornaLingua( DestSettings.Language,'Const_Inc_CheckPrivilegiado');
|
|
BtSave := RetornaLingua( DestSettings.Language,'Const_Inc_BtGravar');
|
|
BtCancel := RetornaLingua( DestSettings.Language,'Const_Inc_BtCancelar');
|
|
LabelPerfil := RetornaLingua( DestSettings.Language,'Const_Inc_LabelPerfil');
|
|
CheckExpira := RetornaLingua( DestSettings.Language,'Const_Inc_CheckEspira');
|
|
Day := RetornaLingua( DestSettings.Language,'Const_Inc_Dia');
|
|
ExpiredIn := RetornaLingua( DestSettings.Language,'Const_Inc_ExpiraEm');
|
|
end;
|
|
|
|
with DestSettings.AddChangeProfile do
|
|
begin
|
|
WindowCaption := RetornaLingua( DestSettings.Language,'Const_PInc_WindowCaption');
|
|
LabelAdd := RetornaLingua( DestSettings.Language,'Const_PInc_LabelAdicionar');
|
|
LabelChange := RetornaLingua( DestSettings.Language,'Const_PInc_LabelAlterar');
|
|
LabelName := RetornaLingua( DestSettings.Language,'Const_PInc_LabelNome');
|
|
BtSave := RetornaLingua( DestSettings.Language,'Const_PInc_BtGravar');
|
|
BtCancel := RetornaLingua( DestSettings.Language,'Const_PInc_BtCancelar');
|
|
end;
|
|
|
|
with DestSettings.Rights do
|
|
begin
|
|
WindowCaption := RetornaLingua( DestSettings.Language,'Const_Perm_WindowCaption');
|
|
LabelUser := RetornaLingua( DestSettings.Language,'Const_Perm_LabelUsuario');
|
|
LabelProfile := RetornaLingua( DestSettings.Language,'Const_Perm_LabelPerfil');
|
|
PageMenu := RetornaLingua( DestSettings.Language,'Const_Perm_PageMenu');
|
|
PageActions := RetornaLingua( DestSettings.Language,'Const_Perm_PageActions');
|
|
PageControls := RetornaLingua( DestSettings.Language,'Const_Perm_PageControls');
|
|
BtUnlock := RetornaLingua( DestSettings.Language,'Const_Perm_BtLibera');
|
|
BtLock := RetornaLingua( DestSettings.Language,'Const_Perm_BtBloqueia');
|
|
BtSave := RetornaLingua( DestSettings.Language,'Const_Perm_BtGravar');
|
|
BtCancel := RetornaLingua( DestSettings.Language,'Const_Perm_BtCancelar');
|
|
end;
|
|
|
|
with DestSettings.ChangePassword do
|
|
begin
|
|
WindowCaption := RetornaLingua( DestSettings.Language,'Const_Troc_WindowCaption');
|
|
LabelDescription := RetornaLingua( DestSettings.Language,'Const_Troc_LabelDescricao');
|
|
LabelCurrentPassword := RetornaLingua( DestSettings.Language,'Const_Troc_LabelSenhaAtual');
|
|
LabelNewPassword := RetornaLingua( DestSettings.Language,'Const_Troc_LabelNovaSenha');
|
|
LabelConfirm := RetornaLingua( DestSettings.Language,'Const_Troc_LabelConfirma');
|
|
BtSave := RetornaLingua( DestSettings.Language,'Const_Troc_BtGravar');
|
|
BtCancel := RetornaLingua( DestSettings.Language,'Const_Troc_BtCancelar');
|
|
end;
|
|
|
|
with DestSettings.CommonMessages.ChangePasswordError do
|
|
begin
|
|
InvalidCurrentPassword := RetornaLingua( DestSettings.Language,'Const_ErrPass_SenhaAtualInvalida');
|
|
NewPasswordError := RetornaLingua( DestSettings.Language,'Const_ErrPass_ErroNovaSenha');
|
|
NewEqualCurrent := RetornaLingua( DestSettings.Language,'Const_ErrPass_NovaIgualAtual');
|
|
PasswordRequired := RetornaLingua( DestSettings.Language,'Const_ErrPass_SenhaObrigatoria');
|
|
MinPasswordLength := RetornaLingua( DestSettings.Language,'Const_ErrPass_SenhaMinima');
|
|
InvalidNewPassword := RetornaLingua( DestSettings.Language,'Const_ErrPass_SenhaInvalida');
|
|
end;
|
|
|
|
with DestSettings.ResetPassword do
|
|
begin
|
|
WindowCaption := RetornaLingua( DestSettings.Language,'Const_DefPass_WindowCaption');
|
|
LabelPassword := RetornaLingua( DestSettings.Language,'Const_DefPass_LabelSenha');
|
|
end;
|
|
|
|
with DestSettings.Log do
|
|
begin
|
|
WindowCaption := RetornaLingua( DestSettings.Language,'Const_LogC_WindowCaption');
|
|
LabelDescription := RetornaLingua( DestSettings.Language,'Const_LogC_LabelDescricao');
|
|
LabelUser := RetornaLingua( DestSettings.Language,'Const_LogC_LabelUsuario');
|
|
LabelDate := RetornaLingua( DestSettings.Language,'Const_LogC_LabelData');
|
|
LabelLevel := RetornaLingua( DestSettings.Language,'Const_LogC_LabelNivel');
|
|
ColLevel := RetornaLingua( DestSettings.Language,'Const_LogC_ColunaNivel');
|
|
ColAppID := RetornaLingua( DestSettings.Language,'Const_LogC_ColunaAppID');
|
|
ColMessage := RetornaLingua( DestSettings.Language,'Const_LogC_ColunaMensagem');
|
|
ColUser := RetornaLingua( DestSettings.Language,'Const_LogC_ColunaUsuario');
|
|
ColDate := RetornaLingua( DestSettings.Language,'Const_LogC_ColunaData');
|
|
BtFilter := RetornaLingua( DestSettings.Language,'Const_LogC_BtFiltro');
|
|
BtDelete := RetornaLingua( DestSettings.Language,'Const_LogC_BtExcluir');
|
|
BtClose := RetornaLingua( DestSettings.Language,'Const_LogC_BtFechar');
|
|
PromptDelete := RetornaLingua( DestSettings.Language,'Const_LogC_ConfirmaExcluir');
|
|
PromptDelete_WindowCaption := RetornaLingua( DestSettings.Language,'Const_LogC_ConfirmaDelete_WindowCaption');
|
|
OptionUserAll := RetornaLingua( DestSettings.Language,'Const_LogC_Todos');
|
|
OptionLevelLow := RetornaLingua( DestSettings.Language,'Const_LogC_Low');
|
|
OptionLevelNormal := RetornaLingua( DestSettings.Language,'Const_LogC_Normal');
|
|
OptionLevelHigh := RetornaLingua( DestSettings.Language,'Const_LogC_High');
|
|
OptionLevelCritic := RetornaLingua( DestSettings.Language,'Const_LogC_Critic');
|
|
DeletePerformed := RetornaLingua( DestSettings.Language,'Const_LogC_ExcluirEfectuada');
|
|
end;
|
|
|
|
with DestSettings.AppMessages do
|
|
begin
|
|
MsgsForm_BtNew := RetornaLingua( DestSettings.Language,'Const_Msgs_BtNew');
|
|
MsgsForm_BtReplay := RetornaLingua( DestSettings.Language,'Const_Msgs_BtReplay');
|
|
MsgsForm_BtForward := RetornaLingua( DestSettings.Language,'Const_Msgs_BtForward');
|
|
MsgsForm_BtDelete := RetornaLingua( DestSettings.Language,'Const_Msgs_BtDelete');
|
|
MsgsForm_BtClose := RetornaLingua( DestSettings.Language,'Const_Msgs_BtClose'); //added by fduenas
|
|
MsgsForm_WindowCaption := RetornaLingua( DestSettings.Language,'Const_Msgs_WindowCaption');
|
|
MsgsForm_ColFrom := RetornaLingua( DestSettings.Language,'Const_Msgs_ColFrom');
|
|
MsgsForm_ColSubject := RetornaLingua( DestSettings.Language,'Const_Msgs_ColSubject');
|
|
MsgsForm_ColDate := RetornaLingua( DestSettings.Language,'Const_Msgs_ColDate');
|
|
MsgsForm_PromptDelete := RetornaLingua( DestSettings.Language,'Const_Msgs_PromptDelete');
|
|
MsgsForm_PromptDelete_WindowCaption := RetornaLingua( DestSettings.Language,'Const_Msgs_PromptDelete_WindowCaption'); //added by fduenas
|
|
MsgsForm_NoMessagesSelected := RetornaLingua( DestSettings.Language,'Const_Msgs_NoMessagesSelected'); //added by fduenas
|
|
MsgsForm_NoMessagesSelected_WindowCaption := RetornaLingua( DestSettings.Language,'Const_Msgs_NoMessagesSelected_WindowCaption'); //added by fduenas
|
|
MsgRec_BtClose := RetornaLingua( DestSettings.Language,'Const_MsgRec_BtClose');
|
|
MsgRec_WindowCaption := RetornaLingua( DestSettings.Language,'Const_MsgRec_WindowCaption');
|
|
MsgRec_Title := RetornaLingua( DestSettings.Language,'Const_MsgRec_Title');
|
|
MsgRec_LabelFrom := RetornaLingua( DestSettings.Language,'Const_MsgRec_LabelFrom');
|
|
MsgRec_LabelDate := RetornaLingua( DestSettings.Language,'Const_MsgRec_LabelDate');
|
|
MsgRec_LabelSubject := RetornaLingua( DestSettings.Language,'Const_MsgRec_LabelSubject');
|
|
MsgRec_LabelMessage := RetornaLingua( DestSettings.Language,'Const_MsgRec_LabelMessage');
|
|
MsgSend_BtSend := RetornaLingua( DestSettings.Language,'Const_MsgSend_BtSend');
|
|
MsgSend_BtCancel := RetornaLingua( DestSettings.Language,'Const_MsgSend_BtCancel');
|
|
MsgSend_WindowCaption := RetornaLingua( DestSettings.Language,'Const_MsgSend_WindowCaption');
|
|
MsgSend_Title := RetornaLingua( DestSettings.Language,'Const_MsgSend_Title');
|
|
MsgSend_GroupTo := RetornaLingua( DestSettings.Language,'Const_MsgSend_GroupTo');
|
|
MsgSend_RadioUser := RetornaLingua( DestSettings.Language,'Const_MsgSend_RadioUser');
|
|
MsgSend_RadioAll := RetornaLingua( DestSettings.Language,'Const_MsgSend_RadioAll');
|
|
MsgSend_GroupMessage := RetornaLingua( DestSettings.Language,'Const_MsgSend_GroupMessage');
|
|
MsgSend_LabelSubject := RetornaLingua( DestSettings.Language,'Const_MsgSend_LabelSubject'); //added by fduenas
|
|
MsgSend_LabelMessageText := RetornaLingua( DestSettings.Language,'Const_MsgSend_LabelMessageText'); //added by fduenas
|
|
end;
|
|
|
|
DestSettings.WindowsPosition := poMainFormCenter;
|
|
|
|
With DestSettings.History do
|
|
Begin
|
|
Evento_Insert := RetornaLingua( DestSettings.Language,'Const_Evento_Insert');
|
|
Evento_Delete := RetornaLingua( DestSettings.Language,'Const_Evento_Delete');
|
|
Evento_Edit := RetornaLingua( DestSettings.Language,'Const_Evento_Edit');
|
|
Evento_NewRecord := RetornaLingua( DestSettings.Language,'Const_Evento_NewRecord');
|
|
Hist_All := RetornaLingua( DestSettings.Language,'Const_Hist_All');
|
|
Msg_LimpHistorico := RetornaLingua( DestSettings.Language,'Const_Msg_LimpHistorico');
|
|
Msg_MensConfirma := RetornaLingua( DestSettings.Language,'Const_Msg_MensConfirma');
|
|
Msg_LogEmptyHistory := RetornaLingua( DestSettings.Language,'Const_Msg_LogEmptyHistory');
|
|
LabelDescricao := RetornaLingua( DestSettings.Language,'Const_LabelDescricao');
|
|
LabelUser := RetornaLingua( DestSettings.Language,'Const_LabelUser');
|
|
LabelForm := RetornaLingua( DestSettings.Language,'Const_LabelForm');
|
|
LabelEvento := RetornaLingua( DestSettings.Language,'const_LabelEvento');
|
|
LabelTabela := RetornaLingua( DestSettings.Language,'const_LabelTabela');
|
|
LabelDataEvento := RetornaLingua( DestSettings.Language,'const_LabelDataEvento');
|
|
LabelHoraEvento := RetornaLingua( DestSettings.Language,'const_LabelHoraEvento');
|
|
Msg_NewRecord := RetornaLingua( DestSettings.Language,'const_Msg_NewRecord');
|
|
Hist_MsgExceptPropr := RetornaLingua( DestSettings.Language,'Const_Hist_MsgExceptPropr');
|
|
Hist_BtnFiltro := RetornaLingua( DestSettings.Language,'const_Hist_BtnFiltro');
|
|
Hist_BtnExcluir := RetornaLingua( DestSettings.Language,'const_Hist_BtnExcluir');
|
|
Hist_BtnFechar := RetornaLingua( DestSettings.Language,'const_Hist_BtnFechar');
|
|
End;
|
|
end;
|
|
|
|
{-------------------------------------------------------------------------------}
|
|
|
|
{$IFDEF DELPHI9_UP} {$ENDREGION} {$ENDIF}
|
|
|
|
{$IFDEF DELPHI9_UP} {$REGION 'TUCSettings'} {$ENDIF}
|
|
|
|
{ TUCSettings }
|
|
|
|
procedure TUCSettings.Assign(Source: TPersistent);
|
|
begin
|
|
if Source is TUCUserSettings then
|
|
begin
|
|
Self.CommonMessages.Assign(TUCUserSettings(Source).CommonMessages); //modified by fduenas
|
|
Self.AppMessages.Assign(TUCUserSettings(Source).AppMessages); //modified by fduenas
|
|
Self.WindowsPosition := WindowsPosition;
|
|
end
|
|
else
|
|
inherited;
|
|
end;
|
|
|
|
constructor TUCSettings.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
fLanguage := ucPortuguesBr;
|
|
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);
|
|
fHistory := TUCHistoryMSG.Create(Nil);
|
|
fTypeFields := TUCFieldType.Create(Nil);
|
|
if csDesigning in ComponentState then
|
|
IniSettings2(Self);
|
|
end;
|
|
|
|
destructor TUCSettings.Destroy;
|
|
begin
|
|
//added by fduenas
|
|
FAppMessagesMSG.Free;
|
|
FLoginFormMSG.Free;
|
|
FUserCommomMSG.Free;
|
|
FCadUserFormMSG.Free;
|
|
FAddUserFormMSG.Free;
|
|
FAddProfileFormMSG.Free;
|
|
FPermissFormMSG.Free;
|
|
FProfileUserFormMSG.Free;
|
|
FTrocaSenhaFormMSG.Free;
|
|
FResetPassword.Free;
|
|
FLogControlFormMSG.Free;
|
|
fHistory.Free;
|
|
fTypeFields.Free;
|
|
inherited;
|
|
end;
|
|
|
|
procedure TUCSettings.SetAppMessagesMSG(const Value: TUCAppMessagesMSG);
|
|
begin
|
|
FAppMessagesMSG := Value;
|
|
end;
|
|
|
|
procedure TUCSettings.SetFAddProfileFormMSG(const Value: TUCAddProfileFormMSG);
|
|
begin
|
|
FAddProfileFormMSG := Value;
|
|
end;
|
|
|
|
procedure TUCSettings.SetFAddUserFormMSG(const Value: TUCAddUserFormMSG);
|
|
begin
|
|
FAddUserFormMSG := Value;
|
|
end;
|
|
|
|
procedure TUCSettings.SetFCadUserFormMSG(const Value: TUCCadUserFormMSG);
|
|
begin
|
|
FCadUserFormMSG := Value;
|
|
end;
|
|
|
|
procedure TUCSettings.SetFFormLoginMsg(const Value: TUCLoginFormMSG);
|
|
begin
|
|
FLoginFormMSG := Value;
|
|
end;
|
|
|
|
procedure TUCSettings.SetfHistory(const Value: TUCHistoryMSG);
|
|
begin
|
|
fHistory := Value;
|
|
end;
|
|
|
|
procedure TUCSettings.SetfLanguage(const Value: TUCLanguage);
|
|
begin
|
|
fLanguage := Value;
|
|
AlterLanguage2(Self);
|
|
end;
|
|
|
|
procedure TUCSettings.SetFLogControlFormMSG(const Value: TUCLogControlFormMSG);
|
|
begin
|
|
FLogControlFormMSG := Value;
|
|
end;
|
|
|
|
procedure TUCSettings.SetFPermissFormMSG(const Value: TUCPermissFormMSG);
|
|
begin
|
|
FPermissFormMSG := Value;
|
|
end;
|
|
|
|
procedure TUCSettings.SetFProfileUserFormMSG(const Value: TUCProfileUserFormMSG);
|
|
begin
|
|
FProfileUserFormMSG := Value;
|
|
end;
|
|
|
|
procedure TUCSettings.SetFResetPassword(const Value: TUCResetPassword);
|
|
begin
|
|
FResetPassword := Value;
|
|
end;
|
|
|
|
procedure TUCSettings.SetFTrocaSenhaFormMSG(const Value: TUCTrocaSenhaFormMSG);
|
|
begin
|
|
FTrocaSenhaFormMSG := Value;
|
|
end;
|
|
|
|
procedure TUCSettings.SetFUserCommonMSg(const Value: TUCUserCommonMSG);
|
|
begin
|
|
FUserCommomMSG := Value;
|
|
end;
|
|
|
|
{$IFDEF DELPHI9_UP} {$ENDREGION} {$ENDIF}
|
|
|
|
end.
|