Subversion Repositories Kolibri OS

Rev

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

Rev Author Line No. Line
5581 leency 1
#define BROWSER_PATH    "/sys/network/webview"
6005 leency 2
#define BROWSER_LINK    "http://kolibri-n.org/inf/eolite/eolite_p1"
4042 leency 3
 
4
 
5
void about_dialog()
6
{
7244 leency 7
	int id;
5481 leency 8
	proc_info about_form;
6218 leency 9
	int about_x;
5481 leency 10
 
6005 leency 11
	if (active_about) {cmd_free=2;ExitProcess();} else active_about=1;
4042 leency 12
	loop() switch(WaitEvent())
13
	{
14
		case evButton:
15
				id=GetButtonID();
6218 leency 16
				IF (id==1)
4042 leency 17
				{
18
					active_about=0;
5576 pavelyakov 19
					cmd_free = 2;
4042 leency 20
					ExitProcess();
21
				}
6005 leency 22
				IF (id==11) RunProgram(BROWSER_PATH, BROWSER_LINK);
4042 leency 23
				break;
24
 
25
		case evKey:
7051 leency 26
				GetKeys();
27
				IF (key_scancode == SCAN_CODE_ESC)
4042 leency 28
				{
29
					active_about=0;
5576 pavelyakov 30
					cmd_free = 2;
4042 leency 31
					ExitProcess();
32
				}
33
				break;
34
 
35
		case evReDraw:
7462 leency 36
				DefineAndDrawWindow(Form.left+Form.width/2,Form.top+Form.height/2-114,300,300+skin_height,0x34,system.color.work,T_ABOUT,0);
5481 leency 37
				GetProcessInfo(#about_form, SelfInfo);
6050 leency 38
				if (about_form.status_window>2) break;
6191 leency 39
				logo_pal[0] = system.color.work;
7462 leency 40
				ESDWORD[#logo_pal+16] = system.color.work_dark;
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);
6278 leency 45
				DrawRectangle3D(0,154,about_form.cwidth,1,system.color.work_dark,system.color.work_light);
7606 leency 46
				WriteTextLines(7,163,0x90,system.color.work_text,"KolibriOS File Manager\nAuthors: Leency, Veliant\nPunk_Joker, Pavelyakov\n2008 - 2019",20);
6005 leency 47
				#ifdef LANG_RUS
7278 leency 48
				DrawStandartCaptButton(60,about_form.cheight-38,11,"История разработки");
6005 leency 49
				#endif
4042 leency 50
	}
5685 leency 51
}