Discussion :

[ybruant]

Bonjour,

Je voudrais utiliser une fonte (par exemple MATURA) qui se trouve dans un fichier de ressources.

J'ai déjà utilisé la méthode LoadFromResourcesName pour des bitmap
ou encore TResourceStream.Create(hinstance, 'IMAGEACCUEIL', RT_RCDATA); pour extraire une image jpg d'un .res, mais
TResourceStream.Create(hinstance, 'MATURA', RT_FONT) ne m'amène à rien.

Comment faire donc pour affecter une fonte se trouvant dans un fichier .res à un TLabel (par exemple), sans que cette fonte ne soit installée dans le PC ?

Merci.

[Lung]

J'avais trouvé ca, il y a quelque temps :

Tu mets tes fichiers polices avec ton application et dans OnCreate tu mets :

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
procedure TForm1.FormCreate(Sender: TObject); 
var haFont : HFONT; 
    WinTempDir : PChar; 
begin 
GetMem(WinTempDir,255); 
GetTempPath(255,WinTempDir); 
GetTempFileName(WinTempDir,'Xdf',3,FileNameTemp); 
CreateScalableFontResource(0,FileNameTemp,'lhandw.ttf',nil); 
AddFontResource(FileNameTemp);//Lucida Handwriting 
haFont:=CreateFont (18,7,0,0,FW_NORMAL,0,0,0,ANSI_CHARSET,OUT_DEFAULT_PRECIS, 
                   CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,DEFAULT_PITCH or FF_ROMAN, 
                   'Lucida Handwriting'); 
Label1.Font.Handle:=haFont; 
Label4.Font.Handle:=haFont; 
Label5.Font.Handle:=haFont; 
haFont:=CreateFont (46,20,0,0,FW_NORMAL,0,0,0,ANSI_CHARSET,OUT_DEFAULT_PRECIS, 
                   CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,DEFAULT_PITCH or FF_ROMAN, 
                   'Lucida Handwriting'); 
RxLabel1.Font.Handle:=haFont; 
RxLabel2.Font.Handle:=haFont; 
end;

Puis dans le OnClose

Code :

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

1
2
3
RemoveFontResource(FileNameTemp); 
DeleteFile(FileNameTemp); 
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);

Avec

Code :

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

FileNameTemp : Array[0..1024] of Char;

Comme variale global.

Ici j'utilise du Lucida Handwriting du fichier 'lhandw.ttf' dans des TRxLabel (idem TLabel).
Mais, sauf si c'est pour un programme qui est par exemple sur un CD, il est préférable d'installer les polices avec ton application.

Je te le donne tel quel. Je ne l'ai pas testé ...

[ybruant]

Merci pour la réponse.

Si je comprends bien, je dois d'abord extraire le fichier *.TTF de la fonte de mon .res et le copier en temporaire quelque part avant de pouvoir utiliser le code que tu m'indiques ?

J'essaye

[ybruant]

J'ai donc mis ça dans le create, et ça va bien comme je veux :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    GetMem(WinTempDir,255);
    GetTempPath(255,WinTempDir);
 
    Res := TResourceStream.Create(hinstance, 'MATURASC_TTF', RT_RCDATA);
    Res.SaveTofile(WinTempDir + 'MATURASC.TTF');
 
    GetTempFileName(WinTempDir,'Xdf',3,FileNameTemp);
    CreateScalableFontResource(1,FileNameTemp, pchar(Path_appli + 'MATURASC.TTF'),nil);
    AddFontResource(FileNameTemp);
    haFont:=CreateFont (-24,12,0,0,FW_NORMAL,0,0,0,ANSI_CHARSET,OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,DEFAULT_PITCH or FF_ROMAN,'Matura MT Script Capitals');
    MonLabel1.Font.Handle:=haFont;
 
    DeleteFile(WinTempDir + 'MATURASC.TTF');

en utilisant tes déclarations de variable plus Res de type TResourceStream
et en n'oubliant pas le code dans destroy, mais

j'ai dû mettre mon fichier Font.tty dans le .res en tant que RCDATA et en le copiant en temporaire avant de l'exécuter.

Toutefois, il existe bien un type de ressource FONT qui serait peut-être plus indiqué, sinon il n'existerait pas... Mais je ne sais pas m'en servir, c'est là mon drame

En tout cas, merci, ça marche !

Amitiés.

[Lung]

En tout cas, merci, ça marche !

De rien.
N'oublie pas le tag [Résolu]

[ybruant]

J'aurais aimé une réponse concernant l'utilisation d'une ressource FONT directement

Demain matin, si ya pas, je dirai 'résolu', promis

[sjrd]

J'aurais aimé une réponse concernant l'utilisation d'une ressource FONT directement

Demain matin, si ya pas, je dirai 'résolu', promis

C'est impossible, vu la façon dont Windows gère les polices...

[Mac LAK]

Je voudrais utiliser une fonte (par exemple MATURA) qui se trouve dans un fichier de ressources.

Attention à l'aspect légal : beaucoup de fontes sont copyrightées, et leur usage est soumis à l'achat, possession et installation d'un autre logiciel (MS Office, Acrobat Reader, etc...). Elles ne sont donc pas libres de droits, ni redistribuables : tu n'as donc pas le droit de les inclure dans tes propres programmes.

[ybruant]

Merci pour toutes les réponses, et naturellement d'accord pour l'aspect copyright