Subversion Repositories Kolibri OS

Rev

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

Rev 7661 Rev 7759
Line 272... Line 272...
272
	ESBYTE[next_word_pointer] = NULL;
272
	ESBYTE[next_word_pointer] = NULL;
273
	WriteText(dword x, y, byte fontType, dword color, text_pointer);
273
	WriteText(dword x, y, byte fontType, dword color, text_pointer);
274
	ESBYTE[next_word_pointer] = '\n';
274
	ESBYTE[next_word_pointer] = '\n';
275
}
275
}
Line -... Line 276...
-
 
276
 
-
 
277
:void DrawOvalBorder(dword x,y,w,h, light,dark,right,dots)
-
 
278
{
-
 
279
	DrawBar(x+1,    y,     w, 1,   light);
-
 
280
	DrawBar(x+1,    y+h+1, w, 1,   dark);
-
 
281
	DrawBar(x,      y+1,   1, h-1, light);
-
 
282
	DrawBar(x+w+1,  y+2,   1, h-2, right);
-
 
283
 
-
 
284
	PutPixel(x,     y,     dots);
-
 
285
	PutPixel(x+w+1, y+h+1, dots);
-
 
286
	PutPixel(x,     y+h+1, dots);
-
 
287
	PutPixel(x+w+1, y,     dots);
-
 
288
	
-
 
289
	PutPixel(x,     y+h, dark);
-
 
290
	PutPixel(x+w+1, y+1, light);
-
 
291
	PutPixel(x+w+1, y+h, dark);	
-
 
292
}
276
 
293
 
277
//this function increase falue and return it
294
//this function increase falue and return it
278
//useful for list of controls which goes one after one
295
//useful for list of controls which goes one after one
279
:struct incn
296
:struct incn
280
{
297
{