Find SystemFont zero real size [ Xojo / Real Basic ]

app.UseGDIPlus = True dim pic as new picture(1,1) dim pic2 as new picture(1,1) = "SmallSystem" = "SmallSystem" for i as integer = 5 to 20 = i if"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA") ="AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA") then msgbox "Text Size is "+str(i) exit end if next
This method is for Xojo. See

SystemFont and SmallSystemFont are size zero in the Inspector. Yet, the displayed font does have a size. This method for Windows finds the font size used by system fonts.

Be the first to comment

You can use [html][/html], [css][/css], [php][/php] and more to embed the code. Urls are automatically hyperlinked. Line breaks and paragraphs are automatically generated.