Subversion Repositories Kolibri OS

Rev

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