Code: Select all
''
WinMeasure by rbytes
September 2017
Uses graphic images of imperial and metric rulers
''
'#.drawrect(160,255,343,500) ' used only for setting digit sizes and offsets
#.angle(#.degrees)
mx,my = #.scrsize()
'#.scrclear(.5,.5,.5)
#.drawrotate(0,0,180)
' draw the imperial ruler
''
b = #.image ' ruler image
b.source = "ruler2.jpg"
b.width = 1760
b.x = -33
b.y = 0
#.show(b)
#.scr()
''
c = #.textbox 'is a text box. Pressing "Enter" key if multi is 0 registers an action. Group elements are:
c.edit = 1 'if 0 then text box is a non-editable text label (default), otherwise text box is an editable text field for text input;
c.height = 400
multi = 1 ' if 0 then text box is single-line (default), otherwise it is multi-line;
c.text = "Notes: " 'text inside text box;
c.width = mx 'text box width;
c.x = 0 ' offset from left screen border;
c.y = 70 'offset from top screen border.
#.show(c)
#.scr()
:loop
d = #.button
d.height = 50
d.text = "INCHES"
d.width = 100
d.x = 300
d.y = 360
e = #.button
e.height = 50
e.text = "CENTIM"
e.width = 100
e.x = 450
e.y = 360
f = #.button
f.height = 50
f.text = "SAVE"
f.width = 100
f.x = 600
f.y = 360
g = #.button
g.height = 50
g.text = "QUIT"
g.width = 100
g.x = 750
g.y = 360
#.show(d,e,f,g)
#.scr()
>
? #.act(d), #.output("D")
<
>
? #.act(e), #.output("E")
<
>
? #.act(f), #.output("F")
<
>
? #.act(g), #.output("G")
<
loop ->
