OpenEuphoria

1. Analyze This

• Posted by George Walters <gwalters at s?.rr.co?> Nov 27, 2007
• 1143 views

Can someone explain to me why the list box on a bound/shrouded program is
a difference vertical length than when not bound/shrouded? When bound it
contains 11 rows of items and not bound it has 10 rows of items. Here's the
statement which creates the list box. Using win32 by the way.

constant    idList = create(List,"",Main,4,cy*19-tint(cy/2),
                           cx*80+4,cy*10,WS_SCROLLBARS)

The 'cy*10' should set the number of rows to 10 which it does when not 
bound. 'cy' is the vertical height of a character as returned by the
function getFontSize.

setFont(Screen, "Courier New", fs, Normal)
    charSize = getFontSize(Screen)

    cx = charSize[1]
    cy = charSize[2]

3. Re: Analyze This

• Posted by George Walters <gwalters at ?c.rr?com> Nov 27, 2007
• 1030 views

Chris, the entire screen is identical except for the vertical length of the
list box. The font seems to be identical in the list box from both, bound 
and not bound. The rows in the list box are whole and not clipped. Windows
has always adjusted the list box to a whole number of rows if you happened
to choose the vertical size incorrectly.

cx and cy are identical, bound and not bound, (10,20)

It would seem to me that bound and not bound should always produce the same
screen, which they do on most screens except for several examples which I
have that contain list boxes.

BTW I'm running EU 2.4 and win32lib 59.1 and XP 2nd SP, but I don't think that
should make
a difference.

5. Re: Analyze This

• Posted by George Walters <gwalters at sc.rr.?o?> Nov 27, 2007
• 1041 views

I've tried to do this Matt. The code below does create different list boxes
bound/shroud and not bound/shroud on my computer. The bound/shroud is longer.

include win32lib.ew
global integer sx, sy, maxX, maxY, fs, cx, cy, sw, sh,
	heightHorScroll,widthVertScroll,widthFrame
global sequence charSize, fontType

global function ceil(object a)
	return floor(a) + 1
end function

global function tint(object a)
	return floor(a)
end function

    fontType = "Courier New"
    maxX = getSystemMetrics(SM_CXFULLSCREEN)
    maxY = getSystemMetrics(SM_CYFULLSCREEN)
    heightHorScroll = getSystemMetrics(SM_CYHSCROLL)
    widthVertScroll = getSystemMetrics(SM_CXVSCROLL)
    widthFrame = getSystemMetrics(SM_CXFIXEDFRAME)

    -- Scale font size to match screen resolution
    if maxX > 1200 then
    	fs = 14
    elsif maxX > 1000 then
    	fs = 12
    elsif maxX > 800 then
        fs = 11 -- font size
    elsif maxX > 640 then
        fs = 9
    else
    	fs = 8
    end if

    setFont(Screen, fontType, fs, Normal)
    charSize = getFontSize(Screen)

    cx = charSize[1]
    cy = charSize[2]
    
    sw = cx * 82 --+ 20
    sh = cy * 33 --+ 10

    sx = ceil((maxX - sw)/2)
    sy = ceil((maxY - sh)/2)
        
constant Main = create(Window,"ARE020-Cash Receipts Entry",
                       0,sx,sy+10,sw,sh,0)

constant    idList =
create(List,"",Main,4,cy*19-tint(cy/2),cx*80+4,cy*10,WS_SCROLLBARS)

WinMain(Main,Normal)    

7. Re: Analyze This

• Posted by Matt Lewis <matthewwalkerlewis at gmail?com> Nov 27, 2007
• 1021 views
• Last edited Nov 28, 2007

George Walters wrote:
> 
> I've tried to do this Matt. The code below does create different list boxes
> bound/shroud and not bound/shroud on my computer. The bound/shroud is longer.
> 

Using the svn head version of euphoria, and win32lib v0.60.6, I can't 
reproduce.  Since you're using old binaries and win32lib, this will 
probably be difficult to track down, and since it appears to be solved
by later versions...

Matt

9. Re: Analyze This

• Posted by George Walters <gwalters at sc.r?.co?> Nov 27, 2007
• 1036 views
• Last edited Nov 28, 2007

I guess I'll have to just find them and work around it. The only real issue
is sometimes when this happens, the list box will expand under some buttons
that are at the bottom of the screen. I don't know this until it's bound then
installed at a customer site. It just looks funky.

11. Re: Analyze This

• Posted by George Walters <gwalters at ?c.rr.?om> Nov 28, 2007
• 1064 views

Continueing on this thread. I've discovered that win32lib getFontSize is wrong
..at least in my opinion. Look at this link which has a drawing of characters.

http://msdn2.microsoft.com/en-us/library/ms534015.aspx

Then look at the winlib32 code below. "tmInternalLeading" is actually added
twice
for the character heigth. I think that "tmInternalLeading" should be removed
from the char heigth. I've rem'd it out and my list boxes have the correct
height
since I'm sizing them by character heights. If I'm wrong please explain.

global function getFontSize( integer id )

    -- get metrics for current font

    integer width, height, maxwidth
    atom tm

    -- text metric structure
    tm  = w32acquire_mem(0, SIZEOF_TEXTMETRIC )

    -- get the metrics of the font (queryFont will prepend the DC)
    if not queryFont( id, xGetTextMetrics, {tm} ) then
        warnErr( Err_GETFONTSIZE )
    end if

    -- assign values
    width   = w32fetch(tm,tmAveCharWidth)
    maxwidth   = w32fetch(tm,tmMaxCharWidth)
    height  = w32fetch(tm,tmHeight) +
                w32fetch(tm,tmInternalLeading) + <----------- remove this 
                w32fetch(tm,tmExternalLeading)

    -- release
    w32release_mem( tm )

    -- return results
    return { width, height, maxwidth }

end function

George Walters wrote:
> 
> Can someone explain to me why the list box on a bound/shrouded program is
> a difference vertical length than when not bound/shrouded? When bound it
> contains 11 rows of items and not bound it has 10 rows of items. Here's the
> statement which creates the list box. Using win32 by the way.
> 
> }}}
<eucode>
> constant    idList = create(List,"",Main,4,cy*19-tint(cy/2),
>                            cx*80+4,cy*10,WS_SCROLLBARS)
> </eucode>
{{{

> 
> The 'cy*10' should set the number of rows to 10 which it does when not 
> bound. 'cy' is the vertical height of a character as returned by the
> function getFontSize.
> 
> }}}
<eucode>
>     setFont(Screen, "Courier New", fs, Normal)
>     charSize = getFontSize(Screen)
> 
>     cx = charSize[1]
>     cy = charSize[2]
> 
> </eucode>
{{{