cs_vagabon
Messages postés31Date d'inscriptionlundi 4 novembre 2002StatutMembreDernière intervention13 juin 2003
-
23 avril 2003 à 00:59
VBasic_MFC
Messages postés12Date d'inscriptiondimanche 5 septembre 2004StatutMembreDernière intervention31 juillet 2007
-
31 juil. 2007 à 19:43
Bonjour,
Comment savoir si une police de Caractere est bien installée et l'installer si besoin ?
magicvinni
Messages postés235Date d'inscriptionvendredi 25 avril 2003StatutMembreDernière intervention26 juillet 2010 23 avril 2003 à 09:07
Si tu conais le nom du fichier, il suffit de regarder dans le repertoire font si il existe, sinon, tu le recopie dans le repertoire. Pour connaitre le repertoire des fonte va voir Cet exemple MagicVinni
magicvinni
Messages postés235Date d'inscriptionvendredi 25 avril 2003StatutMembreDernière intervention26 juillet 2010 28 avril 2003 à 18:12
Oui, enfin, comme je l'avias installé avant avec Window et effacé ensuite, c'est peut être resté dans la base de registre...Il faut que je le teste sous un autre ordi
MagicVinni
alexis2015
Messages postés73Date d'inscriptionmardi 8 avril 2003StatutMembreDernière intervention24 juillet 2005 8 janv. 2005 à 14:19
Oups !
Ca marche tant ke le programme reste ouvert !
il faut juste rajouter "Copyfile()" et alors ca donne un truc du style :
procedure TForm1.FormCreate(Sender: TObject);
begin
iLength := 255;
setLength(sWinDir, iLength);
iLength := GetWindowsDirectory(Pchar(sWinDir), iLength);
setLength(sWinDir, iLength);
fp:=ParamStr(1);
ff:=extractfilename(ParamStr(1));
Statusbar1.panels[1].text:=ff;
showmessage(swindir+'\Fonts\'+ff+#13+fp);
if FileExists(swindir+'\Fonts\'+ff) =false then begin statusbar2.Panels[1].text:= 'Absent';
button1.Caption:='Install Font';
end else begin
statusbar2.panels[1].text: ='Present';
button1.Caption:= 'Uninstall Font';
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var b : bool;
begin
CopyFile(Pchar(fp),Pchar(swindir+'\Fonts\'+ff),b);
AddFontResource(Pchar(fp));
sendmessage(hwnd_broadcast,wm_fontchange,0,0);
if FileExists(swindir+'\Fonts\'+ff) =true then begin statusbar2.panels[1].text:='Present';
button1.Caption:='Uninstall Font';
end; end;
VBasic_MFC
Messages postés12Date d'inscriptiondimanche 5 septembre 2004StatutMembreDernière intervention31 juillet 2007 31 juil. 2007 à 19:43
PARDON
MAIS LORSQUE JE EXECUTE MON PROGRAME QUI CHANGE LE FONT D UNE LABEL A MON STYLE DE FONT N AMARCH PAS BIEN IL RESTE SANS AUCUN CHANGEMENT
J AI CREE UN FONT ET J AI LE MIS DANS MON DOSSIER OU JE EXECUTE MON PROGRAMME ET JE VEUX QUE MON PROG CONNETRE MON FONT SITUER EN MEME PLACE OU UN AUTRE PLACE PERSONNALISE MAIS LE PRB C EST QUE AUCUN CHANGEMENT LORSQUE LE LANCEMENT DU PROG
A QUOI FAIRE? POUR RESOUDRE CE PROBLEMME ,