Subversion Repositories Kolibri OS

Rev

Rev 4735 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. ; program data
  2.  
  3. curMonth dd ?
  4. curYear dd ?
  5. curDay dd ?
  6.  
  7. remainder dd ?
  8. quotient dd ?
  9.  
  10. firstday  dd ?
  11. Year dd   ?
  12. Month dd  ?
  13. day_sel   dd ?
  14.  
  15. datestr   dd  ?
  16. leap_year dd ?
  17. number    dd ?
  18.  
  19. ; colors
  20. COL_WINDOW_BG    equ 0x54E7E7E7
  21. COL_TOOLBAR_BG   equ 0x555555
  22. COL_ACTIVE_TEXT  equ 0x10e7c750
  23. COL_WEEKDAY_BG   equ 0xCCCDDD
  24. COL_DATE_BUTTONS equ 0xF3F3F3
  25. COL_TIME_BUTTONS equ 0x5555dd
  26. COL_GO_TODAY_T   equ 0xd048c8
  27. COL_MONTH_YEAR_B equ 0x555555
  28. COL_DROPDOWN_BG  equ 0x666666
  29. COL_DROPDOWN_T   equ 0x10CCCccc
  30. COL_NEW_STYLE_T  equ 0xef3333
  31.  
  32. COL_DATE_INACTIVE_1 equ 0x1379A8
  33. COL_DATE_INACTIVE_2 equ 0x53ACD1
  34. COL_DATE_INACTIVE_3 equ 0x7CC0DC
  35. COL_DATE_INACTIVE_4 equ 0xABD7E8
  36. COL_DATE_ACTIVE_1   equ 0xB17A00
  37. COL_DATE_ACTIVE_2   equ 0xEDA700
  38. COL_DATE_ACTIVE_3   equ 0xFFCC00
  39. COL_DATE_ACTIVE_4   equ 0xFFE56B
  40.  
  41. ; definitions
  42. WIN_W equ 275
  43. WIN_H equ 326
  44.  
  45. DATE_BUTTON_WIDTH  equ 32
  46. DATE_BUTTON_HEIGHT equ 30
  47.  
  48.  
  49. LINE1     equ 27 shl 16+16
  50. B_MONTH_X equ 15 shl 16+158
  51. B_Y       equ LINE1
  52. B_MONTH   equ 63 shl 16+27
  53.  
  54. BT_WBAR_Y equ 283 shl 16+43
  55.  
  56. B_WBAR_X  equ 1 shl 16+WIN_W-1
  57. B_WBAR_Y  equ 64 shl 16+20
  58. B_WEEK    equ 34 shl 16+64
  59. B_WX_SHIFT equ 32 shl 16
  60.  
  61. B_DROP    equ B_MONTH+16
  62. B_DAYS_Y  equ 106
  63. B_DAYS_SHIFT equ 30
  64.  
  65. B_YEAR    equ 204 shl 16+28
  66.  
  67. B_SPIN_X  equ 186 shl 16+12
  68. B_SPIN    equ 188 shl 16+28
  69. spinner db '<      >'
  70.  
  71. B_TODAY_X equ 25 shl 16
  72. B_TODAY_Y equ 48 shl 16+10
  73. B_TODAY   equ 30 shl 16+50
  74.  
  75. B_NS_X    equ 185 shl 16+75
  76. B_NS_Y    equ 48 shl 16+10
  77. B_NS      equ 190 shl 16+50
  78.  
  79. FOCUSABLE equ 4
  80.  
  81. ; multilanguage interface - configuratable in lang.inc
  82. day_count db 3,0,3,2,3,2,3,3,2,3,2,3
  83. Fkeys     db 210,211,212,213,214,215,216,217,208,209,228,159
  84.  
  85. month_name:
  86. if lang eq ru
  87.      db   8
  88.      db   'Ÿ­¢ àì  '
  89.      db   '”¥¢à «ì '
  90.      db   'Œ àâ    '
  91.      db   '€¯à¥«ì  '
  92.      db   'Œ ©     '
  93.      db   'ˆî­ì    '
  94.      db   'ˆî«ì    '
  95.      db   '€¢£ãáâ  '
  96.      db   '‘¥­âï¡àì'
  97.      db   'Žªâï¡àì '
  98.      db   '®ï¡àì  '
  99.      db   '„¥ª ¡àì '
  100. else if lang eq de
  101.      db   9
  102.      db   'Januar   '
  103.      db   'Februar  '
  104.      db   'M+rz     '
  105.      db   'April    '
  106.      db   'Mai      '
  107.      db   'Juni     '
  108.      db   'Juli     '
  109.      db   'August   '
  110.      db   'September'
  111.      db   'Oktober  '
  112.      db   'November '
  113.      db   'Dezember '
  114. else if lang eq fr
  115.      db   9
  116.      db   'Janvier  '
  117.      db   'Fevrier  '
  118.      db   'Mars     '
  119.      db   'Avril    '
  120.      db   'Mai      '
  121.      db   'Juin     '
  122.      db   'Juliet   '
  123.      db   'Aout     '
  124.      db   'Septembre'
  125.      db   'Octobre  '
  126.      db   'Novembre '
  127.      db   'Decembre '
  128. else if lang eq fi
  129.      db   9
  130.      db   'Tammikuu '
  131.      db   'Helmikuu '
  132.      db   'Maaliskuu'
  133.      db   'Huhtikuu '
  134.      db   'Toukokuu '
  135.      db   'Kes+kuu  '
  136.      db   'Hein+kuu '
  137.      db   'Elokuu   '
  138.      db   'Syyskuu  '
  139.      db   'Lokakuu  '
  140.      db   'Marraskuu'
  141.      db   'Joulukuu '
  142. else if lang eq et
  143.      db   9
  144.      db   'Jaanuar  '
  145.      db   'Veebruar '
  146.      db   'Märts    '
  147.      db   'Aprill   '
  148.      db   'Mai      '
  149.      db   'Juuni    '
  150.      db   'Juuli    '
  151.      db   'August   '
  152.      db   'September'
  153.      db   'Oktoober '
  154.      db   'November '
  155.      db   'Detsember'
  156. else if lang eq it
  157.      db   9
  158.      db   'Gennaio  '
  159.      db   'Febbraio '
  160.      db   'Marzo    '
  161.      db   'Aprile   '
  162.      db   'Maggio   '
  163.      db   'Giugno   '
  164.      db   'Luglio   '
  165.      db   'Agosto   '
  166.      db   'Settembre'
  167.      db   'Ottobre  '
  168.      db   'Novembre '
  169.      db   'Dicembre '
  170. else
  171.      db   9
  172.      db   'January  '
  173.      db   'February '
  174.      db   'March    '
  175.      db   'April    '
  176.      db   'May      '
  177.      db   'June     '
  178.      db   'July     '
  179.      db   'August   '
  180.      db   'September'
  181.      db   'October  '
  182.      db   'November '
  183.      db   'December '
  184. end if
  185. week_days:
  186. if lang eq ru
  187.      db   2
  188.      db   1
  189.      db   '­'
  190.      db   '‚â'
  191.      db   '‘à'
  192.      db   '—â'
  193.      db   'â'
  194.      db   '‘¡'
  195.      db   '‚á'
  196. else if lang eq de
  197.      db   2
  198.      db   7
  199.      db   'So'
  200.      db   'Mo'
  201.      db   'Di'
  202.      db   'Mi'
  203.      db   'Do'
  204.      db   'Fr'
  205.      db   'Sa'
  206. else if lang eq fr
  207.      db   3
  208.      db   7
  209.      db   'Dim'
  210.      db   'Lun'
  211.      db   'Mar'
  212.      db   'Mer'
  213.      db   'Jeu'
  214.      db   'Ven'
  215.      db   'Sam'
  216. else if lang eq fi
  217.      db   2
  218.      db   7
  219.      db   'Su'
  220.      db   'Ma'
  221.      db   'Ti'
  222.      db   'Ke'
  223.      db   'To'
  224.      db   'Pe'
  225.      db   'La'
  226. else if lang eq et
  227.      db   3
  228.      db   7
  229.      db   'Esm'
  230.      db   'Tei'
  231.      db   'Kol'
  232.      db   'Nel'
  233.      db   'Ree'
  234.      db   'Lau'
  235.      db   'Püh'
  236. else if lang eq it
  237.      db   3
  238.      db   7
  239.      db   'Dom'
  240.      db   'Lun'
  241.      db   'Mar'
  242.      db   'Mer'
  243.      db   'Gio'
  244.      db   'Ven'
  245.      db   'Sab'
  246. else
  247.      db   3
  248.      db   7
  249.      db   'Sun'
  250.      db   'Mon'
  251.      db   'Tue'
  252.      db   'Wen'
  253.      db   'Thi'
  254.      db   'Fri'
  255.      db   'Sat'
  256. end if
  257.  
  258. title:
  259. if lang eq ru
  260.      db   'Š «¥­¤ àì',0
  261. else if lang eq ge
  262.      db   'Kalender',0
  263. else if lang eq fr
  264.      db   'Calendrier',0
  265. else if lang eq et
  266.      db   'Kalender',0
  267. else if lang eq it
  268.      db   'Calendario',0
  269. else
  270.      db   'Calendar',0
  271. end if
  272.  
  273. n_style:
  274. if lang eq ru
  275.      db   '®¢ë© á⨫ì'
  276. else if lang eq de
  277.      db   'Neuer Stil'
  278. else if lang eq fr
  279.      db   'Nouveau'
  280. else if lang eq et
  281.      db   'Uus stiil'
  282. else if lang eq it
  283.      db   'Nuovo stile'
  284. else
  285.      db   'New style'
  286. end if
  287. ns_end:
  288. today_msg:
  289. if lang eq ru
  290.      db   '‘¥£®¤­ï'
  291. else if lang eq ge
  292.      db   'Heute'
  293. else if lang eq fr
  294.      db   "Aujourd'hui"
  295. else if lang eq et
  296.      db   'Täna'
  297. else if lang eq it
  298.      db   'Oggi'
  299. else
  300.      db   'Today'
  301. end if
  302. today_end:
  303. focus dd  3
  304. new_style dd 1
  305. dropped db 0
  306.  
  307. sys_text:
  308. if lang eq ru
  309.                 db  '‚६ï',0
  310. else if lang eq it
  311.                 db  '  Ora',0
  312. else if lang eq et
  313.                 db  ' Aeg ',0
  314. else
  315.                 db  ' Time',0
  316. end if
  317. separator  db ':',0
  318. plus  db  '+',0
  319. minus db  '-',0
  320. set_date_t:
  321. if lang eq ru
  322.                 db  '“áâ ­®¢¨âì ¤ âã',0
  323. else if lang eq it
  324.                 db   ' Impostazioni ',0
  325. else if lang eq et
  326.                 db   ' Määra kuupäev ',0
  327. else
  328.                 db  '   Set date    ',0
  329. end if
  330.  
  331.