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 ?