Subversion Repositories Kolibri OS

Rev

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

Rev 5665 Rev 6190
Line 23... Line 23...
23 
include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
 23 
include '../../../develop/libraries/box_lib/trunk/box_lib.mac'
24 
 
 24 
 
Line 25... Line 25...
25 
	@use_library
 25 
@use_library
Line -... Line 26...
- 
 
 26 
 
- 
 
 27 
macro DrawBar  x, y, width, height, color
- 
 
 28 
{
- 
 
 29 
	mcall 13, (x) shl 16 + (width), (y) shl 16 + (height), color
- 
 
 30 
}
- 
 
 31 
 
- 
 
 32 
macro DrawRectangle  x, y, w, h, color
- 
 
 33 
{
- 
 
 34 
	DrawBar x,y,w,1,color
- 
 
 35 
	DrawBar x,y+h,w,1
- 
 
 36 
	DrawBar x,y,1,h
- 
 
 37 
	DrawBar x+w,y,1,h+1
- 
 
 38 
}
- 
 
 39 
 
26 
 
 40
27 
align 4
 41 
align 4
Line -... Line 42...
- 
 
 42 
START:
28 
START:
 43 
 
29 
 
 44 
 
30 
load_libraries l_libs_start,end_l_libs
 45 
load_libraries l_libs_start,end_l_libs
31 
	inc	eax
 46 
	inc	eax
Line 165... Line 180...
165 
    call  [check_box_draw2]
 180 
    call  [check_box_draw2]
166 
    jmp    still
 181 
    jmp    still
167 
 
 182 
 
Line 168... Line 183...
168 
draw_window:
 183 
draw_window:
169 
    mov   al,12
 - 
 
170 
    mcall   ,1
 184 
    mcall 12,1
Line 171... Line 185...
171 
 
 185 
 
172 
    mov   al,14
 186 
    mov   al,14
173 
    mcall				     ;eax=14 - get screen max x & max y
 187 
    mcall				     ;eax=14 - get screen max x & max y
174 
    movzx ecx,ax
 188 
    movzx ecx,ax
Line 179... Line 193...
179 
    shl   ecx,16
 193 
    shl   ecx,16
180 
    lea   ecx,[ecx-70 shl 16+132]
 194 
    lea   ecx,[ecx-70 shl 16+132]
181 
 
 195 
 
Line 182... Line 196...
182 
    xor   eax,eax
 196 
    xor   eax,eax
- 
 
 197 
	mov edx, 0x01000000
183 
    mcall  , , ,[color1],0x01000000	   ;define and draw window
 198 
	mcall ;define and draw window
Line -... Line 199...
- 
 
 199 
 
184 
 
 200 
	DrawRectangle 0,0,332,132,[color1]
185 
    mov   al,13
 201 
    mov   al,13
186 
    mcall   ,<0,333> ,<0,133>
 202 
    mcall   ,<1,331>,<1,1>,[color2]
187 
    mcall   ,<1,331>,<1,131>,[color2]
 203 
	mcall   ,<1,1>,<1,131>
Line 188... Line 204...
188 
    mcall   ,<2,330>,<2,130>, [color3]
 204 
    mcall   ,<2,330>,<2,130>, [color3]
189 
 
 205 
 
190 
    mov   al,8
 206 
    mov   al,8