Subversion Repositories Kolibri OS

Rev

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

Rev 984 Rev 1415
Line 1... Line 1...
1 
#include "imgs\logo.txt"
 1 
//Leency - 2008
Line 2... Line 2...
2 
 
 2 
 
3 
?define add_new_path 1
 - 
 
Line 4... Line 3...
4 
?define go_back 2
 3 
#include "imgs\logo.txt"
5 
 
 4 
 
6 
?define ONLY_SHOW	0
 5 
?define ONLY_SHOW	0
Line 7... Line 6...
7 
?define WITH_REDRAW	1
 6 
?define WITH_REDRAW	1
8 
?define ONLY_OPEN	2
 7 
?define ONLY_OPEN	2
9 
 
 8 
 
Line 10... Line -...
10 
?define REDRAW	1
 - 
 
11 
?define ANIM	2
- 
 
12 
?define NOTIP	3
 - 
 
13 
 
 - 
 
14 
/*
 - 
 
15 
//IPC
 - 
 
16 
#include "lib\Nable_lib.h--"
 - 
 
17 
#include "lib\ipc.h--"
 - 
 
18 
 
 - 
 
19 
int pLoadedImage;
 - 
 
20 
void GetImage(dword ipath)
 - 
 
21 
{
 - 
 
22 
	IF (pLoadedImage) free(pLoadedImage);
 - 
 
23 
	pLoadedImage=loadimage_viaIPC(ipath, #CurrentImage);
 - 
 
24 
	SetEventMask(100111b); //restore normal event mask
 - 
 
Line 25... Line 9...
25 
}
 9 
?define REDRAW	1
26 
 
 10 
?define ANIM	2
27 
*/
 11 
?define NOTIP	3
28 
 
 12 
 
Line 46... Line 30...
46 
		case evKey: IF (GetKey()==27) ExitProcess(); break;
 30 
		case evKey: IF (GetKey()==27) ExitProcess(); break;
47 
		case evReDraw:
 31 
		case evReDraw:
48 
			WindowRedrawStatus(1);
 32 
			WindowRedrawStatus(1);
49 
			DefineAndDrawWindow(500,200,181,256,0x34,0x10EFEBEF,0,0,"About Eolite");
 33 
			DefineAndDrawWindow(500,200,181,256,0x34,0x10EFEBEF,0,0,"About Eolite");
50 
			DrawBar(0,0,172,50,0x8494C4); //ãîëóáîå ñçàäè
 34 
			DrawBar(0,0,172,50,0x8494C4); //ãîëóáîå ñçàäè
51 
			PutPaletteImage(#logo,85,85,48,7,#logo_pal);
 35 
			PutPaletteImage(#logo,85,85,43,7,#logo_pal);
52 
			WriteText(33,100,0x80,0xBF40BF,"Eolite v0.98.5 RC2",0);
 36 
			WriteText(33,100,0x80,0xBF40BF,"Eolite v0.98.5 RC2",0);
53 
			WriteText(55,120,0x80,0,"Developers:",0);
37 
			WriteText(55,120,0x80,0,"Developers:",0);
54 
			WriteText(39,130,0x80,0,"Leency & Veliant",0);
38 
			WriteText(39,130,0x80,0,"Leency & Veliant",0);
55 
			WriteText(30,140,0x80,0,"Diamond, Lrz, Nable",0);
 39 
			WriteText(30,140,0x80,0,"Diamond, Lrz, Nable",0);
56 
			WriteText(21,160,0x80,0,"Made using C-- in 2008",0);
 40 
			WriteText(21,160,0x80,0,"Made using C-- in 2008",0);
Line 59... Line 43...
59 
			WindowRedrawStatus(2);
 43 
			WindowRedrawStatus(2);
60 
	}
 44 
	}
61 
}
 45 
}
Line -... Line 46...
- 
 
 46 
 
- 
 
 47 
 
- 
 
 48 
 
- 
 
 49 
?define add_new_path 1
62 
 
 50 
?define go_back 2
63 
 
 51 
 
64 
void HistoryPath(byte action)
 52 
void HistoryPath(byte action)
65 
{
 53 
{
66 
	if (action==add_new_path)
 54 
	if (action==add_new_path)
- 
 
 55 
	{
- 
 
 56 
		IF (strcmp(#PathHistory+find_symbol(#PathHistory,'|'),#path)==0) return;
- 
 
 57 
		IF (strlen(#PathHistory)+strlen(#path)>2560)
67 
	{
 58 
		{
- 
 
 59 
			copystr(#PathHistory+1024,#PathHistory);
68 
		IF (strcmp(#PathHistory+find_symbol(#PathHistory,'|'),#path)==0) return;
 60 
			copystr("/",#PathHistory+strlen(#PathHistory));
69 
		IF (strlen(#PathHistory)+strlen(#path)>2560) {copystr(#PathHistory+1024,#PathHistory); copystr("/",#PathHistory+strlen(#PathHistory));}//0_o
 61 
		}
70 
		copystr("|",#PathHistory+strlen(#PathHistory));
 62 
		copystr("|",#PathHistory+strlen(#PathHistory));
71 
		copystr(#path,#PathHistory+strlen(#PathHistory));
 63 
		copystr(#path,#PathHistory+strlen(#PathHistory));
72 
	}
 64 
	}
Line 79... Line 71...
79 
		IF (i>0) PathHistory[i]=0x00;
 71 
		IF (i>0) PathHistory[i]=0x00;
80 
	}
 72 
	}
81 
}
 73 
}
Line 82... Line -...
82 
 
 - 
 
83 
 
 - 
 
84 
/*òèïà àíèìàöèÿ
 - 
 
85 
WHILE (m.lkm==1)
 - 
 
86 
{
 - 
 
87 
	Pause(10);
 - 
 
88 
	PutPaletteImage(p*16*15+#ficons,16,15,100,350,#ficons_pal);
 - 
 
89 
	IF (p>21) p=0; ELSE p++;
 - 
 
90 
	m.get();
 - 
 
91 
}*/
 - 
 
92 
 
 74 
 
93 
 
 75 
 
Line 94... Line 76...
94 
dword onLeft(dword right,left) {EAX=Form.width-right-left;}
 76 
dword onLeft(dword right,left) {EAX=Form.width-right-left;}