Subversion Repositories Kolibri OS

Rev

Rev 9537 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9537 Rev 9636
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 15... Line 15...
15 
 
 15 
 
16 
:void DrawDate(dword x, y, color, in_date)
 16 
:struct time
- 
 
 17 
{
- 
 
 18 
	byte seconds;
- 
 
 19 
	byte minutes;
- 
 
 20 
	byte hours;
- 
 
 21 
	byte rez;
- 
 
 22 
};
- 
 
 23 
 
- 
 
 24 
:void DrawDateTime(dword x, y, color, _date, _time)
17 
{
 25 
{
18 
	EDI = in_date;
 26 
	EDI = _date;
19 
	EAX = 47;
 27 
	EAX = 47;
20 
	EBX = 2<<16;
 28 
	EBX = 2<<16;
21 
	EDX = x<<16+y;
 29 
	EDX = x<<16+y;
22 
	ESI = 0x90<<24+color;
 30 
	ESI = 0x90<<24+color;
23 
	ECX = EDI.date.day;
 31 
	ECX = EDI.date.day;
24 
	$int 64
 32 
	$int 64
25 
	EDX += 20<<16;
 33 
	EDX += 24<<16;
26 
	ECX = EDI.date.month;
 34 
	ECX = EDI.date.month;
27 
	$int 64
 35 
	$int 64
28 
	EDX += 20<<16;
 36 
	EDX += 24<<16;
29 
	EBX = 4<<16;
 37 
	EBX = 4<<16;
30 
	ECX = EDI.date.year;
 38 
	ECX = EDI.date.year;
- 
 
 39 
	$int 64
- 
 
 40 
 
- 
 
 41 
	EDI = _time;
- 
 
 42 
	EDX += 40<<16;
31 
	$int 64
 43 
	EBX = 2<<16;
- 
 
 44 
	ECX = EDI.time.hours;
32 
	DrawBar(x+17,y+10,2,2,color);
 45 
	$int 64
- 
 
 46 
	EDX += 24<<16;
33 
	$add ebx, 20 << 16
 47 
	ECX = EDI.time.minutes;
- 
 
 48 
	$int 64
- 
 
 49 
	EDX += 24<<16;
- 
 
 50 
	ECX = EDI.time.seconds;
- 
 
 51 
	$int 64
- 
 
 52
34 
	$int 64
 53 
	WriteText(x,y,0x90,color, "  .  .       :  :");
Line 35... Line 54...
35 
}
 54 
}
36 
 
 55