157 lines
6.4 KiB
Plaintext
157 lines
6.4 KiB
Plaintext
# Project : Calendar
|
|
|
|
load "guilib.ring"
|
|
load "stdlib.ring"
|
|
|
|
new qapp
|
|
{
|
|
win1 = new qwidget() {
|
|
|
|
day = list(12)
|
|
pos = newlist(12,37)
|
|
month = list(12)
|
|
week = list(7)
|
|
weekday = list(7)
|
|
button = newlist(7,6)
|
|
monthsnames = list(12)
|
|
week = ["Su", "Mo", "Tu", "We", "Th", "Fr", "Sa"]
|
|
months = ["January", "February", "March", "April", "May", "June", "July",
|
|
"August", "September", "October", "November", "December"]
|
|
daysnew = [[5,1], [6,2], [7,3], [1,4], [2,5], [3,6], [4,7]]
|
|
mo = [4,0,0,3,5,1,3,6,2,4,0,2]
|
|
mon = [31,28,31,30,31,30,31,31,30,31,30,31]
|
|
m2 = (((1969-1900)%7) + floor((1969 - 1900)/4) % 7) % 7
|
|
for n = 1 to 12
|
|
month[n] = (mo[n] + m2) % 7
|
|
x = (month[n] + 1) % 7 + 1
|
|
for m = 1 to len(daysnew)
|
|
if daysnew[m][1] = x
|
|
nr = m
|
|
ok
|
|
next
|
|
day[n] = daysnew[nr][2]
|
|
next
|
|
for m = 1 to 12
|
|
for n = 1 to day[m] - 1
|
|
pos[m][n] = " "
|
|
next
|
|
next
|
|
for m = 1 to 12
|
|
for n = day[m] to 37
|
|
if n < (mon[m] + day[m])
|
|
pos[m][n] = n - day[m] + 1
|
|
else
|
|
pos[m][n] = " "
|
|
ok
|
|
next
|
|
next
|
|
setwindowtitle("Calendar")
|
|
setgeometry(100,100,650,800)
|
|
label1 = new qlabel(win1) {
|
|
setgeometry(10,10,800,600)
|
|
settext("")
|
|
}
|
|
year = new qpushbutton(win1)
|
|
{
|
|
setgeometry(280,20,60,20)
|
|
year.settext("1969")
|
|
}
|
|
for n = 1 to 4
|
|
nr = (n-1)*3+1
|
|
showmonths(nr)
|
|
next
|
|
for n = 1 to 12
|
|
showweeks(n)
|
|
next
|
|
for n = 1 to 12
|
|
showdays(n)
|
|
next
|
|
show()
|
|
}
|
|
exec()
|
|
}
|
|
|
|
func showmonths(m)
|
|
for n = m to m + 2
|
|
monthsnames[n] = new qpushbutton(win1)
|
|
{
|
|
if n%3 = 1
|
|
col = 120
|
|
rownr = floor(n/3)
|
|
if rownr = 0
|
|
rownr = n/3
|
|
ok
|
|
if n = 1
|
|
row = 40
|
|
else
|
|
row = 40+rownr*180
|
|
ok
|
|
else
|
|
colnr = n%3
|
|
if colnr = 0
|
|
colnr = 3
|
|
ok
|
|
rownr = floor(n/3)
|
|
if n%3 = 0
|
|
rownr = floor(n/3)-1
|
|
ok
|
|
col = 120 + (colnr-1)*160
|
|
row = 40 + rownr*180
|
|
ok
|
|
setgeometry(col,row,60,20)
|
|
monthsnames[n].settext(months[n])
|
|
}
|
|
next
|
|
|
|
func showweeks(n)
|
|
for m = 1 to 7
|
|
col = m%7
|
|
if col = 0 col = 7 ok
|
|
weekday[m] = new qpushbutton(win1)
|
|
{
|
|
colnr = n % 3
|
|
if colnr = 0
|
|
colnr = 3
|
|
ok
|
|
rownr = floor(n/3)
|
|
if n%3 = 0
|
|
rownr = floor(n/3)-1
|
|
ok
|
|
colbegin = 60 + (colnr-1)*160
|
|
rowbegin = 60 + (rownr)*180
|
|
setgeometry(colbegin+col*20,rowbegin,20,20)
|
|
weekday[m].settext(week[m])
|
|
}
|
|
next
|
|
|
|
func showdays(ind)
|
|
rownr = floor(ind/3)
|
|
if ind%3 = 0
|
|
rownr = floor(ind/3)-1
|
|
ok
|
|
rowbegin = 60+rownr*180
|
|
for m = 1 to 6
|
|
for n = 1 to 7
|
|
col = n%7
|
|
if col = 0 col = 7 ok
|
|
row = m
|
|
button[n][m] = new qpushbutton(win1)
|
|
{
|
|
if ind%3 = 1
|
|
colbegin = 60
|
|
elseif ind%3 = 2
|
|
colbegin = 220
|
|
else
|
|
colbegin = 380
|
|
ok
|
|
setgeometry(colbegin+col*20,rowbegin+row*20,20,20)
|
|
nr = (m-1)*7+n
|
|
if nr <= 37
|
|
if pos[ind][nr] != " "
|
|
button[n][m].settext(string(pos[ind][nr]))
|
|
ok
|
|
ok
|
|
}
|
|
next
|
|
next
|