Xojo Conferences
XDCMay2019MiamiUSA

Platforms to show: All Mac Windows Linux Cross-Platform

/Win/Windows Font Unicode and Code Pages
Function:
Required plugins for this example: MBS Win Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Win/Windows Font Unicode and Code Pages
This example is the version from Sun, 17th Mar 2012.
Project "Windows Font Unicode and Code Pages.rbp"
Class App Inherits Application
Const kEditClear = "&Löschen"
Const kFileQuit = "Beenden"
Const kFileQuitShortcut = ""
End Class
Class Window1 Inherits Window
Control List Inherits Listbox
ControlInstance List Inherits Listbox
EventHandler Sub Change() cList.DeleteAllRows uList.DeleteAllRows if me.ListIndex >= 0 then dim f as WindowsFontFamilyMBS = me.RowTag(me.ListIndex) dim u as MemoryBlock = f.UnicodeSubsetBitfield dim c as MemoryBlock = f.CodepageBitfield // Test codepages TestCodePage c, 0, "1252: Latin 1" TestCodePage c, 1, "1250: Latin 2: Central Europe" TestCodePage c, 2, "1251: Cyrillic" TestCodePage c, 3, "1253: Greek" TestCodePage c, 4, "1254: Turkish" TestCodePage c, 5, "1255: Hebrew" TestCodePage c, 6, "1256: Arabic" TestCodePage c, 7, "1257: Baltic" TestCodePage c, 8, "1258: Vietnamese" for i as integer = 9 to 15 TestCodePage c, i, "Reserved for ANSI" next TestCodePage c, 16, "874: Thai" TestCodePage c, 17, "932: Japanese, Shift-JIS" TestCodePage c, 18, "936: Simplified Chinese (PRC, Singapore)" TestCodePage c, 19, "949: Korean Unified Hangul Code (Hangul TongHabHyung Code)" TestCodePage c, 20, "950: Traditional Chinese (Taiwan; Hong Kong SAR, PRC)" TestCodePage c, 21, "1361: Korean (Johab)" for i as integer = 22 to 29 TestCodePage c, i, "Reserved for alternate ANSI and OEM" next for i as integer = 30 to 31 TestCodePage c, i, "Reserved by system." next for i as integer = 32 to 46 TestCodePage c, i, "Reserved for OEM" next TestCodePage c, 47, "1258: Vietnamese" TestCodePage c, 48, "869: Modern Greek" TestCodePage c, 49, "866: Russian" TestCodePage c, 50, "865: Nordic" TestCodePage c, 51, "864: Arabic" TestCodePage c, 52, "863: Canadian French" TestCodePage c, 53, "862" TestCodePage c, 54, "861: Icelandic" TestCodePage c, 55, "860: Portuguese" TestCodePage c, 56, "857: Turkish" TestCodePage c, 57, "855: Cyrillic; primarily Russian" TestCodePage c, 58, "852: Latin 2" TestCodePage c, 59, "775: Baltic" TestCodePage c, 60, "737: Greek; formerly 437G" TestCodePage c, 61, "708; 720: Arabic; ASMO 708" TestCodePage c, 62, "850: Multilingual Latin 1" TestCodePage c, 63, "437: US" // Test Unicode TestUnicode u, 0, "Basic Latin" TestUnicode u, 1, "Latin-1 Supplement" TestUnicode u, 2, "Latin Extended-A" TestUnicode u, 3, "Latin Extended-B" TestUnicode u, 4, "IPA Extensions, Phonetic Extensions" TestUnicode u, 5, "Spacing Modifier Letters, Modifier Tone Letters" TestUnicode u, 6, "Combining Diacritical Marks" TestUnicode u, 7, "Greek and Coptic" TestUnicode u, 8, "Coptic" TestUnicode u, 9, "Cyrillic" TestUnicode u, 10, "Armenian" TestUnicode u, 11, "Hebrew" TestUnicode u, 12, "Vai" TestUnicode u, 13, "Arabic" TestUnicode u, 14, "NKo" TestUnicode u, 15, "Devanagari" TestUnicode u, 16, "Bengali" TestUnicode u, 17, "Gurmukhi" TestUnicode u, 18, "Gujarati" TestUnicode u, 19, "Oriya" TestUnicode u, 20, "Tamil" TestUnicode u, 21, "Telugu" TestUnicode u, 22, "Kannada" TestUnicode u, 23, "Malayalam" TestUnicode u, 24, "Thai" TestUnicode u, 25, "Lao" TestUnicode u, 26, "Georgian" TestUnicode u, 27, "Balinese" TestUnicode u, 28, "Hangul Jamo" TestUnicode u, 29, "Latin Extended Additional" TestUnicode u, 30, "Greek Extended" TestUnicode u, 31, "General Punctuation" TestUnicode u, 32, "Superscripts And Subscripts" TestUnicode u, 33, "Currency Symbols" TestUnicode u, 34, "Combining Diacritical Marks For Symbols" TestUnicode u, 35, "Letterlike Symbols" TestUnicode u, 36, "Number Forms" TestUnicode u, 37, "Arrows" TestUnicode u, 38, "Mathematical Operators" TestUnicode u, 39, "Miscellaneous Technical" TestUnicode u, 40, "Control Pictures" TestUnicode u, 41, "Optical Character Recognition" TestUnicode u, 42, "Enclosed Alphanumerics" TestUnicode u, 43, "Box Drawing" TestUnicode u, 44, "Block Elements" TestUnicode u, 45, "Geometric Shapes" TestUnicode u, 46, "Miscellaneous Symbols" TestUnicode u, 47, "Dingbats" TestUnicode u, 48, "CJK Symbols And Punctuation" TestUnicode u, 49, "Hiragana" TestUnicode u, 50, "Katakana" TestUnicode u, 51, "Bopomofo" TestUnicode u, 52, "Hangul Compatibility Jamo" TestUnicode u, 53, "Phags-pa" TestUnicode u, 54, "Enclosed CJK Letters And Months" TestUnicode u, 55, "CJK Compatibility" TestUnicode u, 56, "Hangul Syllables" TestUnicode u, 57, "Non-Plane 0. Note that setting this bit implies that there is at least one supplementary code point beyond the Basic Multilingual Plane (BMP) that is supported by this font. See Surrogates and Supplementary Characters." TestUnicode u, 58, "Phoenician" TestUnicode u, 59, "CJK Radicals Supplement" TestUnicode u, 60, "Private Use Area" TestUnicode u, 61, "CJK Strokes & 7CJK Compatibility Ideographs" TestUnicode u, 62, "Alphabetic Presentation Forms" TestUnicode u, 63, "Arabic Presentation Forms-A" TestUnicode u, 64, "Combining Half Marks" TestUnicode u, 65, "Vertical Forms & CJK Compatibility Forms" TestUnicode u, 66, "Small Form Variants" TestUnicode u, 67, "Arabic Presentation Forms-B" TestUnicode u, 68, "Halfwidth And Fullwidth Forms" TestUnicode u, 69, "Specials" TestUnicode u, 70, "Tibetan" TestUnicode u, 71, "Syriac" TestUnicode u, 72, "Thaana" TestUnicode u, 73, "Sinhala" TestUnicode u, 74, "Myanmar" TestUnicode u, 75, "Ethiopic" TestUnicode u, 76, "Cherokee" TestUnicode u, 77, "Unified Canadian Aboriginal Syllabics" TestUnicode u, 78, "Ogham" TestUnicode u, 79, "Runic" TestUnicode u, 80, "Khmer" TestUnicode u, 81, "Mongolian" TestUnicode u, 82, "Braille Patterns" TestUnicode u, 83, "Yi Syllables & Yi Radicals" TestUnicode u, 84, "Tagalog, Hanunoo, Buhid & Tagbanwa" TestUnicode u, 85, "Old Italic" TestUnicode u, 86, "Gothic" TestUnicode u, 87, "Deseret" TestUnicode u, 88, "Byzantine Musical Symbols, Musical Symbols & Ancient Greek Musical Notation" TestUnicode u, 89, "Mathematical Alphanumeric Symbols" TestUnicode u, 90, "Private Use" TestUnicode u, 91, "Variation Selectors" TestUnicode u, 92, "Tags" TestUnicode u, 93, "Limbu" TestUnicode u, 94, "Tai Le" TestUnicode u, 95, "New Tai Lue" TestUnicode u, 96, "Buginese" TestUnicode u, 97, "Glagolitic" TestUnicode u, 98, "Tifinagh" TestUnicode u, 99, "Yijing Hexagram Symbols" TestUnicode u, 100, "Syloti Nagri" TestUnicode u, 101, "Linear B Syllabary, Linear B Ideograms & Aegean Numbers" TestUnicode u, 102, "Ancient Greek Numbers" TestUnicode u, 103, "Ugaritic" TestUnicode u, 104, "Old Persian" TestUnicode u, 105, "Shavian" TestUnicode u, 106, "Osmanya" TestUnicode u, 107, "Cypriot Syllabary" TestUnicode u, 108, "Kharoshthi" TestUnicode u, 109, "Tai Xuan Jing Symbols" TestUnicode u, 110, "Cuneiform" TestUnicode u, 111, "Counting Rod Numerals" TestUnicode u, 112, "Sundanese" TestUnicode u, 113, "Lepcha" TestUnicode u, 114, "Ol Chiki" TestUnicode u, 115, "Saurashtra" TestUnicode u, 116, "Kayah Li" TestUnicode u, 117, "Rejang" TestUnicode u, 118, "Cham" TestUnicode u, 119, "Ancient Symbols" TestUnicode u, 120, "Phaistos Disc" TestUnicode u, 121, "Lycian" TestUnicode u, 122, "Mahjong Tiles & Domino Tiles" TestUnicode u, 123, "Windows 2000 and later: Layout progress, horizontal from right to left" TestUnicode u, 124, "Windows 2000 and later: Layout progress, vertical before horizontal" TestUnicode u, 125, "Windows 2000 and later: Layout progress, vertical bottom to top" TestUnicode u, 126, "Reserved for process-internal usage" TestUnicode u, 127, "Reserved for process-internal usage" end if End EventHandler
End Control
Control uList Inherits Listbox
ControlInstance uList Inherits Listbox
End Control
Control cList Inherits Listbox
ControlInstance cList Inherits Listbox
End Control
EventHandler Sub Open() for each f as WindowsFontFamilyMBS in WindowsFontFamilyMBS.AllFonts if f.FontType = f.TRUETYPE_FONTTYPE then List.AddRow f.LogFontFullName List.RowTag(List.LastIndex)=f end if next End EventHandler
Sub TestCodePage(c as MemoryBlock, bit as integer, name as string) dim mask as UInt64 = Bitwise.ShiftLeft(1, bit) if BitwiseAnd(c.UInt64Value(0), mask)=mask then cList.AddRow name end if End Sub
Sub TestUnicode(c as MemoryBlock, bit as integer, name as string) if bit<64 then dim mask as UInt64 = Bitwise.ShiftLeft(1, bit) if BitwiseAnd(c.UInt64Value(0), mask)=mask then uList.AddRow name end if else bit = bit - 64 dim mask as UInt64 = Bitwise.ShiftLeft(1, bit) if BitwiseAnd(c.UInt64Value(8), mask)=mask then uList.AddRow name end if end if End Sub
End Class
MenuBar MenuBar1
MenuItem FileMenu = "&Ablage"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Bearbeiten"
MenuItem EditUndo = "&Rückgängig"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "&Ausschneiden"
MenuItem EditCopy = "&Kopieren"
MenuItem EditPaste = "&Einfügen"
MenuItem EditClear = "#App.kEditClear"
MenuItem UntitledMenu0 = "-"
MenuItem EditSelectAll = "&Alles auswählen"
End MenuBar
End Project

See also:

Feedback, Comments & Corrections

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




Links
MBS FileMaker Plugins