Subversion Repositories Kolibri OS

Rev

Rev 4736 | Rev 4740 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4736 Rev 4737
Line 27... Line 27...
27 
        dd     0, 0             ; I_Param , I_Path
 27 
        dd     0, 0             ; I_Param , I_Path
Line 28... Line 28...
28 
 
 28 
 
29 
include '../../macros.inc'
 29 
include '../../macros.inc'
Line -... Line 30...
- 
 
 30 
include '../../network.inc'
30 
include '../../network.inc'
 31 
 
31 
 
 32 
 
32 
macro DrawRect x, y, w, h, color
 - 
 
33 
{
 - 
 
34 
	; DrawBar(x,y,w,1,color1);
 - 
 
35 
	; DrawBar(x,y+h,w,1,color1);
 - 
 
36 
	; DrawBar(x,y,1,h,color1);
 - 
 
37 
	; DrawBar(x+w,y,1,h+1,color1);
 33 
macro DrawRectangle x, y, w, h, color
38 
 
 34 
{
39 
	mcall 13, x shl 16 + w,     y shl 16 + 1,   color  ; top
 35 
	mcall 13, x shl 16 + w,     y shl 16 + 1,     color   ; top
40 
	mcall   , x shl 16 + 1,     y shl 16 + h,   color  ; left
 36 
	mcall   , x shl 16 + 1,     y shl 16 + h,     color   ; left
41 
	mcall   , (x+w) shl 16 +1,  y shl 16 + (h+1), color  ; right
 37 
	mcall   , (x+w) shl 16 +1,  y shl 16 + (h+1), color   ; right
Line 42... Line 38...
42 
	mcall   , x shl 16 + w,   (y+h) shl 16 + 1, color  ; bottom
 38 
	mcall   , x shl 16 + w,   (y+h) shl 16 + 1,   color   ; bottom
43 
}
 39 
}
Line 44... Line 40...
44 
 
 40 
 
45 
 
 41 
 
46 
START:
 42 
START:
47 
        mcall   40, EVM_REDRAW + EVM_BUTTON + EVM_STACK2
 43 
        mcall   40, EVM_REDRAW + EVM_BUTTON + EVM_STACK2
48 
 
 44 
 
Line 49... Line 45...
49 
window_redraw:
 45 
window_redraw:
50 
        mcall   12, 1
 46 
        mcall   12, 1
51 
        mcall   0, 100 shl 16 + 600, 100 shl 16 + 240, 0x34E1E1E1, , name       ; draw window
 47 
        mcall   0, 100 shl 16 + 600, 100 shl 16 + 240, 0x34E1E1E1, , name       ; draw window