Discussion :

[Jipété]

EDIT : changement de titre, car pas clair
Re-bonjour,

Toujours dans mon histoire de polices dans Lazarus/version/examples/fontenum/, dans la procedure LoadFontList, je trouve
EnumFontFamiliesEX(DC, @lf, @EnumFontsNoDups, ptrint(L), 0);et comme je suis curieux, je mets la souris sur EnumFontFamiliesEX et je fais Ctrl-Clic, ce qui m'envoie dans intfbasewinapi.inc, ligne 93, où je continue avec Clic droit sur EnumFontFamiliesEX puis
Chercher / Aller à la procedure EnumFontFamiliesEX et là, stupéfaction !, je découvre cette fonction :

Code :

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

1
2
3
4
5
6
function TWidgetSet.EnumFontFamiliesEx(DC: HDC; lpLogFont: PLogFont;
  Callback: FontEnumExProc; Lparam: LParam; Flags: dword): longint;
begin
  DebugLn('EnumFontFamiliesEx is not yet implemented for this widgetset');
  Result := 0;
end;

Stupéfaction parce qu'après avec activé le debug, cette ligne, je ne la vois pas quand je lance le binaire en ligne de commande.

Une idée ?

[BeanzMaster]

Salut,

Ici c'est la base abstraite de la fonction dans le widget. C'est sa définition.
Elle sera réécrite et surchargée par les enfants du composant TWidgetSet.

Tu ne vois rien dans les log car justement tu ne dois pas, sinon il y aurait un sérieux problème.
Le "debug" ici tu le devrais le voir quand tu compiles la LCL avec le mode debug et en ligne de commande.

A+

[Jipété]

Salut Jérôme,

merci de ta réponse.
Alors j'ai donc creusé, oh, d'une manière toute simple, en me mettant dans le dossier .../lazarus/2.2.6 et là, une commande facile grep -r "EnumFontFamiliesEX" * dont le résultat est à tomber par terre :

Code :

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

lcl/interfaces/win32/win32lclintf.inc:    EnumFontFamiliesEX(DC, @LF, @EnumFontsCallback, LPARAM(@Rec), 0);

et c'est tout (j'ai éliminé les entrées du dossier examples/fontenum qui ne servent à rien ici).

Donc avec mon Linux je suis sensé ne pas pouvoir utiliser cette fonction, c'est bien ça ? Mais pourtant le boulot est fait -- mal, pour Linux, et c'est pour ça que je voulais y aller voir...
Ou la compilation lui change le nom ?
Mais alors, comment trouver le code exécuté ?

Le "debug" ici tu devrais le voir quand tu compiles la LCL avec le mode debug et en ligne de commande.

Je crains de ne pas savoir faire (et pas envie de chercher, fait vraiment trop chaud), cependant, j'ai eu une intuition, qui a payé :
Point d'arrêt sur la première ligne EnumFontFamiliesEx puis F7 envoie sur

Code :

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

1
2
3
4
5
function EnumFontFamiliesEx(DC: HDC; lpLogFont: PLogFont;
  Callback: FontEnumExProc; LParam: Lparam; flags: dword): longint;
begin
  Result := WidgetSet.EnumFontFamiliesEx(DC, lpLogFont, Callback, LParam, flags);
end;

et un autre F7 envoie dans gtk2winapi.inc,

Code :

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

1
2
(ligne 3337) function TGtk2WidgetSet.EnumFontFamiliesEx(DC: HDC; lpLogFont: PLogFont;
  Callback: FontEnumExProc; Lparam: LParam; Flags: dword): longint;

qui contient 4 sous-fonctions : Gtk2GetFontFamilies, Gtk2GetFontFamiliesDefault, GetStyleAt et FillLogFontA, et se termine ligne 3590, soit 250 lignes

Plus qu'à étudier tout ça, et à comparer avec Windows 7 où la même fonction n'affiche que 22 lignes...

J'ai déjà repéré que c'est LoadFamilyFonts qui remplit la listbox lbFamily mais alors, à quoi sert LoadFontList et son
lbFamily.Items.Assign(L [qui est une stringlist remplie par EnumFontFamiliesEx]) ?
À suivre...
Et merci à toi.