Discussion :

[mtournay]

Bonjour

Pour une appli j'aurais besoin de changer les icônes des DBNavigator pour qu'il soient uniformes avec les autres icônes que j'utilise. Malheureusement, même s'il s'agit bien d'un tableau de TSpeedButton, je ne sais pas comment y accéder...

J'ai bien essayé de rajouter une procedure à TCustomDBNavigator qui aille le faire, mais malgré une recompilation de la LCL, j'ai une erreur 'identifier idents no member' lorsque je compile mon projet

Une idée ?

[mtournay]

bon déjà en fait la LCL ne se recompile pas, et je ne sais pas pourquoi

[Gouyon]

Une autre solution consiste à utiliser une toolbar en associant à chaque bouton la fonction qui va bien (Table.First, Table.Last ...).

[mtournay]

Bonsoir

Bien qu'au départ je ne souhaitais pas utiliser de classe supplémentaire pour gérer cet aspect de mon programme, les explications fournies m'ont éclairé.

Je pensais devoir utiliser 'à la main' (create, etc, etc...) une classe dérivée, alors qu'un transtypage sur une classe 'factice' est suffisant.

Du coup j'ai rajouté au début du source de mon projet ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
type
  TMyDBNavigator = class(TDBNavigator)
    public
      Procedure ChangeButtonsImage(DBNavButtonType: TDBNavButtonType; GlyphName: String);
  end;
 
Procedure TMyDBNavigator.ChangeButtonsImage(DBNavButtonType: TDBNavButtonType; GlyphName: String);
begin
  Buttons[DBNavButtonType].LoadGlyphFromLazarusResource(GlyphName);
end;

Puis, grâce à l'utilitaire lazres j'ai crée un fichier de ressource à partir du set d'icône que j'utilise. Je l'ai ensuite légèrement modifié pour que les noms des glyphes soient un peu plus parlant que le nom des fichiers images de départ.

et enfin dans le corps du code de mon projet, juste avant Application.Run;, j'ai rajouté

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
{$i dbnav.lrs}
TMyDBNavigator(Form_SelectionVendeur.DBN_Vendeur).ChangeButtonsImage(nbInsert, 'dbnavinsert2');
TMyDBNavigator(Form_SelectionVendeur.DBN_Vendeur).ChangeButtonsImage(nbDelete, 'dbnavdelete2');
TMyDBNavigator(Form_SelectionVendeur.DBN_Vendeur).ChangeButtonsImage(nbEdit,   'dbnavedit2');

et ainsi de suite pour chacun des TDBNavigator de mon projet.

quant à passer par une toolbar, cela ne collait pas au souci de simplification du code que j'ai actuellement (j'ai enlevé du code de mon projet originel, les composants de base gérant les insert/edit/delete tout seul)

[mtournay]

C'est résolu