Galera ai vai a tradução dos Dialogs + algumas coisas!
http://rapidshare.com/files/126603284/Traducao.rar (http://rapidshare.com/files/126603284/Traducao.rar)
Se alguem quiser fiz também uma função parecida com o MessageDlg
(Versão Br)
Obs: usa o MessageBox só que com parâmetros do MessageDlg
function MessageDlg2(mTexto:pChar; mTipo : TMsgDlgType; mBotao:TMsgDlgButtons; mFocoBotao:Integer): Integer;
var
mUINT : Cardinal;
mTitulo : pChar;
begin
Case mTipo of
mtWarning :begin
mUINT := MB_ICONWARNING;
mTitulo := 'Cuidado';
end;
mtError :begin
mUINT := MB_ICONERROR;
mTitulo := 'Erro';
end;
mtConfirmation :begin
mUINT := MB_ICONQUESTION;
mTitulo := 'Confirmação';
end;
mtInformation :begin
mUINT := MB_ICONINFORMATION;
mTitulo := 'Informação';
end;
mtCustom :begin
mUINT := MB_USERICON;
mTitulo := 'Menssagem';
end;
end;
//Ajustar
If mBotao = [mbYes,mbNo] then mUINT := mUINT + MB_YESNO
else if mBotao = mbYesNoCancel then mUINT := mUINT + MB_YESNOCANCEL
else if mBotao = mbOKCancel then mUINT := mUINT + MB_OKCANCEL
else if mBotao = mbAbortRetryIgnore then mUINT := mUINT + MB_ABORTRETRYIGNORE
else if mBotao = [mbOK] then mUINT := mUINT + MB_OK;
//-------------
Case mFocoBotao of
0: mUINT := mUINT + MB_DEFBUTTON1; //Default
1: mUINT := mUINT + MB_DEFBUTTON2; //Segundo Botao
2: mUINT := mUINT + MB_DEFBUTTON3; //Terceiro Botao
3: mUINT := mUINT + MB_DEFBUTTON4; //Quarto Botao
end;
Result := MessageBox(Application.Handle,mTexto,mTitulo,mUINT);
end;