CustFont

Here is a simple custom font dialog. Using the API
EnumFontFamily, it finds all TrueType and Fixed width
fonts. The font names are displayed, w/icon, in a listview.
A slider control allows continuous scrolling of font size.
A sample of the font at the selected size and style is displayed.
A DrawFameOn routine is included which is used to frame
all the controls (see screen shot).

Original Author: Rob Bogdanoff

Assumptions

Written in VB6 and requires ListView, ImageList, and
Slider controls.

Returns

FontName
FontSize
FontStyle
Underline effect
StrikeThru effect

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 107 times

Comments

No comments have been added for this post.

You must be logged in to make a comment.