~~~~~~~~~~~~~~~~~~~~~~~~~
procedure TForm1.FormCreate(Sender: TObject) ;
var
i : Integer;
tempGlyph : tBitmap;
begin
tempGlyph :=TBitmap.Create;
try
tempGlyph.LoadFromResourceName
(HInstance,'GoFirst') ;
with DBNavigator1 do begin
for i := 0 to ControlCount - 1 do
if Controls[c] is TNavigateBtn then
with TNavigateBtn(Controls[c])
do begin
case Index of
nbFirst: Glyph := tempGlyph;
end;
end;
end;
finally
tempGlyph.Free;
end;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~
Here's more DBNavigator customization: Enhancing the TDBNavigator component with modified graphics (glyphs), custom button captions, and more. Exposing the OnMouseUp/Down event for every button
Delphi tips navigator:
» Get the Height/Width of a Character (for OwnerDrawing and printing)
« Get IE favorites
