OpenEuphoria

Problem when putting a gridpanel inside a tabitem

• Posted by Alexander Toresson <toressonodakra at swipnet.se> Sep 28, 2004
• 468 views

When I put a gridpanel (one of the layoutpanels) inside a tabitem the 
gridpanel and its children won't show. Here's an example:

<EUCODE>

without warning
include gridpanl.ew
integer main, tabc, tab1, gridpanel, edit

main = create(Window, "There should be an edit control in the tabcontrol.", 0,
Default, Default, 0.8, 0.8, 0)
    tabc = create(TabControl, "", main, 0, 0, w32Edge, w32Edge, 0)
        tab1 = create(TabItem, "Test", tabc, 0, 0, 0, 0, 0)
            gridpanel = createEu(GridPanel, {tab1})
edit = create(EditText, "This should be visible", gridpanel, 0,
                0, 200, 23, 0)

setEu(gridpanel, "SuspendLayout", w32True)
    setEu(gridpanel, "Columns", {{-1}})
    setEu(gridpanel, "Rows", {{-1}})
    addEu(gridpanel, edit, {{1, 1}})
setEu(gridpanel, "SuspendLayout", w32False)

WinMain(main, Normal)

</EUCODE>

Regards, Alexander Toresson

Shhh! Be vewy quiet! I'm hunting wuntime ewwows!