OpenEuphoria

Re: setPrintJobProperty problem

• Posted by Bernie Ryan <xotron at b?uef?og.com> Oct 28, 2007
• 623 views

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

CChris:

Here is a way you can try it.

Download the following file from the archive.

http://www.rapideuphoria.com/winfnt2f.zip


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:
http://www.rapideuphoria.com/cgi-bin/asearch.exu?dos=on&win=on&lnx=on&gen=on&keywords=bernie+ryan