Subversion Repositories Kolibri OS

Rev

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

Rev 3625 Rev 4934
Line 634... Line 634...
634
;   *********************************************
634
;   *********************************************
Line 635... Line 635...
635
 
635
 
636
draw_window:
636
draw_window:
Line 637... Line 637...
637
        mcall   12, 1
637
        mcall   12, 1
Line 638... Line 638...
638
 
638
 
Line 639... Line 639...
639
        mcall   48, 3, sc, sizeof.system_colors
639
        mcall   48, 3, sc, sizeof.new_system_colors
640
 
640
 
641
        mcall   48, 4
641
        mcall   48, 4
642
 
642
 
643
        mov     ecx, eax
643
        mov     ecx, eax
644
        xor     eax, eax                     
644
        xor     eax, eax                     
645
        mov     ebx, 200 shl 16 + 256
645
        mov     ebx, 200 shl 16 + 256
646
        add     ecx, 200 shl 16 + 158
646
        add     ecx, 200 shl 16 + 158
Line 647... Line 647...
647
        mov     edx, [sc.work]
647
        mov     edx, [sc.win_body]
648
        or      edx, 0x34000000
648
        or      edx, 0x34000000
649
        mov     edi, title
649
        mov     edi, title
650
        mcall
650
        mcall
651
 
651
 
652
        mov     eax, 8
652
        mov     eax, 8
653
        mov     ebx, 19 shl 16 + 28
653
        mov     ebx, 19 shl 16 + 28
654
        mov     ecx, 49 shl 16 + 18
654
        mov     ecx, 49 shl 16 + 18
655
        mov     edx, 6
655
        mov     edx, 6
656
        mov     esi, [sc.work_button]
656
        mov     esi, [sc.btn_face]
Line 670... Line 670...
670
 
670
 
671
        mcall   , <199, 28>, <49, 18>, 2        ; 'C'
671
        mcall   , <199, 28>, <49, 18>, 2        ; 'C'
Line 672... Line 672...
672
        mcall   , <220,  8>, < 7,  8>, 3        ; 'dec-bin-hex'
672
        mcall   , <220,  8>, < 7,  8>, 3        ; 'dec-bin-hex'
673
 
673
 
674
 
674
 
675
        mov     ecx, [sc.work_button_text]
675
        mov     ecx, [sc.btn_text]
676
        mov     edx, text
676
        mov     edx, text
677
        mov     edi, 55 - 20
677
        mov     edi, 55 - 20
Line 702... Line 702...
702
        mcall   12, 2
702
        mcall   12, 2
703
        ret
703
        ret
Line 704... Line 704...
704
 
704
 
705
print_display:
705
print_display:
706
        pusha
706
        pusha
-
 
707
        mcall   13, < 20, 207>, <21, 17>, [sc.gui_face]
-
 
708
        mcall   38, < 19, 227>, <20, 20>, [sc.gui_frame]
-
 
709
        mcall   38, < 19, 227>, <38, 38>, [sc.gui_frame]
-
 
710
        mcall   38, < 19,  19>, <21, 37>, [sc.gui_frame]
Line 707... Line 711...
707
        mcall   13, <19, 209>, <19, 13>, 0xffffff
711
        mcall   38, <227, 227>, <21, 37>, [sc.gui_frame]
708
 
712
 
709
        mov     eax, 4
713
        mov     eax, 4
710
        mov     ebx, 135 shl 16 + 7
714
        mov     ebx, 135 shl 16 + 7
711
        mov     ecx, [sc.work_text]
715
        mov     ecx, [sc.gui_text]
712
        or      ecx, 0x40000000
716
        or      ecx, 0x40000000
713
        mov     edx, calc
717
        mov     edx, calc
714
        mov     esi, 1
718
        mov     esi, 1
Line 715... Line 719...
715
        mov     edi, [sc.work]
719
        mov     edi, [sc.win_body]
716
        mcall
