master47 Utilisateur confirmé: Rang *****
Messages : 2368 Projet Actuel :
-------------------
> PacWars
> The Perfect Pattern Studio
| Sujet: InstallFont( Filename, Font Name) Sam 26 Juil 2008 - 15:07 | |
| Un script que j'ai écris à la suite d'un problème de police : InstallFont( Filename, Font Name ) - Citation :
/* * * InstallFont( Filename, FontName) * * Filename : Nom du fichier; FontName : Nom de la police * * Retourne -1 si un des arguments est invalide, -2 si le fichier n'existe pas, 1 si tout c'est passé sans erreurs * * * Exemple d'utilisation : * InstallFont( "today.TTF", "Today"); * */ FName = argument[0] ; FontName = argument[1] ; if( (FName == "") or (FontName == "")) { return -1 ; }
if( !file_exists( FName ) ) { return -2 ; }
Copy = file_copy( FName, environment_get_variable("SystemRoot") + "/Fonts/" + filename_name(FName) );
registry_set_root(1)
Reg = registry_write_string_ext( "\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts", FontName + " (True Type)", filename_name(FName) );
return 1 ;
Je ne donne pas de garantie par rapport au fonctionnement de ce script, je ne l'ai testé que peu de fois et ces quelques fois cela marchait. Exemple d'utilisation : - Citation :
InstallFont( "MARC___.TTF", "Marcelle"); fnt = font_add( "Marcelle", 12, 0, 0, 0, 255);
|
|
Dan_lizhot Modérateur
Messages : 3463 Projet Actuel : Crypt Of Darkness
| Sujet: Re: InstallFont( Filename, Font Name) Sam 26 Juil 2008 - 15:09 | |
| pas mal |
|
edi9999 Utilisateur confirmé: Rang *****
Messages : 2480 Localisation : France Projet Actuel : theatre flashy
| Sujet: Re: InstallFont( Filename, Font Name) Sam 26 Juil 2008 - 15:46 | |
| Bien joue |
|
ombre Utilisateur confirmé: Rang ***
Messages : 689 Localisation : Dans sa batcave.
| |
Chlorodatafile Utilisateur confirmé: Rang *****
Messages : 2929 Localisation : Belfort Projet Actuel :
Paralights
| Sujet: Re: InstallFont( Filename, Font Name) Dim 26 Oct 2008 - 23:17 | |
| petite question, ça installe la font encore une fois si elle est déjà sur le disque ?
si non, cool !
mais sinon, il y a un test pour savoir si la font et dans le répertoire de font de windows ? |
|
nicoulas *Excellent utilisateur*
Messages : 6030 Localisation : Dordogne Projet Actuel : Croustaface Tower Defense
| Sujet: Re: InstallFont( Filename, Font Name) Dim 26 Oct 2008 - 23:34 | |
| tout simplement : if file_exists(environment_get_variable("windir")+"\Fonts\Arial.ttf") then { // tes actions } |
|
Chlorodatafile Utilisateur confirmé: Rang *****
Messages : 2929 Localisation : Belfort Projet Actuel :
Paralights
| Sujet: Re: InstallFont( Filename, Font Name) Dim 26 Oct 2008 - 23:42 | |
|
Dernière édition par gosc le Lun 27 Oct 2008 - 10:33, édité 1 fois (Raison : fini !) |
|
Contenu sponsorisé
| Sujet: Re: InstallFont( Filename, Font Name) | |
| |
|