Newsgroup: it.comp.lang.delphi
Titolo: DBNavigator

Ciao a tutti.
E' possibile modificare i simboli del DBNavigator?
Oppure, se mi creo i pulsanti che hanno le stesse funzioni di quelle del
Navigator, come faccio a tenerli uniti come se fossero un unico componete
(appunto come il DbNavigator) per poterlo riutilizzare quando occorre?
Grazie Cristina.

 quando occorre?
O utilizzi i frame oppure ti crei un tuo componente.
-- 
I am what I am, I do what I can
Non trovi qualche cosa? 
http://url.repository.biz/go/1J

La tool bar dovrebbe fare al caso tuo.
Ciao
Mario
mari...@inwind.it
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 
Si ma devi modificare il file di risorse, tempo fa ne avevo trovato 
uno... lo copi nella cartella dell'originale e da quel momento in poi il 
tuo TDBNavigator ha come gliph  quelle nuove (anche i tuoi vecchi 
progetti, ricompilandoli prenderanno le nuove immagini)
cerca con google
Nel caso in cui non lo trovassi, di basta derivare e cambiare la gliph 
degli speedbutton che compongono il DBNavigator.
Ciao Daniele

Questa funzione modifica le immagini caricandole
da un array di immagini, tempo fa la avevo anche postata
tra le tips di Torry:
procedure TdmCube.DBNavImg( DBnav: TDbNavigator );
var
  i         : Integer;
begin
   with DBNav do
   begin
      for i := 0 to ControlCount - 1 do
      begin
         if Controls[i].ClassName='TNavButton' then
         begin
            case TNavButton(Controls[i]).Index of
               nbFirst:
TNavButton(Controls[i]).Glyph:=TBitMap(aDBNavImg[1]);
               nbPrior:
TNavButton(Controls[i]).Glyph:=TBitMap(aDBNavImg[2]);
               nbNext: TNavButton(Controls[i]).Glyph:=TBitMap(aDBNavImg[3]);
               nbLast: TNavButton(Controls[i]).Glyph:=TBitMap(aDBNavImg[4]);
               nbInsert:
TNavButton(Controls[i]).Glyph:=TBitMap(aDBNavImg[5]);
               nbDelete:
TNavButton(Controls[i]).Glyph:=TBitMap(aDBNavImg[6]);
               nbEdit: TNavButton(Controls[i]).Glyph:=TBitMap(aDBNavImg[7]);
               nbPost: TNavButton(Controls[i]).Glyph:=TBitMap(aDBNavImg[8]);
               nbCancel:
TNavButton(Controls[i]).Glyph:=TBitMap(aDBNavImg[9]);
               nbRefresh:
TNavButton(Controls[i]).Glyph:=TBitMap(aDBNavImg[10]);
            end;
         end;
      end;
      Flat:=True;
      Cursor:=crHandPoint;
      ShowHint:=True;
      Hints.CommaText:=DBNavHints.CommaText;
   end;
end;
-- 
Ciao
Marco Kregar
marco....@FirebirdSQL.it
www.FirebirdSQL.it
"over the bench the goat sings, under the bench the goat dies"
"Setec Astronomy" <setec@_NO_NOSPAM_freemail.it> ha scritto nel messaggio
news:3bPTb.10686$Mt6.4...@twister2.libero.it...


 tra le tips di Torry:
Interessante approccio, non molto flessibile, ma sicuramente arguto :)


> Interessante approccio, non molto flessibile, ma sicuramente arguto :)
..le soluzioni flessibili erano finite... :-)
-- 


 ha scritto nel messaggio
news:bvp44j$2vr$1...@lacerta.tiscalinet.it...


 tra le tips di Torry:
ma scusa, a te in quel modo lě le immagini vengono disegnate con o senza 
sfondo sul DBNavigator?
Ho voluto provare il tuo codice e mi vengono disegnate sempre *assieme con* 
lo sfondo su ciascun pulsante (in pratica tutte le immagini sono racchiuse in 
un quadrato bianco).
Dove devo settare la trasparenza per vedere sul bottone soltanto la bitmap?
Ho provato da dentro la tua funzione:
	case TNavButton(Controls[i]).Index of
	  nbFirst:
			with TNavButton(Controls[i]) do
			begin
			  Glyph:=TBitMap(aDBNavImg[1]);
			  Transparent:= True;
			  Glyph.Transparent:= True;
			  Glyph.TransparentMode:= tmAuto;
			end;
ma non va.
Questo il codice con cui ho fatto le prove (una form con sopra un 
DBNavigator1 e una ImageList1):
------------------------------------------------
var
  aDBNavImg: array[1..10] of TBitmap;
procedure Init;
var
  i: Integer;
begin
  for i:= Low(aDBNavImg) to High(aDBNavImg) do
    aDBNavImg[i]:= TBitmap.Create;
end;
procedure Finalize;
var
  i: Integer;
begin
  for i:= Low(aDBNavImg) to High(aDBNavImg) do
    FreeAndNil(aDBNavImg[i]);
end;
procedure LoadImgArray(ImgList: TImageList);
var
  i: Integer;
begin
  for i:= Low(aDBNavImg) to High(aDBNavImg) do
  begin
    ImgList.GetBitmap(i, aDBNavImg[i]);
    aDBNavImg[i].Transparent:= True; //nn funzia
  end
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  LoadImgArray(ImageList1);
  DBNavImg(DBNavigator1);
end;
initialization
  Init
finalization
  Finalize
-- 
Mauro Falzari 
   [ 
http://digilander.libero.it/mauro.falzari
 ]
 
 "Se guardi nell'abisso, anche l'abisso guarda in te." 
   (Friedrich Nietzsche)