Englische Dialoge mit deutschem Delphi

[haraldr]

Vielen Dank an alle, die so schnell geantwortet haben.

Uwes Lösung ist für mich am praktikabelsten.
Leider kannte ich die BDSSetLang.exe bisher noch nicht.

Habe die Bibliothek auf English(USA) geändert. (Vorher die IDE beenden!)
Danach kommen die von Delphi vorgefertigten Dialoge (z.B. messagedlg) korrekt auf Englisch.

Dialoge wie TOpenDlg oder DSaveDlg werden in englischer Windows-Umgebung auch auf Englisch eingeblendet. (Habe ich gerade auf einer englischen Server2003 Plattform getestet).

Liebe Grüße
haraldr

[himitsu]

BdsSetLang.exe ... ahhh, da versteckt es sich und es wird auch gleich mitgeliefert
Nja, jedenfalls wird es "netter Weise" nicht im Startmenü und auch nicht innerhalb der IDE verlinkt. (ok, wärend die IDE läuft, kann man wohl eh nicht umschalten)

[p80286]

[ot]
tja RTFM! Bleibt nur die Frage "welches?"
[/ot]

Grüße
K-H

[himitsu]

Nachfolgenden Code als BDSSetLangTool.cmd in "C:\Dokumente und Einstellungen\All Users\Dokumente\RAD Studio\8.0" abspeichern.
(Pfad je nach Delphiversion anpassen)

und dann nur noch in Tools > Tools konfigurieren... > und dort zwei/mehr neue Einträge anlegen

Titel: IDE/VCL-Sprache wechseln
Programm: $(BDSCOMMONDIR)\BDSSetLangTool.cmd

Titel: IDE/VCL-Sprache auf Englisch umstellen
Programm: $(BDSCOMMONDIR)\BDSSetLangTool.cmd
Parameter: EN

Titel: IDE/VCL-Sprache auf Deutsch umstellen
Programm: $(BDSCOMMONDIR)\BDSSetLangTool.cmd
Parameter: DE

Achtung, beim Umschalten wird die IDE neu gestartet.

Code:

@ECHO OFF

REM Copyright by himitsu ^_^

IF "%BDSBIN%"=="" GOTO ERROR
IF NOT "%BDSBIN:~1,1%"==":" GOTO ERROR
ECHO.
ECHO.
TASKKILL /IM bds.exe
ECHO.
ECHO.
ECHO sobald die Delphi-IDE beendet wurde . . .
PAUSE
ECHO.
%BDSBIN:~0,2%
CD %BDSBIN%
PUSHD
BDSSetLang.exe %1
POPD
START BDS.exe
EXIT

:ERROR
ECHO.
ECHO Error...
ECHO.
PAUSE
EXIT




die BDSSetLangTool.cmd hierhin kopieren: (Beispiel für Delphi/RAD XE)
C:\Dokumente und Einstellungen\All Users\Dokumente\RAD Studio\8.0

und dann in Delphi-IDE > Tools > Tools konfigurieren.../Configure Tools... > und dort zwei/mehrere neue Einträge anlegen

Titel:      IDE-Sprache wechseln
Programm:  $(BDSCOMMONDIR)\BDSSetLangTool.cmd
ohne Parameter

Titel:      IDE-Sprache auf Englisch umstellen
Programm:  $(BDSCOMMONDIR)\BDSSetLangTool.cmd
Parameter: EN

Titel:      IDE-Sprache auf Deutsch umstellen
Programm:  $(BDSCOMMONDIR)\BDSSetLangTool.cmd
Parameter: DE

das Selbe eventuell auch noch für Französisch/FR und Japanisch/JP (vermute ich mal)

mögliche Parameter siehe CMD: "C:\Programme\Embarcadero\RAD Studio\8.0\bin\BDSSetLang.exe" /?


!!! Achtung, beim Umschalten wird die IDE neu gestartet

[kopernikus]

Wenn man nur die Bibliothekssprache umschalten will, hilft diese Batch-Datei leider nicht weiter.
Die Spracheinstellung hierfür wird in der Registry gespeichert:

Key: HKEY_CURRENT_USER\Software\Embarcadero\BDS\9.0\MUI
Value: Translated Library Directory (= EN oder DE)

Hier ein kleines Konsolenprogramm, mit dem sich diese Umstellung vornehmen lässt:

Delphi-Quellcode:

