[Delphi] Cambiare le immagini della TDBNavigator.

Nelle applicazioni che utilizzano i database possiamo far uso di un componente denominato TDBNavigator, meglio noto con il nome di barra di navigazione. Tale componente è presente fra i componenti del Data Controls di Delphi e può essere personalizzato utilizzando delle immagini create da noi appositamente per il nostro software.

Quindi per personalizzare la DBNavigator basta inserire sulla form della nostra applicazione un componente di tipo DBNavigator, che nel mio caso si chiamerà DBNavigator1, e successivamente creare il seguente metodo:

procedure CambiaDBImgNav(DBNav: TDBNavigator);
var
  i: integer;
  tempImg:TBitmap;
  ExePath:string;
begin
  ExePath:=ExtractFilePath(Application.ExeName);
  tempImg:=TBitmap.Create;
  try
    with DBNav do
    begin
    for i:=0 to ControlCount-1 do
      begin
      if ControlCount[i].ClassName=’TNavButton’ then
        begin
          case TNavButton(Controls[i]).Index of
               nbFirst:tempImg.LoadFromFile(ExePath+’primo.bmp’);
               nbPrior:tempImg.LoadFromFile(ExePath+’precedente.bmp’);
               nbNext:tempImg.LoadFromFile(ExePath+’successivo.bmp’);
               nbLast:tempImg.LoadFromFile(ExePath+’ultimo.bmp’);
               nbInsert:tempImg.LoadFromFile(ExePath+’inserisci.bmp’);
               nbDelete:tempImg.LoadFromFile(ExePath+’elimina.bmp’);
               nbEdit:tempImg.LoadFromFile(ExePath+’modifica.bmp’);
               nbPost:tempImg.LoadFromFile(ExePath+’post.bmp’);
               nbCancel:tempImg.LoadFromFile(ExePath+’annulla.bmp’);
               nbRefresh:tempImg.LoadFromFile(ExePath+’aggiorna.bmp’);
          end;
          TNavButton(Controls[i]).Glyph:=tempImg;
        end;
      end;
    end;
  finally
    tempImg.Free;
  end;
end;

Infine selezioniamo la form e, sul metodo FormActivate, inseriamo il seguente codice:

procedure TForm1.FormActivate(Sender:TObject);
begin
  CambiaDBImgNav(DBNavigator1);
end;

A questo punto non ci resta che avviare l’applicazione appena sviluppata e controllare le immagini sulla barra di navigazione.