Platforms to show: All Mac Windows Linux Cross-Platform
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.
