Subversion Repositories Kolibri OS

Rev

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

Rev Author Line No. Line
2568 leency 1 
//Leency - 2012
2 
 
3 
#include "imgs\logo.txt"
4 
 
5 
#define BROWSER_PATH	"/sys/htmlv"
2662 leency 6 
#define BROWSER_LINK	"http://kolibri-os.narod.ru"
2568 leency 7 
 
8 
 
2662 leency 9 
void about_dialog()
2568 leency 10 
{
11 
	byte p;
12 
	mouse mm;
13 
	byte id, letitclose=0;
14 
	SetEventMask(100111b);
15 
	loop() switch(WaitEvent())
16 
	{
17 
		case evMouse:
18 
				mm.get();
19 
				//кульно
20 
				IF (mm.x>85) && (mm.x<155) && (mm.y>190) && (mm.y<190+22)
21 
				IF (mm.lkm) {DrawRegion_3D(86,191,68,20,0xC7C7C7,0xFFFFFF); letitclose=1;}
22 
				ELSE {IF (letitclose) {DrawRegion_3D(86,191,68,20,0xFFFFFF,0xC7C7C7); Pause(7); ExitProcess();}}
23 
				ELSE IF (letitclose) {letitclose=0; DrawRegion_3D(86,191,68,20,0xFFFFFF,0xC7C7C7);}
24 
				break;
25 
 
26 
		case evButton:
27 
				id=GetButtonID();
28 
				IF (id==1) ExitProcess();
29 
				IF (id==23) RunProgram(BROWSER_PATH, BROWSER_LINK);
30 
				break;
31 
 
32 
		case evKey:
33 
				IF (GetKey()==27) ExitProcess();
34 
				break;
35 
 
36 
		case evReDraw:
37 
				DefineAndDrawWindow(600,150,181,256,0x34,0x10EFEBEF,0,0,"About Eolite");
38 
				DrawBar(0,0,172,50,0x8494C4); //голубое сзади
39 
				PutPaletteImage(#logo,85,85,43,7,#logo_pal);
2662 leency 40 
				WriteText(51,100,0x80,0xBF40BF,"Eolite v1.22",0);
2568 leency 41 
				WriteText(55,120,0x80,0,"Developers:",0);
42 
				WriteText(39,130,0x80,0,"Leency & Veliant",0);
2591 leency 43 
				WriteText(45,140,0x80,0,"KolibriOS Team",0);
2662 leency 44 
				WriteText(61,150,0x80,0,"2008-2012",0);
2568 leency 45 
				WriteText(12,170,0x80,0,"Visit",0);
46 
				DrawLink(48,170,23, "kolibri-os.narod.ru"); //ссылкa
47 
				DrawFlatButton(85,190,70,22,0,0xE4DFE1, "Close");
48 
	}
49 
}
50 
 
51 
void DrawLink(dword x,y,btn_id, inscription)
52 
{
53 
	WriteText(x,y,0x80,0x4E00E7,inscription,0);
54 
	DrawBar(x,y+8,strlen(inscription)*6,1,0x4E00E7); //подчеркнуть ссылку
55 
	DefineButton(x-1,y-1,strlen(inscription)*6,10,btn_id+BT_HIDE,0);
56 
}