Buttons in MessageBox deutsch beschriften? Wie?

[Carsten Wallner]

Hi,

bin kürzlich versuchsweise von Delphi aus Lazarus umgestiegen (unter WinXP) - das ganze gefällt mir wirklich gut - ok, der Debugger ist etwas mühsam, da ich keine Fehlermeldungen kriege sondern nur die Markierung der fehlerhaften Zeile - aber damit kann ich leben
Nun habe ich das Problem, dass meine MessageBox (mit MB_YesNoCancel) die Buttons englisch beschriftet. Kann man das irgendwie ändern odermuss ich dafür dann eigene Forms erzeugen und die als MessageBox-Ersatz nehmen?

Bin für jeden Tipp dankbar

Gruß
Carsten

[Quit]

Er zeigt dir keine Fehlermeldungen an?
Auch nicht im Nachrichten ... Fenster? Ist es vielleicht deaktiviert?

[Christian]

Er hat vom debugger gesprochen, der hat mit dem Narichtenfenster doch nichts zu tun.
Allerdings weiss ich auch nicht was für fehlermeldungen ein Debugger ist dazu da um fehler zu sucehn und nicht um welche zu produzieren dazu ist der user da.

[Carsten Wallner]

Hi,

sorry... ich hab gestern glaube ich Quark geschrieben... ich meinte eigentlich die Compiler-Fehlermeldungen...
Von Delphi war ich gewöhnt, dass dort die fehlerhafte Zeile markiert wird und unten sowas wie ":= expected" steht. Das ist bei meiner Lazarus-Version v0.9.16 Beta nicht der Fall

Zu den englischen Beschriftungen der MessageBox-Buttons gibts keine Ideen??

Gruß
Carsten

[theo]

Zu den englischen Beschriftungen der MessageBox-Buttons gibts keine Ideen??

Code: Alles auswählen

uses Translations;
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
 var
PODirectory: String;
begin
PODirectory:='/usr/lib/lazarus/languages/';
TranslateUnitResourceStrings('LCLStrConsts',PODirectory+'lazaruside.%s.po','de','');
MessageDlg('Title','Text',mtInformation,[mbOk,mbCancel,mbYes],0);
end;

[Christian]

sorry... ich hab gestern glaube ich Quark geschrieben... ich meinte eigentlich die Compiler-Fehlermeldungen...
Von Delphi war ich gewöhnt, dass dort die fehlerhafte Zeile markiert wird und unten sowas wie ":= expected" steht. Das ist bei meiner Lazarus-Version v0.9.16 Beta nicht der Fall

Doch doch das geht schon man sollte nur das Narichten Fenster mit Ansicht -> Narichten mal einschalten dann solltest auch den fehlertext sehn.

Was willst du mit der 0.9.16 die 0.9.20 ist die Aktuelle.

[Carsten Wallner]

Hi!

@Christian: Danke, ja, das hat geklappt - bei Delphi wars immer schon da - es gibt halt Kleinigkeiten bei denen man sich beim Umstieg umgewöhnen muss - aber mir gefällt Lazarus von Tag zu tag besser!
Warumich die 9.16 hab?? Tja als ich das Ganze installiert hab (nicht sooo lange her) war das die neuste - habe nicht damit gerechnet, dass die Versionen so schnell wechseln - ich werd einfach malprobieren, wie aufwändig es ist ne neue Version drüber zu installieren.

@theo: habe das so wörtlich übernommen und in mein Projekt eingebaut - das klappt so leider nicht, buttons bleiben englisch - wo könnte es denn noch haken??

Gruß
Carsten

[theo]

@theo: habe das so wörtlich übernommen und in mein Projekt eingebaut - das klappt so leider nicht, buttons bleiben englisch - wo könnte es denn noch haken??

Den Pfad (PODirectory) hast du aber schon angepasst, oder?

Vielleicht geht's auch so:

Code: Alles auswählen

uses Translations;
 
procedure TForm1.FormCreate(Sender: TObject);
var
PODirectory: String;
begin
PODirectory:='/path/to/lazarus/lcl/languages/';
TranslateUnitResourceStrings('LCLStrConsts',PODirectory+'lcl.%s.po','de','');
MessageDlg('Title','Text',mtInformation,[mbOk,mbCancel,mbYes],0);
end;

Am besten kopierst du die Datei "lcl.de.po" sowieso in den Anwendungspfad, da du sie beim Weitergeben mitliefern musst.

[Mattias]

Obiges Besipiel ist falsch.

Die LCL strings in in lcl/langiages/lclstrconsts.*

Code: Alles auswählen

uses Translations;
procedure TForm1.FormCreate(Sender: TObject);
var
  PODirectory: String;
begin
  PODirectory:='/usr/lib/lazarus/lcl/languages';
  TranslateUnitResourceStrings('LCLStrConsts',PODirectory+'lclstrconsts.%s.po','de','');
  MessageDlg('Title','Text',mtInformation,[mbOk,mbCancel,mbYes],0);
end;

[theo]

Obiges Besipiel ist falsch.

Naja, das kann man so nicht sagen. Am 6/12/2006 war es richtig.

[Mattias]

Naja, das kann man so nicht sagen. Am 6/12/2006 war es richtig.

Stimmt, "veraltet" ist wohl besser.
Aber es gab nun einen Bug report, der obigen Code nutzte. Hier der Link zur Dokumentation:

http://wiki.lazarus.freepascal.org/Tran ... rograms/de

[Socke]

Bevor jemand sagt, dass die Datei nicht gefunden werden kann, korrigiere ich besser die Pfadangabe

Code: Alles auswählen

uses Translations;
procedure TForm1.FormCreate(Sender: TObject);
var
  PODirectory: String;
begin
  PODirectory:='/usr/lib/lazarus/lcl/languages/'; // Schrägstrich nicht vergessen!
  TranslateUnitResourceStrings('LCLStrConsts',PODirectory+'lclstrconsts.%s.po','de','');
  MessageDlg('Title','Text',mtInformation,[mbOk,mbCancel,mbYes],0);
end;

[theo]

Bei mir lautet der Pfad:

Code: Alles auswählen

PODirectory:='/home/theo/lazarus/svn/lcl/languages/'; 

Wichtiger als dieser mehr oder weniger beliebige Pfad ist der Hinweis, dass man die Dateien mit der Anwendung mitliefern bzw. als Ressource einbinden muss.

[Socke]

Wichtiger als dieser mehr oder weniger beliebige Pfad ist der Hinweis, dass man die Dateien mit der Anwendung mitliefern bzw. als Ressource einbinden muss.

Mir ging es nicht um den Pfad, sonder darum, dass ein Schrägstrich fehlte. Die Datei languageslclstrconsts.de.po wird man wohl selten finden.

Werden .po-Files, die als Ressource eingebunden sind, automatisch (mit DefaultTranslator) verwendet?

[theo]

Werden .po-Files, die als Ressource eingebunden sind, automatisch (mit DefaultTranslator) verwendet?

Ich glaube das funktioniert im Prinzip gleich, nur halt mit LazarusResources.Find()

http://wiki.freepascal.org/Translations ... executable