Изменить подсказку для каждой кнопки TDBNavigator

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Изменить подсказку для каждой кнопки TDBNavigator

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

*** Changing the TDBNavigator Buttons Hints ***

The buttons hints are english but sometimes would be better for local use in other language. The possibility to change this hints is in principle given (Hints property) but after changing the texts the compiled hints remain the original.

The solution is simple: you have to use the LoadFromFile method to load data from a file at run time. In this case the dbnButtonHints.txt file is the the same directory as the compiled file.
The dbnButtonHints.txt file must contain all the 10 hints for the buttons (nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh) independently from the number of the visible buttons.

*** Verдnderung der Hilfetexte von TDBNavigator-Knцpfe ***

Die Knцpfe haben englische Hilfetexte, die soll man manchmal auf andere Sprache umstellen. Die Mцglichkeit ist prinzipiell gegeben (Hints-Eigenschaft), aber die compiled Hilfetexte bleiben unverдndert englisch anstelle der ьbersetzten Version.

Die Lцsung ist einfach: man muЯ das LoadFromFile-Verfahren benutzen, um die Hilfetext-Daten in Echtzeit aus einer Textdatei einzulesen.
Diese datei soll sich in gleichen Directory befinden wie die compiled Datei.
Die dbnButtonHints.txt-Hilfetext-Datei soll jederzeit alle 10 Hilfetexteintragen enthalten, unabhдngig von Anzahl der eben sichtbaren Druckknцpfe. Und lдuft...


 type
     dbnNavigator: TDBNavigator;

 procedure TfrmDataInput.FormCreate(Sender: TObject);
 begin
   dbnNavigator.Hints.LoadFromFile('dbnButtonHints.txt');
 end;