utiliser plusieurs police différentes dans 1 mémo

**the_magik_mushroom** · 08/03/2006, 02h50

bonjour,

je voudrais afficher plusieurs police dans un seul memo.

en faite ce que je cherche à faire c'est de lister les fonts installées (ça je sais faire),
et d' écrire le même mot avec chaque police :

mon problème:

1- je n'arrive pas à utiliser plusieurs fonts dans un même memo

2- est ce que le memo est le meilleur composant à utiliser dans mon cas?
si je passe par un TStringGrid ou un si je dessine directement dans des bitmap en memoire, cela ne serait il pas mieux ?

merci d'avance

**slimjoe** · 08/03/2006, 03h27

Envoyé par the_magik_mushroom

bonjour,

je voudrais afficher plusieurs police dans un seul memo.

en faite ce que je cherche à faire c'est de lister les fonts installées (ça je sais faire),
et d' écrire le même mot avec chaque police :

mon problème:

1- je n'arrive pas à utiliser plusieurs fonts dans un même memo

2- est ce que le memo est le meilleur composant à utiliser dans mon cas?
si je passe par un TStringGrid ou un si je dessine directement dans des bitmap en memoire, cela ne serait il pas mieux ?

merci d'avance

Salut!

Tout d'abord, je crois que c'est pour ça qu'existe le composant TRichEdit

Mais je ne crois pas que ça soit exactement ce que tu veux faire...
Personellement (quoi que je n'ai pas testé), j'utiliserais un TListBox avec le Style à lbOwnerDrawVariable. Avec les OnMeasureItem et OnDrawItem je crois que tu sera capable de dessiner chacune des fonts à ton aise.

Bon dev !

-Slimjoe

**the_magik_mushroom** · 08/03/2006, 15h52

merci de ta réponse,

mais je vois pas trop quoi coder dans les évènements OnMeasureItem et OnDrawItem

**slimjoe** · 08/03/2006, 16h18

Envoyé par the_magik_mushroom

merci de ta réponse,

mais je vois pas trop quoi coder dans les évènements OnMeasureItem et OnDrawItem

Salut!

J'y vais encore de mémoire (alors il est possible que ça plante

).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
procedure TForm1.ListBox1MeasureItem(Control: TWinControl;
  Index: Integer; var Height: Integer);
begin
   case Index of
      0:
         ListBox1.Font.Name := 'Ma Font #1';
 
      1:
         ListBox1.Font.Name := 'Ma Font #2';
 
      2:
         ListBox1.Font.Name := 'Ma Font #3';
 
      {etc}
   end;
 
   Height := ListBox1.Canvas.TextHeight('Papillontest');
end;
 
procedure TForm1.ListBox1DrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
   ListBox1.Canvas.TextOut(Rect.TopLeft.X, Rect.TopLeft.Y, 'Papillontest'));
end;

L'idée c'est de mesurer la bonne hauteur dans OnMeasureItem et de retourner cette dernière au listbox pour qu'il réserve l'espace nécessaire. Lorsque le listbox est prêt à dessiner dans l'espace réservé, OnDrawItem te permet de placer toi même le texte.

Bon dev !

-Slimjoe