Subversion Repositories Kolibri OS

Rev

Rev 2833 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2833 Rev 2875
Line 1... Line 1...
1 
//Leency - 2012
 1 
//Leency - 2012
Line 2... Line 2...
2 
 
 2 
 
Line -... Line 3...
- 
 
 3 
#include "imgs\logo.txt"
3 
#include "imgs\logo.txt"
 4 
 
4 
 
 5 
#define EDITOR_PATH     "/sys/tinypad"
Line 5... Line 6...
5 
#define BROWSER_PATH	"/sys/htmlv"
 6 
#define BROWSER_PATH    "/sys/htmlv"
Line 25... Line 26...
25
26
26 
		case evButton:
27 
		case evButton:
27 
				id=GetButtonID();
 28 
				id=GetButtonID();
28 
				IF (id==1) ExitProcess();
 29 
				IF (id==1) ExitProcess();
- 
 
 30 
				IF (id==23) RunProgram(BROWSER_PATH, BROWSER_LINK);
29 
				IF (id==23) RunProgram(BROWSER_PATH, BROWSER_LINK);
 31 
				IF (id==33) RunProgram(EDITOR_PATH, #program_path);
Line 30... Line 32...
30 
				break;
 32 
				break;
31
33
32 
		case evKey:
 34 
		case evKey:
Line 33... Line 35...
33 
				IF (GetKey()==27) ExitProcess();
 35 
				IF (GetKey()==27) ExitProcess();
34 
				break;
 36 
				break;
35
37
36 
		case evReDraw:
 38 
		case evReDraw:
37 
				DefineAndDrawWindow(600,150,181,256,0x34,0x10EFEBEF,0,0,"About Eolite");
 39 
				DefineAndDrawWindow(600,150,181,256,0x34,0x10EFEBEF,"About Eolite");
38 
				DrawBar(0,0,172,50,0x8494C4); //ãîëóáîå ñçàäè
 40 
				DrawBar(0,0,172,50,0x8494C4); //ãîëóáîå ñçàäè
39 
				PutPaletteImage(#logo,85,85,43,7,#logo_pal);
 41 
				PutPaletteImage(#logo,85,85,43,7,#logo_pal);
40 
				WriteText(46,100,0x90,0xBF40BF,"Eolite v1.28",0);
 42 
				WriteText(46,100,0x90,0xBF40BF,"Eolite v1.31",0);
41 
					$add ebx, 1<<16
 43 
					$add ebx, 1<<16
42 
					$int 0x40
 44 
					$int 0x40
43 
				WriteText(55,120,0x80,0,"Developers:",0);
45 
				WriteText(55,120,0x80,0,"Developers:",0);
44 
				WriteText(39,130,0x80,0,"Leency & Veliant",0);
46 
				WriteText(39,130,0x80,0,"Leency & Veliant",0);
45 
				WriteText(45,140,0x80,0,"KolibriOS Team",0);
 47 
				WriteText(45,140,0x80,0,"KolibriOS Team",0);
46 
				WriteText(61,150,0x80,0,"2008-2012",0);
 48 
				WriteText(61,150,0x80,0,"2008-2012",0);
Line -... Line 49...
- 
 
 49 
				WriteText(12,170,0x80,0,"Visit",0);
47 
				WriteText(12,170,0x80,0,"Visit",0);
 50 
				DrawLink(48,170,23, "kolibri-os.narod.ru"); //ññûëêa
48 
				DrawLink(48,170,23, "kolibri-os.narod.ru"); //ññûëêa
 51 
				DrawFlatButton(85,190,70,22,0,0xE4DFE1, "Close");
49 
				DrawFlatButton(85,190,70,22,0,0xE4DFE1, "Close");
 52
Line 50... Line 53...
50
53 
				DefineButton(20-1,195-1, 16+1,15+1, 33+BT_HIDE, 0);
51 
				//PutPaletteImage(3*16*15+#ficons,16,15,40,195,#ficons_pal);
54 
				PutPaletteImage(8*16*15+#ficons,16,15,20,195,#ficons_pal);