Subversion Repositories Kolibri OS

Rev

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

Rev 2134 Rev 2241
Line 42... Line 42...
42 
				break;
 42 
				break;
43 
		case evKey:
 43 
		case evKey:
44 
				IF (GetKey()==27) ExitProcess();
 44 
				IF (GetKey()==27) ExitProcess();
45 
				break;
 45 
				break;
46 
		case evReDraw:
 46 
		case evReDraw:
47 
				WindowRedrawStatus(1);
 - 
 
48 
				DefineAndDrawWindow(500,200,181,256,0x34,0x10EFEBEF,0,0,"About Eolite");
 47 
				DefineAndDrawWindow(500,200,181,256,0x34,0x10EFEBEF,0,0,"About Eolite");
49 
				DrawBar(0,0,172,50,0x8494C4); //ãîëóáîå ñçàäè
 48 
				DrawBar(0,0,172,50,0x8494C4); //ãîëóáîå ñçàäè
50 
				PutPaletteImage(#logo,85,85,43,7,#logo_pal);
 49 
				PutPaletteImage(#logo,85,85,43,7,#logo_pal);
51 
				WriteText(33,100,0x80,0xBF40BF,"Eolite v0.99.8 RC3",0);
 50 
				WriteText(33,100,0x80,0xBF40BF,"Eolite v0.99.8 RC3",0);
52 
				WriteText(55,120,0x80,0,"Developers:",0);
51 
				WriteText(55,120,0x80,0,"Developers:",0);
Line 54... Line 53...
54 
				WriteText(30,140,0x80,0,"Diamond, Lrz, Nable",0);
 53 
				WriteText(30,140,0x80,0,"Diamond, Lrz, Nable",0);
55 
				WriteText(55,150,0x80,0," 2008-2011 ",0);
 54 
				WriteText(55,150,0x80,0," 2008-2011 ",0);
56 
				WriteText(12,170,0x80,0,"Visit",0);
 55 
				WriteText(12,170,0x80,0,"Visit",0);
57 
				DrawLink(48,170,23, "kolibri-os.narod.ru"); //ññûëêa
 56 
				DrawLink(48,170,23, "kolibri-os.narod.ru"); //ññûëêa
58 
				DrawFlatButton(85,190,70,22,0,0xE4DFE1, "Close");
 57 
				DrawFlatButton(85,190,70,22,0,0xE4DFE1, "Close");
59 
				WindowRedrawStatus(2);
 - 
 
60 
	}
 58 
	}
61 
}
 59 
}
Line 62... Line 60...
62 
 
 60 
 
63 
void DrawLink(dword x,y,btn_id, inscription)
 61 
void DrawLink(dword x,y,btn_id, inscription)