Anpassung von TCalculatorDialog

[Kay]

Hallo,

ich hätte zwei Fragen zur Verwendung des TCalculatorDialog:

Wenn man beispielsweise die Berechnung 5/0 vornimmt, wird der Text "Error" im Display angezeigt. Kann man den Text ändern, z.B. in "Fehler"?

Kann ich erreichen, dass sich das Dialogfenster auch durch Drücken der ESCAPE-Taste schließen lässt?

Vielen Dank,
Kay

[m.fuchs]

Wenn man beispielsweise die Berechnung 5/0 vornimmt, wird der Text "Error" im Display angezeigt. Kann man den Text ändern, z.B. in "Fehler"?

Kann ich erreichen, dass sich das Dialogfenster auch durch Drücken der ESCAPE-Taste schließen lässt?

Dazu müsstest das TCalculatorForm in der Unit ExtDlgs anpassen. Oder du benutzt TEditButton und baust dir deinen eigenen Taschenrechner dazu.

[theo]

Meldungen in der Systemsprache kannst du allgemein so einbinden:

Code: Alles auswählen

uses gettext, translations;         
...
var  PODirectory, Lang, FallbackLang: String;  
...
initialization
   PODirectory := '/home/theo/lazarus/svn/lcl/languages/'; //Pfad anpassen und Dateien mitliefern
   GetLanguageIDs(Lang, FallbackLang);
  TranslateUnitResourceStrings('LCLStrConsts', PODirectory + 'lclstrconsts.%s.po', Lang, FallbackLang); 

Dann zeigt der auch "Fehler" an.