Subversion Repositories Kolibri OS

Rev

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

Rev 3894 Rev 3895
Line 1... Line 1...
1 
; Calendar for KolibriOS
 1 
; Calendar for KolibriOS
2 
;
 2 
;
- 
 
 3 
; v1.5 - time redesign by Heavyiron
3 
; v1.2 - v1.45 - new desighn and functionality by Leency
 4 
; v1.2 - v1.55 - new desighn and functionality by Leency
4 
; v1.1 - add change time support by DedOK
5 
; v1.1 - add change time support by DedOK
5 
; v1.0 - written in pure assembler by Ivushkin Andrey aka Willow
 6 
; v1.0 - written in pure assembler by Ivushkin Andrey aka Willow
6 
; also - diamond, spraid, fedesco
 7 
; also - diamond, spraid, fedesco
7 
;
 8 
;
8 
; Created: November 1, 2004
 9 
; Created: November 1, 2004
Line 449... Line 450...
449 
    shl  eax,8
 450 
    shl  eax,8
450 
    mov  ebx,[Year]
 451 
    mov  ebx,[Year]
451 
    call additem
 452 
    call additem
452 
    mov  ecx,eax
 453 
    mov  ecx,eax
453 
    mcall 22,1
 454 
    mcall 22,1
454 
    jmp  still
 455 
    jmp  START
Line 455... Line 456...
455 
 
 456 
 
456 
additem:
 457 
additem:
457 
    add  eax,1
 458 
    add  eax,1
458 
    daa
 459 
    daa
Line 468... Line 469...
468 
 
 469 
 
Line 469... Line 470...
469 
draw_clock:
 470 
draw_clock:
470 
 
 471 
 
471 
    mcall 3
 472 
    mcall 3
Line 472... Line 473...
472 
    mov  ecx,eax
 473 
    mov  ecx,eax
473 
    mcall 47,0x00020100, ,198*65536+287,0x50000000,COL_WINDOW_BG
 474 
    mcall 47,0x00020100, ,195*65536+287,0x50000000,COL_WINDOW_BG
474 
 
 475 
 
Line 482... Line 483...
482 
    ret
 483 
    ret
Line 483... Line 484...
483 
 
 484 
 
Line 484... Line 485...
484 
draw_window:
 485 
draw_window:
- 
 
 486 
 
- 
 
 487 
    mcall 12,1
- 
 
 488 
	mcall 48,5 ;get screen size
- 
 
 489 
	mov ecx, ebx
- 
 
 490 
	sub ecx, WIN_H
- 
 
 491 
	shl ecx, 16
- 
 
 492 
	add ecx, WIN_H
- 
 
 493 
	mov ebx, eax
- 
 
 494 
	sub eax, WIN_W
485 
 
 495 
	shl ebx, 16
- 
 
 496 
	add ebx, WIN_W
486 
    mcall 12,1
 497 
    mcall 0,,,COL_WINDOW_BG, ,title ; define window
487 
    mcall 0,WIN_X,WIN_Y-15,COL_WINDOW_BG, ,title ; define window
 498 
	mcall 63,1,'Y'
488 
	GetSkinHeight
 499 
	GetSkinHeight
489 
	mov ecx, eax
 500 
	mov ecx, eax
490 
	shl ecx, 16
 501 
	shl ecx, 16
491 
	add ecx, 43
 502 
	add ecx, 43
492 
	mcall 13,B_WBAR_X, ,COL_TOOLBAR_BG ; draw toolbar background
 - 
 
493 
    call draw_week
 503 
	mcall 13,B_WBAR_X, ,COL_TOOLBAR_BG ; draw toolbar background
494 
 
 - 
 
495 
    mcall 8,196*65536+8,272*65536+10,72,COL_DATE_BUTTONS
 504 
    call draw_week
496 
 
 505 
    mcall 8,193*65536+8,272*65536+10,72,COL_DATE_BUTTONS
497 
    mov  ebx,205*65536+8
 506 
    mov  ebx,202*65536+8
498 
    inc  edx
 - 
 
499 
    mcall
 507 
    inc  edx ;73
500 
 
 508 
    mcall
