Subversion Repositories Kolibri OS

Rev

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

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