Tutoriel : Utilisation de TControl.StyleElements dans les applications VCL

De RAD Studio
Aller à : navigation, rechercher

Remonter à Tutoriels VCL


Le code exemple suivant montre l'utilisation de la propriété Vcl.Controls.TControl.StyleElements.

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 :

  1. Sélectionnez Fichier > Nouveau > Application Fiches VCL - Delphi.
  2. 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 :

  1. Déposez sur la fiche un TButton à partir de la palette d'outils.
  2. 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.
  3. 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.
  4. 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.
  5. Accédez à Projet > Options > Application > Apparence et vérifiez les styles présents.

AppearanceMenu.png

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 := [];

StyleElementsBeforeOK.png

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.

StyleElementsAfterOK.png

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.

Utilisations