Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
3363 leency 1
//Leency - 2008-2013
2
 
3
#define EDITOR_PATH     "/sys/tinypad"
4
#define BROWSER_PATH    "/sys/htmlv"
5
#define BROWSER_LINK    "http://kolibri-n.org/index.php"
6
 
7
 
8
void about_dialog()
9
{
10
	byte id;
11
	loop() switch(WaitEvent())
12
	{
13
		case evButton:
14
				id=GetButtonID();
15
				IF (id==1) || (id==10) ExitProcess();
16
				IF (id==23) RunProgram(BROWSER_PATH, BROWSER_LINK);
17
				IF (id==33) RunProgram(EDITOR_PATH, #program_path);
18
				break;
19
 
20
		case evKey:
21
				IF (GetKey()==27) ExitProcess();
22
				break;
23
 
24
		case evReDraw:
25
				DefineAndDrawWindow(600,150,181,232+GetSkinHeight(),0x34,col_work,"About Eolite");
26
				DrawBar(0,0,172,50,0x8494C4);
27
				PutPaletteImage(#logo,85,85,43,7,8,#logo_pal);
28
				WriteTextB(46,100,0x90,0xBF40BF,"Eolite v1.62");
29
				WriteText(55,120,0x80,0,"Developers:");
30
				WriteText(39,130,0x80,0,"Leency & Veliant");
31
				WriteText(45,140,0x80,0,"KolibriOS Team");
32
				WriteText(61,150,0x80,0,"2008-2013");
33
				WriteText(29,170,0x80,0,"Visit");
34
				DrawLink(66,170,0x80,23, "kolibri-n.org");
35
				DrawFlatButton(85,190,70,22,10,0xE4DFE1, "Close");
36
				DefineButton(20-1,195-1, 16+1,15+1, 33+BT_HIDE, 0);
37
				PutPaletteImage(8*16*15+#ficons,16,15,20,195,8,#ficons_pal);
38
				DrawFilledBar(0, 216, 172, 12);
39
	}
40
}