Subversion Repositories Kolibri OS

Rev

Rev 452 | Rev 496 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 452 Rev 485
Line 62... Line 62...
62 
  dd	 0x1000      ; ª®«¨ç¥á⢮ ¯ ¬ïâ¨
 62 
  dd	 0x1000      ; ª®«¨ç¥á⢮ ¯ ¬ïâ¨
63 
  dd	 0x1000      ;  ¤à¥á ¢¥à設ë áâíª 
 63 
  dd	 0x1000      ;  ¤à¥á ¢¥à設ë áâíª 
64 
  dd	 0x0	     ;  ¤à¥á ¡ãä¥à  ¤«ï áâப¨ ¯ à ¬¥â஢ (­¥ ¨á¯®«ì§ã¥âáï)
 64 
  dd	 0x0	     ;  ¤à¥á ¡ãä¥à  ¤«ï áâப¨ ¯ à ¬¥â஢ (­¥ ¨á¯®«ì§ã¥âáï)
65 
  dd	 0x0	     ; § à¥§¥à¢¨à®¢ ­®
 65 
  dd	 0x0	     ; § à¥§¥à¢¨à®¢ ­®
66 
include 'lang.inc'
 66 
include 'lang.inc'
67 
include 'macros.inc' ; 㬥­ìè ¥â à §¬¥à ¯à®£à ¬¬ë
 67 
include '..\..\..\macros.inc' ; 㬥­ìè ¥â à §¬¥à ¯à®£à ¬¬ë
68 
;include 'debug.inc'
 - 
 
- 
 
 68 
 
Line 69... Line 69...
69 
 
 69 
 
70 
 
 70 
 
71 
macro  ShowFocus field,reg
 71 
macro  ShowFocus field,reg
Line 105... Line 105...
105 
     db   '„¥ª ¡àì '
 105 
     db   '„¥ª ¡àì '
106 
else if lang eq de
 106 
else if lang eq de
107 
     db   9
 107 
     db   9
108 
     db   'Januar   '
 108 
     db   'Januar   '
109 
     db   'Februar  '
 109 
     db   'Februar  '
110 
     db   'MÁrz     '
 110 
     db   'M+rz     '
111 
     db   'April    '
 111 
     db   'April    '
112 
     db   'Mai      '
 112 
     db   'Mai      '
113 
     db   'Juni     '
 113 
     db   'Juni     '
114 
     db   'Juli     '
 114 
     db   'Juli     '
115 
     db   'August   '
 115 
     db   'August   '
Line 136... Line 136...
136 
     db   'Tammikuu '
 136 
     db   'Tammikuu '
137 
     db   'Helmikuu '
 137 
     db   'Helmikuu '
138 
     db   'Maaliskuu'
 138 
     db   'Maaliskuu'
139 
     db   'Huhtikuu '
 139 
     db   'Huhtikuu '
140 
     db   'Toukokuu '
 140 
     db   'Toukokuu '
141 
     db   'KesÁkuu  '
 141 
     db   'Kes+kuu  '
142 
     db   'HeinÁkuu '
 142 
     db   'Hein+kuu '
143 
     db   'Elokuu   '
 143 
     db   'Elokuu   '
144 
     db   'Syyskuu  '
 144 
     db   'Syyskuu  '
145 
     db   'Lokakuu  '
 145 
     db   'Lokakuu  '
146 
     db   'Marraskuu'
 146 
     db   'Marraskuu'
147 
     db   'Joulukuu '
 147 
     db   'Joulukuu '
Line 412... Line 412...
412 
    je	 minus_md
 412 
    je	 minus_md
Line 413... Line 413...
413 
 
 413 
 
414 
    cmp  ah,80
 414 
    cmp  ah,80
Line 415... Line 415...
415 
    je	 reset
 415 
    je	 reset
416 
 
 - 
 
417 
    ;jmp  still
 416 
 
Line 418... Line 417...
418 
 
 417 
    cmp  ah,81
