333 lines
6.2 KiB
PHP
333 lines
6.2 KiB
PHP
; program data
|
||
|
||
curMonth dd ?
|
||
curYear dd ?
|
||
curDay dd ?
|
||
|
||
remainder dd ?
|
||
quotient dd ?
|
||
|
||
firstday dd ?
|
||
Year dd ?
|
||
Month dd ?
|
||
day_sel dd ?
|
||
|
||
datestr dd ?
|
||
leap_year dd ?
|
||
number dd ?
|
||
|
||
; colors
|
||
COL_WINDOW_BG equ 0x14E7E7E7
|
||
COL_TOOLBAR_BG equ 0x555555
|
||
COL_ACTIVE_TEXT equ 0x10e7c750
|
||
COL_WEEKDAY_BG equ 0xCCCDDD
|
||
COL_DATE_BUTTONS equ 0xF3F3F3
|
||
COL_TIME_BUTTONS equ 0x5555dd
|
||
COL_GO_TODAY_T equ 0xd048c8
|
||
COL_MONTH_YEAR_B equ 0x0555555 ; 0 for time?
|
||
COL_DROPDOWN_BG equ 0x666666
|
||
COL_DROPDOWN_T equ 0x10CCCccc
|
||
COL_NEW_STYLE_T equ 0xef3333
|
||
|
||
COL_DATE_INACTIVE_1 equ 0x1379A8
|
||
COL_DATE_INACTIVE_2 equ 0x53ACD1
|
||
COL_DATE_INACTIVE_3 equ 0x7CC0DC
|
||
COL_DATE_INACTIVE_4 equ 0xABD7E8
|
||
COL_DATE_ACTIVE_1 equ 0xB17A00
|
||
COL_DATE_ACTIVE_2 equ 0xEDA700
|
||
COL_DATE_ACTIVE_3 equ 0xFFCC00
|
||
COL_DATE_ACTIVE_4 equ 0xFFE56B
|
||
|
||
; definitions
|
||
WIN_W equ 275
|
||
WIN_H equ 326
|
||
|
||
DATE_BUTTON_WIDTH equ 32
|
||
DATE_BUTTON_HEIGHT equ 30
|
||
|
||
|
||
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
|
||
|
||
BT_WBAR_Y equ 283 shl 16+43
|
||
|
||
B_WBAR_X equ 1 shl 16+WIN_W-1
|
||
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 4
|
||
|
||
; 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 'Ÿ¢ àì '
|
||
db '”¥¢à «ì '
|
||
db 'Œ àâ '
|
||
db '€¯à¥«ì '
|
||
db 'Œ © '
|
||
db 'ˆîì '
|
||
db 'ˆî«ì '
|
||
db '€¢£ãáâ '
|
||
db '‘¥âï¡àì'
|
||
db 'Žªâï¡àì '
|
||
db '<27>®ï¡àì '
|
||
db '„¥ª ¡àì '
|
||
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 '‚â'
|
||
db '‘à'
|
||
db '—â'
|
||
db '<27>â'
|
||
db '‘¡'
|
||
db '‚á'
|
||
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
|
||
|
||
title:
|
||
if lang eq ru
|
||
db 'Š «¥¤ àì',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>®¢ë© á⨫ì'
|
||
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 '‘¥£®¤ï'
|
||
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 '∴•',0
|
||
else if lang eq it
|
||
db ' Ora',0
|
||
else if lang eq et
|
||
db ' Aeg ',0
|
||
else
|
||
db ' Time',0
|
||
end if
|
||
separator db ':',0
|
||
plus db '+',0
|
||
minus db '-',0
|
||
set_date_t:
|
||
if lang eq ru
|
||
db '“áâ ®¢¨âì ¤ âã',0
|
||
else if lang eq it
|
||
db ' Impostazioni ',0
|
||
else if lang eq et
|
||
db ' Määra kuupäev ',0
|
||
else
|
||
db ' Set date ',0
|
||
end if
|
||
|