I've worked on this a lot and here's a screenshot of an app being run on it.
It's a fully working calculator. To close the window simply press the x in the top right corner of the window. Now to add windows being dragged by the titlebar...
Heres the code for the calculator to show how simple it was to make (thanks to KawaGeo and ema for evaluate method)
Code: Select all
--Main proc where all messages are sent
function MainProc(wnd,msg,wparam,lparam)
if wnd==hCalculator then
if msg==wm_lclick then
if wparam==hCalculator_1 then
CalculatorEquation=CalculatorEquation.."1"
elseif wparam==hCalculator_2 then
CalculatorEquation=CalculatorEquation.."2"
elseif wparam==hCalculator_3 then
CalculatorEquation=CalculatorEquation.."3"
elseif wparam==hCalculator_4 then
CalculatorEquation=CalculatorEquation.."4"
elseif wparam==hCalculator_5 then
CalculatorEquation=CalculatorEquation.."5"
elseif wparam==hCalculator_6 then
CalculatorEquation=CalculatorEquation.."6"
elseif wparam==hCalculator_7 then
CalculatorEquation=CalculatorEquation.."7"
elseif wparam==hCalculator_8 then
CalculatorEquation=CalculatorEquation.."8"
elseif wparam==hCalculator_9 then
CalculatorEquation=CalculatorEquation.."9"
elseif wparam==hCalculator_0 then
CalculatorEquation=CalculatorEquation.."0"
elseif wparam==hCalculator_equal then
script = "return "..CalculatorEquation
CalculatorEquation = assert(loadstring(script))()
elseif wparam==hCalculator_period then
CalculatorEquation=CalculatorEquation.."."
elseif wparam==hCalculator_plus then
CalculatorEquation=CalculatorEquation.."+"
elseif wparam==hCalculator_minus then
CalculatorEquation=CalculatorEquation.."-"
elseif wparam==hCalculator_mult then
CalculatorEquation=CalculatorEquation.."*"
elseif wparam==hCalculator_div then
CalculatorEquation=CalculatorEquation.."/"
elseif wparam==hCalculator_cls then
CalculatorEquation="0"
end
SetWindowText(hCalculator_ans,CalculatorEquation)
end
end
end
--Control creation
hCalculator=CreateWindow(20,20,157,172,"Calculator")
hCalculator_1=CreateButton(10,100,30,30,"1",hCalculator)
hCalculator_2=CreateButton(45,100,30,30,"2",hCalculator)
hCalculator_3=CreateButton(80,100,30,30,"3",hCalculator)
hCalculator_4=CreateButton(10,65,30,30,"4",hCalculator)
hCalculator_5=CreateButton(45,65,30,30,"5",hCalculator)
hCalculator_6=CreateButton(80,65,30,30,"6",hCalculator)
hCalculator_7=CreateButton(10,30,30,30,"7",hCalculator)
hCalculator_8=CreateButton(45,30,30,30,"8",hCalculator)
hCalculator_9=CreateButton(80,30,30,30,"9",hCalculator)
hCalculator_0=CreateButton(10,135,30,30,"0",hCalculator)
hCalculator_equal=CreateButton(80,135,30,30,"=",hCalculator)
hCalculator_period=CreateButton(45,135,30,30,".",hCalculator)
hCalculator_plus=CreateButton(115,30,30,30,"+",hCalculator)
hCalculator_minus=CreateButton(115,65,30,30,"-",hCalculator)
hCalculator_mult=CreateButton(115,100,30,30,"*",hCalculator)
hCalculator_div=CreateButton(115,135,30,30,"/",hCalculator)
hCalculator_ans=CreateStatic(10,5,100,20,"0",hCalculator)
hCalculator_cls=CreateButton(115,5,30,20,"C",hCalculator)