OpenEuphoria

Re: newbie - TabControl, TabItem within a TabItem

• Posted by Doug Cameron <drdoug at fast.net> Oct 17, 2005
• 519 views

OK, explain to this newbie, what's a "property sheet"?

The code I'm trying to create:


----------------------------------------------------

-- test-01-01.exw
-- creates a simple do nothing blank window

include win32lib.ew

constant MainWin = create(Window, "DC-TEC Classroom", 0, Default, Default, 775,
310, 0)
constant projOn = create(PushButton, "Projector ON", MainWin, 10, 10, 90, 40, 0)
constant projOff = create(PushButton, "Projector OFF", MainWin, 10, 230, 90, 40,
0)

constant volMute = create(PushButton, "Mute Off", MainWin, 110, 10, 90, 40, 0)
constant volUp = create(PushButton, "Volume UP", MainWin, 110, 60, 90, 40, 0)
constant volDn = create(PushButton, "Volume DOWN", MainWin, 110, 230, 90, 40, 0)


constant mainTabs = create(TabControl, "", MainWin, 210, 10, 543, 260, 0)
constant tabSym = create(TabItem, "Sympodium", mainTabs, 0, 0, 0, 0, 0)
constant tabDoc = create(TabItem, "Document Camera", mainTabs, 0, 0, 0, 0, 0)
constant tabVcr = create(TabItem, "VCR", mainTabs, 0, 0, 0, 0, 0)
constant tabDvd = create(TabItem, "DVD", mainTabs, 0, 0, 0, 0, 0)
constant tabLap = create(TabItem, "Laptop", mainTabs, 0, 0, 0, 0, 0)
constant tabAux = create(TabItem, "Auxiliary", mainTabs, 0, 0, 0, 0, 0)
constant tabVid = create(TabItem, "Video Conference", mainTabs, 0, 0, 0, 0, 0)

-- constant vidTabs = create(TabControl, "", tabVid, 30, 30, 100, 100, 0)
-- constant tabDir = create(TabItem, "Directory", vidTabs, 0, 0, 0, 0, 0)

constant tabAud = create(TabItem, "Audio Conference", mainTabs, 0, 0, 0, 0, 0)




WinMain(MainWin, Normal)

-----------------------------------------------------

Any thoughts on the mouse problem?

Any help appreciated.


drdoug