Sprache von application.MessageBox falsch.[gelöst]

[corpsman]

Servus miteinander,

Bevor ich nen Bug Report schreibe, wollt ich erst mal euch fragen, evtl . mache ich ja auch etwas falsch.

Ich nutze hier ein Deutsches WindowsXP mit Lazarus SVN Revision 39124.

Nun erzeuge ich 2 Messageboxen :

Code: Alles auswählen

 
Procedure TForm1.Button1Click(Sender: TObject);
Begin
  If application.MessageBox('Text der Warnung.', 'Warnung', mb_YESNO Or MB_ICONWARNING) = ID_YES Then Begin
    caption := 'Ja geklickt.';
  End
  Else Begin
    caption := 'Nein geklickt.';
  End;
End;
 
Procedure TForm1.Button2Click(Sender: TObject);
Begin
  If MessageBox(form1.Handle, 'Text der Warnung.', 'Warnung', mb_YESNO Or MB_ICONWARNING) = ID_YES Then Begin
    caption := 'Ja geklickt.';
  End
  Else Begin
    caption := 'Nein geklickt.';
  End;
End;          
 

In der Variante von Button1 sind die "Ja" "Nein" Buttons des Dialogs Englisch (was ich als Falsch = Bug empfinde).
In der Variante von Button2 sind die "Ja" "Nein" Buttons des Dialogs Deutsch.

Muss man der LCL noch extra Sagen in welcher Sprachen man Arbeitet ? Oder ist das tatsächlich ein Bug.

Gruß

Corpsman

[Linkat]

Hallo corpsman,
habe deinen Fehler gerade nachvollzogen mit Lazarus 32 bit Ver. 1.0.8 auf einem Win7 64 bit PC. Kann dir leider auch nicht helfen.

Mir ist aufgefallen, dass bei anderen Komponenten die Übersetzung auch nicht ganz "sauber" ist. So erscheint zum Beispiel, wenn ich einem BitBtn im Objektinspektor die Eigenschaft "Kind" bkClose zuweise die Beschriftung "Schließen", aber in dem kompiliertem Fenster steht "Close". Dieses Problem habe ich auch schon bei anderen Komponenten gesehen (weiß gerade nicht bei welchen).

Wahrscheinlich haben beide Probleme den selben oder einen ähnlichen Ursprung.

Gruß, Linkat

[hde]

In LAZ 1.1 (SVN 40524) fpc 2.7.1 gleiches Ergebnis, englisch und deutsch
hde

[Ally]

Hallo corpsman,

mit QuestionDlg kann man die Beschriftung selbst festlegen.

Code: Alles auswählen

    Antwort := QuestionDlg('Achtung', 'Die Datei wurde bearbeitet, aber noch nicht gespeichert.' +
    #13 + #13 + 'Soll die Datei jetzt gespeichert werden?'+ #13 + #13,
    mtConfirmation, [mrYes, 'Ja', mrNo, 'Nein', mbCancel, 'Abbrechen'], 0);
 
    if Antwort = mrYes then A_DatSpeichernExecute(Self);

Gruß Ally

[corpsman]

@Ally
Hmm wäre wenigstens eine Plattformunabhängige alternative, wenn ich das so richtig sehe, ...

[Socke]

Bevor ich nen Bug Report schreibe, wollt ich erst mal euch fragen, evtl . mache ich ja auch etwas falsch.

Das ist kein Bug; Du musst deinem Programm mitteilen, welche Sprachdatei es verwenden soll. Die werden für viele Sprachen schon mitgeliefert und liegen unter <Lazarus>/lcl/languages/. Im Free-Pascal-Wiki gibt es dazu einige Informationen.

[corpsman]

Nachdem der User meiner Anwendung die Sprache Umstellen können mus, und das Wiki anscheinend down ist, denke ich, wird die Variante mit dem QuestionDlg die bestmögliche sein.

Danke für die Erklärungen.

[Socke]

[...]und das Wiki anscheinend down ist[...]

Nur weil die Suche gerade nicht funktioniert, heißt das nicht, dass man nicht Suchen kann: http://lmgtfy.com/?q=site%3Awiki.freepa ... lation&l=1

[corpsman]

*g*

danke für eure Hilfe, ich hab mich nun für den Questiondlg entschieden, den hier kann ich die Sprache zur Laufzeit umstellen und mit Ressourcenstrings arbeiten.

[ruewa]

Nur weil die Suche gerade nicht funktioniert, heißt das nicht, dass man nicht Suchen kann: http://lmgtfy.com/?q=site%3Awiki.freepa ... lation&l=1

Ähem...

trtrtrt_2.jpeg (12.45 KiB) 2592 mal betrachtet

Aber vielleicht hilft das hier weiter? http://www.lazarusforum.de/viewtopic.ph ... 491#p68491
Das hat bei mir nicht nur die Application.MessageBox-Meldungen umgestellt, sondern auch das ganze Geraffel von BitBtn etc.

Gruß Rüdiger