{ Delphi XE/XE2 utility
  Select MUI language (language for libraries to be used inside a program)
  JR, Nov. 2011

  Calling:
    ChangeMUILanguage <XX>
    with XX = EN  - English
            = DE  - German
  }

program ChangeMUILanguage;

{$APPTYPE CONSOLE}

uses
  SysUtils, Registry, Windows;

const
  MaxLang  = 2;
  Languages : array[0..MaxLang-1] of string[2] = ('EN','DE');
  MuiKey = 'Software\Embarcadero\BDS\9.0\MUI';
  KeyName = 'Translated Library Directory';
var
  s : string;
  i : integer;
begin
  if ParamCount>= 1 then begin
    s:=ParamStr(1);
    for i:=1 to MaxLang-1 do if AnsiSametext(s,Languages[i]) then Break;
    if i>=MaxLang then s:=Languages[0] else s:=Languages[i];  // default = english
    with TRegistry.Create do begin
      RootKey:=HKEY_CURRENT_USER;
      if OpenKey(MuiKey,false) then WriteString(KeyName,s);
      CloseKey;
      Free;
      end;
    end;
  end.

[MarcoGöli]

Hallo Community

Ich habe Rad Studio RX10 Seattle neu installiert, da ich meinen Mac komplett neu aufgesetzt habe. Rad Studio funktioniert alles einwandfrei. Jedoch wenn ich mein erstelltes Programm starte und einen Hinweis oder Dialog öffnet, sind die Buttons in Englisch und nicht in Deutsch (siehe Bild). Das ganze läuft unter dem System:
- Mac OSX El Capitain 10.11.3, Sprache und Tastatur Schweiz(Deutsch)
- Parallels Desktop 11, Sprache Deutsch
- Windows 10 Pro, Sprache und Tastatur Schweiz(Deutsch)

Wenn ich die C:/Programme(x86)/Embarcadero/Studid/17.0/bin/BDSSetLang.exe ausführe wird mir unter Sprache Benutzeroberfläche und Bibliothekssprache Deutsch(Deutschland) angezeigt. Also sollte doch in meinem Programm die Hinweis und Dialogbuttons in Deutsch sein.
Weis einer woran das liegen kann? Vor der Neuinstallation hat dies auch funktioniert.

Diesen Pfad finde ich in der Registry nicht: HKEY_CURRENT_USER\Software\Embarcadero\BDS\17.0\MU I

[bra]

Schau mal in den Delphi-Einstellungen unter "Environment Variables", was da bei "LANGDIR" eingetragen ist. Das ggf. auf DE (oder die schweizerische Entsprechung) ändern. Allerdings weiss ich nicht, ob das auf dem Mac eventuell anders heisst.

[MarcoGöli]

Ich habe nachgeschaut "HKEY_CURRENT_USER\Software\Embarcadero\BDS\17.0\E nvironment Variables", jedoch finde ich Rechts den Eintrag "LANGDIR" nicht.
Rad Studio ist ja unter Windows 10 installiert, das sollte doch keine Rolle spielen

[bra]

Lege den einfach einmal an und trage als Wert "DE" ein. Eigentlich sollten sich diese Einträge über die Konfiguration in der IDE auch ändern lassen. Ich glaube wir haben den auch nachträglich hinzugefügt.

Übrigens gibt es in den Projekteinstellungen unter Version Info auch eine Spracheinstellung. Die hat eventuell auch noch Auswirkungen auf die Dialoge.

[Uwe Raabe]

Zitat von MarcoGöli:

Ich habe nachgeschaut "HKEY_CURRENT_USER\Software\Embarcadero\BDS\17.0\E nvironment Variables", jedoch finde ich Rechts den Eintrag "LANGDIR" nicht.

Der steht ja auch unter "HKEY_CURRENT_USER\Software\Embarcadero\BDS\17.0\M UI\Translated Library Directory". Wenn der leer ist, wird die Windows-Sprache verwendet. Gibt es die nicht, dann fällt das System auf Englisch zurück. Du kannst dort ja mal gezielt ein "DE" eintragen.

Dann müssen natürlich in den lib-Verzeichnisse die Unterverzeichnisse für die jeweilige Sprache (hier DE) existieren, aber davon gehe ich mal aus.

Der nächste Knackpunkt kann die Reihenfolge der Suchpfade sein. Ich hatte schon mal den Fall, daß das lib\Win32 manuell im ProjektPfad gesetzt war, was dann natürlich das Sprach-Verzeichnis überdeckt hatte.