Subversion Repositories Kolibri OS

//Leency - 2012

#define EDITOR_PATH     "/sys/tinypad"

#define BROWSER_PATH    "/sys/htmlv"

#define BROWSER_LINK    "http://kolibri-os.narod.ru"

void about_dialog()

{

	mouse mm;

	byte id, letitclose=0;

	SetEventMask(100111b);

	loop() switch(WaitEvent())

	{

		case evMouse:

				mm.get();

				//êóëüíî

				IF (mm.x>85) && (mm.x<155) && (mm.y>190) && (mm.y<190+22)

				IF (mm.lkm) {DrawRegion_3D(86,191,68,20,0xC7C7C7,0xFFFFFF); letitclose=1;}

				ELSE {IF (letitclose) {DrawRegion_3D(86,191,68,20,0xFFFFFF,0xC7C7C7); Pause(7); ExitProcess();}}

				ELSE IF (letitclose) {letitclose=0; DrawRegion_3D(86,191,68,20,0xFFFFFF,0xC7C7C7);}

				break;

		case evButton:

				id=GetButtonID();

				IF (id==1) ExitProcess();

				IF (id==23) RunProgram(BROWSER_PATH, BROWSER_LINK);

				IF (id==33) RunProgram(EDITOR_PATH, #program_path);

				break;

		case evKey:

				IF (GetKey()==27) ExitProcess();

				break;

		case evReDraw:

				DefineAndDrawWindow(600,150,181,232+GetSkinHeight(),0x34,col_work,"About Eolite");

				DrawBar(0,0,172,50,0x8494C4); //ãîëóáîå ñçàäè

				PutPaletteImage(#logo,85,85,43,7,#logo_pal);

				WriteText(46,100,0x90,0xBF40BF,"Eolite v1.55",0);

				$add ebx, 1<<16

				$int 0x40

				WriteText(55,120,0x80,0,"Developers:",0);

				WriteText(39,130,0x80,0,"Leency & Veliant",0);

				WriteText(45,140,0x80,0,"KolibriOS Team",0);

				WriteText(61,150,0x80,0,"2008-2012",0);

				WriteText(12,170,0x80,0,"Visit",0);

				DrawLink(48,170,23, "kolibri-os.narod.ru"); //ññûëêa

				DrawFlatButton(85,190,70,22,0,0xE4DFE1, "Close");

				DefineButton(20-1,195-1, 16+1,15+1, 33+BT_HIDE, 0);

				PutPaletteImage(8*16*15+#ficons,16,15,20,195,#ficons_pal);

				DrawFilledBar(0, 216, 172, 12);

	}

}

void DrawLink(dword x,y,btn_id, inscription)

{

	WriteText(x,y,0x80,0x4E00E7,inscription,0);

	DrawBar(x,y+8,strlen(inscription)*6,1,0x4E00E7); //ïîä÷åðêíóòü ññûëêó

	DefineButton(x-1,y-1,strlen(inscription)*6,10,btn_id+BT_HIDE,0);

}