Subversion Repositories Kolibri OS

Rev

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

Rev Author Line No. Line
6005 leency 1
//Leency 2008-2016
4042 leency 2
 
5581 leency 3
#define BROWSER_PATH    "/sys/network/webview"
6005 leency 4
#define BROWSER_LINK    "http://kolibri-n.org/inf/eolite/eolite_p1"
4042 leency 5
 
6
#ifdef LANG_RUS
6005 leency 7
	?define DEVELOPERS_TEXT "Разработчики:\nLeency Veliant PunkJoker Pavelyakov\nKolibriOS Team\n2008-2016"
8
	?define CLOSE_BUTTON_TEXT "Закрыть"
4042 leency 9
#else
6005 leency 10
	?define DEVELOPERS_TEXT "Developers:\nLeency Veliant PunkJoker Pavelyakov\nKolibriOS Team\n2008-2016"
11
	?define CLOSE_BUTTON_TEXT "Close"
4042 leency 12
#endif
13
 
14
void about_dialog()
15
{
16
	byte id;
5481 leency 17
	proc_info about_form;
18
 
6005 leency 19
	if (active_about) {cmd_free=2;ExitProcess();} else active_about=1;
4042 leency 20
	loop() switch(WaitEvent())
21
	{
22
		case evButton:
23
				id=GetButtonID();
24
				IF (id==1) || (id==10)
25
				{
26
					active_about=0;
5576 pavelyakov 27
					cmd_free = 2;
4042 leency 28
					ExitProcess();
29
				}
6005 leency 30
				IF (id==11) RunProgram(BROWSER_PATH, BROWSER_LINK);
4042 leency 31
				break;
32
 
33
		case evKey:
34
				IF (GetKey()==27)
35
				{
36
					active_about=0;
5576 pavelyakov 37
					cmd_free = 2;
4042 leency 38
					ExitProcess();
39
				}
40
				break;
41
 
42
		case evReDraw:
6005 leency 43
				DefineAndDrawWindow(Form.left+Form.width/2,Form.top+Form.height/2-114,440,200+GetSkinHeight(),0x34,system.color.work,0);
5481 leency 44
				GetProcessInfo(#about_form, SelfInfo);
45
				if (Form.status_window>2) break;
6005 leency 46
				_PutImage(10, 15, 86, 86, #logo);
47
				WriteTextB(110,15,0x81,0xBF40BF,ABOUT_TITLE);
48
				WriteTextLines(110,53,10010000b,0,DEVELOPERS_TEXT,21);
49
				#ifdef LANG_RUS
6008 leency 50
				DrawFlatButton(about_form.cwidth-310,about_form.cheight-38,180,26,11,0xE4DFE1,"История разработки");
6005 leency 51
				#endif
6008 leency 52
				DrawFlatButton(about_form.cwidth-110,about_form.cheight-38, 90,26,10,0xE4DFE1,CLOSE_BUTTON_TEXT);
4042 leency 53
	}
5685 leency 54
}