OpenEuphoria

Re: setPrintJobProperty problem

• Posted by CChris <christian.cuvier at agric?lture.g?uv.fr> Oct 28, 2007
• 662 views

Bernie Ryan wrote:
> 
> CChris:
> 
> Just wanted to let you know in the latest version of win32lib;
> 
> If you use the choosefont() function it does not display all of
> 
> the current fonts installed on a system. I was using win98.
> 
> I tried using a real old win32lib version 0.55.1 19/Dec/2000 library
>    and it worked ok.
> 
> Something must of changed in last 2 years of version changes. 
> 
> 
> 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 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:

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...

CChris }}}