Subversion Repositories Kolibri OS

//Leency & Veliant -=- KolibriOS Team -=- 2008

#pragma option J0

#pragma option LST

#pragma option OC

#pragma option 4

#pragma option A

#include "lib\kolibri.h--"

#include "lib\memory.h--"

#include "imgs\Imgs.cpp"

#include "imgs\icons.cpp"

#include "imgs\left_p.cpp"

#include "LVabout.c--"

#speed

//ëîêàëèçàöèÿ è íàñòðîéêè

char header = "Eolite File Manager v0.84";

char gotodev = "Goto:";

char actions = "Actions";

char preview = "Preview";

char tfile = "File";

char ttype = "Type";

char tsize = "Size";

dword videlenie=0x94AECE; //öâåò âûäåëåííîãî ýëåìåíòà èç ñïèñêà ôàéëîâ

//

int but_num, kolichestvo, curbtn, za_kadrom, longest_name;;

dword top_actions, show_actions=1, show_preview=0, top_pr;

int razm_scrl, on_y; //äëÿ ñêðîëà

int y,off; //äëÿ òåêñòà

char path[256] = "/rd/1/", edit_path[256], temp[256]; //äëÿ ïóòåé

char file_path[256], param[256], file_name[256]; //äëÿ ôàéëîâ

char copyfile[256],copy_name[256]; //êîïèðîâàíèå

int i=1; //äëÿ öèêëîâ

dword id=1;

dword ins_mas[200]=0; //Insert

dword file_mas[2000]; //ñïèñîê ôàéëîâ

int cut_active, rename_active, del_active;

int temp_int, str_len;

dword stak[100]=0;

proc_info	Form;

struct {

	int	func;

	int	pos;

	int	rezerv;

	int	sizefile;

	int	buffer;

	char rezerv2;

	int	stroka;

}open_file_70;

dword buf, size, isdir;

struct {

     int     func;

     int     flag;

     int     param;

     int     rez1;

     int     rez2;

     char rezerv2;

     int     stroka;

}run_file_70;

void main()

dword pressed, key;

mouse m;

