Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Installed fonts?
Message
De
08/01/2002 09:23:12
 
 
À
08/01/2002 09:12:40
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00601900
Message ID:
00601905
Vues:
26
Hi Tracy,

This looks great. I have another question.
Is there a way to get vfp7 to print those characters, in a given font, whose character map puts them above chr(255) or do I just have to pick the correct font that puts the characters that I want below chr(255).

For example: Arial is far more common a font than Terminal. Both Arial and Terminal have several bracketing characters. However, the Arial bracket characters are very high up in the character map and I can't seem to putput them in vfp7 via a chr(nnn) scheme. I also want to output to a web page and fear that not all of my user's browsers will have font Terminal installed. Most of my users will have font Arial installed.

Any thoughts?
Neil
Neil

>Hi Neil, I use the code below to install foxfont on user's computers if it is not there. There may be a better way, but this works for me.
>
>
>	*---Determine if foxfont file needs to be copied into windows font directory
>	LOCAL lcFontDir, lcAppDir, lcWinFontDir
>
>	*--Program font directory
>	lcFontDir = ".\fonts\"
>
>   	* Get current App directory from SYS(16).
>   	lcAppDir = SUBSTR(SYS(16), 1, RAT('\',SYS(16),1)-1)
>
>	   * Get WinDir environment and find the Fonts directory.
>   	lcWinFontDir = GETENV('windir')+'\Fonts'
>
>   	* Check that FoxFon.fon is in App directory and not in Fonts directory.
>   	IF FILE(lcAppDir+'\foxfont.fon') AND !FILE(lcWinFontDir+'\foxfont.fon')
>    	    * Copy the file
>      	    COPY file (lcAppDir+'\foxfont.fon') ;
>               TO (lcWinFontDir+'\foxfont.fon')
>      	    SET MESSAGE TO    && Clears "<nnnnn> bytes copied" from status bar
>      	    WAIT "" TIME 2    && Pause to allow font to be loaded
>	ELSE
>	    *-- Is it in .\fonts\?
>	    IF FILE(lcFontDir+'\foxfont.fon') AND !FILE(lcWinFontDir+'\foxfont.fon')
>	        * Copy the file
>	        COPY file (lcFontDir+'\foxfont.fon') ;
>	          TO (lcWinFontDir+'\foxfont.fon')
>	        SET MESSAGE TO    && Clears "<nnnnn> bytes copied" from status bar
>	        WAIT "" TIME 2    && Pause to allow font to be loaded
>	    ENDIF
>   	ENDIF
>
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform