Subversion Repositories Kolibri OS

Rev

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

Rev 2842 Rev 6167
Line 44... Line 44...
44
	EAX = 9;
44
	EAX = 9;
45
	$int  0x40
45
	$int  0x40
46
}
46
}
Line 47... Line 47...
47
 
47
 
-
 
48
struct system_colors {
-
 
49
dword
-
 
50
	nonset1,
-
 
51
	nonset2,
-
 
52
	work_light,
-
 
53
	work_dark,
-
 
54
	nonset3,
-
 
55
	work,
48
struct system_colors{
56
	work_button,
-
 
57
	work_button_text,
-
 
58
	work_text,
49
	dword frame,grab,grab_button,grab_button_text,grab_text,work,work_button,work_button_text,work_text,work_graph;
59
	work_graph;
50
	void get();
60
	void get();
Line 51... Line 61...
51
};
61
};
52
 
62
 
53
void system_colors::get()
63
void system_colors::get()
54
{
64
{
55
	$push ecx
65
	$push ecx
56
	EAX = 48;
66
	EAX = 48;
57
	EBX = 3;
67
	EBX = 3;
58
	ECX = #frame;
68
	ECX = #nonset1;
59
	EDX = 40;
69
	EDX = 40;
60
	$int 0x40
70
	$int 0x40
Line 66... Line 76...
66
inline fastcall dword WaitEvent(){
76
inline fastcall dword WaitEvent(){
67
 EAX = 10;
77
 EAX = 10;
68
 $int 0x40
78
 $int 0x40
69
}
79
}
Line -... Line 80...
-
 
80
 
70
 
81
int GetKeyScancode()
71
 
82
{
72
inline fastcall word GetKey(){
-
 
73
 EAX = 2;              // just read it key from buffer
83
	$mov  eax,2
-
 
84
	$int  0x40
74
 $int  0x40
85
	$shr  eax,16
75
 EAX = EAX >> 8;	 
86
	return AL;
Line 76... Line 87...
76
}
87
}
77
 
88
 
78
inline fastcall word GetButtonID(){
89
inline fastcall word GetButtonID(){
Line 242... Line 253...
242
	$mov cl, 10
253
	$mov cl, 10
243
	$int 0x40
254
	$int 0x40
244
	$pop ecx
255
	$pop ecx
245
	$pop ebx
256
	$pop ebx
246
}
257
}
247
>
258
 
-
 
259
void DrawCaptButton(dword x,y,w,h,id,color_b, color_t,text)
-
 
260
{
-
 
261
	if (id>0) DefineButton(x,y,w,h,id,color_b);
-
 
262
	WriteText(-strlen(text)*6+w/2+x+1,h/2-3+y,0x80,color_t,text);
-
 
263
}
-
 
264
>
-
 
265
>
-
 
266
>