419 
 
 418 
    je	 set_date
420 
 
 419 
 
421 
    cmp  ah,2		; drop down list
 420 
    cmp  ah,2		; drop down list
Line 605... Line 604...
605 
    mov  ebx,0x00000000
 604 
    mov  ebx,0x00000000
606 
    mcall
 605 
    mcall
Line 607... Line 606...
607 
 
 606 
 
Line -... Line 607...
- 
 
 607 
    jmp  still
- 
 
 608 
 
- 
 
 609 
set_date:
- 
 
 610 
 
- 
 
 611 
    mov  eax,0x00000000
- 
 
 612 
    mov ebx,[day_sel]
- 
 
 613 
    call additem
- 
 
 614 
    shl  eax,8
- 
 
 615 
    mov  ebx,[Month]
- 
 
 616 
    add  ebx,1
- 
 
 617 
    call additem
- 
 
 618 
    shl  eax,8
- 
 
 619 
    mov  ebx,[Year]
- 
 
 620 
    call additem
- 
 
 621 
    mov  ecx,eax
- 
 
 622 
    mov  eax,22
- 
 
 623 
    mov  ebx,1
- 
 
 624 
    mcall
- 
 
 625 
 
- 
 
 626 
    jmp  still
- 
 
 627 
 
- 
 
 628 
additem:
- 
 
 629 
 
- 
 
 630 
    add  eax,1
- 
 
 631 
    daa
- 
 
 632 
    sub  ebx,1
- 
 
 633 
    cmp  ebx,0
- 
 
 634 
    jne  additem
- 
 
 635 
 
- 
 
 636 
    ret
608 
    jmp  still
 637 
 
609 
 
 638 
 
610 
;   *********************************************
 639 
;   *********************************************
Line 611... Line 640...
611 
;   *******  Ž…„…‹…ˆ… ˆ Ž’ˆ‘Ž‚Š€ ŽŠ€ *******
 640 
;   *******  Ž…„…‹…ˆ… ˆ Ž’ˆ‘Ž‚Š€ ŽŠ€ *******
Line 623... Line 652...
623 
    mov  edx,205*65536+280
 652 
    mov  edx,205*65536+280
624 
    mcall
 653 
    mcall
Line 625... Line 654...
625 
 
 654 
 
626 
    shr  ecx,8
 655 
    shr  ecx,8
627 
    add  edx,20*65536
 - 
 
628 
    ;mov  eax,47
 656 
    add  edx,20*65536
Line 629... Line 657...
629 
    mcall
 657 
    mcall
630 
 
 658 
 
631 
    shr  ecx,8
 - 
 
632 
    add  edx,20*65536
 659 
    shr  ecx,8
633 
    ;mov  eax,47
 660 
    add  edx,20*65536
Line 634... Line 661...
634 
    mcall
 661 
    mcall
Line 647... Line 674...
647 
    mov  ecx,WIN_Y
 674 
    mov  ecx,WIN_Y
648 
  else
 675 
  else
649 
    mov  ecx,WIN_Y-15
 676 
    mov  ecx,WIN_Y-15
650 
  end if
 677 
  end if
651 
    mov  edx,0x13aabbcc 	   ; 梥â à ¡®ç¥© ®¡« á⨠ RRGGBB,8->color gl
 678 
    mov  edx,0x13aabbcc 	   ; 梥â à ¡®ç¥© ®¡« á⨠ RRGGBB,8->color gl
652 
    mov  edi,header		   ; § £®«®¢®ª
 679 
    mov  edi,title		   ; § £®«®¢®ª
653 
    mcall
 680 
    mcall
654 
    call draw_week
 681 
    call draw_week
Line 655... Line 682...
655 
 
 682 
 
656 
    mov  eax,8
 683 
    mov  eax,8
657 
    mov  ebx,205*65536+7
 684 
    mov  ebx,205*65536+7
658 
    mov  ecx,290*65536+10
 685 
    mov  ecx,290*65536+10
