I will check BootSectGUI later
Next is a snippet to test
Code: Select all
LoadFont(0,"Consolas",12)
OpenWindow(0, 0, 0, 400, 300, "Text Testing", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
hdc = GetDC_(WindowID(0))
font = GetStockObject_(#DEFAULT_GUI_FONT)
oldFont = SelectObject_(hdc, font)
txt$ = "This is a TEST"
LoadFont(0,"Consolas",12)
SelectObject_(hdc, FontID(0))
GetTextExtentPoint32_(hdc,@txt$,Len(txt$),sz.SIZE)
Debug sz\cx
LoadFont(0,"Segoe UI",12)
SelectObject_(hdc, FontID(0))
GetTextExtentPoint32_(hdc,@txt$,Len(txt$),sz.SIZE)
Debug sz\cx
SelectObject_(hdc, oldFont)
ReleaseDC_(WindowID(0), hdc)
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Quit = 1
EndSelect
Until Quit = 1