Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Converting DOS reports
Message
De
13/06/2002 09:42:41
 
 
À
13/06/2002 09:37:44
Dragan Nedeljkovich (En ligne)
Now officially retired
Zrenjanin, Serbia
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Divers
Thread ID:
00666501
Message ID:
00667909
Vues:
20
Hi Dragan,
What happens if you run this code in VFP7 SP1?
Tracy

>>I am trying to convert reports from FP DOS and cannot find a font that will still allow me to have 132 columns, be readable, and be able to be distributed to 300 clients. Any thoughts?
>
>In VFP 5.0 I have tweaked the converter to detect the line width in the report, and use Arial Narrow (which was somehow available by default in the W98 distribution at the time - I don't see it that often anymore). Anyway, the fix is in the procedure AllEnviron, at about 15th line - I've included few lines before and after it, so here it is:
>
>
   IF objtype = c_otheader OR (m.g_filetype = c_label AND objtype = c_ot20label)
>      m.g_windheight = HEIGHT
>      m.g_windwidth = WIDTH
>	do case
>		case m.g_windwidth>97
>			m.g_dfltFFace="Arial Narrow"
>			m.g_dfltFSize=9
>		case m.g_windwidth>81
>			m.g_dfltFFace="Arial"
>			m.g_dfltFSize=9
>	endcase
>	m.g_rptlinesize      = (FONTMETRIC(1, m.g_rptfface, m.g_rptfsize, m.g_rpttxtfontstyle) / m.g_pixelsize) * 10000
>	m.g_rptcharsize      = (FONTMETRIC(6, m.g_rptfface, m.g_rptfsize, m.g_rpttxtfontstyle) / m.g_pixelsize) * 10000
>
>This goes into transprt.prg; I think it's still called the same and it should be somewhere in the Convert subdirectory below home().
.·*´¨)
.·`TCH
(..·*

010000110101001101101000011000010111001001110000010011110111001001000010011101010111001101110100
"When the debate is lost, slander becomes the tool of the loser." - Socrates
Vita contingit, Vive cum eo. (Life Happens, Live With it.)
"Life is not measured by the number of breaths we take, but by the moments that take our breath away." -- author unknown
"De omnibus dubitandum"
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform