Gestion de la police

A- Taille de la police

- Déposer un composant ComboBox dans votre barre d'outil et insérer le chiffre 8 dans sa propriété Text

- Cliquez sur "..." dans sa propriété "Items" por definir les éléments de cette Combo qui servira à changer la taille de la police.

- Les remplir de la façon suivante :

- Cliquer sur Ok (Pour plus de facilité, vous pouvez réduire la taille de votre ComboBox)

- Définir l'évènement OnChange de votre ComboBox de la manière suivante :

RichEdit1.SelAttributes.Size:=strtoint(Combobox1.text);

J'en profite pour remercier les participants du forum Delphi qui m'aident beaucoup notamment c'est grâce à eux que je connais la Méthode Selattributes. Merci encore

Cette commande demande de definir la police de votre richedit à celle inscrite dans la combobox

- Enregistrer votre projet puis tester-le, on commence à sentir le bon travail mais ça serait encore mieux si on pouvait changer le style de la police

B- Nom de la Police

- Déposer une autre Combobox sur otre barre d'outil et enlever le texte contenu dans la propriété que vous connaissez maintenant.

- Dans l'inspecteur d'objets, Sélectionner dans la liste Form1 pusi évènements (events) et double-cliquer sur OnCreate qui est l'évènement se chargeant au démarrage de la fiche. Puis coller le code suivant (à la suite des autres insérés précedemment) qui permet de générer automatiquement dans votre combobox toutes les polices installés sur l'ordinateur de l'utilisateur :

ComboBox2.Items:=Screen.Fonts;
ComboBox2.Text:=RichEdit1.Font.Name;

- Maintenant, double-cliquer sur cette combo pour générer l'évènement Onchange :

- Enregsitrer et tester. Tout est impeccable reste plus pour la police que le modification de la police

C- Modification de la couleur de la police

- Déposer un composant ColorBox (supplément) encore dans votre barre d'outil et réduire légèrement sa taille

- Cliquer sur le + à côté de la propriété Style et metter l'élément System Color à False et l'élèment PrettyName à true

- Ensuite doublle-cliquer sur ce composant pour créer l'évènement Onchange et insérer le code suivant :

RichEdit1.SelAttributes.Color:=ColorBox1.Selected;

Cette commande ordonne à votre RichEdit de sélectionner comme couleur celle inscrite dans la ColorBox

Votre éditeur de texte doit maintenant ressembler à cela :

Voici le source du programme à cette étape : Programme

Voilà votre éditeur de texte est crée. Si vous voulez, vous pouvez réaliser la rubrique suivante pour insérer un compagnon utilisant les Microsoft Agents capable de s'animer et de lire le texte tapé ou ouvert.

Suite : Fonctions vocales