Créer et personnaliser des boutons avec le DBNavigator

"Ok, le DBNavigator fait son travail de navigation dans les données et de gestion des enregistrements. Malheureusement, mes clients veulent une expérience plus conviviale, comme des graphiques et des légendes de boutons personnalisés,... "

Cette enquête est venue d'un Développeur Delphi la recherche d'un moyen d'améliorer la puissance du composant DBNavigator.

Le DBNavigator est un excellent composant - il fournit une interface de type magnétoscope pour naviguer dans les données et gérer les enregistrements dans les applications de base de données. La navigation dans les enregistrements est assurée par les boutons Premier, Suivant, Précédent et Dernier. La gestion des enregistrements est assurée par les boutons Modifier, Publier, Annuler, Supprimer, Insérer et Actualiser. Dans un composant, Delphi fournit tout ce dont vous avez besoin pour fonctionner sur vos données.

Cependant, comme l'a également déclaré l'auteur de l'enquête par e-mail, le DBNavigator manque de fonctionnalités telles que les glyphes personnalisés, les légendes des boutons et autres.

De nombreux composants Delphi ont des propriétés et des méthodes utiles qui sont marquées invisibles ("protégées") pour un développeur Delphi. Avec un peu de chance, pour accéder à ces membres protégés d'un composant, une technique simple appelée "hack protégé" peut être utilisée.

Tout d'abord, vous ajouterez une légende à chaque bouton DBNavigator, puis vous ajouterez des graphiques personnalisés, et enfin, vous activerez OnMouseUp pour chaque bouton.

Du DBNavigator "ennuyeux" à l'un des:

• Graphiques standard et légendes personnalisées
• Légendes uniquement
• Graphiques personnalisés et légendes personnalisées

Le DBNavigator a une propriété Buttons protégée. Ce membre est un tableau de TNavButton, un descendant de TSpeedButton.

Puisque chaque bouton de cette propriété protégée hérite de TSpeedButton, si vous mettez la main dessus, vous pourrez travailler avec des propriétés TSpeedButton "standard" comme: Légende (une chaîne qui identifie le contrôle pour l'utilisateur), Glyphe (le bitmap qui apparaît sur le bouton), Disposition (détermine où l'image ou le texte apparaît sur le bouton)...

À partir de l'unité DBCtrls (où DBNavigator est défini), vous "lisez" que la propriété Buttons protégée est déclarée comme:

Boutons: tableau[TNavigateBtn] de TNavButton;

Où TNavButton hérite de TSpeedButton et TNavigateBtn est une énumération, définie comme:

TNavigateBtn = 
(nbFirst, nbPrior, nbNext, nbLast, nbInsert, 
nbDelete, nbEdit, nbPost, nbCancel, nbRefresh);

Notez que TNavigateBtn contient 10 valeurs, chacune identifiant un bouton différent sur un objet TDBNavigator. Voyons maintenant comment pirater un DBNavigator:

Tout d'abord, configurez un formulaire Delphi simple d'édition de données en plaçant au moins un DBNavigator, un DBGrid, un DataSoure et un Objet d'ensemble de données de votre choix (ADO, BDE, dbExpres, ...). Assurez-vous que tous les composants sont «connectés».

Deuxièmement, piratez un DBNavigator en définissant une classe "factice" héritée, au-dessus de la déclaration Form, comme:

type THackDBNavigator = classe(TDBNavigator);
type
TForm1 = classe(TForm)
...

Ensuite, pour pouvoir afficher des légendes et des graphiques personnalisés sur chaque bouton DBNavigator, vous devrez configurer certains glyphes. Vous pouvez utiliser le composant TImageList et affecter 10 images (.bmp ou .ico), chacune représentant une action d'un bouton particulier d'un DBNavigator.

Troisièmement, dans le Événement OnCreate pour le Form1, ajoutez un appel comme:

