Subversion Repositories Kolibri OS

Rev

Rev 1415 | Go to most recent revision | Only display areas with differences | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1415 Rev 2031
1 
//Leency - 2008
 1 
//Leency - 2011
2 
 
 2 
 
3 
#include "imgs\logo.txt"
 3 
#include "imgs\logo.txt"
4 
 
 4 
 
5 
?define ONLY_SHOW	0
 5 
#define ONLY_SHOW	0
6 
?define WITH_REDRAW	1
 6 
#define WITH_REDRAW	1
7 
?define ONLY_OPEN	2
 7 
#define ONLY_OPEN	2
8 
 
 8 
 
9 
?define REDRAW	1
 9 
#define REDRAW	1
10 
?define ANIM	2
10 
#define ANIM	2
- 
 
 11 
#define NOTIP	3
- 
 
 12 
 
- 
 
 13 
#define BROWSER_PATH	"/sys/htmlv"
11 
?define NOTIP	3
 14 
#define BROWSER_LINK	"http://www.kolibrios.org"
12 
 
 15 
 
13 
 
 16 
 
14 
void authors()
 17 
void authors()
15 
{
18 
{
16 
	mouse mm;
 19 
	mouse mm;
17 
	byte letitclose=0;
 20 
	byte id, letitclose=0;
18 
	SetEventMask(100111b);
21 
	SetEventMask(100111b);
19 
	loop() switch(WaitEvent())
 22 
	loop() switch(WaitEvent())
20 
	{
 23 
	{
21 
		case evMouse:
 24 
		case evMouse:
22 
				mm.get();
 25 
				mm.get();
23 
				//êóëüíî
 26 
				//êóëüíî
24 
				IF (mm.x>85) && (mm.x<155) && (mm.y>190) && (mm.y<190+22)
 27 
				IF (mm.x>85) && (mm.x<155) && (mm.y>190) && (mm.y<190+22)
25 
				IF (mm.lkm) {DrawRegion_3D(86,191,68,20,0xC7C7C7,0xFFFFFF); letitclose=1;}
 28 
				IF (mm.lkm) {DrawRegion_3D(86,191,68,20,0xC7C7C7,0xFFFFFF); letitclose=1;}
26 
				ELSE {IF (letitclose) {DrawRegion_3D(86,191,68,20,0xFFFFFF,0xC7C7C7); Pause(7); ExitProcess();}}
 29 
				ELSE {IF (letitclose) {DrawRegion_3D(86,191,68,20,0xFFFFFF,0xC7C7C7); Pause(7); ExitProcess();}}
27 
				ELSE IF (letitclose) {letitclose=0; DrawRegion_3D(86,191,68,20,0xFFFFFF,0xC7C7C7);}
 30 
				ELSE IF (letitclose) {letitclose=0; DrawRegion_3D(86,191,68,20,0xFFFFFF,0xC7C7C7);}
28 
				break;
31 
				break;
- 
 
 32 
		case evButton:
- 
 
 33 
				id=GetButtonID();
29 
		case evButton: ExitProcess();
 34 
				IF (id==1) ExitProcess();
- 
 
 35 
				IF (id==23) RunProgram(BROWSER_PATH, BROWSER_LINK);
- 
 
 36 
				break;
- 
 
 37 
		case evKey:
30 
		case evKey: IF (GetKey()==27) ExitProcess(); break;
 38 
				IF (GetKey()==27) ExitProcess();
- 
 
 39 
				break;
31 
		case evReDraw:
 40 
		case evReDraw:
32 
			WindowRedrawStatus(1);
 41 
			WindowRedrawStatus(1);
33 
			DefineAndDrawWindow(500,200,181,256,0x34,0x10EFEBEF,0,0,"About Eolite");
 42 
			DefineAndDrawWindow(500,200,181,256,0x34,0x10EFEBEF,0,0,"About Eolite");
34 
			DrawBar(0,0,172,50,0x8494C4); //ãîëóáîå ñçàäè
 43 
			DrawBar(0,0,172,50,0x8494C4); //ãîëóáîå ñçàäè
35 
			PutPaletteImage(#logo,85,85,43,7,#logo_pal);
 44 
			PutPaletteImage(#logo,85,85,43,7,#logo_pal);
36 
			WriteText(33,100,0x80,0xBF40BF,"Eolite v0.98.5 RC2",0);
 45 
			WriteText(33,100,0x80,0xBF40BF,"Eolite v0.98.9 RC2",0);
37 
			WriteText(55,120,0x80,0,"Developers:",0);
46 
			WriteText(55,120,0x80,0,"Developers:",0);
38 
			WriteText(39,130,0x80,0,"Leency & Veliant",0);
47 
			WriteText(39,130,0x80,0,"Leency & Veliant",0);
39 
			WriteText(30,140,0x80,0,"Diamond, Lrz, Nable",0);
 48 
			WriteText(30,140,0x80,0,"Diamond, Lrz, Nable",0);
40 
			WriteText(21,160,0x80,0,"Made using C-- in 2008",0);
 49 
			WriteText(55,150,0x80,0," 2008-2011 ",0);
41 
			WriteText(18,170,0x80,0,"Visit www.kolibrios.org",0);
 50 
			WriteText(18,170,0x80,0,"Visit",0);
- 
 
 51 
			DrawLink(54,170,23, "www.kolibrios.org"); //ññûëêa
42 
			DrawFlatButton(85,190,70,22,0,0xE4DFE1, "Close");
 52 
			DrawFlatButton(85,190,70,22,0,0xE4DFE1, "Close");
43 
			WindowRedrawStatus(2);
 53 
			WindowRedrawStatus(2);
44 
	}
 54 
	}
45 
}
 55 
}
- 
 
 56 
 
- 
 
 57 
void DrawLink(dword x,y,btn_id, inscription)
- 
 
 58 
{
- 
 
 59 
	WriteText(x,y,0x80,0x4E00E7,inscription,0);
- 
 
 60 
	DrawBar(x,y+8,strlen(inscription)*6,1,0x4E00E7); //ïîä÷åðêíóòü ññûëêó
- 
 
 61 
	DefineButton(x-1,y-1,strlen(inscription)*6,10,btn_id+BT_HIDE,0);
46 
 
 62 
}
47 
 
 63 
 
48 
 
 64 
 
49 
?define add_new_path 1
 65 
?define add_new_path 1
50 
?define go_back 2
 66 
?define go_back 2
51 
 
 67 
 
52 
void HistoryPath(byte action)
 68 
void HistoryPath(byte action)
53 
{
 69 
{
54 
	if (action==add_new_path)
 70 
	if (action==add_new_path)
55 
	{
 71 
	{
56 
		IF (strcmp(#PathHistory+find_symbol(#PathHistory,'|'),#path)==0) return;
 72 
		IF (strcmp(#PathHistory+find_symbol(#PathHistory,'|'),#path)==0) return;
57 
		IF (strlen(#PathHistory)+strlen(#path)>2560)
 73 
		IF (strlen(#PathHistory)+strlen(#path)>2560)
58 
		{
 74 
		{
59 
			copystr(#PathHistory+1024,#PathHistory);
 75 
			copystr(#PathHistory+1024,#PathHistory);
60 
			copystr("/",#PathHistory+strlen(#PathHistory));
 76 
			copystr("/",#PathHistory+strlen(#PathHistory));
61 
		}
 77 
		}
62 
		copystr("|",#PathHistory+strlen(#PathHistory));
 78 
		copystr("|",#PathHistory+strlen(#PathHistory));
63 
		copystr(#path,#PathHistory+strlen(#PathHistory));
 79 
		copystr(#path,#PathHistory+strlen(#PathHistory));
64 
	}
 80 
	}
65 
	if (action==go_back)
 81 
	if (action==go_back)
66 
	{
 82 
	{
67 
		i=strlen(#PathHistory)-1;
 83 
		i=strlen(#PathHistory)-1;
68 
		WHILE (PathHistory[i]<>'|') { i--; };
 84 
		WHILE (PathHistory[i]<>'|') { i--; };
69 
		IF (i>0) PathHistory[i]=0x00;
 85 
		IF (i>0) PathHistory[i]=0x00;
70 
		WHILE (PathHistory[i]<>'|')	{ copystr(#PathHistory[i],#path); i--;	}
 86 
		WHILE (PathHistory[i]<>'|')	{ copystr(#PathHistory[i],#path); i--;	}
71 
		IF (i>0) PathHistory[i]=0x00;
 87 
		IF (i>0) PathHistory[i]=0x00;
72 
	}
 88 
	}
73 
}
 89 
}
74 
 
 90 
 
75 
 
 91 
 
76 
dword onLeft(dword right,left) {EAX=Form.width-right-left;}
 92 
dword onLeft(dword right,left) {EAX=Form.width-right-left;}
77 
dword onTop(dword down,up) {EAX=Form.height-GetSkinWidth()-down-up;}
 93 
dword onTop(dword down,up) {EAX=Form.height-GetSkinWidth()-down-up;}
- 
 
 94 
 
- 
 
 95 
 
- 
 
 96 
void ShowMessage(dword message)
- 
 
 97 
{
- 
 
 98 
	DrawFlatButton(Form.width/2-13,160,200,80,0,0xFFB6B5, message);
- 
 
 99 
	Pause(150);
- 
 
 100 
	List_ReDraw();
- 
 
 101 
}
78 
 
 102 
 
79 
 
 103 
 
80 
dword ConvertSize(dword bytes)
 104 
dword ConvertSize(dword bytes)
81 
{
 105 
{
82 
	byte size_prefix[8], temp[3];
 106 
	byte size_prefix[8], temp[3];
83 
	IF (bytes>=1073741824) copystr(" Gb",#temp);
 107 
	IF (bytes>=1073741824) copystr(" Gb",#temp);
84 
	ELSE IF (bytes>=1048576) copystr(" Mb",#temp);
 108 
	ELSE IF (bytes>=1048576) copystr(" Mb",#temp);
85 
	ELSE IF (bytes>=1024) copystr(" Kb",#temp);
 109 
	ELSE IF (bytes>=1024) copystr(" Kb",#temp);
86 
	ELSE copystr(" b ",#temp);
 110 
	ELSE copystr(" b ",#temp);
87 
	WHILE (bytes>1023) bytes/=1024;
 111 
	WHILE (bytes>1023) bytes/=1024;
88 
	copystr(IntToStr(bytes),#size_prefix);
 112 
	copystr(IntToStr(bytes),#size_prefix);
89 
	copystr(#temp,#size_prefix+strlen(#size_prefix));
 113 
	copystr(#temp,#size_prefix+strlen(#size_prefix));
90 
	EAX=#size_prefix;
 114 
	EAX=#size_prefix;
91 
}
 115 
}
92 
>
 116 
>