720
        mcall
717
 
721
 
718
        mov     ebx, 198 shl 16 + 8
722
        mov     ebx, 198 shl 16 + 8
719
        mov     edx, [display_type]
723
        mov     edx, [display_type]
720
        shl     edx, 2
724
        shl     edx, 2
721
        add     edx, display_type_text
725
        add     edx, display_type_text
Line 722... Line 726...
722
        mov     esi, 3
726
        mov     esi, 3
723
        mov     edi, [sc.work]
727
        mov     edi, [sc.win_body]
724
        mcall
728
        mcall
Line 725... Line 729...
725
 
729
 
726
        cmp     [dsign], byte '+'
730
        cmp     [dsign], byte '+'
727
        je      positive
731
        je      positive
728
        mcall   , <23, 22>, 0, dsign, 1
732
        mcall   , <23, 26>, 0, dsign, 1
729
 
733
 
Line 730... Line 734...
730
positive:  
734
positive:  
731
        cmp     [display_type], 0
735
        cmp     [display_type], 0
732
        jne     no_display_decimal
736
        jne     no_display_decimal
Line 733... Line 737...
733
        cmp     [decimal], 0
737
        cmp     [decimal], 0
734
        je      whole
738
        je      whole
Line 735... Line 739...
735
 
739
 
736
        mcall   , <180, 22>, 0, dot, 1
740
        mcall   , <180, 26>, 0, dot, 1
Line 737... Line 741...
737
        mcall   47, <10, 0>, [integer], <120, 22>, 0
741
        mcall   47, <10, 0>, [integer], <120, 22>, 0
738
        mcall   , <6, 0>, [decimal], <187, 22>, 0
742
        mcall   , <6, 0>, [decimal], <187, 22>, 0
739
 
743
 
740
        popa
744
        popa
741
        ret
745
        ret
Line 742... Line 746...
742
 
746
 
743
whole:
747
whole:
744
        mcall   , <220, 22>, 0, dot, 1
748
        mcall   , <220, 26>, 0, dot, 1
745
 
749
 
746
        cmp     [integer], 0
750
        cmp     [integer], 0
747
        je      null
751
        je      null
748
        mcall   47, <10, 0>, [integer], <160, 22>, 0
752
        mcall   47, <10, 0>, [integer], <160, 26>, 0
749
        popa
753
        popa
Line 750... Line 754...
750
        ret
754
        ret
751
 
755
 
752
no_display_decimal:
756
no_display_decimal:
753
        cmp     [display_type], 1
757
        cmp     [display_type], 1
754
        jne     no_display_hexadecimal
758
        jne     no_display_hexadecimal
755
        cmp     [integer], 0
759
        cmp     [integer], 0
Line 756... Line 760...
756
        je      null
760
        je      null
757
        mcall   47, <8, 256>, [integer], <173, 22>, 0
761
        mcall   47, <8, 256>, [integer], <173, 26>, 0
758
        popa
762
        popa
759
        ret
763
        ret
Line 760... Line 764...
760
 
764
 
761
no_display_hexadecimal:
765
no_display_hexadecimal:
Line 835... Line 839...
835
asci:   db 49, 50, 51, 52, 53, 54, 55, 56, 57, 48, 43, 61, 45, 42, 47, 44, 46, 27
839
asci:   db 49, 50, 51, 52, 53, 54, 55, 56, 57, 48, 43, 61, 45, 42, 47, 44, 46, 27
836
butid:  db 12, 13, 14, 19, 20, 21, 26, 27, 28, 34, 15, 39, 22, 36, 29, 35, 35, 1
840
butid:  db 12, 13, 14, 19, 20, 21, 26, 27, 28, 34, 15, 39, 22, 36, 29, 35, 35, 1
Line 837... Line 841...
837
 
841
 
Line 838... Line 842...
838
I_END:
842
I_END:
839
 
843
 
840
sc      system_colors
844
sc      new_system_colors