Subversion Repositories Kolibri OS

Rev

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

Rev 1815 Rev 1816
Line 15... Line 15...
15
	mov	edi, 0x00ddeeff 	 ; color of frames    RRGGBB
15
	mov	edi, 0x00ddeeff 	 ; color of frames    RRGGBB
16
	int	0x40
16
	int	0x40
17
	; WINDOW LABEL
17
	; WINDOW LABEL
18
	mov	eax, 4			; function 4 : write text to window
18
	mov	eax, 4			; function 4 : write text to window
19
	mov	ebx, 8*65536+8		; [x start] *65536 + [y start]
19
	mov	ebx, 8*65536+8		; [x start] *65536 + [y start]
20
	mov	ecx, 0x00ffffff 	; color of text RRGGBB
20
	mov	ecx, 0x0;0ffffff         ; color of text RRGGBB
21
	mov	edx, caption		; pointer to text beginning
21
	mov	edx, caption		; pointer to text beginning
22
	mov	esi, capsize	; text length
22
	mov	esi, capsize	; text length
23
	int	0x40
23
	int	0x40
24
	;popa
24
	;popa
25
}
25
}
Line 87... Line 87...
87
	shl	ebx, 16
87
	shl	ebx, 16
88
	or	ebx, dword [y]
88
	or	ebx, dword [y]
89
	mov	ecx, dword [color]
89
	mov	ecx, dword [color]
90
	mov	edx, dword [prompt]
90
	mov	edx, dword [prompt]
91
	mov	esi, dword [prompt_len]
91
	mov	esi, dword [prompt_len]
-
 
92
	test	esi, esi
-
 
93
	jnz	@f
-
 
94
	or	ecx, 0x80000000
-
 
95
      @@:
92
	int	0x40
96
	int	0x40
93
	popa
97
	popa
94
ret
98
ret
95
endp
99
endp
96
;}
100
;}
Line 136... Line 140...
136
  line x,y,x,y2,color
140
  line x,y,x,y2,color
137
  line x,y2,x2,y2,color
141
  line x,y2,x2,y2,color
138
  line x2,y,x2,y2,color
142
  line x2,y,x2,y2,color
139
}
143
}
Line -... Line 144...
-
 
144
 
-
 
145
macro rectangle2 x,y,xsize,ysize,color1,color2
-
 
146
{
-
 
147
  x2=x+xsize
-
 
148
  y2=y+ysize
-
 
149
  line x,y,x2,y,color1
-
 
150
  line x,y,x,y2,color1
-
 
151
  line x,y2,x2,y2,color2
-
 
152
  line x2,y,x2,y2,color2
-
 
153
}
140
 
154
 
141
macro putpixel x,y,color
155
macro putpixel x,y,color
142
{
156
{
143
  mov eax, 1
157
  mov eax, 1
144
  mov ebx, x
158
  mov ebx, x