Navigator

[Kuster Peter]

Kan man beim Navigator die Buttons ändern. Die vorhanden sind einfach nicht schön und ich würde gerne andere Buttons anstelle von + und - etc. verwenden. Hat jemand einen Tip`p?

Peter

[bluesbear]

Hi Peter,

soweit ich weiß kann man die nicht ändern.
Aber schon zu Delphi 3 Zeiten gab es eine Menge Alternativen im Netz.
Google einfach mal nach
"navigator bar" delphi
oder so, das bringt einige Treffer.
Ansonsten: Selber basteln.

EDIT:
Habe gerade marabus Antwort gelesen.
Geht wohl doch.

[marabu]

Hallo,

die Komponente TDBNavigator hat ein protected field Buttons: array [TNavigateBtn] of TNavButton und TNavButton ist von TSpeedButton abgeleitet.

Delphi-Quellcode:

type
  TCrackDBNavigator = class(TDBNavigator);

procedure TDemoForm.FormCreate(Sender: TObject);
var
  eValue: TNavigateBtn;
  eName: string;
begin
  for eValue := nbFirst to nbRefresh do
  begin
    eName := ChangeFileExt(GetEnumName(TypeInfo(TNavigateBtn), Ord(eValue)), '.bmp');
    TCrackDBNavigator(DBNavigator).Buttons[eValue].Glyph.LoadFromFile(eName);
  end;
end;

Getippt und nicht getestet.

Grüße vom marabu