How To Accurately Position Text - lbjoseph

You might have noticed that Liberty BASIC doesn't do a very a good job positioning text where you specify in a graphics box. The following sample demonstrates a few simple API calls necessary to fix this behavior.

 WindowWidth = 300 
 WindowHeight = 350 
 
 NoMainWin 
 
 Open "Font Problems" For Graphics_NF_NSB As #g 
 
 #g "Down; Fill Blue; Flush" 
 #g "Color Black; Backcolor White" 
 #g "font arial 100" 
 dc = GetDC(hwnd(#g)) 
 CallDLL #gdi32, "SetTextAlign", dc As uLong, 0 As uLong, Result As uLong 
 #g "Place 100 100" 
 #g "|X" 
 #g "posxy x y" 
 temp$ = "X" 
 #g "stringwidth? temp$ width" 
 fontRoughHeight = y-100 
 #g "color red; size 10; set ";x;" ";y-fontRoughHeight 
 #g "color green; size 10; set ";x;" ";y 
 #g "color yellow; size 10; set ";x+width;" ";y 
 
 #g "trapclose [quit]" 
 
 Call ReleaseDC hwnd(#g), dc 
 
 Wait 
 
 [quit] 
 close #g 
 End 
 
 Function GetDC(hWnd) 
 CallDLL #user32, "GetDC",hWnd As uLong,GetDC As uLong 
 End Function 
 Sub ReleaseDC hWnd, hDC 
 CallDLL#user32,"ReleaseDC",hWnd As uLong,hDC As uLong,result As Long 
 End Sub

AccurateText

How To Accurately Position Text - lbjoseph