Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#5

Re: DBNavigator durch eigene Buttons ersetzen...

  Alt 12. Jul 2005, 15:04
Zitat von torud:
Also in der Suche konnte ich leider noch nichts passendes finden, aber ich würde gern den optisch unattraktiven DBNavigator durch eigene Buttons oder Grafiken ersetzen.
Also ich würde den DBNavigator nicht wegwerfen, sondern nur "aufpeppen".
Die Buttons auf dem DBNavigator sind nicht anderes als SpeedButtons.
Hier ein Beispiel, wie man auf die Buttons zugreifen kann:
Delphi-Quellcode:
type
   TDBNavigatorCracker = class(TDBNavigator);
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   // kopiere das Glyph von BitBtn1 auf den "First"-button des Navigators
   TDBNavigatorCracker(DBNavigator1).Buttons[nbFirst].Glyph := BitBtn1.Glyph;
end;
Wichtig: das Glyph muss nebeneinander 2 Bildchen haben (eines für inaktiv und eines für aktiv).
Dann schreibst du dir eine Funktion namens PimpUpMyNavigator und ersetzt alle Glyphs.

Noch schlauer wäre es, wenn es gelingt alle Resourcen mit den Namen:
'dbn_FIRST', 'dbn_PRIOR', 'dbn_NEXT', 'dbn_LAST', 'dbn_INSERT', 'dbn_DELETE', 'dbn_EDIT', 'dbn_POST', 'dbn_CANCEL', 'dbn_REFRESH' in der Anwendung zu ersetzen.
Andreas
  Mit Zitat antworten Zitat