Subversion Repositories Kolibri OS

Rev

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

Rev 1547 Rev 2549
Line 1... Line 1...
1 
include 'proc32.inc'
 1 
include 'proc32.inc'
Line 2... Line 2...
2 
 
 2 
 
3 
macro start_draw_window x,y,xsize,ysize,areacolor,caption,capsize
 3 
macro start_draw_window x,y,xsize,ysize,areacolor,caption
4 
{
 4 
{
5 
	;pusha
 5 
	;pusha
6 
	mov	eax, 12 		; function 12:tell os about windowdraw
 6 
	mov	eax, 12 		; function 12:tell os about windowdraw
7 
	mov	ebx, 1			; 1, start of draw
 7 
	mov	ebx, 1			; 1, start of draw
8 
	int	0x40
 8 
	int	0x40
9 
	; DRAW WINDOW
 9 
	; DRAW WINDOW
10 
	mov	eax, 0			; function 0 : define and draw window
 10 
	mov	eax, 0			     ; function 0 : define and draw window
11 
	mov	ebx, x*65536+xsize	; [x start] *65536 + [x size]
 11 
	mov	ebx, x*65536+xsize	 ; [x start] *65536 + [x size]
12 
	mov	ecx, y*65536+ysize	; [y start] *65536 + [y size]
 12 
	mov	ecx, y*65536+ysize	 ; [y start] *65536 + [y size]
13 
	mov	edx, areacolor		 ; color of work area RRGGBB
 - 
 
14 
	mov	esi, 0x00334455 	 ; color of grab bar  RRGGBB
 13 
	mov	edx, areacolor		 ; color of work area RRGGBB
15 
	mov	edi, 0x00ddeeff 	 ; color of frames    RRGGBB
 - 
 
16 
	int	0x40
 - 
 
17 
	; WINDOW LABEL
 - 
 
18 
	mov	eax, 4			; function 4 : write text to window
 - 
 
19 
	mov	ebx, 8*65536+8		; [x start] *65536 + [y start]
 - 
 
20 
	mov	ecx, 0x00ffffff 	; color of text RRGGBB
 - 
 
21 
	mov	edx, caption		; pointer to text beginning
 - 
 
22 
	mov	esi, capsize	; text length
 14 
	mov	edi, caption         ; color of frames    RRGGBB
23 
	int	0x40
 15 
	int	0x40
24 
	;popa
 16 
	;popa
Line 25... Line 17...
25 
}
 17 
}