2013-09-02 23:10:08 +02:00
|
|
|
|
; program data: colors, text, vars (todo)
|
|
|
|
|
|
|
|
|
|
; colors
|
2013-09-03 23:16:37 +02:00
|
|
|
|
COL_WINDOW_BG equ 0x14E7E7E7
|
|
|
|
|
COL_TOOLBAR_BG equ 0x555555
|
2013-09-02 23:10:08 +02:00
|
|
|
|
COL_WEEKDAY_BG equ 0xCCCDDD
|
2013-09-03 23:16:37 +02:00
|
|
|
|
COL_DATE_BUTTONS equ 0xF3F3F3
|
2013-09-02 23:10:08 +02:00
|
|
|
|
COL_DATE_CURRENT equ 0x31A4D0
|
|
|
|
|
COL_DATE_CHANGED equ 0xef7840
|
|
|
|
|
COL_TIME_BUTTONS equ 0x5555dd
|
|
|
|
|
COL_GO_TODAY_T equ 0xd048c8
|
2013-09-03 23:16:37 +02:00
|
|
|
|
COL_MONTH_YEAR_B equ 0x0555555 ; 0 for time?
|
|
|
|
|
COL_DROPDOWN_BG equ 0x666666
|
|
|
|
|
COL_DROPDOWN_T equ 0x10CCCccc
|
2013-09-02 23:10:08 +02:00
|
|
|
|
|
2013-09-03 23:16:37 +02:00
|
|
|
|
COL_NEW_STYLE_T equ 0xef3333
|
|
|
|
|
|
|
|
|
|
remainder dd 1
|
|
|
|
|
quotient dd 1
|
|
|
|
|
|
|
|
|
|
; definitions
|
|
|
|
|
WIN_CW equ 266
|
|
|
|
|
WIN_X equ (5000 shl 16+WIN_CW+9)
|
|
|
|
|
WIN_Y equ (100 shl 16+335)
|
|
|
|
|
|
|
|
|
|
LINE1 equ 27 shl 16+16
|
|
|
|
|
B_MONTH_X equ 15 shl 16+158
|
|
|
|
|
B_Y equ LINE1
|
|
|
|
|
B_MONTH equ 63 shl 16+32
|
|
|
|
|
|
|
|
|
|
B_WBAR_X equ 5 shl 16+WIN_CW
|
|
|
|
|
B_WBAR_Y equ 64 shl 16+20
|
|
|
|
|
B_WEEK equ 34 shl 16+70
|
|
|
|
|
B_WX_SHIFT equ 32 shl 16
|
|
|
|
|
|
|
|
|
|
B_DROP equ B_MONTH+16
|
|
|
|
|
B_DAYS_Y equ 106
|
|
|
|
|
B_DAYS_SHIFT equ 30
|
|
|
|
|
|
|
|
|
|
B_YEAR_X equ 198 shl 16+46
|
|
|
|
|
B_YEAR equ 206 shl 16+32
|
|
|
|
|
|
|
|
|
|
B_SPIN_WIDTH equ 13
|
|
|
|
|
B_SPIN_X equ 184 shl 16+B_SPIN_WIDTH
|
|
|
|
|
B_SPIN equ 188 shl 16+32
|
|
|
|
|
spinner db '< >'
|
|
|
|
|
|
|
|
|
|
B_TODAY_X equ 25 shl 16
|
|
|
|
|
B_TODAY_Y equ 48 shl 16+10
|
|
|
|
|
B_TODAY equ 30 shl 16+50
|
|
|
|
|
|
|
|
|
|
B_NS_X equ 185 shl 16+75
|
|
|
|
|
B_NS_Y equ 48 shl 16+10
|
|
|
|
|
B_NS equ 190 shl 16+50
|
|
|
|
|
|
|
|
|
|
FOCUSABLE equ 5
|
2013-09-02 23:10:08 +02:00
|
|
|
|
|
|
|
|
|
; multilanguage interface - configuratable in lang.inc
|
|
|
|
|
day_count db 3,0,3,2,3,2,3,3,2,3,2,3
|
|
|
|
|
Fkeys db 210,211,212,213,214,215,216,217,208,209,228,159
|
|
|
|
|
|
|
|
|
|
month_name:
|
|
|
|
|
if lang eq ru
|
|
|
|
|
db 8
|
|
|
|
|
db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> '
|
|
|
|
|
db '<27><><EFBFBD>ࠫ<EFBFBD> '
|
|
|
|
|
db '<27><><EFBFBD><EFBFBD> '
|
|
|
|
|
db '<27><>५<EFBFBD> '
|
|
|
|
|
db '<27><><EFBFBD> '
|
|
|
|
|
db '<27><><EFBFBD><EFBFBD> '
|
|
|
|
|
db '<27><><EFBFBD><EFBFBD> '
|
|
|
|
|
db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> '
|
|
|
|
|
db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
|
|
db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> '
|
|
|
|
|
db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> '
|
|
|
|
|
db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> '
|
|
|
|
|
else if lang eq de
|
|
|
|
|
db 9
|
|
|
|
|
db 'Januar '
|
|
|
|
|
db 'Februar '
|
|
|
|
|
db 'M+rz '
|
|
|
|
|
db 'April '
|
|
|
|
|
db 'Mai '
|
|
|
|
|
db 'Juni '
|
|
|
|
|
db 'Juli '
|
|
|
|
|
db 'August '
|
|
|
|
|
db 'September'
|
|
|
|
|
db 'Oktober '
|
|
|
|
|
db 'November '
|
|
|
|
|
db 'Dezember '
|
|
|
|
|
else if lang eq fr
|
|
|
|
|
db 9
|
|
|
|
|
db 'Janvier '
|
|
|
|
|
db 'Fevrier '
|
|
|
|
|
db 'Mars '
|
|
|
|
|
db 'Avril '
|
|
|
|
|
db 'Mai '
|
|
|
|
|
db 'Juin '
|
|
|
|
|
db 'Juliet '
|
|
|
|
|
db 'Aout '
|
|
|
|
|
db 'Septembre'
|
|
|
|
|
db 'Octobre '
|
|
|
|
|
db 'Novembre '
|
|
|
|
|
db 'Decembre '
|
|
|
|
|
else if lang eq fi
|
|
|
|
|
db 9
|
|
|
|
|
db 'Tammikuu '
|
|
|
|
|
db 'Helmikuu '
|
|
|
|
|
db 'Maaliskuu'
|
|
|
|
|
db 'Huhtikuu '
|
|
|
|
|
db 'Toukokuu '
|
|
|
|
|
db 'Kes+kuu '
|
|
|
|
|
db 'Hein+kuu '
|
|
|
|
|
db 'Elokuu '
|
|
|
|
|
db 'Syyskuu '
|
|
|
|
|
db 'Lokakuu '
|
|
|
|
|
db 'Marraskuu'
|
|
|
|
|
db 'Joulukuu '
|
|
|
|
|
else if lang eq et
|
|
|
|
|
db 9
|
|
|
|
|
db 'Jaanuar '
|
|
|
|
|
db 'Veebruar '
|
|
|
|
|
db 'M<>rts '
|
|
|
|
|
db 'Aprill '
|
|
|
|
|
db 'Mai '
|
|
|
|
|
db 'Juuni '
|
|
|
|
|
db 'Juuli '
|
|
|
|
|
db 'August '
|
|
|
|
|
db 'September'
|
|
|
|
|
db 'Oktoober '
|
|
|
|
|
db 'November '
|
|
|
|
|
db 'Detsember'
|
|
|
|
|
else if lang eq it
|
|
|
|
|
db 9
|
|
|
|
|
db 'Gennaio '
|
|
|
|
|
db 'Febbraio '
|
|
|
|
|
db 'Marzo '
|
|
|
|
|
db 'Aprile '
|
|
|
|
|
db 'Maggio '
|
|
|
|
|
db 'Giugno '
|
|
|
|
|
db 'Luglio '
|
|
|
|
|
db 'Agosto '
|
|
|
|
|
db 'Settembre'
|
|
|
|
|
db 'Ottobre '
|
|
|
|
|
db 'Novembre '
|
|
|
|
|
db 'Dicembre '
|
|
|
|
|
else
|
|
|
|
|
db 9
|
|
|
|
|
db 'January '
|
|
|
|
|
db 'February '
|
|
|
|
|
db 'March '
|
|
|
|
|
db 'April '
|
|
|
|
|
db 'May '
|
|
|
|
|
db 'June '
|
|
|
|
|
db 'July '
|
|
|
|
|
db 'August '
|
|
|
|
|
db 'September'
|
|
|
|
|
db 'October '
|
|
|
|
|
db 'November '
|
|
|
|
|
db 'December '
|
|
|
|
|
end if
|
|
|
|
|
week_days:
|
|
|
|
|
if lang eq ru
|
|
|
|
|
db 2
|
|
|
|
|
db 1
|
|
|
|
|
db '<27><>'
|
|
|
|
|
db '<27><>'
|
|
|
|
|
db '<27><>'
|
|
|
|
|
db '<27><>'
|
|
|
|
|
db '<27><>'
|
|
|
|
|
db '<27><>'
|
|
|
|
|
db '<27><>'
|
|
|
|
|
else if lang eq de
|
|
|
|
|
db 2
|
|
|
|
|
db 7
|
|
|
|
|
db 'So'
|
|
|
|
|
db 'Mo'
|
|
|
|
|
db 'Di'
|
|
|
|
|
db 'Mi'
|
|
|
|
|
db 'Do'
|
|
|
|
|
db 'Fr'
|
|
|
|
|
db 'Sa'
|
|
|
|
|
else if lang eq fr
|
|
|
|
|
db 3
|
|
|
|
|
db 7
|
|
|
|
|
db 'Dim'
|
|
|
|
|
db 'Lun'
|
|
|
|
|
db 'Mar'
|
|
|
|
|
db 'Mer'
|
|
|
|
|
db 'Jeu'
|
|
|
|
|
db 'Ven'
|
|
|
|
|
db 'Sam'
|
|
|
|
|
else if lang eq fi
|
|
|
|
|
db 2
|
|
|
|
|
db 7
|
|
|
|
|
db 'Su'
|
|
|
|
|
db 'Ma'
|
|
|
|
|
db 'Ti'
|
|
|
|
|
db 'Ke'
|
|
|
|
|
db 'To'
|
|
|
|
|
db 'Pe'
|
|
|
|
|
db 'La'
|
|
|
|
|
else if lang eq et
|
|
|
|
|
db 3
|
|
|
|
|
db 7
|
|
|
|
|
db 'Esm'
|
|
|
|
|
db 'Tei'
|
|
|
|
|
db 'Kol'
|
|
|
|
|
db 'Nel'
|
|
|
|
|
db 'Ree'
|
|
|
|
|
db 'Lau'
|
|
|
|
|
db 'P<>h'
|
|
|
|
|
else if lang eq it
|
|
|
|
|
db 3
|
|
|
|
|
db 7
|
|
|
|
|
db 'Dom'
|
|
|
|
|
db 'Lun'
|
|
|
|
|
db 'Mar'
|
|
|
|
|
db 'Mer'
|
|
|
|
|
db 'Gio'
|
|
|
|
|
db 'Ven'
|
|
|
|
|
db 'Sab'
|
|
|
|
|
else
|
|
|
|
|
db 3
|
|
|
|
|
db 7
|
|
|
|
|
db 'Sun'
|
|
|
|
|
db 'Mon'
|
|
|
|
|
db 'Tue'
|
|
|
|
|
db 'Wen'
|
|
|
|
|
db 'Thi'
|
|
|
|
|
db 'Fri'
|
|
|
|
|
db 'Sat'
|
|
|
|
|
end if
|
|
|
|
|
|
2013-09-03 23:16:37 +02:00
|
|
|
|
title:
|
2013-09-02 23:10:08 +02:00
|
|
|
|
if lang eq ru
|
|
|
|
|
db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',0
|
|
|
|
|
else if lang eq ge
|
|
|
|
|
db 'Kalender',0
|
|
|
|
|
else if lang eq fr
|
|
|
|
|
db 'Calendrier',0
|
|
|
|
|
else if lang eq et
|
|
|
|
|
db 'Kalender',0
|
|
|
|
|
else if lang eq it
|
|
|
|
|
db 'Calendario',0
|
|
|
|
|
else
|
|
|
|
|
db 'Calendar',0
|
|
|
|
|
end if
|
|
|
|
|
|
|
|
|
|
n_style:
|
|
|
|
|
if lang eq ru
|
|
|
|
|
db '<27><><EFBFBD><EFBFBD><EFBFBD> <20>⨫<EFBFBD>'
|
|
|
|
|
else if lang eq de
|
|
|
|
|
db 'Neuer Stil'
|
|
|
|
|
else if lang eq fr
|
|
|
|
|
db 'Nouveau'
|
|
|
|
|
else if lang eq et
|
|
|
|
|
db 'Uus stiil'
|
|
|
|
|
else if lang eq it
|
|
|
|
|
db 'Nuovo stile'
|
|
|
|
|
else
|
|
|
|
|
db 'New style'
|
|
|
|
|
end if
|
|
|
|
|
ns_end:
|
|
|
|
|
today_msg:
|
|
|
|
|
if lang eq ru
|
|
|
|
|
db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
|
|
else if lang eq ge
|
|
|
|
|
db 'Heute'
|
|
|
|
|
else if lang eq fr
|
|
|
|
|
db "Aujourd'hui"
|
|
|
|
|
else if lang eq et
|
|
|
|
|
db 'T<>na'
|
|
|
|
|
else if lang eq it
|
|
|
|
|
db 'Oggi'
|
|
|
|
|
else
|
|
|
|
|
db 'Today'
|
|
|
|
|
end if
|
|
|
|
|
today_end:
|
|
|
|
|
focus dd 3
|
|
|
|
|
new_style dd 1
|
|
|
|
|
dropped db 0
|
|
|
|
|
|
|
|
|
|
sys_text:
|
|
|
|
|
if lang eq ru
|
|
|
|
|
db '<27>६<EFBFBD>:',0
|
|
|
|
|
else if lang eq it
|
|
|
|
|
db ' Ora:',0
|
|
|
|
|
else
|
|
|
|
|
db ' Time:',0
|
|
|
|
|
end if
|
|
|
|
|
plus db '(+)',0
|
|
|
|
|
minus db '(-)',0
|
|
|
|
|
set_date_t:
|
|
|
|
|
if lang eq ru
|
|
|
|
|
db '<27><>⠭<EFBFBD><E2A0AD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>',0
|
|
|
|
|
else if lang eq it
|
2013-09-03 23:16:37 +02:00
|
|
|
|
db ' Impostazioni ',0
|
2013-09-02 23:10:08 +02:00
|
|
|
|
else
|
2013-09-03 23:16:37 +02:00
|
|
|
|
db ' Set date ',0
|
2013-09-02 23:10:08 +02:00
|
|
|
|
end if
|