procédure TForm1.FormCreate (expéditeur: TObject);
SetupHackedNavigator (DBNavigator1, ImageList1);
fin;

Assurez-vous d'ajouter la déclaration de cette procédure dans la partie privée de la déclaration de formulaire, comme:

type
TForm1 = classe(TForm)
...
procédure privée SetupHackedNavigator (const Navigateur: TDBNavigator;
const Glyphes: TImageList);
...

Quatrièmement, ajoutez la procédure SetupHackedNavigator. La procédure SetupHackedNavigator ajoute des graphiques personnalisés à chaque bouton et attribue une légende personnalisée à chaque bouton.

les usages Boutons; //!!! n'oublie pas
procédure TForm1.SetupHackedNavigator
(const Navigateur: TDBNavigator; 
const Glyphes: TImageList);
const
Légendes: tableau[TNavigateBtn] de chaîne =
(«Initial», «Précédent», «Plus tard», «Final», «Ajouter»,
'Effacer', 'Corriger', 'Envoyer', 'Retirer', 'Revivre');
(*
 Légendes: tableau [TNavigateBtn] de chaîne =
 ("Premier", "Avant", "Suivant", "Dernier", "Insérer",
 'Supprimer', 'Modifier', 'Publier', 'Annuler', 'Actualiser');

 en Croatie (localisé):
 Légendes: tableau [TNavigateBtn] de chaîne =
 («Prvi», «Prethodni», «Slijedeci», «Zadnji», «Dodaj»,
 «Obrisi», «Promjeni», «Spremi», «Odustani», «Osvjezi»);
*)
var
btn: TNavigateBtn;
commencer pour btn: = faible (TNavigateBtn) à Élevé (TNavigateBtn) faire avec THackDBNavigator (Navigateur) .Boutons [btn] dobegin// à partir du tableau Const légendes
Légende: = Légendes [btn];
// le nombre d'images dans la propriété Glyph
NumGlyphs: = 1;
// Supprimez l'ancien glyphe.
Glyphe: = néant;
// Attribuer le personnalisé
Glyphes. GetBitmap (Entier (btn), Glyphe);
// gylphe au-dessus du texte
Disposition: = blGlyphTop;
// expliqué plus tard
OnMouseUp: = HackNavMouseUp;
fin;
fin; (* SetupHackedNavigator *)

Ok, expliquons. Vous parcourez tous les boutons du DBNavigator. Rappelez-vous que chaque bouton est accessible à partir de la propriété du tableau Buttons protégé, d'où la nécessité de la classe THackDBNavigator. Comme le type du tableau Buttons est TNavigateBtn, vous passez du "premier" (en utilisant le Faible fonction) au "dernier" (en utilisant le Haute fonction) un. Pour chaque bouton, vous supprimez simplement l '"ancien" glyphe, attribuez le nouveau (à partir du paramètre Glyphs), ajoutez la légende du tableau Légendes et marquez la disposition du glyphe.

Notez que vous pouvez contrôler les boutons affichés par un DBNavigator (pas celui piraté) via sa propriété VisibleButtons. Une autre propriété dont vous voudrez peut-être modifier la valeur par défaut est Hints: utilisez-la pour fournir des conseils d'aide de votre choix pour le bouton de navigation individuel. Vous pouvez contrôler l'affichage des conseils en modifiant la propriété ShowHints.

C'est ça. C'est pourquoi vous avez choisi Delphi!

Pourquoi arrêter ici? Vous savez que lorsque vous cliquez sur le bouton «nbNext», la position actuelle de l'ensemble de données est avancée à l'enregistrement suivant. Que se passe-t-il si vous voulez déplacer, disons, 5 enregistrements à l'avance si l'utilisateur maintient la touche CTRL tout en appuyant sur le bouton? Et ça?

Le DBNavigator "standard" n'a pas l'événement OnMouseUp - celui qui porte le paramètre Shift du TShiftState - vous permettant de tester l'état des touches Alt, Ctrl et Shift. Le DBNavigator fournit uniquement l'événement OnClick que vous pouvez gérer.

