as I am absolutely new regarding ScuiLib (and Hollywood), the question might be solved by going through tutorials and manuals (rtfm.... gerograph !!!). But anyway, forgive me, this might be the faster way to solve it:
I did 5 pages with designer, and put "next" and "back" buttons on it ("Designer buttons" not ScuiLib...). On one page I want to use a Cyclegadget from ScuiLib, but I cannot use the next button anymore, as soon as I use the Cyclegadget. What is wrong ??? Her is my code:
Code: Select all
******************* BEGIN PAGE #3 ********************/
pages[3] = Function()
bc = 0
ac = 0
CreateBGPic(1, 380, 240, $DFDFDF)
SelectBGPic(1)
SetFormStyle(#NORMAL)
SetFillStyle(#FILLCOLOR)
Box(-8, 0, 390, 145, $FFFFA3, 0, 0)
SetFont("helvetica.font", 13)
SetFontColor($0)
t$ = "Where will mp3 files be stored, in relation to new playlist ?"
TextOut(20, 110, t$, #LEFT, 0)
LoadBrush(1, "Brushes/btn_langtempl.png", {})
DisplayBrush(1, 17, 201)
LoadBrush(2, "Brushes/btn_langtempl.png", {})
DisplayBrush(2, 265, 201)
SetFont("helvetica.font", 13)
SetFontColor($0)
t$ = "Back"
TextOut(51, 208, t$, #LEFT, 0)
HideLayer(5)
SetFont("helvetica.font", 13)
SetFontColor($0)
t$ = "Next"
TextOut(303, 209, t$, #LEFT, 0)
HideLayer(6)
LoadBrush(3, "Brushes/F3.png", {})
DisplayBrush(3, 0, 0)
HideLayer(7)
bc = 3
ac = 0
MakeButton(2, #LAYERBUTTON, 3, 0, 1, {
OnMouseDown = Function()
nextpage = 2
Return
EndFunction})
MakeButton(3, #LAYERBUTTON, 4, 0, 1, {
OnMouseDown = Function()
nextpage = 5
Return
EndFunction})
scui.NewObject(
#IFOCLASS_CYCLE,
"Cycle1",
nil,
nil,
nil,
{ Options = { "Option 1", "Option 2", "Option 3", "Option 4" },
DefaultOption = 2 }
)
EndSelect
DisplayBGPic(1)
ShowLayer(5)
ShowLayer(6)
ShowLayer(7)
nextpage = 0
Repeat
WaitEvent
Until nextpage > 0
scui.removeobject("Cycle1")
Return(nextpage)
EndFunction
Thanx