Discussion :

[jojo86]

Bonjour,

Je suis confronté à un blocage. J'ai développé une application au travail.
L'application s’installe avec un Setup.exe. Lors de l'installation, une police d’écriture spécifique est installée dans le répertoire Font de Windows.
Problème : Depuis la migration de nos machines vers Windows 7, il est impossible pour un utilisateur d'installer une police d'écriture. Ce "privilège" est réservé aux administrateurs.

Je dois donc trouver un moyen pour que LazReport puisse utiliser la police d'écriture sans qu'elle soit installée.
J'ai cherché, et j'ai essayé ceci mais sans résultat :

Code :

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

  If (View.Name = 'Memo4') THen (frReport1.Pages.Pages[0].FindObject('Memo4') as TfrMemoView).Font.Name:=ExtractFilePath(Application.ExeName) + 'c39hrp24dhtt.ttf';

LazReport ne semble pas reconnaître le fichier ttf.

Existe-t-il une solution ?

Cordialement,

[jojo86]

Re,

Je suis sur une piste, il semble que la solution se tourne vers l'API : AddFontMemResourceEx

Je n'arrive pas à essayer le code trouvé car je n'arrive pas à mettre la main sur le nom à rajouter dans la close uses de mon code...

Je vous tiens informé.

[jojo86]

J'ai visiblement trouvé la solution.

Pensez à ajouter "Windows" aux "uses" du fichier Unit.
Dans la procedure FormCreate de mon premier formulaire, j'ai ajouté ceci :

Code :

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

1
2
3
 
AddFontResource(PChar((ExtractFilePath(Application.ExeName) + 'c39hrp24dhtt.ttf')));
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);

Ensuite, dans la procedure FormDestroy j'ai ajouté :

Code :

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

1
2
3
 
RemoveFontResource(PChar((ExtractFilePath(Application.ExeName) + 'c39hrp24dhtt.ttf')) ;
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;

Cela semble fonctionner...

[Jipété]

Bonsoir,

Suite à lecture attentive de cette discussion puis essai du code donné par RAW en fin de page 2 (4^e post en partant du bas), et malgré le fait que l'auteur a écrit "This runs fine too in D7 AND in LAZARUS !!! (W7 x64)", j'ai le regret de vous informer que chez moi (machine virtuelle XP SP2 32 bits et Lazarus 1.6 rc1) ça ne fonctionne absolument pas...

J'ai fait une microscopique modification du code :

Code :

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

1
2
3
      if ChargementOk
      Then SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0)
      Else ShowMessage('Error loading ' +strFontPath+'\'+FileListBox1.Items[i]);// ajout

qui me permet de voir si ça coince ou pas et non, ça ne coince pas, mais après l'exécution du chargement, rien n'est chargé...

Je suis retourné aux sources (code Delphi7 compilé sous Win2000) et l'exécutable généré par cette compilation fonctionne très bien, le problème semble donc être du côté du binaire généré par Lazarus,
Et je ne sais pas du tout où chercher.


/!\ IMPORTANT /!\ IMPORTANT /!\ IMPORTANT /!\

Par ailleurs, ces manipulations m'ont permis de constater que parfois, une police trouvée sur le web ne peut pas être chargée avec l'outil compilé par Delphi (qui s'appuie sur le couple AddFontResource/RemoveFontResource), alors que d'autres polices sont parfaitement bien chargées.
Bon courage pour trier vos fichiers, car l'outil Windows fonctionne toujours correctement, et ça, c'est désagréable.

[Jipété]

Bonjour,

La solution que j'avais trouvée en son temps pour faire fonctionner tout ça sous Delphi était d'utiliser le nom du fichier d'une manière pas habituelle :

Code :

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

1
2
3
4
5
6
  for i := 0 to FileListBox1.Items.Count - 1 do // les polices supplémentaires sont classées dans des dossiers bien précis choisis en amont
  begin
    sFontfile := workdir + FileListBox1.Items[i] + #0; // noter l'ajout du #0
    if AddFontResource(@sFontfile[1]) // et l'arrobase et les crochets 
    then SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0)
    else ShowMessage('Error loading ' + sFontfile);

J'ai repassé cette combine sous Lazarus et ça fonctionne.

Sauf pour les fichiers mal formés, comme je le disais hier soir.
Mais ça, on n'y peut pas grand chose...

[Jipété]

Sauf pour les fichiers mal formés, comme je le disais hier soir.
Mais ça, on n'y peut pas grand chose...

En fait, les fichiers doivent être bien formés, le souci semble venir de l'âge des outils utilisés pour les visionner.

Plus d'explications dans ce post et celui qui le suit, chronologiquement parlant.