Como Traduzir o Caption do UniDBNavigator e o Delete Record

[belo]

Segue dica de como traduzir os botões do UniDBNavigator e da mensagem de exclusão (Delete Record). Adaptado do Post Caption to the buttons of dbnavigator

 

com essa dica, também é possível traduzir outras mensagens.

 

Para esse exemplo, tem que declarar a Unit VdbConsts e Windows.

unit ServerModule;

interface

uses
  Classes, SysUtils, uniGUIServer, uniGUIMainModule, uniGUIApplication,
  uIdCustomHTTPServer, uniGUITypes, FireDAC.Phys.FBDef, FireDAC.UI.Intf,
  FireDAC.VCLUI.Wait, FireDAC.Comp.UI, FireDAC.Stan.Intf, FireDAC.Phys,
  FireDAC.Phys.IBBase, FireDAC.Phys.FB, Vcl.VdbConsts, Windows;

type
  TUniServerModule = class(TUniGUIServerModule)
    FDPhysFBDriverLink1: TFDPhysFBDriverLink;
    FDGUIxWaitCursor1: TFDGUIxWaitCursor;
  private
    { Private declarations }
  protected
    procedure FirstInit; override;
  public
    { Public declarations }
  end;

function UniServerModule: TUniServerModule;

implementation

{$R *.dfm}

uses
  UniGUIVars;

function UniServerModule: TUniServerModule;
begin
  Result := TUniServerModule(UniGUIServerInstance);
end;

procedure HookResourceString(rs: PResStringRec; newStr: PChar);
var
  oldprotect: DWORD;
begin
  VirtualProtect(rs, SizeOf(rs^), PAGE_EXECUTE_READWRITE, @oldprotect);
  rs^.Identifier := Integer(newStr);
  VirtualProtect(rs, SizeOf(rs^), oldprotect, @oldprotect);
end;

procedure TUniServerModule.FirstInit;
begin
  InitServerModule(Self);
end;

initialization

RegisterServerModuleClass(TUniServerModule);

RegisterServerModuleClass(TUniServerModule);

// Translate Messages in Vcl.VdbConsts.pas Unit ( English to Portuguese Br )
// resourcestring { DBCtrls }

// UniDBNavigator
HookResourceString(@SFirstRecord, PChar('Primeiro Registro'));
HookResourceString(@SPriorRecord, PChar('Registro Anterior'));
HookResourceString(@SNextRecord, PChar('Próximo Registro'));
HookResourceString(@SLastRecord, PChar('Último Registro'));
HookResourceString(@SInsertRecord, PChar('Inserir'));
HookResourceString(@SDeleteRecord, PChar('Excluir'));
HookResourceString(@SEditRecord, PChar('Editar'));
HookResourceString(@SPostEdit, PChar('Confirmar'));
HookResourceString(@SCancelEdit, PChar('Cancelar'));
HookResourceString(@SRefreshRecord, PChar('Atualizar Dados'));
HookResourceString(@SApplyUpdates, PChar('Aplicar Atualizações'));
HookResourceString(@SCancelUpdates, PChar('Cancelar Atualizações'));

HookResourceString(@SDeleteRecordQuestion, PChar('Excluir Registro?'));

end.

sds

 

Eduardo Belo

 

[Marlon Nardi]

Muito bom Eduardo!

 

Hack no próprio Delphi   também tem mais esses:

// Translate  Messages in  Consts.pas  Unit  ( English to Portuguese Br) 
 
  HookResourceString(@SMsgDlgWarning,pchar('Atenção')) ;
  HookResourceString(@SMsgDlgInformation,pchar('Informação')) ;
  HookResourceString(@SMsgDlgConfirm,pchar('Confirma')) ;
  HookResourceString(@SMsgDlgError,pchar('Erro')) ;

[belo]

Valeu Marlon! ResoucerAtring, quem já não fez a sua uTraducao!

[Uelson Cavalcante]

Marlon, bom dia, como faço para traduzir o titulo da mensagem Confirm do mtconfirmation do inlgês para português?