Discussion :

[Jeannot Alpin]

Salut a tous,
Dans mon application j'utilise une police que tous les ordinateur n'ont pas. C'est pourquoi je l'ai mis dans mon fichier ressource. J'ai beaucoup cherché sur internet mais je n'ai toujours rien trouvé : comment utilisé cette police dans un edit ?
Merci d'avance ....

[Lung]

Quelqu'un a déjà posé la question, et j'avais récupérer le message :

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
22
 
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
4
 
RemoveFontResource(FileNameTemp); 
DeleteFile(FileNameTemp); 
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);

Avec

Code :

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

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

Comme variale global.

PS : Je n'ai pas testé.

[Jeannot Alpin]

Oula c'est compliqué ca !
Merci je vais essayé ca tout a l'heure !