OpenEuphoria

getFontDialog

• Posted by Pete Lomax <petelomax at blueyonder.co.uk> Aug 17, 2003
• 597 views

Derek,
In getFontDialog, I found if I changed the line:
	store( hLogFont, lfHeight, -(100 * window_font[id][FontSize])/72)
to
	store( hLogFont, lfHeight, window_font[id][FontSize]*5/3)

then it seems to work much better. I see the 100/72 trick on msdn, not
that I really understand it.

Anyway, just after that, it is also missing the following lines:

	attrib=3Dwindow_font[id][FontAttrib]
	if and_bits(attrib,Bold) then
		store( hLogFont, lfWeight, vFontWeight)
	end if
	store ( hLogFont, lfItalic, and_bits(attrib,Italic) )
	store ( hLogFont, lfUnderline, and_bits(attrib,Underline) )
	store ( hLogFont, lfStrikeOut, and_bits(attrib,Strikeout) )
	store( hChooseFont, CF_rgbColors, window_font[id][FontColor] )

Regards,
Pete