Subversion Repositories Kolibri OS

Rev

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

Rev 6887 Rev 7806
Line 11... Line 11...
11 
	byte day;
 11 
	byte day;
12 
	byte month;
 12 
	byte month;
13 
	word year;
 13 
	word year;
14 
};
 14 
};
Line -... Line 15...
- 
 
 15 
 
- 
 
 16 
:void DrawDate(dword x, y, color, in_date)
- 
 
 17 
{
- 
 
 18 
	EDI = in_date;
- 
 
 19 
	EAX = 47;
- 
 
 20 
	EBX = 2<<16;
- 
 
 21 
	EDX = x<<16+y;
- 
 
 22 
	ESI = 0x90<<24+color;
- 
 
 23 
	ECX = EDI.date.day;
- 
 
 24 
	$int 0x40;
- 
 
 25 
	EDX += 20<<16;
- 
 
 26 
	ECX = EDI.date.month;
- 
 
 27 
	$int 0x40;
- 
 
 28 
	EDX += 20<<16;
- 
 
 29 
	EBX = 4<<16;
- 
 
 30 
	ECX = EDI.date.year;
- 
 
 31 
	$int 0x40;
- 
 
 32 
	DrawBar(x+17,y+10,2,2,color);
- 
 
 33 
	DrawBar(x+37,y+10,2,2,color);
- 
 
 34 
}
15 
 
 35 
 
16 
#endif
 36 
#endif