Cependant, le THackDBNavigator peut simplement exposer l'événement OnMouseUp et vous permettre de "voir" l'état des touches de contrôle et même la position du curseur au-dessus du bouton particulier lorsque vous cliquez dessus!

Pour exposer OnMouseUp, il vous suffit d'affecter votre procédure de gestion d'événements personnalisée à l'événement OnMouseUp pour le bouton du DBNavigator piraté. Ceci est déjà fait exactement dans la procédure SetupHackedNavigator:
OnMouseUp: = HackNavMouseUp;

Maintenant, la procédure HackNavMouseUp pourrait ressembler à:

procédure TForm1.HackNavMouseUp
(Expéditeur: TObject; Bouton: TMouseButton; 
Shift: TShiftState; X, Y: Entier);
const MoveBy: entier = 5;
beginifNE PAS (L'expéditeur est TNavButton) ensuite Sortie;
Cas TNavButton (expéditeur) .Index de
nbPrior:
si (ssCtrl dans Shift) ensuite
TDBNavigator (TNavButton (Sender) .Parent).
La source de données. Base de données. MoveBy (-MoveBy);
nbSuivant:
si (ssCtrl dans Shift) ensuite
TDBNavigator (TNavButton (Sender) .Parent).
La source de données. Base de données. MoveBy (MoveBy);
fin; 
fin; (* HackNavMouseUp *)

Notez que vous devez ajouter la signature de la procédure HackNavMouseUp dans la partie privée de la déclaration de formulaire (près de la déclaration de la procédure SetupHackedNavigator):

type
TForm1 = classe(TForm)
...
procédure privée SetupHackedNavigator (const Navigateur: TDBNavigator;
const Glyphes: TImageList);
procédure HackNavMouseUp (expéditeur: TObject; Bouton: TMouseButton;
Shift: TShiftState; X, Y: Entier);
...

Ok, expliquons encore une fois. La procédure HackNavMouseUp gère l'événement OnMouseUp pour chaque bouton DBNavigator. Si l'utilisateur maintient la touche CTRL tout en cliquant sur le bouton nbNext, l'enregistrement en cours pour l'ensemble de données lié est déplacé "MoveBy" (défini comme constant avec la valeur de 5) enregistrements en avant.

Oui. Vous n'avez pas besoin de jouer avec tout cela si vous avez seulement besoin de vérifier l'état des touches de contrôle lorsque vous avez cliqué sur le bouton. Voici comment faire de même dans "l'ordinaire" Événement OnClick du DBNavigator "ordinaire":

procédure TForm1.DBNavigator1Click
(Expéditeur: TObject; Bouton: TNavigateBtn);
une fonction CtrlDown: booléen;
var
État: TKeyboardState;
commencer
GetKeyboardState (State);
Résultat: = ((State [vk_Control] And 128) 0);
fin;
const MoveBy: entier = 5;
casse Bouton de
nbPrior:
si CtrlDown ensuite
DBNavigator1.DataSource. Base de données. MoveBy (-MoveBy);
nbSuivant:
si CtrlDown ensuite
DBNavigator1.DataSource. Base de données. MoveBy (MoveBy);
fin; //case
fin; (* DBNavigator2Click *)

Et enfin, le projet est terminé. Ou vous pouvez continuer. Voici un scénario / tâche / idée pour vous:

Supposons qu'un seul bouton remplace les boutons nbFirst, nbPrevious, nbNext et nbLast. Vous pouvez utiliser les paramètres X et Y dans la procédure HackNavMouseUp pour trouver la position du curseur lorsque le bouton a été relâché. Maintenant, à ce seul bouton ("pour les gouverner tous"), vous pouvez attacher une image qui a 4 zones, chaque zone est supposée imiter l'un des boutons que vous remplacez... vous avez compris?