Subversion Repositories Kolibri OS

Rev

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

Rev 3848 Rev 3933
1 
//Leency 2008-2013
 1 
//Leency 2008-2013
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-n.org/index.php"
 5 
#define BROWSER_LINK    "http://kolibri-n.org/index.php"
6 
 
 6 
 
7 
#ifdef LANG_RUS
 7 
#ifdef LANG_RUS
8 
	?define INTRO_TEXT_1 "Ž Eolite"
 8 
	?define INTRO_TEXT_1 "Ž Eolite"
9 
	?define INTRO_TEXT_2 " §à ¡®â稪¨:"
 9 
	?define INTRO_TEXT_2 " §à ¡®â稪¨:"
10 
	?define INTRO_TEXT_3 "®á¥â¨â¥"
 10 
	?define INTRO_TEXT_3 "®á¥â¨â¥"
11 
	?define INTRO_TEXT_4 "‡ ªàëâì"
 11 
	?define INTRO_TEXT_4 "‡ ªàëâì"
12 
 
 12 
#elif LANG_EST
- 
 
 13 
	?define INTRO_TEXT_1 "Programmis Eolite"
- 
 
 14 
	?define INTRO_TEXT_2 "Arendajad:"
- 
 
 15 
	?define INTRO_TEXT_3 "Külasta"
- 
 
 16 
	?define INTRO_TEXT_4 "Sulge"
13 
#else
 17 
#else
14 
	?define INTRO_TEXT_1 "About Eolite"
 18 
	?define INTRO_TEXT_1 "About Eolite"
15 
	?define INTRO_TEXT_2 "Developers:"
 19 
	?define INTRO_TEXT_2 "Developers:"
16 
	?define INTRO_TEXT_3 "Visit"
 20 
	?define INTRO_TEXT_3 "Visit"
17 
	?define INTRO_TEXT_4 "Close"
 21 
	?define INTRO_TEXT_4 "Close"
18 
#endif
 22 
#endif
19 
 
 23 
 
20 
void about_dialog()
 24 
void about_dialog()
21 
{
25 
{
22 
	byte id;
 26 
	byte id;
23 
	loop() switch(WaitEvent())
 27 
	loop() switch(WaitEvent())
24 
	{
 28 
	{
25 
		case evButton:
29 
		case evButton:
26 
				id=GetButtonID();
 30 
				id=GetButtonID();
27 
				IF (id==1) || (id==10) ExitProcess();
 31 
				IF (id==1) || (id==10) ExitProcess();
28 
				IF (id==23) RunProgram(BROWSER_PATH, BROWSER_LINK);
 32 
				IF (id==23) RunProgram(BROWSER_PATH, BROWSER_LINK);
29 
				break;
 33 
				break;
30
34
31 
		case evKey:
 35 
		case evKey:
32 
				IF (GetKey()==27) ExitProcess();
 36 
				IF (GetKey()==27) ExitProcess();
33 
				break;
 37 
				break;
34
38
35 
		case evReDraw:
 39 
		case evReDraw:
36 
				DefineAndDrawWindow(600,150,181,232+GetSkinHeight(),0x34,col_work,INTRO_TEXT_1);
 40 
				DefineAndDrawWindow(600,150,181,232+GetSkinHeight(),0x34,col_work,INTRO_TEXT_1);
37 
				DrawBar(0,0,172,50,0x8494C4);
 41 
				DrawBar(0,0,172,50,0x8494C4);
38 
				PutPaletteImage(#logo,85,85,43,7,8,#logo_pal);
 42 
				PutPaletteImage(#logo,85,85,43,7,8,#logo_pal);
39 
				WriteTextB(46,100,0x90,0xBF40BF,ABOUT_TITLE);
 43 
				WriteTextB(46,100,0x90,0xBF40BF,ABOUT_TITLE);
40 
				#ifdef LANG_RUS
 44 
				#ifdef LANG_RUS
41 
				WriteText(50,120,0x80,0,INTRO_TEXT_2);
 45 
				WriteText(50,120,0x80,0,INTRO_TEXT_2);
42 
				#else
 46 
				#else
43 
				WriteText(55,120,0x80,0,INTRO_TEXT_2);
 47 
				WriteText(55,120,0x80,0,INTRO_TEXT_2);
44 
				#endif
48 
				#endif
45 
				WriteText(39,130,0x80,0,"Leency & Veliant");
49 
				WriteText(39,130,0x80,0,"Leency & Veliant");
46 
				WriteText(45,140,0x80,0,"KolibriOS Team");
 50 
				WriteText(45,140,0x80,0,"KolibriOS Team");
47 
				WriteText(61,150,0x80,0,"2008-2013");
 51 
				WriteText(61,150,0x80,0,"2008-2013");
48 
				#ifdef LANG_RUS
 52 
				#ifdef LANG_RUS
49 
				WriteText(19,170,0x80,0,INTRO_TEXT_3);
 53 
				WriteText(19,170,0x80,0,INTRO_TEXT_3);
50 
				#else
 54 
				#else
51 
				WriteText(29,170,0x80,0,INTRO_TEXT_3);
 55 
				WriteText(29,170,0x80,0,INTRO_TEXT_3);
52 
				#endif
56 
				#endif
53 
				DrawLink(71,170,0x80,23, "kolibri-n.org");
 57 
				DrawLink(71,170,0x80,23, "kolibri-n.org");
54 
				DrawFlatButton(85,190,70,22,10,0xE4DFE1, INTRO_TEXT_4);
 58 
				DrawFlatButton(85,190,70,22,10,0xE4DFE1, INTRO_TEXT_4);
55 
				DrawFilledBar(0, 216, 172, 12);
 59 
				DrawFilledBar(0, 216, 172, 12);
56 
	}
 60 
	}
57 
}
 61 
}