Subversion Repositories Kolibri OS

Rev

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

Rev Author Line No. Line
4042 leency 1
//Leency 2008-2013
2
 
3
#define BROWSER_PATH    "/sys/htmlv"
4
#define BROWSER_LINK    "http://kolibri-n.org/index.php"
5
 
6
#ifdef LANG_RUS
7
	?define INTRO_TEXT_1 "О Eolite"
8
	?define INTRO_TEXT_2 "Разработчики:"
9
	?define INTRO_TEXT_3 "Посетите"
10
	?define INTRO_TEXT_4 "Закрыть"
11
#elif LANG_EST
12
	?define INTRO_TEXT_1 "Programmis Eolite"
13
	?define INTRO_TEXT_2 "Arendajad:"
14
	?define INTRO_TEXT_3 "K№lasta"
15
	?define INTRO_TEXT_4 "Sulge"
16
#else
17
	?define INTRO_TEXT_1 "About Eolite"
18
	?define INTRO_TEXT_2 "Developers:"
19
	?define INTRO_TEXT_3 "Visit"
20
	?define INTRO_TEXT_4 "Close"
21
#endif
22
 
23
void about_dialog()
24
{
25
	byte id;
5481 leency 26
	proc_info about_form;
27
 
4042 leency 28
	IF (active_about) ExitProcess();
29
	active_about=1;
30
	loop() switch(WaitEvent())
31
	{
32
		case evButton:
33
				id=GetButtonID();
34
				IF (id==1) || (id==10)
35
				{
36
					active_about=0;
37
					ExitProcess();
38
				}
39
				IF (id==23) RunProgram(BROWSER_PATH, BROWSER_LINK);
40
				break;
41
 
42
		case evKey:
43
				IF (GetKey()==27)
44
				{
45
					active_about=0;
46
					ExitProcess();
47
				}
48
				break;
49
 
50
		case evReDraw:
4076 leency 51
				DefineAndDrawWindow(600,150,181,228+GetSkinHeight(),0x34,sc.work,INTRO_TEXT_1);
5481 leency 52
				GetProcessInfo(#about_form, SelfInfo);
53
				if (Form.status_window>2) break;
54
				DrawBar(0,0,about_form.cwidth,50,0x8494C4);
4042 leency 55
				PutPaletteImage(#logo,85,85,43,7,8,#logo_pal);
56
				WriteTextB(46,100,0x90,0xBF40BF,ABOUT_TITLE);
5481 leency 57
				WriteTextCenter(0,120,about_form.cwidth,0,INTRO_TEXT_2);
58
				WriteTextCenter(0,130,about_form.cwidth,0,"Leency Veliant PunkJoker");
59
				WriteTextCenter(0,140,about_form.cwidth,0,"KolibriOS Team");
60
				WriteTextCenter(0,150,about_form.cwidth,0,"2008-2015");
61
				WriteTextCenter(10,170,70,0,INTRO_TEXT_3);
4042 leency 62
				DrawLink(71,170,0x80,23, "kolibri-n.org");
63
				DrawFlatButton(85,190,70,22,10,0xE4DFE1, INTRO_TEXT_4);
64
	}
65
}