Subversion Repositories Kolibri OS

Rev

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