{

	skin_width = GetSkinWidth();

	buf = malloc(65536); //65536

	draw_window();

	$mov eax,40

    	$mov ebx,100111b

    	$int 0x40

	loop()

	{

		switch(WaitEvent())

		{

			CASE 6:

					IF (del_active==1) break;

					m.get();

					IF ((kolichestvo==but_num) || (m.y<57)) break; //åñëè ïðîêðóòêè íåò, òî íèêóäà íå ìîòàåì

					IF (m.y>Form.width) m.y=57; //åñëè êóðñîð íàä îêíîì

					IF (m.lkm==0) pressed=0; ELSE

					//if (m.y>=on_y+skin_width) if (m.y<=on_y+razm_scrl+skin_width)

					IF (m.x>=onLeft(21,0)) IF (m.x<=onLeft(6,0)) pressed=1;

					if (pressed==1) IF (m.y>=on_y+razm_scrl+skin_width) //if (kolichestvo

						{

						IF (za_kadrom+but_num>=kolichestvo) break;

						Line_ReDraw(0xFFFFFF); //áåëàÿ ïîëîñà

						za_kadrom=za_kadrom+but_num; //za_kadrom=za_kadrom+1;

						List_ReDraw();

						}

					ELSE IF (pressed==1) IF (m.y<=on_y) IF (on_y<>57)

						{

						IF (za_kadrom>but_num) za_kadrom=za_kadrom-but_num; //za_kadrom=za_kadrom-1;

					 		ELSE za_kadrom=0;

						List_ReDraw();

						}

					break;

			CASE evButton:

				id=GetButtonID();

				IF (id==1) {ExitProcess(); break;}

				IF (del_active==1)

					{

					IF (id==301) Del_File();

					IF (id==302) {del_active=0; Open_Dir(#path,1);}

				 	break;

				 	}

				switch(id)

				{

					CASE 23: IF (strcmp(#path,"/")==-1) Dir_Up(); break;//up!

					case 26: Paste(); break;//paste

					case 27: Goto_edit_path(); break; //goto edit_path

					case 81: Del_Form(); break;//Delete file

					case 24: //cut

					case 25: //copy

						if (isdir==1) break; //ïàïêè ïîêà ÷òî êîïèðîâàòü íå óìååì

						copystr(#file_name,#copy_name);

						copystr(#file_path,#copyfile); //âû÷èñëÿåì êàêîé ôàéë êîïèðîâàòü

						IF (id==24) cut_active=1; ELSE cut_active=0; //ðåæåì èëè êîïèðóåì?

						break;

					case 30: //about

						EAX = 51;

						EBX = 1;

						ECX = #authors;

						EDX = #stak;

						$int 40h;

						break;

					case 50: //ñòðåëêà ââåðõ íà ñêðîëå

						IF (za_kadrom<=0) break;

						za_kadrom=za_kadrom-1;

						List_ReDraw();

						break;

					case 51: //ñòðåëêà âíèç íà ñêðîëå

						IF (za_kadrom+but_num>=kolichestvo) break;

						za_kadrom=za_kadrom+1;

						List_ReDraw();

						break;

					case 77: //actions

						IF (show_actions==1) show_actions=0; else show_actions=1;

						Actions(); //äàëåå ðèñóåì ñäåñü ÷òîá ìåíüøå áûëà ïåðåðèñîâêà

						IF (show_actions==1) DrawBar(22,top_actions*16+159,160,15,0x00699C);

						ELSE {

							DrawBar(22,top_actions*16+120,160,15,0x00699C);

							DrawBar(22,top_actions*16+242,160,50,0x00699C);

							}

						Preview();

						IF (show_preview==0) DrawBar(22,top_pr+18,160,101,0x00699C); //ñèíåå ðèñóåì ñäåñü

						break;

					case 78: //preview

						if (show_preview==0)show_preview=1; else

						{ show_preview=0; DrawBar(22,top_pr+18,160,101,0x00699C); } //ñèíåå

						Preview();

						break;

					case 80: //rename

						if (isdir==1) break; //ïàïêè ïîêà ÷òî ïåðåèìåíîâûâàòü íå óìååì

						y= curbtn*18+85;

						DrawRegion(219,curbtn*18+57,onLeft(50,197),17,0x94AECE); //îáîäîê

						DrawBar(220,curbtn*18+58,onLeft(50,197)-1,16,0xFFFFCC); //æ¸ëòîå

						WriteTextXY(224<<16+y, 0x80000000, #file_name, 0);

						rename_active=1;

						break;

					case 21: //Íàçàä

						GoBack(1);

						break;

					case 22: //Âïåð¸ä

						GoBack(0);

						break;

				}//---------------------------ïåðåõîä ïî id----------------------

				if (id>200) //êíîïêè èç ñïèñêà ôàéëîâ

				{

					if (curbtn!=id-201)

					{

						Line_ReDraw(0xFFFFFF); //áåëàÿ ïîëîñà

						curbtn=id-201;

						Line_ReDraw(videlenie); //âûäåëåíèå

						break;

					}

					else

					if ((isdir==1)	if (strcmp(curbtn+1*304 + buf+72,"..")==-1)

					{

							copystr(#file_path, #path);

							copystr("/", #path+strlen(#path));

							za_kadrom=0; //ââåðõ ñïèñêà

							curbtn=0;

							Open_Dir(#path,1);

					} else Dir_Up(); else Run_File();

					break;

				}

				if (id>=100) //ïîäêëþ÷¸ííûå íîñèòåëè èíôîðìàöèè

				{

				Open_Dir("/",0);

				copystr(id-100*304+ buf+72, #path);

				if (strcmp(#path,"rd")==0) copystr("/rd/1/",#path);

				else

					{

					copystr("/", #temp);

					copystr(#path, #temp+strlen(#temp));

					copystr("/", #temp+strlen(#temp));

					copystr(#temp,#path);

					}

				za_kadrom=0; //ââåðõ ñïèñêà

				curbtn=0;

				Open_Dir(#path,1);

				break;

				}

			case evKey:

				key = GetKey();

				IF (del_active==1)

					{

					IF (key==013) Del_File();

					IF (key==027) {del_active=0; Open_Dir(#path,1);}

				 	break;

				 	}

				switch (key)

				{

						case 0x08: //backspace

									if (rename_active==1) {copystr(#file_name,#temp); if (strlen(#temp)<=0) break;}

										else {copystr(#edit_path,#temp); if (strlen(#temp)<=1) break;} //îñòàâëÿåì òîëüêî "/"

										EBX=#temp + strlen(#temp)-1;

										ESBYTE[EBX] = 0;

									if (rename_active==1)

									{

										DrawBar(strlen(#file_name)*6+218,curbtn*18+58,6,16,0xFFFFCC); //æ¸ëòîå

										copystr(#temp,#file_name);

										WriteTextXY(224<<16+y, 0x80000000, #file_name, 0);

									} else { copystr(#temp,#edit_path); KEdit(); }

									break;

						case 014: //íîâîå îêíî

									break;

						case 024: //Ctrl+X cut

									if (isdir==1) break; //ïàïêè ïîêà ÷òî êîïèðîâàòü íå óìååì

									copystr(#file_name,#copy_name);

									copystr(#file_path,#copyfile); //âû÷èñëÿåì êàêîé ôàéë êîïèðîâàòü

									cut_active=1;

									break;

						case 089: //Ctrl+Ins copy

						case 003: //Ctrl+C copy

									if (isdir==1) break; //ïàïêè ïîêà ÷òî êîïèðîâàòü íå óìååì

									copystr(#file_name,#copy_name);

									copystr(#file_path,#copyfile); //âû÷èñëÿåì êàêîé ôàéë êîïèðîâàòü

									cut_active=0;

									break;

						case 022: //Ctrl+V paste

									Paste();

									break;

						case 027: //Esc

									if (rename_active==1) { rename_active=0; Line_ReDraw(videlenie); }

									break;

						case 013:	//Enter

									if (rename_active==1) {Line_ReDraw(videlenie); break;}

									if (strcmp(#path,#edit_path)==-1) Goto_edit_path(); else

									if ((isdir==1)	if (strcmp(curbtn+1*304 + buf+72,"..")==-1)

									{

										copystr(#file_path, #path);

										copystr("/", #path+strlen(#path));

										za_kadrom=0; //ââåðõ ñïèñêà

										curbtn=0;

										Open_Dir(#path,1);

									} else Dir_Up(); else Run_File();

									break;

						case 178:	//up

									if (curbtn>=1)

									{

										Line_ReDraw(0xFFFFFF); //áåëàÿ ïîëîñà

										curbtn=curbtn-1;

										Line_ReDraw(videlenie); //âûäåëåíèå

										break;

									}

									if (za_kadrom<=0) break;

									za_kadrom=za_kadrom-1;

									List_ReDraw();

									break;

						case 177:	//down

									if(curbtn

									{

										Line_ReDraw(0xFFFFFF); //áåëàÿ ïîëîñà

										curbtn=curbtn+1;

										Line_ReDraw(videlenie); //âûäåëåíèå

										break;

									}

									if (za_kadrom+but_num>=kolichestvo) break;

									za_kadrom=za_kadrom+1;

									List_ReDraw();

									break;

						case 180: //home

									if (curbtn==0)

									if (strcmp(".",buf+72)==-1) if (za_kadrom==0) break; else if (za_kadrom==1) break;

									if (za_kadrom==0){

										Line_ReDraw(0xFFFFFF); //áåëàÿ ïîëîñà

										curbtn=0;

										Line_ReDraw(videlenie); //âûäåëåíèå

										break;

									}

									Line_ReDraw(0xFFFFFF); //áåëàÿ ïîëîñà

									za_kadrom=0; //åñëè ìû óæå ïðîìîòàëè è ïåðâûé ýëåìåíò çà êàäðîì

									curbtn=0;

									List_ReDraw();

									break;

						case 181: //end

									if (curbtn==kolichestvo-za_kadrom-1) break;

									if (but_num==kolichestvo-za_kadrom){

										Line_ReDraw(0xFFFFFF); //áåëàÿ ïîëîñà

										curbtn=but_num-1;

										Line_ReDraw(videlenie); //âûäåëåíèå

										break;

									}

									Line_ReDraw(0xFFFFFF); //áåëàÿ ïîëîñà

									za_kadrom=kolichestvo-but_num;

									curbtn=but_num;

									List_ReDraw();

									break;

						case 183: //Page Down

									IF (but_num==kolichestvo-za_kadrom) break;

									IF (kolichestvo-za_kadrom-but_num

										za_kadrom=kolichestvo-but_num; ELSE za_kadrom=za_kadrom+but_num;

									List_ReDraw();

									break;

						case 184: //Page Up

									IF (za_kadrom==0) break;

									IF (za_kadrom<=but_num)	za_kadrom=0; ELSE za_kadrom=za_kadrom-but_num;

									List_ReDraw();

									break;

						case 185: //Insert

									if (ins_mas[file_mas[za_kadrom+curbtn]]==0) ins_mas[file_mas[za_kadrom+curbtn]]=1;

										else ins_mas[file_mas[za_kadrom+curbtn]]=0;

									if(curbtn

									{

										Line_ReDraw(0xFFFFFF); //áåëàÿ ïîëîñà

										curbtn++;

										Line_ReDraw(videlenie); //âûäåëåíèå

										break;

									}

									if (za_kadrom+but_num>=kolichestvo) Line_ReDraw(videlenie);

										else { za_kadrom=za_kadrom+1; List_ReDraw(); }

									break;

						case 182:	Del_Form(); break; //delete file

						case 054: IF (rename_active==0) {draw_window(); break;} ELSE goto REN_; //ïåðåðèñîâàòü îêíî F5

						case 051: //Íàæàòà F2

									if (rename_active==0){

									if (isdir==1) break; //ïàïêè ïîêà ÷òî ïåðåèìåíîâûâàòü íå óìååì

									y= curbtn*18+85;

									DrawRegion(219,curbtn*18+57,onLeft(50,197),17,0x94AECE);

									DrawBar(220,curbtn*18+58,onLeft(50,197)-1,16,0xFFFFCC);

									WriteTextXY(224<<16+y, 0x80000000, #file_name, 0);

									rename_active=1;

									} ELSE GOTO REN_;

									break;

						default:

									REN_:

									if (rename_active==1) copystr(#file_name,#temp); else copystr(#edit_path,#temp);

									if (strlen(#temp)>256) break;

										EBX=#temp + strlen(#temp);

										ESBYTE[EBX] = key;

										ESBYTE[EBX+1] = 0;

									//

									if (rename_active==1)

									{

										DrawBar(220,curbtn*18+58,onLeft(50,197)-1,16,0xFFFFCC); //æ¸ëòîå

										copystr(#temp,#file_name);

										WriteTextXY(224<<16+y, 0x80000000, #file_name, 0);

									} else { copystr(#temp,#edit_path); KEdit(); }

									break;

				}

				break;

				CASE evReDraw:

				draw_window();

				break;

		}

	}

	ExitProcess();

}

void draw_window()

{

	WindowRedrawStatus(1);

	DefineAndDrawWindow(100,100,600,410,0x03,0x00E4DFE1,0,0,0);

     DrawTitle(#header);

     Form.getme();

     if (Form.height

     if (Form.width<493) MoveSize(OLD,OLD,493,OLD);

	//control buttons

	DefineButton(14,5,31,29,21+BT_HIDE,0xE4DFE1); //back

		PutImage(#back,30,28,15,6);

	DefineButton(50,5,31,29,22+BT_HIDE,0xE4DFE1); //forward

		PutImage(#forward,30,28,51,6);

	DefineButton(89,5,31,29,23+BT_HIDE,0xE4DFE1); //up!

		PutImage(#up,30,28,90,6);

	DrawBar(132,8,1,25,0x94AECE);

	DefineButton(140,5,31,29,24+BT_HIDE,0xE4DFE1); //cut

		PutImage(#fcut,30,28,141,6);

	DefineButton(176,5,31,29,25+BT_HIDE,0xE4DFE1); //copy

		PutImage(#fcopy,30,28,177,6);

	DefineButton(212,5,31,29,26+BT_HIDE,0xE4DFE1); //paste

		PutImage(#fpaste,30,28,213,6);

	DefineButton(onLeft(34,0),6,27,28,30+BT_HIDE+BT_NOFRAME,0xE4DFE1); //about

		PutImage(#about,25,26,onLeft(34,0),7);

	//ïîëîñà àäðåñà

	DrawRegion(251,12,onLeft(61,251),16,0x94AECE);//îáîäîê

	DefineButton(onLeft(61,0),12,18,16,27+BT_HIDE,0xE4DFE1); //goto there

	PutImage(#Edit_Goto,18,17,onLeft(60,0),12);

	//ãëàâíûé ïðÿìîóãîëüíèê âíóòðè

	DrawRegion(6,40,Form.width-12,Form.height-skin_width-46,0x94AECE);

	DrawBar(7,41,190,onTop(6,41),0x00699C);	//ñèíèé ïðÿìîóãîëüíèê

     LeftBar(); //ïàíåëü ñëåâà íà ñèíåì ôîíå

	//Íàçâàíèÿ ñòîëáöîâ

	DrawBar(197,41,onLeft(6,197),1,0xFFFFFF); //áåëàÿ ïîëîñà ñâåðõó

	DrawBar(197,56,onLeft(6,197),1,0x94AECE); //ïîëîñà ñíèçó

	DrawBar(onLeft(163,0),41,1,16,0x94AECE); //ïîëîñà âåðòèêàëüíàÿ 1

	DrawBar(onLeft(90,0),41,1,16,0x94AECE); //ïîëîñà âåðòèêàëüíàÿ 2

	temp_int=Form.width-163-197>>1-15; //íàõîäèì ñåðåäèíó ïîëÿ text File

	WriteText(temp_int+197,45,0x80,0,#tfile,0);//text File

	WriteText(onLeft(137,0),45,0x80,0,#ttype,0);//text Type

	WriteText(onLeft(66,0),45,0x80,0,#tsize,0);//text Size

	if (curbtn<>0) DrawBar(197,57,onLeft(22,197),18,0xFFFFFF);

	Open_Dir(#path,1);

	//ïðîêðóòêà

	DefineButton(onLeft(22,0),40,16,16,50+BT_HIDE,0xE4DFE1); //ïðîêðóòêà ââåðõ

		DrawBar(onLeft(21,0),42,1,14,0x00FFFFFF); //áåëàÿ ïîëîñà ñëåâà

		WriteText(onLeft(16,0),45,0x80,0,"\x18",0); //ñòðåëêà ââåðõ

	DefineButton(onLeft(22,0),onTop(22,0),16,16,51+BT_DEL,0xE4DFE1); //óäàëÿåì

	DrawFlatButton(onLeft(22,0),onTop(22,0),16,16,51,0xE4DFE1); //ïðîêðóòêà âíèç

		DrawBar(onLeft(21,0),onTop(22,0)+15,15,1,0xE4DFE1); //óäàëÿåì òåíü

		DrawBar(onLeft(7,0),onTop(20,0),1,14,0xE4DFE1); //óäàëÿåì òåíü

		WriteText(onLeft(16,0),onTop(17,0),0x80,0,"\x19",0); //ñòðåëêà âíèç

	DrawBar(onLeft(22,0),41,1,onTop(6,57),0x94AECE); //ëèíèÿ ñëåâà îò ïðîêðóòêè

	IF (del_active==1) Del_Form();

	WindowRedrawStatus(2);

}

void KEdit()

{

	temp_int=onLeft(61,252)/6;

	IF (strlen(#edit_path)

		{

		DrawBar(strlen(#edit_path)*6+252+5,17,6,9,0xFFFFFF); //áåëàÿ îáëàñòü ïîä KEdit

		WriteText(257,17,0x80,0,#edit_path,0); //text 'path'

		}

	ELSE

		{

		DrawBar(252,17,onLeft(61,252),9,0xFFFFFF); //áåëàÿ îáëàñòü

		WriteText(257,17,0x80,0,#edit_path+strlen(#edit_path)-temp_int,0); //text 'path'

		}

}

char drive_name[30];

dword dev_icon;

void LeftBar(){

	//ñïèñîê äèñêîâ

	DrawBar(22,56,160,17,0xE4DFE1); //ñåðîå ñâåðõó

	WriteText(30,61,0x80,0,#gotodev,0); //text Goto:

	DrawBar(22,73,160,1,0x94AECE); //ïîä÷¸ðêèâàíèå

	Open_Dir("/",0);

	DrawBar(22,74,160,kolichestvo*16+1,0xFFFFFF); //áåëîå

	for (i=0;i

	    {

	    copystr("Unknown drive",#drive_name); //èçíà÷àëüíî íåèçâåñíûé íîñèòåëü

         DefineButton(22,i*16+74,159,16,100+i+BT_HIDE,0xE4DFE1); //ñîçäà¸ì êíîïêè, à ïîòîì âûâîäèì íàçâàíèÿ äèñêîâ

         IF (strcmp(i*304+ buf+72,"rd")<>-1) { copystr("RAM-disk /rd/1/",#drive_name); dev_icon=#rd; }

         IF (strcmp(i*304+ buf+72,"fd")<>-1) { copystr("Floppy disk /fd/",#drive_name); dev_icon=#fd; }

         IF (strcmp(i*304+ buf+72,"hd0")<>-1) { copystr("Hard disk drive /hd0/",#drive_name); dev_icon=#hd; }

         IF (strcmp(i*304+ buf+72,"hd1")<>-1) { copystr("Hard disk drive /hd1/",#drive_name); dev_icon=#hd; }

         IF (strcmp(i*304+ buf+72,"hd2")<>-1) { copystr("Hard disk drive /hd2/",#drive_name); dev_icon=#hd; }

         IF (strcmp(i*304+ buf+72,"bd0")<>-1) { copystr("Hard disk drive /bd0/",#drive_name); dev_icon=#hd; }

         IF (strcmp(i*304+ buf+72,"bd1")<>-1) { copystr("Hard disk drive /bd1/",#drive_name); dev_icon=#hd; }

         IF (strcmp(i*304+ buf+72,"bd2")<>-1) { copystr("Hard disk drive /bd2/",#drive_name); dev_icon=#hd; }

         IF (strcmp(i*304+ buf+72,"cd1")<>-1) { copystr("CD-drive /cd1/",#drive_name); dev_icon=#cd; }

         IF (strcmp(i*304+ buf+72,"cd2")<>-1) { copystr("CD-drive /cd2/",#drive_name); dev_icon=#cd; }

	    WriteText(45,i*16+79,0x80,0,#drive_name,0);

	    PutImage(dev_icon,14,13,26,i*16+76);

         }

     //ôóíêöèè ôàéëîâ è ïàïîê

	top_actions=kolichestvo;

	Actions();

	Preview();

}

void Actions()

{

	DrawBar(22,top_actions*16+90,160,17,0xE4DFE1); //ñåðîå ñâåðõó

	WriteText(30,top_actions*16+95,0x80,0,#actions,0); //text Actions

	DefineButton(164,top_actions*16+91,16,16,77+BT_HIDE+BT_NOFRAME,0xE4DFE1); //êíîïà äëÿ ñòðåëêè

	DrawBar(22,top_actions*16+107,160,1,0x94AECE); //ïîä÷¸ðêèâàíèå

	if (show_actions==1)

	{

		WriteText(170,top_actions*16+95,0x80,0,"\x19",0); //ñòðåëêà âíèç

		DrawBar(22,top_actions*16+108,160,51,0xFFFFFF); //áåëîå

		//rename file

		DefineButton(22,top_actions*16+108,159,16,80+BT_HIDE,0xE4DFE1);

		WriteText(47,top_actions*16+113,0x80,0,"Rename file ",0);

		PutImage(#ren_file,16,15,26,top_actions*16+109);

		//delete file

		DefineButton(22,top_actions*16+125,159,16,81+BT_HIDE,0xE4DFE1);

		WriteText(47,top_actions*16+130,0x80,0,"Delete file ",0);

		PutImage(#del_file,16,15,26,top_actions*16+125);

		//create folder

		DefineButton(22,top_actions*16+142,159,16,82+BT_HIDE,0xE4DFE1);

		WriteText(47,top_actions*16+147,0x80,0,"Create folder ",0);

		PutImage(#new_fol,16,15,26,top_actions*16+142);

	}

	else

	{

	DefineButton(22,top_actions*16+108,159,16,80+BT_DEL,0xE4DFE1);

	DefineButton(22,top_actions*16+125,159,16,81+BT_DEL,0xE4DFE1);

	DefineButton(22,top_actions*16+142,159,16,82+BT_DEL,0xE4DFE1);

	WriteText(170,top_actions*16+95,0x80,0,"\x18",0); //ñòðåëêà ââåðõ

	DrawBar(22,top_actions*16+108,160,51,0x00699C); //ñèíåå

	}

}

void Preview()

{

	IF (show_actions==1) top_pr=top_actions*16+174; ELSE top_pr=top_actions*16+174-51;

	DrawBar(22,top_pr,160,17,0xE4DFE1); //ñåðîå ñâåðõó

	WriteText(30,top_pr+5,0x80,0,#preview,0); //text Preview

	DefineButton(164,top_pr+1,16,16,78+BT_DEL,0xE4DFE1);

	DefineButton(164,top_pr+1,16,16,78+BT_HIDE+BT_NOFRAME,0xE4DFE1); //êíîïà äëÿ ñòðåëêè

	DrawBar(22,top_pr+17,160,1,0x94AECE); //ïîä÷¸ðêèâàíèå

	IF (show_preview==0) WriteText(170,top_pr+5,0x80,0,"\x18",0); else//ñòðåëêà ââåðõ

	{

		WriteText(170,top_pr+5,0x80,0,"\x19",0); //ñòðåëêà âíèç

		DrawBar(22,top_pr+18,160,100,0xFFFFFF); //áåëîå

		/*WriteText(30,top_pr+30,0x80,0,IntToStr(kolichestvo),0);

		WriteText(30,top_pr+50,0x80,0,IntToStr(but_num),0);

		WriteText(30,top_pr+60,0x80,0,IntToStr(za_kadrom),0);

		WriteText(30,top_pr+70,0x80,0,#file_path,0);

		WriteText(30,top_pr+80,0x80,0,#param,0);*/

		WriteText(30,top_pr+60,0x80,0,"Not realized... Yet.",0);

	}

}

void TVScroll() { //Ïðîêðóòêà

if (but_num==kolichestvo)

	{

		DefineButton(onLeft(22,0),57,15,on_y-57,54+BT_DEL,0xE4DFE1); //óäàëÿåì

		DefineButton(onLeft(22,0),on_y+razm_scrl+2,16,onTop(22,57)-razm_scrl-on_y+55,55+BT_DEL,0xE4DFE1); //óäàëÿåì

		DrawBar(onLeft(21,0),57,15,onTop(79,0),0xCED0D0); //ñåðóþ îáëàñòü ðèñóåì

	}

else

	{

		razm_scrl=onTop(22,57) * but_num - but_num / kolichestvo; //ñ÷èòàåò ïî-ïîðÿäêó

		on_y = za_kadrom / but_num * razm_scrl+57;

		IF (razm_scrl<20) razm_scrl = 20; //óñòàíàâëèâàåì ìèíèìàëüíûé ðàçìåð ñêðîëëà

		IF (za_kadrom==0) on_y= 57; ELSE IF (za_kadrom

		IF (za_kadrom+but_num==kolichestvo) on_y= onTop(23,57)-razm_scrl+57; //â êîíåö åñëè òàì íè÷¸ íåò

		//ïîëçóíîê, ðèñóåì âèäèìûé, êðàñèâûé ïðÿìîóãîëüíèê

		DrawBar(onLeft(21,0),on_y,15,1,0x94AECE); //ñèíÿÿ ëèíèÿ ñâåðõó

		DrawBar(onLeft(21,0),on_y+razm_scrl,15,1,0x94AECE); //ñèíÿÿ ëèíèÿ ñíèçó

		DrawBar(onLeft(21,0),on_y+1,1,razm_scrl-1,0x00FFFFFF); //áåëàÿ ïîëîñà ñëåâà

		DrawBar(onLeft(21,0),on_y+1,15,1,0x00FFFFFF); //áåëàÿ ïîëîñà ñâåðõó

		DrawBar(onLeft(20,0),on_y+2,14,razm_scrl-2,0x00E4DFE1); //ïðÿìîóãîëüíèê âíóòðè

		//ïîëîñû

		DrawBar(onLeft(21,0),57,15,on_y-57,0xCED0D0); //ïîëå äî ïîëçóíêà

		DrawBar(onLeft(21,0),on_y+razm_scrl+1,15,onTop(22,57)-razm_scrl-on_y+56,0xCED0D0); //ïîëå ïîñëå ïîëçóíêà

	}

}

void List_ReDraw()

{

	y=85;

	if ((kolichestvo-za_kadrom1)) //åñëè ìû â êîíöå ñïèñêà ôàéëîâ ðàçâåðí¸ì îêíî ïîÿâÿòüñÿ ïóñòÿå áåëûå êíîïêè

	{

		za_kadrom=kolichestvo-but_num;

		curbtn=but_num-1;

	} else if (curbtn>but_num-1) curbtn=but_num-1; //ýòî åñëè âûäåëåíèå ïîñëå ñõëîïûâàíèÿ îêíà çà êàäðîì

	//

	if (onLeft(165,220)/6

	DrawBar(220,57,longest_name*6,curbtn-3*18+57-3,0xFFFFFF); //áåëàÿ îáëàñòü ñëåâà

	DrawBar(220,curbtn+1*18+57,longest_name*6,onTop(6,curbtn+1*18+57),0xFFFFFF); //áåëàÿ îáëàñòü ñëåâà

	DrawBar(onLeft(155,0),57,121,curbtn-3*18+57-3,0xFFFFFF); //áåëàÿ îáëàñòü ñïðàâà

	DrawBar(onLeft(155,0),curbtn+1*18+57,121,onTop(6,curbtn+1*18+57),0xFFFFFF); //áåëàÿ îáëàñòü ñïðàâà

	//

	str_len = onLeft(220,160)/6; //äëèííà íàçâàíèÿ ôàéëà

	longest_name=strlen(off);

	for (i=za_kadrom;i

	{

		if (strcmp(".",buf+72)==-1) off = file_mas[i]*304 + buf+72; else off = file_mas[i+1]*304 + buf+72;

		EAX = off - 8;

		size=ESDWORD[EAX];

		EAX = off - 40;

		EAX=ESDWORD[EAX];

		$shr eax,4

		$and eax,1

		isdir=EAX;

		if (curbtn<>i) if (isdir==1) Put_icon(""); else

		{

			WriteText(7-strlen(ConvertSize(size))*6+onLeft(75,0),y-22,0x80,0,ConvertSize(size),0);

			Put_icon(off+strlen(off)-4);

		}

		if (strlen(off)

  		if (ins_mas[file_mas[i]]==0)

	         WriteTextXY(220<<16+y, 0, off, temp_int); //âûäåëåíî ëè èíñåðòîì?

          	else WriteTextXY(220<<16+y, 0x00FF9900, off, temp_int);

		y=y+18;

		if (longest_name

	}

	Line_ReDraw(videlenie);

	DrawBar(onLeft(90,0),57,1,onTop(7,57),0xE4DFE1); //ïîëîñà ñåðàÿ âåðòèêàëüíàÿ 2

	TVScroll();

}

void Line_ReDraw(dword color){

	if (rename_active==1)

		{

		rename_active=0;

		copystr(#path,#temp);

		copystr(#file_name,#temp+strlen(#temp));

		if (strcmp(#file_path,#temp)==-1) if (strlen(#file_name)>0)

			{

			CopyFile(#file_path,#temp);

			Del_File();

			//za_kadrom=kolichestvo-but_num;

			//curbtn=but_num-1;

			//Line_ReDraw(videlenie);

			}

		}

	DrawBar(197,curbtn*18+57,onLeft(22,197),18,color); //ïîëîñà áåëàÿ èëè âûäåëåíèÿ

	y= curbtn*18+85; //ïîëîæåíèå òåêñòà ïî Y

	if (strcmp(".",buf+72)==-1) off = file_mas[curbtn+za_kadrom]*304 + buf+72; else off = file_mas[curbtn+za_kadrom+1]*304 + buf+72;

	temp_int = onLeft(220,160)/6;

	if (strlen(off)

  if (ins_mas[file_mas[za_kadrom+curbtn]]==0)

          WriteTextXY(220<<16+y, 0, off, temp_int); //âûäåëåíî ëè èíñåðòîì?

		//EDI = 0x80FFFFFF;

		//WriteTextXY(temp_int<<16+y, 0xC0000000,#temp, 7); //DD8500 èëè FF3399

          else WriteTextXY(220<<16+y, 0x80DD8500, off, temp_int); //DD8500 èëè FF3399

	EAX = off - 8;

	size=ESDWORD[EAX];

	EAX = off - 40;

	EAX=ESDWORD[EAX];

	$shr eax,4

	$and eax,1

	isdir=EAX;

	if (isdir==1) Put_icon(""); else

	{

		WriteText(7-strlen(ConvertSize(size))*6+onLeft(75,0),y-22,0x80,0,ConvertSize(size),0);

		Put_icon(off+strlen(off)-4);

	}

	copystr(#path,#file_path);

	copystr(off,#file_name);

	copystr(off,#file_path+strlen(#file_path)); //èòàê, file_path=ôàéëó, ò.ê. ïî-óìîë÷àíèþ ýòî ïðîãà

	DrawBar(onLeft(163,0),curbtn*18+57,1,18,0xE4DFE1); //ïîëîñà ñåðàÿ âåðòèêàëüíàÿ 1

	DrawBar(onLeft(90,0),curbtn*18+57,1,18,0xE4DFE1); //ïîëîñà ñåðàÿ âåðòèêàëüíàÿ 2

	if (color==videlenie) //çàêðàøèâàåì èêîíêó

		{

		if (temp_int==1) //ôàéëèê

			{

			DrawBar(200,y-26,2,15,videlenie);

			DrawBar(214,y-26,2,15,videlenie);

			DrawBar(210,y-26,4,1,videlenie);//ëå

			DrawBar(211,y-25,3,1,videlenie);//ñåí

			DrawBar(212,y-24,2,1,videlenie);//êà

			DrawBar(213,y-23,1,1,videlenie);//

			}

		if (temp_int==2) //ïàïêà

			{

			DrawBar(201,y-13,15,2,videlenie); //ñíèçó ëèíèÿ

			DrawBar(200,y-26,1,15,videlenie); //ñëåâà ëèíèÿ

			DrawBar(208,y-26,8,2,videlenie); //ñâåðõó ñïðàâà ëèíèÿ

			//.òî÷êè

			PutPixel(201,y-26+skin_width,videlenie); //ñâåðõó ñëåâà òî÷êà

			PutPixel(207,y-26+skin_width,videlenie); //ñâåðõó ñïðàâà òî÷êà

			PutPixel(201,y-14+skin_width,videlenie); //ñëåâà ñíèçó òî÷êà

			PutPixel(215,y-14+skin_width,videlenie); //ñïðàâà ñíèçó òî÷êà

			PutPixel(215,y-24+skin_width,videlenie); //êàêàÿ ðàçíèöà ãäå

			}

		IF (temp_int==3) PutPixel(215,y-26+skin_width,videlenie); //skin

		IF (temp_int==5) {DrawBar(200,y-26,1,15,videlenie); DrawBar(215,y-26,1,15,videlenie);} //video

		}

}

void Open_Dir(dword path_,redraw){

for (i=0;i

//temp=path+3;

//copestr(#temp

//if (strcmp(#temp,"/rd")==0) ExitProcess(); //realloc(500000

	open_file_70.func = 1;

	open_file_70.pos = 0;

	open_file_70.rezerv = 0;

	open_file_70.sizefile = 65536;

	open_file_70.buffer = buf;

	open_file_70.rezerv2 = 0;

	open_file_70.stroka = path_;

    $mov eax,70

    $mov ebx,#open_file_70.func

    $int 0x40

    kolichestvo=EBX;

    //

	if (kolichestvo<>-1) if (redraw==1)

	{

		FOR (i=0;i

		but_num=onTop(6,57)/18;

		if (strcmp(".",buf+72)==0) kolichestvo--; //ôèëüòðóåì ýëåìåíò "."

		IF (but_num>100) but_num=1; ELSE//ýòà ñòðàííàÿ ñòðî÷êà äëÿ òîãî åñëè ðàçìåðû îêðà ñëèøêîì ìàëåíüêèå

		IF (kolichestvo

		FOR (i=0;i

		DrawBar(197,75,onLeft(22,197),onTop(6,75),0xFFFFFF); //áåëàÿ îáëàñòü

		DrawBar(onLeft(163,0),57,1,onTop(7,57),0xE4DFE1); //ïîëîñà ñåðàÿ âåðòèêàëüíàÿ 1

		FoldesGoUp();

		List_ReDraw();

		copystr(path_,#edit_path);

		DrawBar(252,13,onLeft(61,252),15,0xFFFFFF); //áåëàÿ îáëàñòü ïîä KEdit

		KEdit();

	}

}

int k,l;

void FoldesGoUp(){

if (strcmp(#path,"/rd/1/")==0) kolichestvo--;  else if (strcmp(#path,"/fd/1/")==0) kolichestvo--;

else if (strlen(#path)>7) if (strcmp(".",buf+72)==-1) kolichestvo--; //>7 ýòî äëÿ /hd1/ è ò.ä.

k=0; l=0;

off=buf+72;

FOR (i=0;i<=kolichestvo;i++)

	{

		EAX = off - 8;

		EAX = off - 40;

		EAX=ESDWORD[EAX];

		$shr eax,4

		$and eax,1

		isdir=EAX;

		IF (isdir==1) {file_mas[k]=i; k++;}

			ELSE {file_mas[kolichestvo-l]=i; l++;}

		off = off + 304;

	}

}

dword offs_put_icon, file_type;

void Put_icon(dword extension){

	lowcase(extension);

	offs_put_icon = #somefile; //åøè íåèçâåñíûé ôàéë

	file_type = ""; temp_int=1;

	IF (strcmp(extension,".kex")==0) {	offs_put_icon = #kex; file_type="Program";  temp_int=0;}

	IF (strcmp(extension,".cmd")==0) {	offs_put_icon = #cmd; file_type="CMD skript"; temp_int=0;}

	IF (strcmp(extension,".skn")==0) {	offs_put_icon = #skn; file_type="Skin"; temp_int=3;}

	IF (strcmp(extension,".chr")==0) {	offs_put_icon = #font; file_type="Font"; temp_int=4;}

	IF (strcmp(extension,".avi")==0) {	offs_put_icon = #video; file_type="Video"; temp_int=5;}

	IF (strcmp(extension,".ini")==0) {	offs_put_icon = #ini; file_type="Config"; temp_int=1;}

	IF (strcmp(extension,"conf")==0) {	offs_put_icon = #ini; file_type="Config"; temp_int=1;}

	IF (strcmp(extension,".htm")==0) {	offs_put_icon = #web; file_type="Web-page"; temp_int=1;}

	IF (strcmp(extension,"html")==0) {	offs_put_icon = #web; file_type="Web-page"; temp_int=1;}

	IF (strcmp(extension,".asm")==0) {	offs_put_icon = #source; file_type="Source"; }

	IF (strcmp(extension,".inc")==0) {	offs_put_icon = #inc ; temp_int=8;}

	IF (strcmp(extension,".exe")==0) {	offs_put_icon = #exe; file_type="Win32 Exec"; temp_int=0;}

	IF (strcmp(extension,".dll")==0) {	offs_put_icon = #lib; file_type="Library"; temp_int=0;}

	IF (strcmp(extension,".obj")==0) {	offs_put_icon = #lib; file_type="Library"; temp_int=0;}

	//text

	IF (strcmp(extension,".txt")==0) {	offs_put_icon = #text; file_type="Text"; temp_int=1;}

	IF (strcmp(extension,".doc")==0) {	offs_put_icon = #text; file_type="Text"; temp_int=1;}

	IF (strcmp(extension,".rtf")==0) {	offs_put_icon = #text; file_type="Text"; temp_int=1;}

	//èçîáðàæåíèÿ

	IF (strcmp(extension,".gif")==0) {	offs_put_icon = #pic; file_type="Image"; temp_int=1;}

	IF (strcmp(extension,".bmp")==0) {	offs_put_icon = #pic; file_type="Image"; temp_int=1;}

	IF (strcmp(extension,".png")==0) {	offs_put_icon = #pic; file_type="Image"; temp_int=1;}

	IF (strcmp(extension,".jpg")==0) {	offs_put_icon = #pic; file_type="Image"; temp_int=1;}

	IF (strcmp(extension,"jpeg")==0) {	offs_put_icon = #pic; file_type="Image"; temp_int=1;}

	IF (strcmp(extension,".raw")==0) {	offs_put_icon = #pic; file_type="Image"; temp_int=1;}

	//àðõèâû

	IF (strcmp(extension,".rar")==0) {	offs_put_icon = #arhiv; file_type="Archive"; temp_int=6;}

	IF (strcmp(extension,".zip")==0) {	offs_put_icon = #arhiv; file_type="Archive"; temp_int=6;}

	IF (strcmp(extension,".cab")==0) {	offs_put_icon = #arhiv; file_type="Archive"; temp_int=6;}

	IF (strcmp(extension,".tar")==0) {	offs_put_icon = #arhiv; file_type="Archive"; temp_int=6;}

	IF (strcmp(extension,".ajr")==0) {	offs_put_icon = #arhiv; file_type="Archive"; temp_int=6;}

	//audio

	IF (strcmp(extension,".mp3")==0) {	offs_put_icon = #audio; file_type="Music"; temp_int=7;}

	IF (strcmp(extension,".wav")==0) {	offs_put_icon = #audio; file_type="Audio"; temp_int=7;}

	IF (strcmp(extension,".mid")==0) {	offs_put_icon = #audio; file_type="Audio"; temp_int=7;}

	IF (strcmp(extension,"midi")==0) {	offs_put_icon = #audio; file_type="Audio"; temp_int=7;}

	IF (strcmp(extension,".ogg")==0) {	offs_put_icon = #audio; file_type="Audio"; temp_int=7;}

	//ïàïêà

	IF (strcmp(extension,"")==0) { offs_put_icon = #folder; WriteText(onLeft(140,0),y-22,0x80,0,"",0); temp_int=2;}

	PutImage(offs_put_icon,16,15,200,y-26);

	WriteText(onLeft(155,0),y-22,0x80,0,file_type,0);

}

void Dir_Up()

{

	i=strlen(#path)-1;

	do

	{

		path[i]=0x00;

		i--;

		IF (i==0) break;

	}

   	while (path[i]!='/');

	za_kadrom=0; //â ñàìûé ââåðõ ñïèñêà

	curbtn=0;

   	Open_Dir(#path,1);

}

dword onLeft(dword right,left) {return Form.width-right-left;}

dword onTop(dword down,up) {return Form.height-skin_width-down-up;}

char extension[5];

void Run_File(){

copystr(#file_path,#param); //ïî-óìîë÷àíèþ ïðîãà è ïàðàìåòð ðàâíû, åñëè îêàæåòñÿ ÷òî ýòî ôàéë, ïàðàì - ñáðîñèì

copystr(#file_path+strlen(#file_path)-4,#extension); //óçíà¸ì ðàñøèðåíèå ôàéëà ñ êàêèì ðàáîòàåì

lowcase(#extension);

//òóò ìû ýòî ðàñøèðåíèå ñðàâíèìàåì, è, åñëè îíî àñîöèèðóåòñÿ ñ ïðîãîé, ïðîãà - ýòî file_path

	IF (strcmp(#extension,".skn")==0) copystr("/rd/1/desktop",#file_path);

	IF (strcmp(#extension,".avi")==0) copystr("/rd/1/kvid",#file_path);

	IF (strcmp(#extension,".htm")==0) copystr("/rd/1/network/hTTPC",#file_path);

	IF (strcmp(#extension,"html")==0) copystr("/rd/1/network/hTTPC",#file_path);

	IF (strcmp(#extension,".3ds")==0) copystr("/rd/1/3d/view3ds",#file_path);

	IF (strcmp(#extension,".lif")==0) copystr("/rd/1/demos/life2",#file_path);

	//audio

	IF (strcmp(#extension,".mp3")==0) copystr("/rd/1/AC97SND",#file_path);

	IF (strcmp(#extension,".wav")==0) copystr("/rd/1/AC97SND",#file_path);

	IF (strcmp(#extension,".mid")==0) copystr("/rd/1/MIDAMP",#file_path);

	IF (strcmp(#extension,"midi")==0) copystr("/rd/1/MIDAMP",#file_path);

	//text

	IF (strcmp(#extension,".rtf")==0) copystr("/rd/1/RtfRead",#file_path);

	IF (strcmp(#extension,".txt")==0) copystr("/rd/1/TinyPad",#file_path);

	IF (strcmp(#extension,".inc")==0) copystr("/rd/1/TinyPad",#file_path);

	IF (strcmp(#extension,".ini")==0) copystr("/rd/1/TinyPad",#file_path);

	IF (strcmp(#extension,"conf")==0) copystr("/rd/1/TinyPad",#file_path);

	IF (strcmp(#extension,".dat")==0) copystr("/rd/1/TinyPad",#file_path);

	IF (strcmp(#extension,".asm")==0) copystr("/rd/1/TinyPad",#file_path); //AsmMenu1,AsmMenu2

	//èçîáðàæåíèÿ

	IF (strcmp(#extension,".gif")==0) copystr("/rd/1/GIFVIEW",#file_path); //GifMenu1,MenuAnimage

	IF (strcmp(#extension,".bmp")==0) copystr("/rd/1/MV",#file_path); //BmpMenu1,MenuAnimage

	IF (strcmp(#extension,".png")==0) copystr("/rd/1/@rcher",#file_path);

	IF (strcmp(#extension,".jpg")==0) copystr("/rd/1/JpegView",#file_path);

	IF (strcmp(#extension,"jpeg")==0) copystr("/rd/1/JpegView",#file_path);

IF (strcmp(#file_path,#param)==0) copystr("",#param); //åñëè file_path íå èçìåíèëñÿ, òî ýòî òàêè, íàâåðíîå, ïðîãà, ïàðàìåòðîâ íåò.

Run_Program(); //çàïóñê!

}

void Run_Program()

{

    run_file_70.func = 7;

    run_file_70.flag = 0;

    run_file_70.param= #param;

    run_file_70.rez1 = 0;

    run_file_70.rez2 = 0;

    run_file_70.rezerv2 = 0;

    run_file_70.stroka = #file_path;

    $mov eax,70

    $mov ebx,#run_file_70.func

    $int 0x40

}

void Del_Form()

{

	if (isdir==0){//ïàïêè ïîêà ÷òî óäàëÿòü íå óìååì

	temp_int=Form.width-200+197/2;

	//òèïà îêíî

	FOR (i=5;i<11;i++) DefineButton(197,i+1*18+39,onLeft(22,197),18,201+i+BT_DEL,0xFFFFFF); //óäàëÿåì êíîïêè ïîä ôîðìîé

	DrawFlatButton(temp_int,160,200,80,0,0xE4DFE1); //ôîðìà

	WriteText(temp_int+19,175,0x80,0,"Do you really want to delete",28);

	WriteTextXY(220<<16+y, 0, off, strlen(off));

	WriteText(temp_int+20,190,0x80,0,#file_name,0); //ïèøåì èìÿ è îíî ìîæåò áûòü î÷åíü äëèííûì

	WriteText(strlen(#file_name)*6+temp_int+20,190,0x80,0,"?",1);

	//êíîïî÷êè

	DrawFlatButton(temp_int+20,208,70,20,301,0xFFB6B5);

	WriteText(temp_int+46,215,0x80,0,"Yes",3);

	DrawFlatButton(temp_int+111,208,70,20,302,0xC6DFC6);

	WriteText(temp_int+141,215,0x80,0,"No",2);

	del_active=1;

}}

void Del_File()

{

	run_file_70.func = 8;

	run_file_70.flag = 0;

	run_file_70.param= 0;

	run_file_70.rez1 = 0;

	run_file_70.rez2 = 0;

	run_file_70.rezerv2 = 0;

	run_file_70.stroka = #file_path;

	$mov eax,70

	$mov ebx,#run_file_70.func

	$int 0x40

	del_active=0;

    	Open_Dir(#path,1);

}

dword size_prefix;

dword ConvertSize(dword bytes)

{

	copystr(IntToStr(bytes),#size_prefix);

	copystr(" b ",#size_prefix+strlen(#size_prefix));

	if (bytes>=1024)

		{

		bytes=bytes/1024;

		copystr(IntToStr(bytes),#size_prefix);

		copystr(" Kb",#size_prefix+strlen(#size_prefix));

		}

	if (bytes>=1024)

		{

		bytes=bytes/1024;

		copystr(IntToStr(bytes),#size_prefix);

		copystr(" Mb",#size_prefix+strlen(#size_prefix));

		}

	if (bytes>=1024)

		{

		bytes=bytes/1024;

		copystr(IntToStr(bytes),#size_prefix);

		copystr(" Gb",#size_prefix+strlen(#size_prefix));

		}

	return #size_prefix;

}

void Paste()

{

	if (strcmp(#copyfile,"")==-1){ //îòìåíà, åøè åù¸ íè÷¸ íå ñêîïèðîâàëè

	copystr(#path,#temp);

	copystr(#copy_name,#temp+strlen(#temp));

	if (strcmp(#copyfile,#temp)==0) //åñëè ìû êîïèðóåì è âñòàâëÿåì â îäíîé è òîé æå ïàïêå

		{

			copystr(#path,#temp);

			copystr("new_",#temp+strlen(#temp));

			copystr(#copy_name,#temp+strlen(#temp));

		}

	CopyFile(#copyfile,#temp);

	//

	if (cut_active==1) //åñëè ìû âûáðàëè âûðåçàòü

		{

			copystr(#copyfile,#file_path);

			Del_File();

			copystr("",#copyfile);

		}

	Open_Dir(#path,1);

}}

void Goto_edit_path()

{

	if (strcmp(#path,#edit_path)==-1) //ïðîâåðêà íå â ýòîé ëè ìû ïàïêå

	{

	copystr(#edit_path+strlen(#edit_path)-1,#temp); //åñëè ëåíü áûëî ñòàâèòü /

 	if (strcmp(#temp,"/")==-1) copystr("/",#edit_path+strlen(#edit_path));

	copystr(#edit_path,#temp);

	Open_Dir(#temp,0);

	if (kolichestvo==-1) KEdit(); else //ïðîñòî î÷èùàåì ïîëîñó àäðåñà

		{

		za_kadrom=0; //íàâåðõ ñïèñêà

		curbtn=0;

		copystr(#temp,#path);

		}

		Open_Dir(#path,1);

	}

}

//

dword PathHistory[256*8]="/rd/1/";

dword PathHistory_Len[8]=0;

int cur_path=0;

//

void GoBack(dword back)

{

if (back==0) //IF (cur_path<=8)

	{

	cur_path++;

	copystr(#path,256*cur_path+#PathHistory); //ïèøåì

	PathHistory_Len[cur_path]=strlen(#path);

	}

if (back==1) IF (cur_path>=1)

	{

	cur_path--;

	copystr(256*cur_path+#PathHistory,#edit_path); //÷èòàåì

	}

DrawBar(252,13,onLeft(61,252),15,0xFFFFFF); //áåëàÿ îáëàñòü ïîä KEdit

copystr(IntToStr(cur_path),#edit_path); //÷èòàåì

KEdit();

//Open_Dir(#path);

}

/*int i,j,k;

int n=20;

void sort_by_name(int z){

     for(i = 0; i <= n-1; i++)

    {

        for(j = 0; j <= n-2-i; j++)

        {

            if( mas[j][z]>mas[j+1][z] )

            {

                    if (mas[j][z-1] == mas[j+1][z-1])

                    {

                    strcpy(back,mas[j]);

                    strcpy(mas[j],mas[j+1]);

                    strcpy(mas[j+1],back);

                    }

            }

        }

    }

}*/

/*int q,z;

int n=20;

void sort_by_name(int z)

{

     for(q = 0; q <= n-1; q++) for(i = 0; i <= n-2-i; i++)

     if( mas[i][z]>mas[j+1][z]) if (mas[i][z-1]==mas[i+1][z-1])

     	{

          	strcpy(back,mas[i]);

          	strcpy(mas[i],mas[i+1]);

      		strcpy(mas[i+1],back);

          }

}*/

/*âûçûâàòü òàê

for (k=0;k<255;k++) sort(k);

*/

stop: