home *** CD-ROM | disk | FTP | other *** search
/ Techno Guide - Aspettando Windows 98 / TechnoGuide.iso / applicaz / ccalend / setup.exe / MONTH4.CC1 < prev    next >
Encoding:
INI File  |  1997-06-12  |  3.1 KB  |  115 lines
  1. [OPTIONS]
  2. ; Month4.cc1 written by Kent Briggs
  3. ; n00 = year (user setting)
  4. ; n01 = month (user setting)
  5. ; n02 = x value
  6. ; n02 = y value
  7. ; n04 = loop 1 to 2
  8. ; n05 = line color option
  9. ; n06 = text color option
  10. ; n07 = y2 value
  11. ; n08 = y3 value
  12. ; n09 = day of the week
  13. ; n10 = last day in month
  14. ; n11 = rows (5 or 6)
  15. ; n12 = row height
  16. ; n13 = personal events checkbox
  17. ; n14 = holiday checkbox
  18. ; n15 = x2 value
  19. ; t00 = typeface option
  20. ; t01 = footnote option
  21. ; t02 = month, dow name
  22. Orientation(Landscape)
  23. Option(n05,Color [n],"Line color",0)
  24. Option(n06,Color [n],"Text color",0)
  25. Option(t00,Typeface [t],"Typeface","Times New Roman")
  26. Option(n13,Checkbox [n],"Personal events",1)
  27. Option(n14,Checkbox [n],"Holidays",1)
  28. Option(t01,Text [t],"Footnote","Printed by Calendar Commander")
  29. [COMMANDS]
  30. DateNum(n00,Year)
  31. DateNum(n01,Month)
  32. NumVar(n02,set equal to,2)
  33. NumVar(n03,set equal to,2)
  34. NumVar(n04,set equal to,1)
  35. Pen(n05,3,0)
  36. Block(While,n04,<=,4)
  37.   NumVar(n15,set equal to,n02)
  38.   NumVar(n07,set equal to,n03)
  39.   ; draw month and year
  40.   DateText(t02,Month,Full,Capitalized,n01)
  41.   Font(t00,5,n06,0,0,0,0)
  42.   NumVar(n15,increment by,23)
  43.   Text(n15,n07,1,t02)
  44.   NumVar(n07,increment by,5)
  45.   Font(t00,2,n06,0,0,0,0)
  46.   Text(n15,n07,1,n00)
  47.   ; draw top dow block
  48.   NumVar(n07,increment by,2.5)
  49.   NumVar(n08,set equal to,n07)
  50.   NumVar(n08,increment by,2)
  51.   NumVar(n15,increment by,23)
  52.   Brush(n05,0)
  53.   Rectangle(n02,n07,n15,n08,1)
  54.   Brush($FFFFFF,1)
  55.   ; draw main grid
  56.   NumVar(n07,increment by,38)
  57.   WeekDay(n09,n00,n01,1)
  58.   LastDay(n10,n00,n01)
  59.   NumVar(n12,set equal to,n10)
  60.   NumVar(n12,increment by,n09)
  61.   ; calc rows (5 or 6)
  62.   NumVar(n11,set equal to,5)
  63.   Block(If,n12,>,36)
  64.     NumVar(n11,increment by,1)
  65.   EndBlock
  66.   NumVar(n12,set equal to,36)
  67.   NumVar(n12,divide by,n11)
  68.   Grid(n02,n08,n15,n07,7,n11,1)
  69.   ; draw number grid
  70.   Font(t00,2.5,n06,0,0,0,0)
  71.   NumVar(n08,increment by,0.5)
  72.   NumVar(n15,decrement by,45.5)
  73.   NumGrid(n15,n08,6.57,n12,7,n09,1,n10,0)
  74.   NumVar(n08,increment by,3)
  75.   Font(t00,0.75,n06,0,0,0,0)
  76.   ; personal events?
  77.   Block(If,n13,<>,0)
  78.     LoadEvents(n00,"Personal.ev1")
  79.     EventGrid(n15,n08,6.57,n12,7,n09,1,n10,0,n01)
  80.   EndBlock
  81.   NumVar(n08,increment by,1)
  82.   ; holidays?
  83.   Block(If,n14,<>,0)
  84.     LoadEvents(n00,"Holiday.ev1")
  85.     EventGrid(n15,n08,6.57,n12,7,n09,1,n10,0,n01)
  86.   EndBlock
  87.   ; draw days of the week
  88.   NumVar(n07,decrement by,37)
  89.   NumVar(n15,increment by,2.786)
  90.   NumVar(n09,set equal to,1)
  91.   Font(t00,1.75,$FFFFFF,1,0,0,0)
  92.   Block(While,n09,<=,7)
  93.     DateText(t02,Day of week,3-letter,Capitalized,n09)
  94.     Text(n15,n07,4,t02)
  95.     NumVar(n09,increment by,1)
  96.     NumVar(n15,increment by,6.57)
  97.   EndBlock
  98.   ; move to next month
  99.   NumVar(n04,increment by,1)
  100.   NumVar(n02,increment by,50)
  101.   Block(If,n02,>,100)
  102.     NumVar(n02,set equal to,2)
  103.     NumVar(n03,increment by,48)
  104.   EndBlock
  105.   ; advance month by 1
  106.   NumVar(n01,increment by,1)
  107.   Block(If,n01,=,13)
  108.     NumVar(n01,set equal to,1)
  109.     NumVar(n00,increment by,1)
  110.   EndBlock
  111.   ; draw footnote
  112.   Font(t00,2,n06,0,0,0,0)
  113.   Text(50,100,7,t01)
  114. EndBlock
  115.