Mega Code Archive

 
Categories / Delphi / ADO Database
 

Change each buttons hint on the TDBNavigator

Title: change each button's hint on the TDBNavigator ? *** 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. *** Vernderung der Hilfetexte von TDBNavigator-Knpfe *** Die Knpfe haben englische Hilfetexte, die soll man manchmal auf andere Sprache umstellen. Die Mglichkeit ist prinzipiell gegeben (Hints-Eigenschaft), aber die compiled Hilfetexte bleiben unverndert englisch anstelle der bersetzten Version. Die Lsung 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, unabhngig von Anzahl der eben sichtbaren Druckknpfe. Und luft... type dbnNavigator:TDBNavigator; procedureTfrmDataInput.FormCreate(Sender:TObject); begin dbnNavigator.Hints.LoadFromFile('dbnButtonHints.txt'); end;