Subversion Repositories Kolibri OS

Rev

Rev 6191 | Rev 6278 | 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
 
7
void about_dialog()
8
{
9
	byte id;
5481 leency 10
	proc_info about_form;
6218 leency 11
	int about_x;
5481 leency 12
 
6005 leency 13
	if (active_about) {cmd_free=2;ExitProcess();} else active_about=1;
4042 leency 14
	loop() switch(WaitEvent())
15
	{
16
		case evButton:
17
				id=GetButtonID();
6218 leency 18
				IF (id==1)
4042 leency 19
				{
20
					active_about=0;
5576 pavelyakov 21
					cmd_free = 2;
4042 leency 22
					ExitProcess();
23
				}
6005 leency 24
				IF (id==11) RunProgram(BROWSER_PATH, BROWSER_LINK);
4042 leency 25
				break;
26
 
27
		case evKey:
28
				IF (GetKey()==27)
29
				{
30
					active_about=0;
5576 pavelyakov 31
					cmd_free = 2;
4042 leency 32
					ExitProcess();
33
				}
34
				break;
35
 
36
		case evReDraw:
6218 leency 37
				DefineAndDrawWindow(Form.left+Form.width/2,Form.top+Form.height/2-114,310,300+GetSkinHeight(),0x34,system.color.work,0);
5481 leency 38
				GetProcessInfo(#about_form, SelfInfo);
6050 leency 39
				if (about_form.status_window>2) break;
6191 leency 40
				logo_pal[0] = system.color.work;
6218 leency 41
				PutPaletteImage(#logo,86,86,about_form.cwidth-86/2,10,8,#logo_pal);
42
				about_x = -strlen(ABOUT_TITLE)*18+about_form.cwidth/2;
43
				WriteTextB(about_x+2,107,0x82,0xD49CD2,ABOUT_TITLE);
44
				WriteTextB(about_x,105,0x82,0x9D129D,ABOUT_TITLE);
45
				DrawRectangle3D(0,154,about_form.cwidth/5*3,1,system.color.work_dark,system.color.work_light);
46
				WriteTextLines(7,163,0x90,system.color.work_text,"KolibriOS File Manager\nAuthors: Leency, Veliant\nPunkJoker, Pavelyakov\n(c) 2008 - 2016",20);
6005 leency 47
				#ifdef LANG_RUS
6218 leency 48
				DrawFlatButton(about_form.cwidth-180/2,about_form.cheight-38,180,26,11,"История разработки");
6005 leency 49
				#endif
4042 leency 50
	}
5685 leency 51
}