284 lines
9.5 KiB
Plaintext
Executable File
284 lines
9.5 KiB
Plaintext
Executable File
#!yab
|
|
|
|
// MessageWorld - shows the messages the widgets return
|
|
// by DasJott
|
|
|
|
// Main background colors
|
|
r = 206 : g = 226 : b = 246
|
|
|
|
// open main window
|
|
window open 100, 200 to 600, 450, "MainView", "MessageWorld - Select a widget to be explained"
|
|
window set "MainView", "maximumto", 500, 250
|
|
window set "MainView", "minimumto", 500, 250
|
|
draw set "bgcolor", r, g, b, "MainView"
|
|
|
|
// open view inside the main window
|
|
view 0, 0 to 500, 180, "ContentView", "MainView" // for the contents; widgets and text.
|
|
draw set "bgcolor", r+20, g+20, b+20, "ContentView"
|
|
draw text 210, 60, "MessageWorld", "ContentView"
|
|
draw text 150, 75, "Shows the messages the widgets return.", "ContentView"
|
|
draw text 149, 100, "Please select the widget to be explained.", "ContentView"
|
|
draw text 125, 125, "Please use each widget to get the message shown.", "ContentView"
|
|
draw text 135, 140, "The sourcecode is also shown for each widget.", "ContentView"
|
|
|
|
view 0, 181 to 500, 199, "MessageView", "MainView" // for the message display
|
|
draw set "bgcolor", r+20, g+20, b+20, "MessageView"
|
|
draw set "lowcolor", r+10, g+10, b+10, "MessageView"
|
|
draw set "highcolor", 255, 0, 0, "MessageView"
|
|
draw set "Swis721 BT, Roman, 12", "MessageView"
|
|
|
|
view 0, 200 to 500, 250, "SwitchView", "MainView" // for the buttons
|
|
draw set "bgcolor", r, g, b, "SwitchView"
|
|
|
|
//color the buttons
|
|
for cc = 0 to 25
|
|
draw set "highcolor", r+30-(2*cc), g+30-(2*cc), b+30-(2*cc), "SwitchView"
|
|
draw line 0, cc to 500, cc, "SwitchView"
|
|
next cc
|
|
for cc = 0 to 25
|
|
draw set "highcolor", r+30-(2*cc), g+30-(2*cc), b+30-(2*cc), "SwitchView"
|
|
draw line 0, 25+cc to 500, 25+cc, "SwitchView"
|
|
next cc
|
|
|
|
// draw lines between the buttons
|
|
draw set "highcolor", r-70, g-70, b-70, "SwitchView"
|
|
draw line 0, 0 to 500, 0, "SwitchView"
|
|
draw line 0, 25 to 500, 25, "SwitchView"
|
|
draw line 99, 0 to 99, 50, "SwitchView"
|
|
draw line 199, 0 to 199, 50, "SwitchView"
|
|
draw line 299, 0 to 299, 50, "SwitchView"
|
|
draw line 399, 0 to 399, 50, "SwitchView"
|
|
draw set "highcolor", r+35, g+35, b+35, "SwitchView"
|
|
draw line 0, 1 to 500, 1, "SwitchView"
|
|
draw line 0, 26 to 500, 26, "SwitchView"
|
|
draw line 100, 1 to 100, 50, "SwitchView"
|
|
draw line 200, 1 to 200, 50, "SwitchView"
|
|
draw line 300, 1 to 300, 50, "SwitchView"
|
|
draw line 400, 1 to 400, 50, "SwitchView"
|
|
draw set "highcolor", 0, 0, 0, "SwitchView"
|
|
draw text 10, 15, "Button", "SwitchView"
|
|
draw text 110, 15, "Menu", "SwitchView"
|
|
draw text 210, 15, "Listbox", "SwitchView"
|
|
draw text 310, 15, "Textcontrol", "SwitchView"
|
|
draw text 410, 15, "Checkbox", "SwitchView"
|
|
draw text 10, 40, "Radiobutton", "SwitchView"
|
|
draw text 110, 40, "Dropbox", "SwitchView"
|
|
draw text 210, 40, "Dropzone", "SwitchView"
|
|
draw text 310, 40, "Slider", "SwitchView"
|
|
draw text 410, 40, "Colorcontrol", "SwitchView"
|
|
|
|
// main program loop
|
|
Xmouse = 1000
|
|
dim cmd$(1)
|
|
dim mouse$(10)
|
|
|
|
// NEU!
|
|
if(ismousein("SwitchView")) then
|
|
outsideButton = false
|
|
else
|
|
outsideButton = true
|
|
fi
|
|
|
|
inloop = true
|
|
while (inloop)
|
|
msg$ = message$
|
|
if (split(msg$, cmd$(), ":|") > 2) item$ = cmd$(2)
|
|
mmsg$ = mouse message$("SwitchView")
|
|
n = split(mmsg$, mouse$(), ":")
|
|
|
|
if (msg$ <> "") then
|
|
draw flush "MessageView"
|
|
draw Text 10, 10, "Message: "+msg$, "MessageView"
|
|
fi
|
|
|
|
if (ismousein("SwitchView")) then
|
|
// NEU!
|
|
if(outsideButton) then
|
|
while(ismousein("SwitchView") and mouse$(3) = "1")
|
|
mmsg$ = mousemessage$("SwitchView")
|
|
n = split(mmsg$, mouse$(), ":")
|
|
sleep 0.1
|
|
wend
|
|
fi
|
|
if(ismousein("SwitchView")) then
|
|
outsideButton = false
|
|
Xmouse = val(mouse$(1))
|
|
Ymouse = val(mouse$(2))
|
|
BLmouse = val(mouse$(3))
|
|
else
|
|
outsideButton = true
|
|
fi
|
|
else
|
|
outsideButton = true
|
|
fi
|
|
|
|
if (BLmouse = 0) Fbl = 0
|
|
|
|
if (Ymouse < 25 and BLmouse = 1 and Ymouse > 0 and Fbl = 0) then
|
|
if (Xmouse < 100) then
|
|
VButton(0)
|
|
fi
|
|
|
|
if (Xmouse > 100 and Xmouse < 200) then
|
|
VButton(1)
|
|
fi
|
|
|
|
if (Xmouse > 200 and Xmouse < 300) then
|
|
VButton(2)
|
|
fi
|
|
|
|
if (Xmouse > 300 and Xmouse < 400) then
|
|
VButton(3)
|
|
fi
|
|
|
|
if (Xmouse > 400 and Xmouse < 500) then
|
|
VButton(4)
|
|
fi
|
|
Fbl = 1
|
|
fi
|
|
|
|
if (Ymouse > 25 and BLmouse = 1 and Fbl = 0) then
|
|
if (Xmouse < 100) then
|
|
VButton(5)
|
|
fi
|
|
|
|
if (Xmouse > 100 and Xmouse < 200) then
|
|
VButton(6)
|
|
fi
|
|
|
|
if (Xmouse > 200 and Xmouse < 300) then
|
|
VButton(7)
|
|
fi
|
|
|
|
if (Xmouse > 300 and Xmouse < 400) then
|
|
VButton(8)
|
|
fi
|
|
|
|
if (Xmouse > 400 and Xmouse < 500) then
|
|
VButton(9)
|
|
fi
|
|
Fbl = 1
|
|
fi
|
|
|
|
switch msg$
|
|
|
|
case "MainView:_QuitRequested|"
|
|
inloop = false
|
|
break
|
|
|
|
end switch
|
|
sleep 0.01
|
|
wend
|
|
exit
|
|
|
|
sub VButton(n)
|
|
draw flush "MessageView"
|
|
if(ck) then
|
|
view remove "CBView"
|
|
ck = false
|
|
endif
|
|
view remove "ContentView"
|
|
view 0, 0 to 500, 200, "ContentView", "MainView"
|
|
draw set "bgcolor", r+20, g+20, b+20, "ContentView"
|
|
draw set "lowcolor", r, g, b, "ContentView"
|
|
draw set "Swis721 BT, Bold, 16", "ContentView"
|
|
|
|
if (n = 0) then // Button
|
|
draw text 10, 25, "BUTTON x1,y1 TO x2,y2, ID$, Label$, View$", "ContentView"
|
|
draw set "Swis721 BT, Roman, 12", "ContentView"
|
|
button 100, 50 to 400, 70, "Button_", "Testbutton", "ContentView"
|
|
draw text 60, 130, "button 100, 50 to 400, 70, \"Button_\", \"Testbutton\", \"MainView\"", "ContentView"
|
|
fi
|
|
|
|
if (n = 1) then // Menu
|
|
draw text 10, 25, "MENU Head$, Menu$, Shortcut$, View$", "ContentView"
|
|
draw set "Swis721 BT, Roman, 12", "ContentView"
|
|
view 40, 50 to 460, 100, "MenuView", "ContentView"
|
|
draw text 60, 130, "view 40, 50 to 460, 100, \"MenuView\", \"MainView\"", "ContentView"
|
|
menu "File", "Open file", "", "MenuView"
|
|
menu "File", "Quit", "", "MenuView"
|
|
draw text 60, 145, "menu \"File\", \"Open file\", \"\", \"MenuView\"", "ContentView"
|
|
draw text 60, 160, "menu \"File\", \"Quit\", \"\", \"MenuView\"", "ContentView"
|
|
fi
|
|
|
|
if (n = 2) then // Listbox
|
|
draw text 10, 25, "LISTBOX x1,y1 TO x2,y2, ID$, ScrollbarType, View$", "ContentView"
|
|
draw set "Swis721 BT, Roman, 12", "ContentView"
|
|
listbox 40, 50 to 460, 100, "ListBox_", 1, "ContentView"
|
|
draw text 60, 130, "listbox 40, 50 to 460, 100, \"ListBox_\", 1, \"MainView\"", "ContentView"
|
|
listbox add "ListBox_", "First entry"
|
|
listbox add "ListBox_", "Second entry"
|
|
draw text 60, 145, "listbox add \"ListBox_\", \"First entry\"", "ContentView"
|
|
draw text 60, 160, "listbox add \"ListBox_\", \"Second entry\"", "ContentView"
|
|
fi
|
|
|
|
if (n = 3) then // Textcontrol
|
|
draw text 10, 25, "TEXTCONTROL x1,y1 TO x2,y2, ID$, Label$, Text$, View$", "ContentView"
|
|
draw set "Swis721 BT, Roman, 12", "ContentView"
|
|
textcontrol 100, 50 to 400, 70, "Textcontrol-ID", "Label", "Text", "ContentView"
|
|
draw text 60, 130, "textcontrol 100, 50 to 400, 70, \"Textcontrol-ID\", \"Label\", \"Text\", \"MainView\"", "ContentView"
|
|
fi
|
|
|
|
if (n = 4) then // Checkbox
|
|
draw text 10, 25, "CHECKBOX x1,y1, ID$, Label$, IsActivated, View$", "ContentView"
|
|
draw set "Swis721 BT, Roman, 12", "ContentView"
|
|
view 100, 50 to 400, 100, "CBView", "ContentView"
|
|
draw text 60, 130, "view 100, 50 to 400, 100, \"CBView\", \"MainView\"", "ContentView"
|
|
checkbox 10, 8, "Checkbox1-ID", "Label1", 0, "CBView"
|
|
checkbox 10, 28, "Checkbox2-ID", "Label2", 1, "CBView"
|
|
draw text 60, 145, "checkbox 10, 8, \"Checkbox1-ID\", \"Label1\", 0, \"CBView\"", "ContentView"
|
|
draw text 60, 160, "checkbox 10, 28, \"Checkbox2-ID\", \"Label2\", 1, \"CBView\"", "ContentView"
|
|
ck = true
|
|
fi
|
|
|
|
if (n = 5) then // Radiobutton
|
|
draw text 10, 25, "RADIOBUTTON x1,y1, ID$, Label$, IsActivated, View$", "ContentView"
|
|
draw set "Swis721 BT, Roman, 12", "ContentView"
|
|
view 100, 50 to 400, 100, "RBView", "ContentView"
|
|
draw text 60, 130, "view 100, 50 to 400, 100, \"RBView\", \"MainView\"", "ContentView"
|
|
radiobutton 10, 8, "Radiobutton1-ID", "Label1", 0, "RBView"
|
|
radiobutton 10, 28, "Radiobutton2-ID", "Label2", 1, "RBView"
|
|
draw text 60, 145, "radiobutton 10, 8, \"Radiobutton1-ID\", \"Label1\", 0, \"RBView\"", "ContentView"
|
|
draw text 60, 160, "radiobutton 10, 28, \"Radiobutton2-ID\", \"Label2\", 1, \"RBView\"", "ContentView"
|
|
fi
|
|
|
|
if (n = 6) then // Dropbox
|
|
draw text 10, 25, "DROPBOX x1,y1 TO x2,y2, ID$, Label$, View$", "ContentView"
|
|
draw set "Swis721 BT, Roman, 12", "ContentView"
|
|
dropbox 40, 50 to 460, 100, "DropBox_", "Label", "ContentView"
|
|
draw text 60, 130, "dropbox 40, 50 to 460, 100, \"DropBox_\", \"Label\", \"MainView\"", "ContentView"
|
|
dropbox add "DropBox_", "First entry"
|
|
dropbox add "DropBox_", "Second entry"
|
|
draw text 60, 145, "dropbox add \"DropBox_\", \"First entry\"", "ContentView"
|
|
draw text 60, 160, "dropbox add \"DropBox_\", \"Second entry\"", "ContentView"
|
|
fi
|
|
|
|
if (n = 7) then // Dropzone
|
|
draw text 10, 25, "VIEW DROPZONE View$", "ContentView"
|
|
draw set "Swis721 BT, Roman, 12", "ContentView"
|
|
view 100, 50 to 400, 100, "DropView", "ContentView"
|
|
draw text 60, 130, "view 100, 50 to 400, 100, \"DropView\", \"MainView\"", "ContentView"
|
|
view dropzone "DropView"
|
|
draw text 60, 145, "view dropzone \"DropView\"", "ContentView"
|
|
fi
|
|
|
|
if (n = 8) then // Slider
|
|
draw text 10, 25, "SLIDER x1,y1 TO x2,y2, ID$, Label$, Min, Max, Option$, View$", "ContentView"
|
|
draw set "Swis721 BT, Roman, 12", "ContentView"
|
|
slider 100, 50 to 400, 70, "Slider-ID", "Label", 0, 255, "horizontal", "ContentView"
|
|
draw text 60, 130, "slider 100, 50 to 400, 70, \"slider-ID\", \"Label\", 0, 255, \"horizontal\", \"MainView\"", "ContentView"
|
|
fi
|
|
|
|
if (n = 9) then // Colorcontrol
|
|
draw text 10, 25, "COLORCONTROL x,y, ID$, View$", "ContentView"
|
|
draw set "Swis721 BT, Roman, 12", "ContentView"
|
|
colorcontrol 100, 50, "ColCon-ID", "ContentView"
|
|
draw text 60, 130, "colorcontrol 100, 50, \"ColCon-ID\", \"MainView\"", "ContentView"
|
|
fi
|
|
|
|
draw text 10, 130, "Source:", "ContentView"
|
|
|
|
BLmouse = 0
|
|
return
|
|
end sub
|