Choosing Printer Fonts

[gkuhnert]

Hi,

when calling the function "choosefont", the dialog-box for choosing fonts doesn't include installed printer fonts, but all TrueType fonts and system fonts are offered. Howerver, if I choose a font in Word, for example, these printer fonts are listed. Is there a way to let the user choose also from printer fonts?

[gkuhnert]

If we call choosefont, compiled in 16-bit, the printer fonts are being displayed (2D-Code1 and 2D-Code2):


In the 32-bit compiled version, these fonts don't appear, although the same printer is chosen

[Antonio Linares]

Gilbert,

In FWH\source\winapi\fonts.c function ChooseFont() we are using the flag: CF_SCREENFONTS

You may modify that source code to include this flag also: CF_PRINTERFONTS

Code: Select all  Expand view

   cf.Flags       = CF_SCREENFONTS | CF_PRINTERFONTS | IF( PCOUNT() > 1, CF_EFFECTS, 0 ) |
                    IF( bInitLF, CF_INITTOLOGFONTSTRUCT, 0 );


[gkuhnert]

Antonio,

thanks for your help! However, the problem didn't happen with choosefont directly, but with oFont:Choose(). That was an error in my sourcecode research. But it seems to me there can be made an improvement to the Choose method in the TFont class, because the handle of the printer (hPrinterDC) isn't passed through to choosefont()

I made following modification:

Code: Select all  Expand view

   if nRGBColor != nil
      aFont := ChooseFont( { ::nInpHeight, ::nInpWidth, ::nEscapement,;
                             ::nOrientation, ::nWeight, ::lItalic,;
                             ::lUnderLine, ::lStrikeOut, ::nCharSet,;
                             ::nOutPrecision, ::nClipPrecision,;
                             ::nQuality, ::nPitchFamily, ::cFaceName },;
                             @nRGBColor )
   else
      aFont := ChooseFont( { ::nInpHeight, ::nInpWidth, ::nEscapement,;
                             ::nOrientation, ::nWeight, ::lItalic,;
                             ::lUnderLine, ::lStrikeOut, ::nCharSet,;
                             ::nOutPrecision, ::nClipPrecision,;
                             ::nQuality, ::nPitchFamily, ::cFaceName } )
   endif


to

Code: Select all  Expand view

   DO CASE
   CASE nRGBColor == nil .AND. hPrinterDC == nil
      aFont := ChooseFont( { ::nInpHeight, ::nInpWidth, ::nEscapement,;
                             ::nOrientation, ::nWeight, ::lItalic,;
                             ::lUnderLine, ::lStrikeOut, ::nCharSet,;
                             ::nOutPrecision, ::nClipPrecision,;
                             ::nQuality, ::nPitchFamily, ::cFaceName },;
                             )

   CASE nRGBColor == nil .AND. hPrinterDC != nil
      aFont := ChooseFont( { ::nInpHeight, ::nInpWidth, ::nEscapement,;
                             ::nOrientation, ::nWeight, ::lItalic,;
                             ::lUnderLine, ::lStrikeOut, ::nCharSet,;
                             ::nOutPrecision, ::nClipPrecision,;
                             ::nQuality, ::nPitchFamily, ::cFaceName },;
                             , hPrinterDC )

   CASE nRGBColor != nil .AND. hPrinterDC == nil
      aFont := ChooseFont( { ::nInpHeight, ::nInpWidth, ::nEscapement,;
                             ::nOrientation, ::nWeight, ::lItalic,;
                             ::lUnderLine, ::lStrikeOut, ::nCharSet,;
                             ::nOutPrecision, ::nClipPrecision,;
                             ::nQuality, ::nPitchFamily, ::cFaceName },;
                             @nRGBColor,  )

   CASE nRGBColor != nil .AND. hPrinterDC != nil
      aFont := ChooseFont( { ::nInpHeight, ::nInpWidth, ::nEscapement,;
                             ::nOrientation, ::nWeight, ::lItalic,;
                             ::lUnderLine, ::lStrikeOut, ::nCharSet,;
                             ::nOutPrecision, ::nClipPrecision,;
                             ::nQuality, ::nPitchFamily, ::cFaceName },;
                             @nRGBColor, hPrinterDC )

   ENDCASE


And now it works fine!

[Antonio Linares]

Gilbert,

very good!

Thanks for sharing your solution