659 
    mov  esi,0x005555dd
 686 
    mov  esi,0x005555dd
660 
    mov  edx,72
 687 
    mov  edx,72
Line 661... Line -...
661 
    mcall
 - 
 
662 
 
 688 
    mcall
663 
    ;mov  eax,8
 - 
 
664 
    mov  ebx,212*65536+7
 - 
 
665 
    ;mov  ecx,290*65536+10
 689 
 
666 
    ;mov  esi,0x005555dd
 690 
    mov  ebx,212*65536+7
Line 667... Line -...
667 
    inc  edx
 - 
 
668 
    mcall
 691 
    inc  edx
669 
 
 692 
    mcall
670 
    ;mov  eax,8
 - 
 
671 
    mov  ebx,205*65536+7
 693 
 
672 
    mov  ecx,300*65536+10
 694 
    mov  ebx,205*65536+7
Line 673... Line -...
673 
    ;mov  esi,0x005555dd
 - 
 
674 
    inc  edx
 695 
    mov  ecx,300*65536+10
675 
    mcall
 - 
 
676 
 
 - 
 
677 
    ;mov  eax,8
 696 
    inc  edx
678 
    mov  ebx,212*65536+7
 697 
    mcall
Line 679... Line -...
679 
    ;mov  ecx,300*65536+10
 - 
 
680 
    ;mov  esi,0x005555dd
 698 
 
681 
    inc  edx
 699 
    mov  ebx,212*65536+7
682 
    mcall
 - 
 
683 
 
 700 
    inc  edx
684 
    ;mov  eax,8
 701 
    mcall
Line 685... Line -...
685 
    mov  ebx,224*65536+7
 - 
 
686 
    mov  ecx,290*65536+10
 702 
 
687 
    ;mov  esi,0x005555dd
 - 
 
688 
    inc  edx
 - 
 
689 
    mcall
 703 
    mov  ebx,224*65536+7
690 
 
 704 
    mov  ecx,290*65536+10
Line 691... Line -...
691 
    ;mov  eax,8
 - 
 
692 
    mov  ebx,231*65536+7
 705 
    inc  edx
693 
    ;mov  ecx,290*65536+10
 706 
    mcall
694 
    ;mov  esi,0x005555dd
 - 
 
695 
    inc  edx
 707 
 
696 
    mcall
 708 
    mov  ebx,231*65536+7
Line 697... Line -...
697 
 
 - 
 
698 
    ;mov  eax,8
 709 
    inc  edx
699 
    mov  ebx,224*65536+7
 - 
 
700 
    mov  ecx,300*65536+10
 - 
 
701 
    ;mov  esi,0x005555dd
 710 
    mcall
702 
    inc  edx
 711 
 
Line 703... Line -...
703 
    mcall
 - 
 
704 
 
 712 
    mov  ebx,224*65536+7
705 
    ;mov  eax,8
 713 
    mov  ecx,300*65536+10
706 
    mov  ebx,231*65536+7
 714 
    inc  edx
707 
    ;mov  ecx,300*65536+10
 715 
    mcall
708 
    ;mov  esi,0x005555dd
 716 
 
Line -... Line 717...
- 
 
 717 
    mov  ebx,231*65536+7
- 
 
 718 
    inc  edx
- 
 
 719 
    mcall
709 
    inc  edx
 720 
 
- 
 
 721 
    mov  ebx,243*65536+14
- 
 
 722 
    mov  ecx,290*65536+20
710 
    mcall
 723 
    mov  esi,0x00dd7777
711 
 
 724 
    inc  edx
712 
    ;mov  eax,8
 725 
    mcall
713 
    mov  ebx,243*65536+14
 726 
 
714 
    mov  ecx,290*65536+20
 727 
    mov  ebx,10*65536+100
Line 754... Line 767...
754 
    mov  ebx,110*65536+280
 767 
    mov  ebx,110*65536+280
