Tradução Delphi

[Dx]

Galera ai vai a tradução dos Dialogs + algumas coisas!


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

Código Selecionar Expandir

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;