forked from KolibriOS/kolibrios
Calendar 1.2: code update, small GUI update
git-svn-id: svn://kolibrios.org@3887 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
parent
aba5058a6b
commit
94c4db5196
@ -1,21 +1,22 @@
|
||||
; CALENDAR FOR MENUET v1.0
|
||||
; Written in pure assembler by Ivushkin Andrey aka Willow
|
||||
; Calendar for KolibriOS
|
||||
;
|
||||
; v1.2 - code update by Leency, small design fixes
|
||||
; v1.1 - add change time support by DedOK
|
||||
; v1.0 - written in pure assembler by Ivushkin Andrey aka Willow
|
||||
; also - diamond, spraid, fedesco
|
||||
;
|
||||
; Created: November 1, 2004
|
||||
; Last changed: January 13, 2005
|
||||
;
|
||||
; COMPILE WITH FASM
|
||||
; Created: November 1, 2004
|
||||
|
||||
WIN_X equ (150 shl 16+270)
|
||||
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 10 shl 16+158
|
||||
B_MONTH_X equ 5 shl 16+158+11
|
||||
B_Y equ LINE1
|
||||
B_MONTH equ 63 shl 16+32
|
||||
|
||||
B_WBAR_X equ 10 shl 16+250
|
||||
B_WBAR_X equ 5 shl 16+WIN_CW
|
||||
B_WBAR_Y equ 64 shl 16+20
|
||||
B_WEEK equ 30 shl 16+70
|
||||
B_WX_SHIFT equ 32 shl 16
|
||||
@ -38,18 +39,13 @@ B_SPIN_WIDTH equ 13
|
||||
B_SPIN_X equ 234 shl 16+B_SPIN_WIDTH
|
||||
B_SPIN equ 238 shl 16+32
|
||||
|
||||
B_DATE_X equ 26 shl 16+60
|
||||
B_DATE_Y equ 275 shl 16+16
|
||||
B_DATE_BSHIFT equ 80 shl 16
|
||||
B_DATE equ 32 shl 16+280
|
||||
B_DATE_SHIFT equ 80 shl 16
|
||||
|
||||
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
|
||||
SKIP equ 1
|
||||
|
||||
|
||||
|
||||
use32 ; ¢ª«îç¨âì 32-¡¨âë© à¥¦¨¬ áᥬ¡«¥à
|
||||
|
||||
@ -65,6 +61,7 @@ use32 ;
|
||||
dd 0x0 ; § १¥à¢¨à®¢ ®
|
||||
include 'lang.inc'
|
||||
include '..\..\..\macros.inc' ; 㬥ìè ¥â à §¬¥à ¯à®£à ¬¬ë
|
||||
include 'data.inc'
|
||||
|
||||
|
||||
|
||||
@ -88,179 +85,7 @@ macro ShowFocus field,reg
|
||||
.exit:
|
||||
}
|
||||
|
||||
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
|
||||
spinner db '< >'
|
||||
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
|
||||
|
||||
|
||||
str2int:
|
||||
xor eax,eax
|
||||
@ -291,7 +116,7 @@ start:
|
||||
jmp upd ; §¤¥áì ç¨ ¥âáï ¢ë¯®«¥¨¥ ¯à®£à ¬¬ë
|
||||
red: ; ¯¥à¥à¨á®¢ âì ®ª®
|
||||
|
||||
call draw_window ; ¢ë§ë¢ ¥¬ ¯à®æ¥¤ãàã ®âà¨á®¢ª¨ ®ª
|
||||
call draw_window
|
||||
|
||||
still: ; ƒ‹€‚<E282AC>›‰ –ˆŠ‹ <20><>Žƒ<C5BD>€ŒŒ›
|
||||
|
||||
@ -596,38 +421,26 @@ plus_md:
|
||||
|
||||
plus_me:
|
||||
|
||||
mov eax,3
|
||||
mcall
|
||||
mcall 3
|
||||
mov ecx,eax
|
||||
add ecx,4096
|
||||
mov eax,22
|
||||
mov ebx,0x00000000
|
||||
mcall
|
||||
|
||||
mcall 22,0x00000000
|
||||
jmp still
|
||||
|
||||
minus_md:
|
||||
|
||||
mov eax,3
|
||||
mcall
|
||||
mcall 3
|
||||
mov ecx,eax
|
||||
sub ecx,256
|
||||
mov eax,22
|
||||
mov ebx,0x00000000
|
||||
mcall
|
||||
|
||||
mcall 22,0x00000000
|
||||
jmp still
|
||||
|
||||
minus_me:
|
||||
|
||||
mov eax,3
|
||||
mcall
|
||||
mcall 3
|
||||
mov ecx,eax
|
||||
sub ecx,4096
|
||||
mov eax,22
|
||||
mov ebx,0x00000000
|
||||
mcall
|
||||
|
||||
mcall 22,0x00000000
|
||||
jmp still
|
||||
|
||||
set_date:
|
||||
@ -666,15 +479,9 @@ additem:
|
||||
|
||||
draw_clock:
|
||||
|
||||
mov eax,3
|
||||
mcall
|
||||
mcall 3
|
||||
mov ecx,eax
|
||||
mov eax,47
|
||||
mov esi,0x50000000
|
||||
mov edi,0xaabbcc
|
||||
mov ebx,0x00020100
|
||||
mov edx,205*65536+280
|
||||
mcall
|
||||
mcall 47,0x00020100, ,205*65536+280,0x50000000,COL_WINDOW_BG
|
||||
|
||||
shr ecx,8
|
||||
add edx,20*65536
|
||||
@ -687,29 +494,16 @@ draw_clock:
|
||||
|
||||
draw_window:
|
||||
|
||||
|
||||
mov eax,12 ; äãªæ¨ï 12: á®®¡é¨âì Ž‘ ®¡ ®âà¨á®¢ª¥ ®ª
|
||||
mov ebx,1 ; 1 - ç¨ ¥¬ à¨á®¢ âì
|
||||
mcall
|
||||
; ‘Ž‡„€ðŒ ŽŠ<C5BD>Ž
|
||||
xor eax,eax ; äãªæ¨ï 0 : ®¯à¥¤¥«¨âì ¨ ®âà¨á®¢ âì ®ª®
|
||||
mcall 12,1 ; äãªæ¨ï 12: á®®¡é¨âì Ž‘ ®¡ ®âà¨á®¢ª¥ ®ª
|
||||
xor eax,eax ; äãªæ¨ï 0 : ®¯à¥¤¥«¨âì ¨ ®âà¨á®¢ âì ®ª®
|
||||
mov ebx,WIN_X
|
||||
if SKIP eq 0
|
||||
mov ecx,WIN_Y
|
||||
else
|
||||
mov ecx,WIN_Y-15
|
||||
end if
|
||||
mov edx,0x14aabbcc ; 梥â à ¡®ç¥© ®¡« á⨠RRGGBB,8->color gl
|
||||
mov edx,COL_WINDOW_BG ; 梥â à ¡®ç¥© ®¡« á⨠RRGGBB,8->color gl
|
||||
mov edi,title ; § £®«®¢®ª
|
||||
mcall
|
||||
call draw_week
|
||||
|
||||
mov eax,8
|
||||
mov ebx,205*65536+7
|
||||
mov ecx,290*65536+10
|
||||
mov esi,0x005555dd
|
||||
mov edx,72
|
||||
mcall
|
||||
mcall 8,205*65536+7,290*65536+10,72,COL_TIME_BUTTONS
|
||||
|
||||
mov ebx,212*65536+7
|
||||
inc edx
|
||||
@ -744,29 +538,17 @@ draw_window:
|
||||
|
||||
mov ebx,243*65536+14
|
||||
mov ecx,290*65536+20
|
||||
mov esi,0x00dd7777
|
||||
inc edx
|
||||
mcall
|
||||
|
||||
mov ebx,10*65536+100
|
||||
mov ecx,290*65536+20
|
||||
mov ebx,14*65536+110
|
||||
mov ecx,285*65536+22
|
||||
mov esi,0x00d5d5d5
|
||||
inc edx
|
||||
mcall
|
||||
|
||||
mov esi,0x05080d0
|
||||
if SKIP eq 0
|
||||
mov ebx,B_DATE_X
|
||||
mov ecx,B_DATE_Y
|
||||
mov edx,eax
|
||||
mcall
|
||||
inc edx
|
||||
add ebx,B_DATE_BSHIFT
|
||||
mcall
|
||||
inc edx
|
||||
else
|
||||
mov esi,COL_MONTH_YEAR_B
|
||||
mov edx,10
|
||||
end if
|
||||
or edx,1 shl 29+1 shl 30
|
||||
mov ebx,B_NS_X
|
||||
mov ecx,B_NS_Y
|
||||
@ -787,39 +569,14 @@ draw_window:
|
||||
mcall
|
||||
call draw_days
|
||||
|
||||
mov eax,4 ; äãªæ¨ï 4 : ¯¨á âì ¢ ®ª¥ ⥪áâ
|
||||
mov ebx,110*65536+280
|
||||
mov ecx,0x800000ff
|
||||
mov edx,sys_text
|
||||
mcall
|
||||
|
||||
mov ebx,149*65536+302
|
||||
mov edx,minus
|
||||
mcall
|
||||
|
||||
mov ebx,137*65536+292
|
||||
mov ecx,0x80ff0000
|
||||
mov edx,plus
|
||||
mcall
|
||||
|
||||
mov ebx,15*65536+298
|
||||
mov ecx,0x00000000
|
||||
mov esi,15
|
||||
mov edx,setd
|
||||
mcall
|
||||
; äãªæ¨ï 4 : ¯¨á âì ¢ ®ª¥ ⥪áâ
|
||||
mcall 4,162*65536+280,0x800000ff,sys_text
|
||||
mcall ,180*65536+302,0x800000ff,minus
|
||||
mcall ,180*65536+292,0x80ff0000,plus
|
||||
mcall , 24*65536+292,0x00000000,set_date_t,15 ;set date text
|
||||
|
||||
mov ecx,0x10ddeeff ; èà¨äâ 1 ¨ 梥â ( 0xF0RRGGBB )
|
||||
|
||||
if SKIP eq 0
|
||||
mov ebx,B_DATE
|
||||
mov edx,datebut
|
||||
mov esi,9
|
||||
btc ecx,28
|
||||
mcall
|
||||
add ebx,B_DATE_SHIFT
|
||||
add edx,esi
|
||||
mcall
|
||||
end if
|
||||
mov edx,n_style
|
||||
mov esi,ns_end-n_style
|
||||
mov ebx,B_NS
|
||||
@ -828,11 +585,11 @@ draw_window:
|
||||
mov ecx,0xa0a0a0
|
||||
jmp .int
|
||||
.high:
|
||||
mov ecx,0xac0000;d048c8
|
||||
mov ecx,COL_NEW_STYLE_T
|
||||
.int:
|
||||
mcall
|
||||
|
||||
mov ecx,0xd048c8
|
||||
mov ecx,COL_GO_TODAY_T
|
||||
mov edx,today_msg
|
||||
mov ebx,B_TODAY
|
||||
mov esi,today_end-today_msg
|
||||
@ -854,13 +611,11 @@ draw_window:
|
||||
|
||||
call draw_year
|
||||
mov [dropped],0
|
||||
mov eax,12 ; äãªæ¨ï 12: á®®¡é¨âì Ž‘ ®¡ ®âà¨á®¢ª¥ ®ª
|
||||
mov ebx,2 ; 2, § ª®ç¨«¨ à¨á®¢ âì
|
||||
mcall
|
||||
mcall 12,2
|
||||
ret ; ¢ë室¨¬ ¨§ ¯à®æ¥¤ãàë
|
||||
|
||||
draw_year:
|
||||
mcall 8,B_YEAR_X,B_Y,5,0x05080d0
|
||||
mcall 8,B_YEAR_X,B_Y,5,COL_MONTH_YEAR_B
|
||||
ShowFocus 3,esi
|
||||
mcall 47,0x40001,Year,B_YEAR
|
||||
ret
|
||||
@ -903,7 +658,7 @@ draw_week:
|
||||
mov eax,13
|
||||
mov ebx,B_WBAR_X
|
||||
mov ecx,B_WBAR_Y
|
||||
mov edx,0x90a0b0
|
||||
mov edx,COL_WEEKDAY_BG
|
||||
mcall
|
||||
movzx esi,byte[week_days]
|
||||
movzx edi,byte[week_days+1]
|
||||
@ -931,7 +686,7 @@ draw_days:
|
||||
mov eax,13
|
||||
mov ebx,B_DBAR_X
|
||||
mov ecx,B_DBAR_Y
|
||||
mov edx,0xe0e0e0
|
||||
mov edx,COL_DATES_BG
|
||||
mcall
|
||||
call count_days
|
||||
cmp ecx,[day_sel]
|
||||
@ -948,7 +703,7 @@ draw_days:
|
||||
movzx edx,dx
|
||||
mov esi,edi
|
||||
shl esi,21
|
||||
lea edx,[edx+esi+30 shl 16]
|
||||
lea edx,[edx+esi+29 shl 16]
|
||||
mov ecx,edi
|
||||
add cl,[week_days+1]
|
||||
cmp ecx,7
|
||||
@ -962,27 +717,30 @@ draw_days:
|
||||
inc dword[ecx]
|
||||
pusha
|
||||
mov ebx,edx
|
||||
mov bx,20
|
||||
sub ebx,3 shl 16
|
||||
mov bx,31 ; width
|
||||
sub ebx,8 shl 16
|
||||
shrd ecx,edx,16
|
||||
mov cx,20
|
||||
sub ecx,7 shl 16
|
||||
mov cx,29 ; height
|
||||
sub ecx,12 shl 16
|
||||
mov edx,[number]
|
||||
cmp edx,[day_sel]
|
||||
je .draw_sel
|
||||
mov esi,0xe0e0e0
|
||||
mov esi,COL_DATE_BUTTONS
|
||||
jmp .draw_but
|
||||
.draw_sel:
|
||||
mov esi,0x5080d0
|
||||
mov esi,COL_DATE_CURRENT
|
||||
cmp [focus],5
|
||||
jne .draw_but
|
||||
mov esi,0xef7840;0xe26830
|
||||
mov esi,COL_DATE_CHANGED
|
||||
.draw_but:
|
||||
add edx,200+1 shl 29
|
||||
mov eax,8
|
||||
mcall
|
||||
popa
|
||||
mcall
|
||||
add edx,1 shl 16
|
||||
mcall
|
||||
sub edx,1 shl 16
|
||||
pop ecx
|
||||
inc edi
|
||||
cmp edi,7
|
||||
@ -1072,116 +830,6 @@ calculate:
|
||||
mov [firstday],edx
|
||||
ret
|
||||
|
||||
; ‡¤¥áì 室ïâáï ¤ ë¥ ¯à®£à ¬¬ë:
|
||||
|
||||
; ¨â¥àä¥©á ¯à®£à ¬¬ë ¬®£®ï§ëçë© - § ¤ ©â¥ ï§ëª ¢ 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
|
||||
|
||||
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
|
||||
|
||||
if SKIP eq 0
|
||||
datebut:
|
||||
if lang eq ru
|
||||
db '1-ï ¤ â '
|
||||
db '2-ï ¤ â '
|
||||
else if lang eq fr
|
||||
db '1ere date'
|
||||
db '2eme date'
|
||||
else if lang eq ge
|
||||
db ' Datum 1 '
|
||||
db ' Datum 2 '
|
||||
else if lang eq et
|
||||
db 'Kuupäev 1'
|
||||
db 'Kuupäev 2'
|
||||
else if lang eq it
|
||||
db '1a data '
|
||||
db '2a data '
|
||||
else
|
||||
db '1st date '
|
||||
db '2nd date '
|
||||
end if
|
||||
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 di sistema',0
|
||||
else
|
||||
db 'á¨á⥬®¥ ¢à¥¬ï',0
|
||||
end if
|
||||
plus:
|
||||
if lang eq ru
|
||||
db '¤®¡ ¢¨âì(+)',0
|
||||
else if lang eq it
|
||||
db 'Avanti',0
|
||||
else
|
||||
db '¤®¡ ¢¨âì(+)',0
|
||||
end if
|
||||
minus:
|
||||
if lang eq ru
|
||||
db 'ã¡à âì(-)',0
|
||||
else if lang eq it
|
||||
db 'Indietro',0
|
||||
else
|
||||
db 'ã¡à âì(-)',0
|
||||
end if
|
||||
setd:
|
||||
if lang eq ru
|
||||
db '“áâ ®¢¨âì ¤ âã',0
|
||||
else if lang eq it
|
||||
db 'Impostazioni',0
|
||||
else
|
||||
db '“áâ ®¢¨âì ¤ âã',0
|
||||
end if
|
||||
|
||||
I_END: ; ª®¥æ ¯à®£à ¬¬ë
|
||||
firstday dd ?
|
||||
Year dd ?
|
||||
|
260
programs/system/calendar/trunk/data.inc
Normal file
260
programs/system/calendar/trunk/data.inc
Normal file
@ -0,0 +1,260 @@
|
||||
; program data: colors, text, vars (todo)
|
||||
|
||||
; colors
|
||||
COL_WINDOW_BG equ 0x14aabbcc
|
||||
COL_WEEKDAY_BG equ 0xCCCDDD
|
||||
COL_DATES_BG equ 0xE7E7E7
|
||||
COL_DATE_BUTTONS equ 0xE7E7E7
|
||||
COL_DATE_CURRENT equ 0x31A4D0
|
||||
COL_DATE_CHANGED equ 0xef7840
|
||||
COL_TIME_BUTTONS equ 0x5555dd
|
||||
COL_GO_TODAY_T equ 0xd048c8
|
||||
COL_MONTH_YEAR_B equ 0x05080d0
|
||||
|
||||
COL_NEW_STYLE_T equ 0xac0000
|
||||
|
||||
; 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
|
||||
spinner db '< >'
|
||||
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
|
||||
db ' Time:',0
|
||||
end if
|
||||
plus db '(+)',0
|
||||
minus db '(-)',0
|
||||
set_date_t:
|
||||
if lang eq ru
|
||||
db '“áâ ®¢¨âì ¤ âã',0
|
||||
else if lang eq it
|
||||
db 'Impostazioni',0
|
||||
else
|
||||
db '“áâ ®¢¨âì ¤ âã',0
|
||||
end if
|
Loading…
Reference in New Issue
Block a user