Subversion Repositories Kolibri OS

Rev

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

Rev 4594 Rev 4738
Line 1... Line 1...
1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; GUI ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; GUI ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Line -... Line 4...
-
 
4
 
-
 
5
macro DrawRectangle x, y, w, h, color
-
 
6
{
-
 
7
	mcall 13, x shl 16 + w,     y shl 16 + 1,     color   ; top
-
 
8
	mcall   , x shl 16 + 1,     y shl 16 + h,     color   ; left
-
 
9
	mcall   , (x+w) shl 16 +1,  y shl 16 + (h+1), color   ; right
-
 
10
	mcall   , x shl 16 + w,   (y+h) shl 16 + 1,   color   ; bottom
-
 
11
}
4
 
12
 
5
;-----------------------------------------------------------------------------
13
;-----------------------------------------------------------------------------
Line 6... Line 14...
6
;                             Color scheme
14
;                             Color scheme
7
 
15
 
Line 1599... Line 1607...
1599
        mcall
1607
        mcall
1600
        mov     ecx, (cmdline_y_pos-2)*10001h
1608
        mov     ecx, (cmdline_y_pos-2)*10001h
1601
        mcall
1609
        mcall
Line 1602... Line 1610...
1602
 
1610
 
1603
    ; registers frame
1611
    ; registers frame
1604
        mov     ebx, (registers_x_pos-2)*10000h + (registers_x_size+4)
1612
        ; mov     ebx, (registers_x_pos-2)*10000h + (registers_x_size+4)
-
 
1613
        ; mov     ecx, (registers_y_pos-2)*10000h + (registers_y_size+4)
1605
        mov     ecx, (registers_y_pos-2)*10000h + (registers_y_size+4)
1614
		DrawRectangle (registers_x_pos-2), (registers_y_pos-2), (registers_x_size+3), (registers_y_size+3), COLOR_LINE
1606
        ; draw container rectangle/box for registers information window region
1615
        ; draw container rectangle/box for registers information window region
Line 1607... Line 1616...
1607
        mcall   13
1616
        mcall   13
1608
 
1617