Subversion Repositories Kolibri OS

Rev

Rev 3434 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
3399 leency 1
//Leency 2008-2013
3363 leency 2
 
3
#define EDITOR_PATH     "/sys/tinypad"
4
#define BROWSER_PATH    "/sys/htmlv"
5
#define BROWSER_LINK    "http://kolibri-n.org/index.php"
6
 
3848 punk_joker 7
#ifdef LANG_RUS
8
	?define INTRO_TEXT_1 "О Eolite"
9
	?define INTRO_TEXT_2 "Разработчики:"
10
	?define INTRO_TEXT_3 "Посетите"
11
	?define INTRO_TEXT_4 "Закрыть"
3363 leency 12
 
3848 punk_joker 13
#else
14
	?define INTRO_TEXT_1 "About Eolite"
15
	?define INTRO_TEXT_2 "Developers:"
16
	?define INTRO_TEXT_3 "Visit"
17
	?define INTRO_TEXT_4 "Close"
18
#endif
19
 
3363 leency 20
void about_dialog()
21
{
22
	byte id;
23
	loop() switch(WaitEvent())
24
	{
25
		case evButton:
26
				id=GetButtonID();
27
				IF (id==1) || (id==10) ExitProcess();
28
				IF (id==23) RunProgram(BROWSER_PATH, BROWSER_LINK);
29
				break;
30
 
31
		case evKey:
32
				IF (GetKey()==27) ExitProcess();
33
				break;
34
 
35
		case evReDraw:
3848 punk_joker 36
				DefineAndDrawWindow(600,150,181,232+GetSkinHeight(),0x34,col_work,INTRO_TEXT_1);
3363 leency 37
				DrawBar(0,0,172,50,0x8494C4);
38
				PutPaletteImage(#logo,85,85,43,7,8,#logo_pal);
3412 leency 39
				WriteTextB(46,100,0x90,0xBF40BF,ABOUT_TITLE);
3848 punk_joker 40
				#ifdef LANG_RUS
41
				WriteText(50,120,0x80,0,INTRO_TEXT_2);
42
				#else
43
				WriteText(55,120,0x80,0,INTRO_TEXT_2);
44
				#endif
3363 leency 45
				WriteText(39,130,0x80,0,"Leency & Veliant");
46
				WriteText(45,140,0x80,0,"KolibriOS Team");
47
				WriteText(61,150,0x80,0,"2008-2013");
3848 punk_joker 48
				#ifdef LANG_RUS
49
				WriteText(19,170,0x80,0,INTRO_TEXT_3);
50
				#else
51
				WriteText(29,170,0x80,0,INTRO_TEXT_3);
52
				#endif
53
				DrawLink(71,170,0x80,23, "kolibri-n.org");
54
				DrawFlatButton(85,190,70,22,10,0xE4DFE1, INTRO_TEXT_4);
3363 leency 55
				DrawFilledBar(0, 216, 172, 12);
56
	}
57
}