Tutoriel : Utilisation de TControl.StyleElements dans les applications VCL
Remonter à Tutoriels VCL
Le code exemple suivant montre l'utilisation de la propriété Vcl.Controls.TControl.StyleElements.
Sommaire
Création d'une application VCL
Pour utiliser Vcl.Controls.TControl.StyleElements, vous devez créer une application Fiches VCL. Pour ce faire, suivez les étapes ci-après :
- Sélectionnez Fichier > Nouveau > Application Fiches VCL - Delphi.
- Pour ouvrir le Concepteur de fiches VCL, double-cliquez sur l'unité .pas dans le Gestionnaire de projets, puis cliquez sur l'onglet Conception dans le bord inférieur de l'éditeur de code.
Ajout des composants et ajustement des paramètres
Avant d'exécuter l'application, vous devez effectuer les opérations suivantes :
- Déposez sur la fiche un TButton à partir de la palette d'outils.
- Cliquez n'importe où sur la fiche, accédez à l'inspecteur d'objets, puis à l'onglet Evénements et ajoutez un gestionnaire d'événement OnCreate à la fiche.
- Double-cliquez sur le TButton et ajoutez un gestionnaire d'événement OnClick pour le bouton. Pour obtenir des effets plus visibles, accédez à l'inspecteur d'objets, développez la propriété Font et agrandissez la fonte du bouton dans le champ Size.
- Ensuite, accédez à l'onglet Code dans le bord inférieur de l'éditeur de code et ajoutez Vcl.Styles et Vcl.Themes à la clause uses de l'unité dans Delphi.
- Accédez à Projet > Options > Application > Apparence et vérifiez les styles présents.
Ecriture du code
Ajoutez le code suivant dans le gestionnaire d'événement OnCreate :
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.StyleElements := []; //All StyleElements are disabled.
Button1.Font.Color := clGreen;
end;
void __fastcall TForm4::FormCreate(TObject *Sender)
{
Button1->StyleElements = TStyleElements();//All StyleElements are disabled.
Button1->Font->Color = clGreen;
}
Ajoutez le code suivant dans le gestionnaire d'événement Button1Click :
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.StyleElements := [seClient, seBorder, seFont];
Button1.Font.Color := clBlue;
end;
void __fastcall TForm4::Button1Click(TObject *Sender)
{
Button1->StyleElements = TStyleElements(seFont + seClient + seBorder);
Button1->Font->Color = clBlue;
}
Exécution de l'application
Exécutez le projet. La fenêtre principale du projet est affichée. Observez que le bouton a un style par défaut qui est défini dans la méthode TForm1.FormCreate :
Button1.StyleElements := [];
Après avoir cliqué sur le bouton, le bouton Couleur de fonte ne prend pas la couleur bleu comme requis dans la méthode Button1Click, car il ne peut pas remplacer le paramètre de style en cours.
Le même principe s'applique aux paramètres de style par défaut. Ils peuvent uniquement être redéfinis à l'exécution dans la méthode de création de la fiche si la propriété StyleElements du composant est définie sur seClient.