Subversion Repositories Kolibri OS

Rev

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

Rev 4781 Rev 4798
Line 12... Line 12...
12
;;                                                                 ;;
12
;;                                                                 ;;
13
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
13
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Line 14... Line 14...
14
 
14
 
Line -... Line 15...
-
 
15
format binary as ""
-
 
16
 
-
 
17
BOX_WIDTH       = 390
15
format binary as ""
18
BOX_HEIGHT      = 185
Line 16... Line 19...
16
 
19
 
Line 17... Line 20...
17
use32
20
use32
Line 67... Line 70...
67
        add     ebx, 6 shl 16
70
        add     ebx, 6 shl 16
68
        cmp     ebx, 360 shl 16
71
        cmp     ebx, 360 shl 16
69
        jb      .loop
72
        jb      .loop
Line 70... Line 73...
70
 
73
 
71
; Draw sides and bottom lines of the rectangle
74
; Draw sides and bottom lines of the rectangle
72
        mcall  , 0 shl 16 + 1, 25 shl 16 + 180;, 0x00777777
75
        mcall  , 0 shl 16 + 1, 25 shl 16 + BOX_HEIGHT;, 0x00777777
73
        mcall  , (0+400) shl 16 +1, 25 shl 16 + (180+1)
76
        mcall  , (0+BOX_WIDTH) shl 16 +1, 25 shl 16 + (BOX_HEIGHT+1)
Line 74... Line 77...
74
        mcall  , 0 shl 16 + 400, (25+180) shl 16 + 1
77
        mcall  , 0 shl 16 + BOX_WIDTH, (25+BOX_HEIGHT) shl 16 + 1
Line 75... Line 78...
75
 
78
 
76
redraw:
79
redraw:
Line 77... Line 80...
77
 
80
 
78
; Draw interface buttons (on the right hand side)
81
; Draw interface buttons (on the right hand side)
Line 79... Line 82...
79
        call    draw_interfaces
82
        call    draw_interfaces
80
 
83
 
Line 81... Line 84...
81
; Draw upper line of rectangle
84
; Draw upper line of rectangle
82
        mcall   13, 0 shl 16 + 400, 25 shl 16 + 1, 0x00777777
85
        mcall   13, 0 shl 16 + BOX_WIDTH, 25 shl 16 + 1, 0x00777777
83
 
86
 
84
; Fill rectangle
87
; Fill rectangle
Line 703... Line 706...
703
 
706
 
Line 704... Line 707...
704
 
707
 
705
draw_interfaces:
708
draw_interfaces:
Line 706... Line 709...
706
 
709
 
707
        mov     [.btnpos], 5 shl 16 + 20
710
        mov     [.btnpos], 5 shl 16 + 20
708
        mov     [.txtpos], 455 shl 16 + 12
711
        mov     [.txtpos], 405 shl 16 + 12
709
 
712
 
Line 727... Line 730...
727
        movzx   edx, bh
730
        movzx   edx, bh
728
        shl     edx, 8
731
        shl     edx, 8
729
        mov     esi, 0x00BBBbbb
732
        mov     esi, 0x00BBBbbb
730
        cmp     bh, [device]
733
        cmp     bh, [device]
731
        cmove   esi, 0x0081BBFF
734
        cmove   esi, 0x0081BBFF
732
        mcall   8, 450 shl 16 + 135, [.btnpos]
735
        mcall   8, 400 shl 16 + 185, [.btnpos]
733
        mov     ebx, [esp]
736
        mov     ebx, [esp]
734
        inc     bl
737
        inc     bl
735
        mov     ecx, namebuf
738
        mov     ecx, namebuf
736
        mov     edx, namebuf
739
        mov     edx, namebuf
737
        mcall   74                              ; get device name
740
        mcall   74                              ; get device name