OpenEuphoria

SCREEN SIZE ISSUE

• Posted by George Walters <gwalters at sc.rr.com> Jan 28, 2005
• 402 views

I am trying to set the display list window wide enough to not have a horizontal
scroll bar. It is several pixel's too small although the screen is plenty big
enough
and I don/t see why.

setFont(Screen, fontType, fs, Normal)
    charSize = getTextExtent(Screen,"ABCDEFGHIJ")
    cx = charSize[1]/10
    cy = charSize[2]
    
    maxX = getSystemMetrics(SM_CXFULLSCREEN)
    maxY = getSystemMetrics(SM_CYFULLSCREEN)
    heightHorScroll = getSystemMetrics(SM_CYHSCROLL)
    widthVertScroll = getSystemMetrics(SM_CXVSCROLL)
    widthFrame = getSystemMetrics(SM_CXFIXEDFRAME)
    
    displayWidth = cx * reporttWidth
    screenWidth = min(displayWidth + widthVertScroll + 2*widthFrame, maxX)