WebSVN – Kolibri OS – Diff – /programs/fs/Eolite/trunk/include/about_dialog.h


//Leency - 2012
 
#define EDITOR_PATH     "/sys/tinypad"
#define BROWSER_PATH    "/sys/htmlv"
#define BROWSER_LINK    "http://kolibri-os.narod.ru"
 
 
void about_dialog()
{   
	mouse mm;
	byte id, letitclose=0;
	SetEventMask(100111b); 
	loop() switch(WaitEvent())
	{
		case evMouse:
				mm.get();
				//êóëüíî
				IF (mm.x>85) && (mm.x<155) && (mm.y>190) && (mm.y<190+22)
				IF (mm.lkm) {DrawRegion_3D(86,191,68,20,0xC7C7C7,0xFFFFFF); letitclose=1;}
				ELSE {IF (letitclose) {DrawRegion_3D(86,191,68,20,0xFFFFFF,0xC7C7C7); Pause(7); ExitProcess();}}
				ELSE IF (letitclose) {letitclose=0; DrawRegion_3D(86,191,68,20,0xFFFFFF,0xC7C7C7);}
				break; 
				
		case evButton: 
				id=GetButtonID();
				IF (id==1) ExitProcess();
				IF (id==23) RunProgram(BROWSER_PATH, BROWSER_LINK);
				IF (id==33) RunProgram(EDITOR_PATH, #program_path);
				break;
				
		case evKey:
				IF (GetKey()==27) ExitProcess();
				break;
				
		case evReDraw:
				DefineAndDrawWindow(600,150,181,232+GetSkinHeight(),0x34,col_work,"About Eolite");
				DrawBar(0,0,172,50,0x8494C4); //ãîëóáîå ñçàäè
				PutPaletteImage(#logo,85,85,43,7,#logo_pal);
				WriteText(46,100,0x90,0xBF40BF,"Eolite v1.51",0);
				$add ebx, 1<<16
				$int 0x40
				WriteText(55,120,0x80,0,"Developers:",0); 
				WriteText(39,130,0x80,0,"Leency & Veliant",0); 
				WriteText(45,140,0x80,0,"KolibriOS Team",0);
				WriteText(61,150,0x80,0,"2008-2012",0);
				WriteText(12,170,0x80,0,"Visit",0);
				DrawLink(48,170,23, "kolibri-os.narod.ru"); //ññûëêa
				DrawFlatButton(85,190,70,22,0,0xE4DFE1, "Close");
				
				DefineButton(20-1,195-1, 16+1,15+1, 33+BT_HIDE, 0);
				PutPaletteImage(8*16*15+#ficons,16,15,20,195,#ficons_pal);	
				DrawFilledBar(0, 216, 172, 12);							
	}
}
 
void DrawLink(dword x,y,btn_id, inscription)
{
	WriteText(x,y,0x80,0x4E00E7,inscription,0);
	DrawBar(x,y+8,strlen(inscription)*6,1,0x4E00E7); //ïîä÷åðêíóòü ññûëêó
	DefineButton(x-1,y-1,strlen(inscription)*6,10,btn_id+BT_HIDE,0);
}
>
>
>

Rev 3123	Rev 3150
1	//Leency - 2012	1	//Leency - 2012
2		2
3	#define EDITOR_PATH "/sys/tinypad"	3	#define EDITOR_PATH "/sys/tinypad"
4	#define BROWSER_PATH "/sys/htmlv"	4	#define BROWSER_PATH "/sys/htmlv"
5	#define BROWSER_LINK "http://kolibri-os.narod.ru"	5	#define BROWSER_LINK "http://kolibri-os.narod.ru"
6		6
7		7
8	void about_dialog()	8	void about_dialog()
9	{	9	{
10	mouse mm;	10	mouse mm;
11	byte id, letitclose=0;	11	byte id, letitclose=0;
12	SetEventMask(100111b);	12	SetEventMask(100111b);
13	loop() switch(WaitEvent())	13	loop() switch(WaitEvent())
14	{	14	{
15	case evMouse:	15	case evMouse:
16	mm.get();	16	mm.get();
17	//êóëüíî	17	//êóëüíî
18	IF (mm.x>85) && (mm.x<155) && (mm.y>190) && (mm.y<190+22)	18	IF (mm.x>85) && (mm.x<155) && (mm.y>190) && (mm.y<190+22)
19	IF (mm.lkm) {DrawRegion_3D(86,191,68,20,0xC7C7C7,0xFFFFFF); letitclose=1;}	19	IF (mm.lkm) {DrawRegion_3D(86,191,68,20,0xC7C7C7,0xFFFFFF); letitclose=1;}
20	ELSE {IF (letitclose) {DrawRegion_3D(86,191,68,20,0xFFFFFF,0xC7C7C7); Pause(7); ExitProcess();}}	20	ELSE {IF (letitclose) {DrawRegion_3D(86,191,68,20,0xFFFFFF,0xC7C7C7); Pause(7); ExitProcess();}}
21	ELSE IF (letitclose) {letitclose=0; DrawRegion_3D(86,191,68,20,0xFFFFFF,0xC7C7C7);}	21	ELSE IF (letitclose) {letitclose=0; DrawRegion_3D(86,191,68,20,0xFFFFFF,0xC7C7C7);}
22	break;	22	break;
23		23
24	case evButton:	24	case evButton:
25	id=GetButtonID();	25	id=GetButtonID();
26	IF (id==1) ExitProcess();	26	IF (id==1) ExitProcess();
27	IF (id==23) RunProgram(BROWSER_PATH, BROWSER_LINK);	27	IF (id==23) RunProgram(BROWSER_PATH, BROWSER_LINK);
28	IF (id==33) RunProgram(EDITOR_PATH, #program_path);	28	IF (id==33) RunProgram(EDITOR_PATH, #program_path);
29	break;	29	break;
30		30
31	case evKey:	31	case evKey:
32	IF (GetKey()==27) ExitProcess();	32	IF (GetKey()==27) ExitProcess();
33	break;	33	break;
34		34
35	case evReDraw:	35	case evReDraw:
36	DefineAndDrawWindow(600,150,181,232+GetSkinHeight(),0x34,col_work,"About Eolite");	36	DefineAndDrawWindow(600,150,181,232+GetSkinHeight(),0x34,col_work,"About Eolite");
37	DrawBar(0,0,172,50,0x8494C4); //ãîëóáîå ñçàäè	37	DrawBar(0,0,172,50,0x8494C4); //ãîëóáîå ñçàäè
38	PutPaletteImage(#logo,85,85,43,7,#logo_pal);	38	PutPaletteImage(#logo,85,85,43,7,#logo_pal);
39	WriteText(46,100,0x90,0xBF40BF,"Eolite v1.50",0);	39	WriteText(46,100,0x90,0xBF40BF,"Eolite v1.51",0);
40	$add ebx, 1<<16	40	$add ebx, 1<<16
41	$int 0x40	41	$int 0x40
42	WriteText(55,120,0x80,0,"Developers:",0);	42	WriteText(55,120,0x80,0,"Developers:",0);
43	WriteText(39,130,0x80,0,"Leency & Veliant",0);	43	WriteText(39,130,0x80,0,"Leency & Veliant",0);
44	WriteText(45,140,0x80,0,"KolibriOS Team",0);	44	WriteText(45,140,0x80,0,"KolibriOS Team",0);
45	WriteText(61,150,0x80,0,"2008-2012",0);	45	WriteText(61,150,0x80,0,"2008-2012",0);
46	WriteText(12,170,0x80,0,"Visit",0);	46	WriteText(12,170,0x80,0,"Visit",0);
47	DrawLink(48,170,23, "kolibri-os.narod.ru"); //ññûëêa	47	DrawLink(48,170,23, "kolibri-os.narod.ru"); //ññûëêa
48	DrawFlatButton(85,190,70,22,0,0xE4DFE1, "Close");	48	DrawFlatButton(85,190,70,22,0,0xE4DFE1, "Close");
49		49
50	DefineButton(20-1,195-1, 16+1,15+1, 33+BT_HIDE, 0);	50	DefineButton(20-1,195-1, 16+1,15+1, 33+BT_HIDE, 0);
51	PutPaletteImage(81615+#ficons,16,15,20,195,#ficons_pal);	51	PutPaletteImage(81615+#ficons,16,15,20,195,#ficons_pal);
52	DrawFilledBar(0, 216, 172, 12);	52	DrawFilledBar(0, 216, 172, 12);
53	}	53	}
54	}	54	}
55		55
56	void DrawLink(dword x,y,btn_id, inscription)	56	void DrawLink(dword x,y,btn_id, inscription)
57	{	57	{
58	WriteText(x,y,0x80,0x4E00E7,inscription,0);	58	WriteText(x,y,0x80,0x4E00E7,inscription,0);
59	DrawBar(x,y+8,strlen(inscription)*6,1,0x4E00E7); //ïîä÷åðêíóòü ññûëêó	59	DrawBar(x,y+8,strlen(inscription)*6,1,0x4E00E7); //ïîä÷åðêíóòü ññûëêó
60	DefineButton(x-1,y-1,strlen(inscription)*6,10,btn_id+BT_HIDE,0);	60	DefineButton(x-1,y-1,strlen(inscription)*6,10,btn_id+BT_HIDE,0);
61	}	61	}
62	>	62	>
63	>	63	>
64	>	64	>

Subversion Repositories Kolibri OS

(root)/programs/fs/Eolite/trunk/include/about_dialog.h – Rev 3123 → 3150