Subversion Repositories Kolibri OS

Compare Revisions

No changes between revisions

Regard whitespace Rev 484 → Rev 485

/programs/system/calendar/trunk/macros.inc
File deleted
\ No newline at end of file
Property changes:
Deleted: svn:eol-style
-native
\ No newline at end of property
/programs/system/calendar/trunk/calendar.asm
64,10 → 64,10
dd 0x0 ;  ¤à¥á ¡ãä¥à  ¤«ï áâப¨ ¯ à ¬¥â஢ (­¥ ¨á¯®«ì§ã¥âáï)
dd 0x0 ; § à¥§¥à¢¨à®¢ ­®
include 'lang.inc'
include 'macros.inc' ; 㬥­ìè ¥â à §¬¥à ¯à®£à ¬¬ë
;include 'debug.inc'
include '..\..\..\macros.inc' ; 㬥­ìè ¥â à §¬¥à ¯à®£à ¬¬ë
 
 
 
macro ShowFocus field,reg
{
local .nofocus, .exit
107,7 → 107,7
db 9
db 'Januar '
db 'Februar '
db 'MÁrz '
db 'M+rz '
db 'April '
db 'Mai '
db 'Juni '
138,8 → 138,8
db 'Maaliskuu'
db 'Huhtikuu '
db 'Toukokuu '
db 'KesÁkuu '
db 'HeinÁkuu '
db 'Kes+kuu '
db 'Hein+kuu '
db 'Elokuu '
db 'Syyskuu '
db 'Lokakuu '
414,10 → 414,9
cmp ah,80
je reset
 
;jmp still
cmp ah,81
je set_date
 
 
 
cmp ah,2 ; drop down list
jne no_dropdn
.drop:
607,6 → 606,36
 
jmp still
 
set_date:
 
mov eax,0x00000000
mov ebx,[day_sel]
call additem
shl eax,8
mov ebx,[Month]
add ebx,1
call additem
shl eax,8
mov ebx,[Year]
call additem
mov ecx,eax
mov eax,22
mov ebx,1
mcall
 
jmp still
 
additem:
 
add eax,1
daa
sub ebx,1
cmp ebx,0
jne additem
 
ret
 
 
; *********************************************
; ******* Ž…„…‹…ˆ… ˆ Ž’ˆ‘Ž‚Š€ ŽŠ€ *******
; *********************************************
625,12 → 654,10
 
shr ecx,8
add edx,20*65536
;mov eax,47
mcall
 
shr ecx,8
add edx,20*65536
;mov eax,47
mcall
ret
 
649,7 → 676,7
mov ecx,WIN_Y-15
end if
mov edx,0x13aabbcc ; 梥â à ¡®ç¥© ®¡« á⨠RRGGBB,8->color gl
mov edi,header ; § £®«®¢®ª
mov edi,title ; § £®«®¢®ª
mcall
call draw_week
 
660,56 → 687,37
mov edx,72
mcall
 
;mov eax,8
mov ebx,212*65536+7
;mov ecx,290*65536+10
;mov esi,0x005555dd
inc edx
mcall
 
;mov eax,8
mov ebx,205*65536+7
mov ecx,300*65536+10
;mov esi,0x005555dd
inc edx
mcall
 
;mov eax,8
mov ebx,212*65536+7
;mov ecx,300*65536+10
;mov esi,0x005555dd
inc edx
mcall
 
;mov eax,8
mov ebx,224*65536+7
mov ecx,290*65536+10
;mov esi,0x005555dd
inc edx
mcall
 
;mov eax,8
mov ebx,231*65536+7
;mov ecx,290*65536+10
;mov esi,0x005555dd
inc edx
mcall
 
;mov eax,8
mov ebx,224*65536+7
mov ecx,300*65536+10
;mov esi,0x005555dd
inc edx
mcall
 
;mov eax,8
mov ebx,231*65536+7
;mov ecx,300*65536+10
;mov esi,0x005555dd
inc edx
mcall
 
;mov eax,8
mov ebx,243*65536+14
mov ecx,290*65536+20
mov esi,0x00dd7777
716,7 → 724,12
inc edx
mcall
 
mov eax,8
mov ebx,10*65536+100
mov ecx,290*65536+20
mov esi,0x00d5d5d5
inc edx
mcall
 
mov esi,0x05080d0
if SKIP eq 0
mov ebx,B_DATE_X
756,20 → 769,21
mov edx,sys_text
mcall
 
;mov eax,4
mov ebx,149*65536+302
;mov ecx,0x800000ff
mov edx,minus
mcall
 
;mov eax,4
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 eax,4
mov ecx,0x10ddeeff ; èà¨äâ 1 ¨ 梥â ( 0xF0RRGGBB )
 
if SKIP eq 0
1040,7 → 1054,7
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
 
header: ; áâப  § £®«®¢ª 
title: ; áâப  § £®«®¢ª 
if lang eq ru
db 'Š€‹…„€œ',0
else if lang eq ge
1102,10 → 1116,10
new_style dd 1
dropped db 0
 
co_text: db '¢à¥¬ï á¥áᨨ',0
sys_text: db 'á¨á⥬­®¥ ¢à¥¬ï',0
plus: db '¤®¡ ¢¨âì(+)',0
minus: db 'ã¡à âì(-)',0
setd: db '“áâ ­®¢¨âì ¤ âã',0
 
I_END: ; ª®­¥æ ¯à®£à ¬¬ë
firstday dd ?