Zwischen Sprachen umschalten?

[AlexII]

Jetzt stehe ich vor der Frage wie man auf die Ursprungssprache wechselt, also ich die Sprache in der das Prog. geschrieben wurde, es gibt ja für sie keine .po-Datei.

Einfach mit

ReTranslateComponent(Self); Geht nicht, wie dann?

[Ralf Kaiser]

Also ich entwickele Anwendungen immer in Englisch (englisches Delphi wegen der Systemmeldungen, eigene englische Originaltexte in den Formularen). Da dxGetText als "Indexsprache" Englisch benutzt gibt es dafür (normalerweise) auch keine PO Datei.

So reicht dann ein simples

UseLanguage('EN');
RetranslateComponent(self);

um wieder aufs Original umzuschalten.

Generell gilt dabei, dass die Originale, also die Strings aus den Formularen, immer dann benutzt werden wenn eine PO Datei für die gewählte Sprache nicht gefunden werden kann! Ein "UseLanguage('WUPPDI')" würde also auch dazu führen, dass die Originale wieder angezeigt werden.

[AlexII]

Ja das klappt, thx.

[AlexII]

Komischerweise wird Itemindex der ComboBox immer auf 0 gesetzt
Ich denke weil TranslateComponent(Self); vor dem Auslesen der Daten in die ComboBox geschieht.

Auslesen der Daten in die ComboBox geschieht bei mir aber in OnShow und wenn ich erst danach TranslateComponent(Self); ausführe ist ItemIndex 1 (wird auch so in der .ini abgespeichert), wie erwartet, aber wenn ich das Programm das zweite mal öffne (und immer wieder) ist es wieder 0 Voll komisch

[OldGrumpy]

TranslateComponent() setzt Comboboxen auf -1 bzw. 0 zurück (je nach Typ), da für die Übersetzung die alten Texte raus und die neuen rein müssen. Steht so auch in der Doku. Abhilfe: ItemIndex erst nach TranslateComponent setzen oder notfalls mit einer lokalen Variable merken.

[AlexII]

Ach so..... ok muss ich mal ändern. Thx