OpenEuphoria

Re: setPrintJobProperty problem

• Posted by CChris <christian.cuvier at agricultu?e.gouv.f?> Nov 03, 2007
• 485 views

Bernie Ryan wrote:
> 
> CChris wrote:
> > I still need more details about which sort of fonts the newer lib skips
> > over.
> > In the meantime, you can try the following: locate, in the body of
> > getFontDialog()
> > in win32lib.ew, the following lines:
> > }}}
<eucode>
> >     w32store( hChooseFont, CF_Flags,
> >     CF_INITTOLOGFONTSTRUCT+CF_SCRIPTSONLY+CF_SCREENFONTS+CF_EFFECTS+CF_FORCEFONTEXIST)
> >     w32store( hChooseFont, CF_hLogFont, hLogFont )
> >     w32store( hChooseFont, CF_rgbColors, ctrl_Font[id][w32FontColor])       
> >       -- added PeteS
> >     w32store( hChooseFont, CF_iPointSize, ctrl_Font[id][w32FontSize] )      
> >        -- added PeteS
> > </eucoode>
> > 
> > There are all the changes I could notice from v59.1 - I don't even know
> > where I could find 0.55!- :
> > * the CF_FORCEFONTEXIST flag was not there;
> > * the two lines added by PeteS were not there.
> > 
> > Try undoing all or part of these changes, and tell
> > us which combination, if any, recovered all the missing fonts. Then I can
> > decide what to
> do.
> > I don't think PeteS' additions are at stake, but, you know, one can never
> > tell
> on Win98...</i>
> > 
> 
> CChris:
> 
> Here is a way you can try it.
> 
> Download the following file from the archive.
> 
> <a
> href="http://www.rapideuphoria.com/winfnt2f.zip">http://www.rapideuphoria.com/winfnt2f.zip</a>
> 
> 
> Start the program and click on left font button and count the font
> names shown in the left listbox.
> 
> If you set the file to include the NEW ver. of win32lib it displays 26 fonts.
> 
> If you set the file to include the OLD ver. of win32lib it displays 42 fonts.
> 
> Bernie
> 
> My files in archive:
> WMOTOR, XMOTOR, W32ENGIN, MIXEDLIB, EU_ENGIN, WIN32ERU, WIN32API 
> 
> Can be downloaded here:
> <a
> href="http://www.rapideuphoria.com/cgi-bin/asearch.exu?dos=on&win=on&lnx=on&gen=on&keywords=bernie+ryan">http://www.rapideuphoria.com/cgi-bin/asearch.exu?dos=on&win=on&lnx=on&gen=on&keywords=bernie+ryan</a>

I tried this program using win32lib v0.70.1 and v0.59.1. It won't work under
70.2, since it uses the deprecated onXXX syntax.
I got the very same font list, 310 line long.

Can anyone provide me a link to a copy of v0.55?  Or zip and email it to me at
oedoc hat free doubt fr? That way I can see if any change occurred between v55
and v59. If so, we'll have to decide collectively what to do about it. My first
hought would be to add a getFontDialogEx(atom flags) routine, so that user can
have more control over which fonts are displayed in the font select list.

If not, then... I won't do much about it since I don't have a win98 box. But
I'll incorporate any fix, of course.

CChris