Meldung mit Englischen Buttons

[OLLI_S]

Hallo,

ich habe Windows 7 Professional in Deutsch.
Die Sprache im SystemTray ist auch auf Deutsch eingestellt.
Lazarus ist in der Version 1.2.2 ebenfalls in Deutsch installiert.

Ich gebe in meiner Anwendung eine Fehlermeldung aus:

Code: Alles auswählen

Antwort := MessageDlg('Warnung', 'Meddungstext', mtWarning, [mbYes, mbNo], 0);
if Antwort = mrNo then exit;

Im Meldngs-Dialog werden aber die Buttons "Yes" und "No" anstelle von "Ja" und "Nein" angezeigt.

Also bin ich in die Projekteinstellungen und habe unter "Versionsinformationen" die "Sprachauswahl" von "English" auf "German" umgestellt.
Aber selbst wenn ich das Projekt neu kompiliere (Start -> Neu kompilieren) sind die Buttons noch auf Englisch.

Wo kann ich das denn umstellen?

Gruß

OLLI

[m.fuchs]

Schau mal hier nach: http://wiki.freepascal.org/Translations ... rograms/de

[theo]

Ich empfehle den Übersetzungscode in den "initialization" Abschnitt zu packen.

Code: Alles auswählen

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ButtonPanel;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    ButtonPanel1: TButtonPanel;
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
  PODirectory, Lang, FallbackLang: String;
 
implementation
 
uses
  GetText, Translations;
 
{$R *.lfm}
 
initialization
PODirectory := '/home/theo/lazarus/svn/lcl/languages/';  //Pfad entsprechend Installation anpassen
GetLanguageIDs(Lang, FallbackLang);
Translations.TranslateUnitResourceStrings('LCLStrConsts', PODirectory + 'lclstrconsts.%s.po', Lang, FallbackLang);
 
end.  

[ruewa]

Wo kann ich das denn umstellen?

Hallo Olli,

mit einfach "umstellen" ist das nicht getan. Andererseits ist das aber auch kein Hexenwerk.

Das hier dürfte Dir weiterhelfen, auch um besser zu verstehen, welche Logik dahintersteckt: http://www.lazarusforum.de/viewtopic.php?p=69170#p69170

Die einfachste Möglichkeit ist: Die dort (unten) aufgeführte Unit AppLanguage rauskopieren, in Dein Projektverzeichnis (oder in das Lazarus-Bibliotheksverzeichnis) zu verfrachten und sie via Projektinspektor in Dein Programm einzubinden (bzw. in die uses-Anweisung Deiner Projekt.lpr-Datei aufzunehmen). Das war's dann auch schon...

Gruß Rüdiger

[noenglish]

Wenn es auch ein QuestionDLG sein kann, ist dies vermutlich die einfachste Lösung:

Code: Alles auswählen

Antwort := QuestionDLG('Warnung', 'Meldungstext', mtWarning, [mbYes,'beliebig für Yes', mbNo,'beliebig für No'], 0);  

mfG
noenglish