Mega Code Archive

Change each buttons 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. *** 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;