Online Documentation - Statistics - FAQ - Plugin Parts (All, Dependencies) - Class hierarchy
New in Version 22.2 22.3 22.4 22.5 23.0 23.1 23.2 23.3 23.4 23.5 24.0 24.1
The list of the topics, classes, interfaces, controls, modules, global methods by category, global methods by name, screenshots, licenses and examples.
Platforms to show: All Mac Windows Linux Cross-Platform
FAQ.What font is used as a 'small font' in typical Mac OS X apps?
Sub GetThemeFont(fontType as Integer, ByRef fontName as String, ByRef fontSize as Integer, ByRef fontStyle as Integer) dim err as Integer dim theFont, theFontSize, theFontStyle as MemoryBlock const smSystemScript = -1 Declare Function GetThemeFont Lib "Carbon" (inFontID as Integer, inScript as Integer, outFontName as Ptr, outFontSize as Ptr, outStyle as Ptr) as Integer theFont = NewMemoryBlock(256) //Str255 theFontSize = NewMemoryBlock(2) //SInt16 theFontStyle = NewMemoryBlock(1) //Style err = GetThemeFont(fontType, smSystemScript, theFont, theFontSize, theFontStyle) if err = 0 then fontName = theFont.PString(0) fontSize = theFontSize.UShort(0) fontStyle = theFontStyle.Byte(0) else fontName = "" fontSize = 0 fontStyle = 0 end ifEnd Sub