Discussion :

[Jacques Deyrieux]

Bonjour,

Je souhaite exploiter un police TTF qui possède un pas variable avec un pas fixe. En cherchant j'ai trouvé que que DirectX pouvait le faire. C'est pourquoi je me tourne vers cette solution. (en plus d'une gestion plus fine de la proportionnalité de la taille de la police). (Font.Options.Kerning )
Enfin après maintes recherches, je me suis arrêté sur Asphyre qui me paraît proposer une bibliothèques de classes très complètes et surtout accessible gratuitement.

J'ai essayé d'exploiter par moi-même les polices de ma machine par l'intermédiaire de leurs objets (voir tuto de Pédro) mais avec un succès mitigé : je n'arrive pas à afficher des messages avec des polices différentes sur le même canevas.

Afin de décrire mes essais, j'ai travaillé uniquement la partie III.C Hello World dans laquelle j'ai fait:

Code :

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

1
2
3
4
5
procedure TMainFrm.FormCreate(Sender: TObject);
...
DefDevice.SysFonts.CreateFont('sys:arial', 'arial', 9, False, fwtHeavy,
    fqtClearType, fctAnsi);
...

et

Code :

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

1
2
3
4
5
6
7
8
9
procedure TMainFrm.RenderCallback(Sender: TAsphyreDevice; Tag: TObject);
begin
  Sender.SysFonts.Font['sys:tahoma'].TextOut('Hello world!',
    4, 10, $FFFFFFFF);
 
  Sender.SysFonts.Font['sys:arial'].TextOut('Hello world!',
    4, 30, $FFFFFFFF);
 
end;

Et là ... c'est toujour la même police qui est employée.


Mes questions sont les suivantes:

-> ai-je la bonne démarche avec la bibliothèque Asphyre pour le résultat que je souhaite obtenir ?
-> Où puis-je trouver une documentation sur les fonctions / classes implémentées par Asphyre ?
-> Comment puis-je manipuler des polices différentes ?

merci pour votre aide

Jacques

[Pedro]

Salut

-> ai-je la bonne démarche avec la bibliothèque Asphyre pour le résultat que je souhaite obtenir ?

Non

Code :

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

1
2
3
4
5
procedure TMainFrm.FormCreate(Sender: TObject);
...
DefDevice.SysFonts.CreateFont('sys:arial', 'arial', 9, False, fwtHeavy,
    fqtClearType, fctAnsi);
...

Cette méthode sert à créer une police depuis une police système. Son nom sera 'sys:arial' (mais ça peut être 'Tartempion' ) et sera issu de la police 'arial'. Si tu veux utiliser Tahoma, il te faut recréer une autre police à partir de Tahoma, soit:

Code :

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

1
2
3
 
  DefDevice.SysFonts.CreateFont('sys:tahoma', 'tahoma', 9, False, fwtHeavy,
    fqtClearType, fctAnsi);

Et normalement, ce code fonctionnera:

Code :

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

1
2
3
4
5
6
7
8
9
procedure TMainFrm.RenderCallback(Sender: TAsphyreDevice; Tag: TObject);
begin
  Sender.SysFonts.Font['sys:tahoma'].TextOut('Hello world!',
    4, 10, $FFFFFFFF);
 
  Sender.SysFonts.Font['sys:arial'].TextOut('Hello world!',
    4, 30, $FFFFFFFF);
 
end;

Note que SysFonts.Font[].TextOut sert à afficher uniquement des polices créées depuis des polices système. La méthode d'écriture des polices à base d'image est légèrement différente.

-> Où puis-je trouver une documentation sur les fonctions / classes implémentées par Asphyre ?

C'est malheureusement le point faible de ces composants: pas d'aide et très peu de docs. Personnellement, j'ai appris en manipulant les exemples fournis et en regardant le code des sources.

-> Comment puis-je manipuler des polices différentes ?

Comme tu as pu le voir, il existe 2 sortes de polices dans Asphyre. Celles créées à partir d'une police système et celles issues d'une image. Mais à chaque police différente, il faut créer une nouvelle police à l'initialisation.

Bon courage