Subversion Repositories Kolibri OS

Rev

Rev 4736 | Rev 4740 | Go to most recent revision | Show entire file | Regard 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 30... Line -...
30 
include '../../network.inc'
 - 
 
31 
 
 - 
 
32 
macro DrawRect x, y, w, h, color
 - 
 
33 
{
 - 
 
34 
	; DrawBar(x,y,w,1,color1);
 - 
 
35 
	; DrawBar(x,y+h,w,1,color1);
 - 
 
Line -... Line 30...
- 
 
 30 
include '../../network.inc'
- 
 
 31 
 
36 
	; DrawBar(x,y,1,h,color1);
 32 
 
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
Line 48... Line 44...
48 
 
 44 
 
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
52 
		mcall   12, 2
 48 
		mcall   12, 2
Line 53... Line 49...
53 
		DrawRect 0, 25, 400, 180, 0x777777
 49 
		DrawRectangle 0, 25, 400, 180, 0x777777
54 
 
 50 
 
55 
redraw:
 51 
redraw: