Alle Units mit GetText übersetzen, oder nur Unit1?

[AlexII]

Hallo,

ich übersetze mein Programm mit GNU gettext. Nun die Frage muss ich in allen Units folgendes aufrufen

Delphi-Quellcode:

Unit2
....

If (Language='German') or (GetCurrentLanguage()='de_DE') or (GetCurrentLanguage()='de_AT') or (GetCurrentLanguage()='de_CH') then
begin
UseLanguage('de_DE');
ReTranslateComponent(Self);
end;

wenn bei mir alle Units in dem Implementation-Abschnitt der Unit1 eingebunden sind?

Delphi-Quellcode:

implementation

uses Unit2, Unit3, Unit4;
....

Reicht es wenn ich die ganze Übersetzung in Unit1 realisiere? Ich denke ja, oder? Bin mir da aber nicht sicher.

Danke!

[Ralf Kaiser]

Zitat:

Zitat von AlexII (Beitrag 1155046)

Reicht es wenn ich die ganze Übersetzung in Unit1 realisiere? Ich denke ja, oder? Bin mir da aber nicht sicher.
Danke!

Nein. Die Übersetzung (also mindestens das "TranslateComponent()") muss für jedes erzeugte Formular durchgeführt werden.

Es bietet sich daher an, alle Formulare von einer gemeinsamen Basisklasse abzuleiten und die Sprachverwaltung (welche Sprache soll benutzt werden) und die eigentliche Übersetzung in dieser Basisklasse zu machen. So muss man sich nicht in jeden neuen Formular darum kümmern.

Ciao,
Ralf

[AlexII]

Danke! :thumb:

[himitsu]

In Screen werden auch alle VCL-Forms aufgelistet.
Diese könnte man durchlaufen und dann für jedes Fenster das TranslateComponent aufrufen, ohne es überall einbauen zu müssen.

Die automatisch erzeugten Fenster (über CreateForm in der DRP) besitzen Application, so daß man dort notfalls auch über Application.Components an diese renkommen könnte.

[Ralf Kaiser]

Das setzt aber voraus, dass zum Zeitpunkt wenn man übersetzen will schon alle Formulare erzeugt sind, was wohl normalerweise nicht so oft der Fall ist. Meistens wird man ein Hauptformular haben und die anderen Formulare nur erzeugen wenn man sie benötigt.

Da halte ich es für günstiger eine Basisklasse zu haben die "sich selbst" dann übersetzt wenn das jeweilige Formular erzeugt wird.