Subversion Repositories Kolibri OS

Rev

Rev 4943 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4943 Rev 6163
Line 24... Line 24...
24 
    LIST_ITEM_Y      equ LIST_ITEM_SIZE / 2 - 3
 24 
    LIST_ITEM_Y      equ LIST_ITEM_SIZE / 2 - 3
Line 25... Line 25...
25 
 
 25 
 
Line 26... Line 26...
26 
    KEYB_SIZE	     equ 140
 26 
    KEYB_SIZE	     equ 140
27 
 
 27 
 
28 
    sz_cont db "Keyboard ", 0x10
 28 
    sz_cont db "Keyboard ", 0x10
29 
    sz_head db "Calc+ [v", VERSION, "]", 0
 29 
    sz_head db "Calc+ v", VERSION, 0
30 
    btn_clr db ""
 30 
    btn_clr db ""
31 
    buttons db "|%^*/-+)(=7894561230"
 31 
    buttons db "|%^*/-+)(=7894561230"
Line 43... Line 43...
43 
 main:
 43 
 main:
44 
    mov     [ans.buffer], dword "= 0"
 44 
    mov     [ans.buffer], dword "= 0"
45 
    mov     [ans.size], 3 * 6 + 9
 45 
    mov     [ans.size], 3 * 6 + 9
Line 46... Line 46...
46 
 
 46 
 
47 
    mcall   40, 100111b
 47 
    mcall   40, 100111b
Line 48... Line 48...
48 
    mcall   48, 3, scn, 192
 48 
    ; mcall   48, 3, scn, 192
49 
 
 49 
 
50 
 
 50 
 
Line 81... Line 81...
81 
    mov     edx, [scn.win_face]
 81 
    mov     edx, [scn.win_face]
82 
    or	    edx, 0x34 shl 24
 82 
    or	    edx, 0x34 shl 24
83 
    mcall   0, <100, 236 + 100 - 50 - 25>, <100, 66 + LIST_SIZE>, , , sz_head
 83 
    mcall   0, <100, 236 + 100 - 50 - 25>, <100, 66 + LIST_SIZE>, , , sz_head
Line 84... Line 84...
84 
 
 84 
 
85 
 ; TOOLBAR
 85 
 ; TOOLBAR
86 
    mov     ebx, (275 - 50 - 25 - 50) shl 16 + 64
 - 
 
87 
    cmp     [keyb], byte 1
 - 
 
88 
    jne     @f
 - 
 
89 
    add     ebx, KEYB_SIZE shl 16
 - 
 
90 
  @@:
 86 
    mov     ebx, 120 shl 16 + 64
91 
    mcall   8, , <-17, 12>, 2 + 1 shl 30
 87 
    mcall   8, , <-17, 12>, 2 + 1 shl 30
92 
    add     ebx, 4 shl 16 - (64 + 14)
 88 
    add     ebx, 4 shl 16 - (64 + 14)
Line 93... Line 89...
93 
    mcall   4, , [scn.win_title], sz_cont, 10
 89 
    mcall   4, , [scn.win_title], sz_cont, 10
Line 151... Line 147...
151 
    jne     .not_keyb
 147 
    jne     .not_keyb
Line 152... Line 148...
152 
 
 148 
 
153 
    cmp     [keyb], byte 0
 149 
    cmp     [keyb], byte 0
Line 154... Line -...
154 
    je	    .open
 - 
 
155 
 
 150 
    je	    .open
156 
    mcall   67, -1, -1, 286 - 25, -1
 151 
 
- 
 
 152 
    mov     [keyb], 0
157 
    mov     [keyb], 0
 153 
    mov     [sz_cont + 9], byte 0x10
Line 158... Line 154...
158 
    mov     [sz_cont + 9], byte 0x10
 154 
    mcall   67, -1, -1, 286 - 25, -1
159 
    jmp     ev_redraw
 - 
 
160 
 
 155 
    jmp     update
161 
 .open:
 156 
 
162 
    mcall   67, -1, -1, 286 - 25 + KEYB_SIZE, -1
 157 
 .open:
163 
    mov     [keyb], 1
 - 
 
164 
    mov     [sz_cont + 9], byte 0x11
 158 
    mov     [keyb], 1
165 
    jmp     ev_redraw
 159 
    mov     [sz_cont + 9], byte 0x11
Line 166... Line 160...
166 
 
 160 
    mcall   67, -1, -1, 286 - 25 + KEYB_SIZE, -1
167 
    jmp     update
 161 
    jmp     update
Line 629... Line 623...
629 
 
 623 
 
630 
 ans.buffer:rb 480
 624 
 ans.buffer:rb 480
631 
 ans.size   rd 1
 625 
 ans.size   rd 1
Line 632... Line -...
632 
 error_n    rd 1
 - 
 
633 
 
 626 
 error_n    rd 1
634 
 scn	    sys_colors_new
 627 
 
635 
 timer	    rd 1
 628 
 timer	    rd 1
636 
 but_id     rd 1
 629 
 but_id     rd 1
637 
 but_c	    rd 1
 630 
 but_c	    rd 1
Line 642... Line 635...
642 
 
 635 
 
643 
 his_even   rb 1
 636 
 his_even   rb 1
644 
 history    rb 512 * LIST_ITEM_COUNT
 637 
 history    rb 512 * LIST_ITEM_COUNT
Line -... Line 638...
- 
 
 638 
	    rb 512
- 
 
 639
- 
 
 640 
struc system_colors_internal {
- 
 
 641 
  .3d_face        dd 0xCED0D0
- 
 
 642 
  .3d_dark        dd 0xD7D7D7
- 
 
 643 
  .3d_light       dd 0xFEFEFE
- 
 
 644 
  .win_title      dd 0x2F2F2F
- 
 
 645 
  .win_body       dd 0xE4DFE1
- 
 
 646 
  .btn_face       dd 0xEFEBEF
- 
 
 647 
  .btn_text       dd 0x373C42
- 
 
 648 
  .win_text       dd 0x000000
- 
 
 649 
  .panel_frame    dd 0x94AECE
- 
 
 650 
  .win_face       dd 0xE1E1E1
- 
 
 651 
  .win_inface     dd 0xE1E1E1
- 
 
 652 
  .win_frame      dd 0x204962
- 
 
 653 
  .btn_inface     dd 0xEFEBEF
- 
 
 654 
  .btn_intext     dd 0xD0D9E8
- 
 
 655 
  .btn_fctext     dd 0x2D3135
- 
 
 656 
  .gui_shadow     dd 0xFFFFFF
- 
 
 657 
  .gui_face       dd 0xFAF8FA
- 
 
 658 
  .gui_inface     dd 0xF6F3F6
- 
 
 659 
  .gui_fcface     dd 0xFAF8FA
- 
 
 660 
  .gui_frame      dd 0x7698C0
- 
 
 661 
  .gui_text       dd 0x373C42
- 
 
 662 
  .gui_intext     dd 0x5F5F5F
- 
 
 663 
  .gui_select     dd 0xC7C9C9
- 
 
 664 
}
- 
 
 665 
 
645 
	    rb 512
 666 
 scn system_colors_internal