Subversion Repositories Kolibri OS

Rev

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

Rev 1415 Rev 2031
Line 1... Line 1...
1 
//Leency - 2008
 1 
//Leency - 2011
Line 2... Line 2...
2 
 
 2 
 
Line 3... Line 3...
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
- 
 
 11 
#define NOTIP	3
- 
 
 12 
 
Line 10... Line 13...
10 
?define ANIM	2
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);
Line 24... Line 27...
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 
}
Line -... Line 56...
- 
 
 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);
Line 46... Line 62...
46 
 
 62 
}
47 
 
 63 
 
Line 75... Line 91...
75 
 
 91 
 
76 
dword onLeft(dword right,left) {EAX=Form.width-right-left;}
 92 
dword onLeft(dword right,left) {EAX=Form.width-right-left;}
Line -... Line 93...
- 
 
 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();
77 
dword onTop(dword down,up) {EAX=Form.height-GetSkinWidth()-down-up;}
 101 
}
78 
 
 102 
 
79 
 
 103 
 
80 
dword ConvertSize(dword bytes)
 104 
dword ConvertSize(dword bytes)
81 
{
 105 
{