Subversion Repositories Kolibri OS

Compare Revisions

No changes between revisions

Regard whitespace Rev 3886 → Rev 3887

/programs/system/calendar/trunk/calendar.asm
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
 
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,19 → 39,14
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-¡¨â­ë© ०¨¬  áᥬ¡«¥à 
 
org 0x0 ;  ¤à¥á æ¨ï á ­ã«ï
65,6 → 61,7
dd 0x0 ; § à¥§¥à¢¨à®¢ ­®
include 'lang.inc'
include '..\..\..\macros.inc' ; 㬥­ìè ¥â à §¬¥à ¯à®£à ¬¬ë
include 'data.inc'
 
 
 
88,180 → 85,8
.exit:
}
 
month_name:
if lang eq ru
db 8
db 'Ÿ­¢ àì '
db '”¥¢à «ì '
db 'Œ àâ '
db '€¯à¥«ì '
db 'Œ © '
db 'ˆî­ì '
db 'ˆî«ì '
db '€¢£ãáâ '
db '‘¥­âï¡àì'
db 'Žªâï¡àì '
db '®ï¡àì '
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 '­'
db '‚â'
db '‘à'
db '—â'
db 'â'
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
lodsb
291,7 → 116,7
jmp upd ; §¤¥áì ­ ç¨­ ¥âáï ¢ë¯®«­¥­¨¥ ¯à®£à ¬¬ë
red: ; ¯¥à¥à¨á®¢ âì ®ª­®
 
call draw_window ; ¢ë§ë¢ ¥¬ ¯à®æ¥¤ãàã ®âà¨á®¢ª¨ ®ª­ 
call draw_window
 
still: ; ƒ‹€‚›‰ –ˆŠ‹ Žƒ€ŒŒ›
 
596,38 → 421,26
 
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
 
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_window:
 
 
mov eax,12 ; äã­ªæ¨ï 12: á®®¡é¨âì Ž‘ ®¡ ®âà¨á®¢ª¥ ®ª­ 
mov ebx,1 ; 1 - ­ ç¨­ ¥¬ à¨á®¢ âì
mcall
; ‘Ž‡„€ðŒ ŽŠŽ
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
 
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
mcall
call draw_days
 
mov eax,4 ; äã­ªæ¨ï 4 : ­ ¯¨á âì ¢ ®ª­¥ ⥪áâ
mov ebx,110*65536+280
mov ecx,0x800000ff
mov edx,sys_text
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 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
 
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
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
 
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
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
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
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,21 → 717,21
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
983,6 → 738,9
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
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 '®¢ë© á⨫ì'
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 ?
/programs/system/calendar/trunk/data.inc
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 '®ï¡àì '
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 '­'
db '‚â'
db '‘à'
db '—â'
db 'â'
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 '®¢ë© á⨫ì'
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
/programs/system/calendar/trunk/scr
Property changes:
Added: tsvn:logminsize
+5
\ No newline at end of property