755 
    mov  ecx,0x800000ff
 768 
    mov  ecx,0x800000ff
756 
    mov  edx,sys_text
 769 
    mov  edx,sys_text
757 
    mcall
 770 
    mcall
Line 758... Line -...
758 
 
 - 
 
759 
    ;mov  eax,4
 771 
 
760 
    mov  ebx,149*65536+302
 - 
 
761 
    ;mov  ecx,0x800000ff
 772 
    mov  ebx,149*65536+302
762 
    mov  edx,minus
 773 
    mov  edx,minus
Line 763... Line -...
763 
    mcall
 - 
 
764 
 
 774 
    mcall
765 
    ;mov  eax,4
 775 
 
766 
    mov  ebx,137*65536+292
 776 
    mov  ebx,137*65536+292
767 
    mov  ecx,0x80ff0000
 777 
    mov  ecx,0x80ff0000
Line -... Line 778...
- 
 
 778 
    mov  edx,plus
- 
 
 779 
    mcall
- 
 
 780 
 
- 
 
 781 
    mov  ebx,15*65536+298
- 
 
 782 
    mov  ecx,0x00000000
Line 768... Line -...
768 
    mov  edx,plus
 - 
 
769 
    mcall
 783 
    mov  esi,15
Line 770... Line 784...
770 
 
 784 
    mov  edx,setd
771 
 
 785 
    mcall
772 
    ;mov  eax,4
 786 
 
Line 1038... Line 1052...
1038 
 
 1052 
 
1039 
; ¨­â¥àä¥©á ¯à®£à ¬¬ë ¬­®£®ï§ëç­ë© - § ¤ ©â¥ ï§ëª ¢ lang.inc
 1053 
; ¨­â¥àä¥©á ¯à®£à ¬¬ë ¬­®£®ï§ëç­ë© - § ¤ ©â¥ ï§ëª ¢ lang.inc
1040 
day_count db 3,0,3,2,3,2,3,3,2,3,2,3
 1054 
day_count db 3,0,3,2,3,2,3,3,2,3,2,3
Line 1041... Line 1055...
1041 
Fkeys	  db 210,211,212,213,214,215,216,217,208,209,228,159
 1055 
Fkeys	  db 210,211,212,213,214,215,216,217,208,209,228,159
1042 
 
 1056 
 
1043 
header: 	 ; áâப  § £®«®¢ª 
 1057 
title: 	 ; áâப  § £®«®¢ª 
1044 
if lang eq ru
 1058 
if lang eq ru
1045 
     db   'Š€‹…„€œ',0
 1059 
     db   'Š€‹…„€œ',0
1046 
else if lang eq ge
 1060 
else if lang eq ge
Line 1100... Line 1114...
1100 
today_end:
 1114 
today_end:
1101 
focus dd  3
 1115 
focus dd  3
1102 
new_style dd 1
 1116 
new_style dd 1
1103 
dropped db 0
 1117 
dropped db 0
Line 1104... Line -...
1104 
 
 - 
 
1105 
co_text:  db  '¢à¥¬ï á¥áᨨ',0
 1118 
 
1106 
sys_text:  db  'á¨á⥬­®¥ ¢à¥¬ï',0
 1119 
sys_text:  db  'á¨á⥬­®¥ ¢à¥¬ï',0
1107 
plus:  db  '¤®¡ ¢¨âì(+)',0
 1120 
plus:  db  '¤®¡ ¢¨âì(+)',0
- 
 
 1121 
minus:	db  'ã¡à âì(-)',0
Line 1108... Line 1122...
1108 
minus:	db  'ã¡à âì(-)',0
 1122 
setd:	db  '“áâ ­®¢¨âì ¤ âã',0
1109 
 
 1123 
 
1110 
I_END:	; ª®­¥æ ¯à®£à ¬¬ë
 1124 
I_END:	; ª®­¥æ ¯à®£à ¬¬ë
1111 
firstday  dd ?
 1125 
firstday  dd ?