501 
    mov  ebx,196*65536+8
 509 
    mov  ebx,193*65536+8
502 
    mov  ecx,298*65536+10
 510 
    mov  ecx,298*65536+10
503 
    inc  edx
 - 
 
504 
    mcall
 511 
    inc  edx ;74
505 
 
 512 
    mcall
506 
    mov  ebx,205*65536+8
 513 
    mov  ebx,202*65536+8
507 
    inc  edx
 - 
 
508 
    mcall
 514 
    inc  edx ;75
509 
 
 515 
    mcall
510 
    mov  ebx,218*65536+8
 516 
    mov  ebx,215*65536+8
511 
    mov  ecx,272*65536+10
 517 
    mov  ecx,272*65536+10
512 
    inc  edx
 - 
 
513 
    mcall
 518 
    inc  edx ;76
514 
 
 519 
    mcall
515 
    mov  ebx,227*65536+8
 520 
    mov  ebx,224*65536+8
516 
    inc  edx
 - 
 
517 
    mcall
 521 
    inc  edx ;77
518 
 
 522 
    mcall
519 
    mov  ebx,218*65536+8
 523 
    mov  ebx,215*65536+8
520 
    mov  ecx,298*65536+10
 524 
    mov  ecx,298*65536+10
521 
    inc  edx
 - 
 
522 
    mcall
 525 
    inc  edx ;78
523 
 
 526 
    mcall
524 
    mov  ebx,227*65536+8
 527 
    mov  ebx,224*65536+8
525 
    inc  edx
 - 
 
526 
    mcall
 528 
    inc  edx ;79
527 
 
 529 
    mcall
528 
    mov  ebx,240*65536+21
 530 
    mov  ebx,237*65536+21
529 
    mov  ecx,273*65536+35
 531 
    mov  ecx,273*65536+35
530 
    inc  edx
 532 
    inc  edx ;80
531 
    or   edx,0x40000000
 - 
 
532 
    mcall
 533 
    or   edx,0x40000000
533 
 
 534 
    mcall
534 
    mov  ebx,14*65536+110
 535 
    mov  ebx,25*65536+110
535 
    mov  ecx,285*65536+22
 536 
    mov  ecx,285*65536+22
536 
    mov  esi,COL_DATE_BUTTONS
 537 
    mov  esi,COL_DATE_BUTTONS
Line 558... Line 559...
558 
    inc  edx
 559 
    inc  edx
559 
    mcall
 560 
    mcall
560 
    call draw_days
 561 
    call draw_days
Line 561... Line 562...
561 
 
 562 
 
562 
	; draw text in window
 563 
	; draw text in window
563 
    mcall 4,153*65536+287,0x80000000,sys_text
 564 
    mcall 4,157*65536+287,0x80000000,sys_text
564 
    mcall 4,183*65536+287, ,separator
 - 
 
565 
    mcall  ,214*65536+287
 565 
    mcall  ,211*65536+287,,separator
566 
    mcall  ,236*65536+287
 566 
    mcall  ,233*65536+287
567 
    mcall  ,188*65536+274, ,plus
 567 
    mcall  ,185*65536+274, ,plus
568 
    mcall  ,188*65536+300, ,minus
 568 
    mcall  ,185*65536+300, ,minus
Line 569... Line 569...
569 
    mcall  , 24*65536+292,0x00000000,set_date_t,15 ;set date text
 569 
    mcall  , 35*65536+292,0x00000000,set_date_t,15 ;set date text
570 
 
 570 
 
571 
 
 571 
 
Line 854... Line 854...
854 
    div  bx
 854 
    div  bx
855 
    mov  [firstday],edx
 855 
    mov  [firstday],edx
856 
    ret
 856 
    ret
Line 857... Line 857...
857 
 
 857 
 
858 
I_END:
 - 
 
859 
 
 - 
 
860 
firstday  dd ?
 - 
 
861 
Year dd   ?
 - 
 
862 
Month dd  ?
 - 
 
863 
day_sel   dd ?
 - 
 
864 
 
 - 
 
865 
datestr   dd  ?
 - 
 
866 
leap_year dd ?
 -