Platforms to show: All Mac Windows Linux Cross-Platform

/DynaPDF/Show SysFont Fonts


Required plugins for this example: MBS DynaPDF Plugin

You find this example project in your Plugins Download as a Xojo project file within the examples folder: /DynaPDF/Show SysFont Fonts

This example is the version from Mon, 29th Jul 2018.

Project "Show SysFont Fonts.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Delete"
Const kFileQuit = "&Quit"
Const kFileQuitShortcut = ""
End Class
Class MainWindow Inherits Window
Control List Inherits Listbox
ControlInstance List Inherits Listbox
End Control
EventHandler Sub Open() dim d as new DynaPDFMBS dim fonts() as DynaPDFSysFontMBS = d.GetSysFontInfos for each f as DynaPDFSysFontMBS in fonts dim Styles() as string dim Style as integer = f.Style 'styles.Append hex(style) if (style and d.kfsItalic) <> 0 then Styles.Append "Italic" end if if (style and d.kfsUnderlined) <> 0 then Styles.Append "Underlined" end if if (style and d.kfsStriked) <> 0 then Styles.Append "Striked" end if if (style and 2) <> 0 then Styles.Append "Bold" end if dim Weight as integer = d.WeightFromStyle(style) dim WeightName as string Select case weight case 100 WeightName = "Thin" case 200 WeightName = "ExtraLight" case 300 WeightName = "Light" case 400 WeightName = "Regular" case 500 WeightName = "Medium" case 600 WeightName = "DemiBold" case 700 WeightName = "Bold" case 800 WeightName = "ExtraBold" case 900 WeightName = "Black" case 1000 WeightName = "UltraBlack" else WeightName = "? "+str(weight) end Select List.addrow f.FamilyName, f.PostScriptName, f.FullName, Join(styles, " "), WeightName List.RowTag(List.LastIndex) = f next End EventHandler
End Class
MenuBar MainMenuBar
MenuItem FileMenu = "&File"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Edit"
MenuItem EditUndo = "&Undo"
MenuItem EditSeparator1 = "-"
MenuItem EditCut = "Cu&t"
MenuItem EditCopy = "&Copy"
MenuItem EditPaste = "&Paste"
MenuItem EditClear = "#App.kEditClear"
MenuItem EditSeparator2 = "-"
MenuItem EditSelectAll = "Select &All"
End MenuBar
End Project

See also:

The items on this page are in the following plugins: MBS DynaPDF Plugin.


The biggest plugin in space...