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


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

Subversion Repositories Kolibri OS

(root)/programs/fs/Eolite/trunk/include/about_dialog.h – Rev 2875 → 2896