Subversion Repositories Kolibri OS

Rev

Rev 5685 | Rev 6005 | Go to most recent revision | Only display areas with differences | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5685 Rev 5723
1 
//Leency 2008-2013
 1 
//Leency 2008-2013
2 
 
 2 
 
3 
#define BROWSER_PATH    "/sys/network/webview"
 3 
#define BROWSER_PATH    "/sys/network/webview"
4 
#define BROWSER_LINK    "http://kolibri-n.org/index.php"
 4 
#define BROWSER_LINK    "http://kolibri-n.org/index.php"
5 
 
 5 
 
6 
#ifdef LANG_RUS
 6 
#ifdef LANG_RUS
7 
	?define INTRO_TEXT_1 "Ž Eolite"
 7 
	?define INTRO_TEXT_1 "Ž Eolite"
8 
	?define INTRO_TEXT_2 " §à ¡®â稪¨:"
 8 
	?define INTRO_TEXT_2 " §à ¡®â稪¨:"
9 
	?define INTRO_TEXT_3 "®á¥â¨â¥"
 9 
	?define INTRO_TEXT_3 "®á¥â¨â¥"
10 
	?define INTRO_TEXT_4 "‡ ªàëâì"
 10 
	?define INTRO_TEXT_4 "‡ ªàëâì"
11 
#elif LANG_EST
 11 
#elif LANG_EST
12 
	?define INTRO_TEXT_1 "Programmis Eolite"
 12 
	?define INTRO_TEXT_1 "Programmis Eolite"
13 
	?define INTRO_TEXT_2 "Arendajad:"
 13 
	?define INTRO_TEXT_2 "Arendajad:"
14 
	?define INTRO_TEXT_3 "Külasta"
 14 
	?define INTRO_TEXT_3 "Külasta"
15 
	?define INTRO_TEXT_4 "Sulge"
 15 
	?define INTRO_TEXT_4 "Sulge"
16 
#else
 16 
#else
17 
	?define INTRO_TEXT_1 "About Eolite"
 17 
	?define INTRO_TEXT_1 "About Eolite"
18 
	?define INTRO_TEXT_2 "Developers:"
 18 
	?define INTRO_TEXT_2 "Developers:"
19 
	?define INTRO_TEXT_3 "Visit"
 19 
	?define INTRO_TEXT_3 "Visit"
20 
	?define INTRO_TEXT_4 "Close"
 20 
	?define INTRO_TEXT_4 "Close"
21 
#endif
 21 
#endif
22 
 
 22 
 
23 
void about_dialog()
 23 
void about_dialog()
24 
{
24 
{
25 
	byte id;
 25 
	byte id;
26 
	proc_info about_form;
 26 
	proc_info about_form;
27 
 
 27 
 
28 
	IF (active_about){cmd_free = 2;ExitProcess();}
 28 
	IF (active_about){cmd_free = 2;ExitProcess();}
29 
	active_about=1;
 29 
	active_about=1;
30 
	loop() switch(WaitEvent())
 30 
	loop() switch(WaitEvent())
31 
	{
 31 
	{
32 
		case evButton:
32 
		case evButton:
33 
				id=GetButtonID();
 33 
				id=GetButtonID();
34 
				IF (id==1) || (id==10)
34 
				IF (id==1) || (id==10)
35 
				{
 35 
				{
36 
					active_about=0;
 36 
					active_about=0;
37 
					cmd_free = 2;
 37 
					cmd_free = 2;
38 
					ExitProcess();
 38 
					ExitProcess();
39 
				}
 39 
				}
40 
				IF (id==23) RunProgram(BROWSER_PATH, BROWSER_LINK);
 40 
				IF (id==23) RunProgram(BROWSER_PATH, BROWSER_LINK);
41 
				break;
 41 
				break;
42
42
43 
		case evKey:
 43 
		case evKey:
44 
				IF (GetKey()==27)
 44 
				IF (GetKey()==27)
45 
				{
 45 
				{
46 
					active_about=0;
 46 
					active_about=0;
47 
					cmd_free = 2;
 47 
					cmd_free = 2;
48 
					ExitProcess();
 48 
					ExitProcess();
49 
				}
 49 
				}
50 
				break;
 50 
				break;
51
51
52 
		case evReDraw:
 52 
		case evReDraw:
53 
				DefineAndDrawWindow(Form.left+Form.width/2,Form.top+Form.height/2-114,300,248+GetSkinHeight(),0x34,system.color.work,INTRO_TEXT_1);
 53 
				DefineAndDrawWindow(Form.left+Form.width/2,Form.top+Form.height/2-114,300,248+GetSkinHeight(),0x34,system.color.work,INTRO_TEXT_1);
54 
				GetProcessInfo(#about_form, SelfInfo);
 54 
				GetProcessInfo(#about_form, SelfInfo);
55 
				if (Form.status_window>2) break;
 55 
				if (Form.status_window>2) break;
56 
				DrawBar(0,0,about_form.cwidth,50,0x8494C4);
 56 
				DrawBar(0,0,about_form.cwidth,50,0x8494C4);
57 
				PutPaletteImage(#logo,85,85,about_form.cwidth/2-43,7,8,#logo_pal);
 57 
				PutPaletteImage(#logo,85,85,about_form.cwidth/2-43,7,8,#logo_pal);
58 
				WriteTextB(about_form.cwidth/2-66,100,0x81,0xBF40BF,ABOUT_TITLE);
 58 
				WriteTextB(-strlen(ABOUT_TITLE)*12+about_form.cwidth/2,100,0x81,0xBF40BF,ABOUT_TITLE);
59 
				WriteTextCenter(0,130,about_form.cwidth,0,INTRO_TEXT_2);
59 
				WriteTextCenter(0,130,about_form.cwidth,0,INTRO_TEXT_2);
60 
				WriteTextCenter(0,143,about_form.cwidth,0,"Leency Veliant PunkJoker Pavelyakov");
60 
				WriteTextCenter(0,143,about_form.cwidth,0,"Leency Veliant PunkJoker Pavelyakov");
61 
				WriteTextCenter(0,156,about_form.cwidth,0,"KolibriOS Team");
 61 
				WriteTextCenter(0,156,about_form.cwidth,0,"KolibriOS Team");
62 
				WriteTextCenter(0,169,about_form.cwidth,0,"2008-2015");
 62 
				WriteTextCenter(0,169,about_form.cwidth,0,"2008-2015");
63 
				WriteTextCenter(10,182,about_form.width-125,0,INTRO_TEXT_3);
63 
				WriteTextCenter(10,182,about_form.width-125,0,INTRO_TEXT_3);
64 
				DrawLink(about_form.cwidth/2-15,182,0x80,23, "kolibri-n.org");
 64 
				DrawLink(about_form.cwidth/2-15,182,0x80,23, "kolibri-n.org");
65 
				DrawFlatButton(about_form.cwidth/2-35,about_form.cheight-35,70,22,10,0xE4DFE1, INTRO_TEXT_4);
 65 
				DrawFlatButton(about_form.cwidth/2-35,about_form.cheight-35,70,22,10,0xE4DFE1, INTRO_TEXT_4);
66 
	}
 66 
	}
67 
}
 67 
}