messagebox: englische texte

[malabarista]

Bei der messagebox sind in der Windows-Version (=WIN8) die Buttons englisch beschriftet: Yes und No. Obwohl es eine deutsche WIN-Installation ist.
(in der Linux-Variante ist es korrekt auf deutsch)

Kann man das irgendwo einstellen ?

[Mathias]

So was wurde da auch diskutiert, scheint ein etwa kompliziertere Sache zu sein.
http://www.lazarusforum.de/viewtopic.ph ... sch#p76018

Folgendes, kommt bei mir in deutsch, unter WinXP Lazarus 1.6

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
begin
  MessageBox(0, 'Leider ein Fehler' + LineEnding +
    'Programm wird beendet !', 'Fehler !', MB_ICONSTOP or MB_YESNO);
end;  

(in der Linux-Variante ist es korrekt auf deutsch)

Wie hast du dies unter Linux hingekriegt, dafür wird bei mir die Unit windows verlangt.

[Michl]

Eigentlich gibt es genügend Einträge über Translations hier im Forum. Wie auch immer, verkürzt geht das so:

Du erstellst ein Unterverzeichnis in deinem Projektverzeichnis mit dem Namen "languages". Dieses kannst du auch für eigene Resourcestrings nutzen (Google: i18n).
In dieses Verzeichnis kopierst du entweder das komplette languages - Verzeichnis der lcl oder aber mindestens die Dateien:

Code: Alles auswählen

lclstrconsts.po
lclstrconsts.de.po

von z.B. C:\lazarus\lcl\languages.

Achtung, dieses Verzeichnis mit allen zu unterstützenden Sprachen (.po - Files) musst du so mit deinem Programm verteilen.

Nun noch folgender Code

Code: Alles auswählen

uses ..., Translations;  
...
procedure TForm1.FormCreate(Sender: TObject);
var
  PODirectory: String;
begin
  PODirectory := Application.Location + 'languages' + DirectorySeparator; 
  TranslateUnitResourceStrings('LCLStrConsts', PODirectory + 'lclstrconsts.%s.po', 'de', '');
  MessageDlg('Title', 'Text', mtInformation, [mbOk, mbCancel, mbYes], 0); // sollte jetzt deutsche Beschriftungen haben
end;  

Siehe:
http://www.lazarusforum.de/viewtopic.php?f=5&t=182

[Mathias]

Jetzt sehe ich vielleicht durch, der Thread-Ersteller meinte wahrscheinlich Application.MessageBox, dann sieht dies einiges anders aus, da dies auch unter Linux geht.

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);  // Braucht zwingend die Unit Windows, dafür kommt es in der Spache des Betriebsystemes.
begin
  MessageBox(0, 'Leider ein Fehler' + LineEnding +
    'Programm wird beendet !', 'Fehler !', MB_ICONSTOP or MB_YESNO or MB_HELP);
end;
 
procedure TForm1.Button1Click(Sender: TObject); // Ist Systemunabhängig, dafür aber englisch.
begin
  Application.MessageBox('Leider ein Fehler' + LineEnding +
    'Programm wird beendet !', 'Fehler !', MB_ICONSTOP or MB_YESNO or MB_HELP);
end;

[malabarista]

Zum einen: ich habe application.messagebox gemeint. Dass es noch eine andere messagebox gibt, wusste ich nicht.

Das Ganze scheint mir etwas komplizierter zu sein, das hatte ich nicht erwartet.
Da mache ich lieber einen modalen Dialog, welcher den Text für die Frage und die beiden Buttons "Ja" und "Nein" enthält.

[Michl]

ich habe application.messagebox gemeint

Ist eigentlich egal, da das oben geschriebene Vorgehen für alle in den in den .po- Files vorhandenen ResourceStrings funktioniert.

[VB_Lazarus]

Hallo,

falls du keine Lokalisierung brauchst, kannst du es auch mit QuestionDLG machen.

mit Frage und Antwort:

Code: Alles auswählen

if QuestionDlg('Wartungen Datum ändern', 'Sollen alle angezeigten Wartungen zurückgemeldet und das Datum entsprechend dem Intervall angepasst werden?', mtConfirmation, [mrYes, 'Ja', mrNo, 'Nein'], 0) = mrYes then

nur als Message

Code: Alles auswählen

QuestionDlg('Wartung löschen', 'Es gibt keine Daten zu löschen.', mtWarning, [mrYes, 'Ok'], 0);

So habe ich es gelöst.

[malabarista]

QuestionDLG ist ein guter Tipp. Ich brauche keine Lokalisierung, nur unbedingt alles auf deutsch.
Dankeschön.

[Mathias]

Den kannte ich nicht, das muss ich mir merken.

Damit kann man den Anwender zur Verzweiflung bringen:

Code: Alles auswählen

QuestionDlg('Wartungen Datum ändern', 'Sollen alle angezeigten Wartungen zurückgemeldet und das Datum entsprechend dem Intervall angepasst werden?',
    mtConfirmation, [mrLast, 'Letzte', mrYes, 'Ja', mrNo, 'Nein', mrOk, 'Ok', mrCancel, 'Abbruch', mrIgnore, 'Ingnorieren',  mrAbort, 'Fort', mrNoToAll, 'Nein-Alle', mrYesToAll, 'Ja-Alle'], 0);