Реферат Файловий менеджер

CurrentPathRight=RootDir; int Row=Form1-gt;FileListLeft-gt;Row;Name=Form1-gt;FileListLeft-gt;Cells[ColName][Row];(Panel==LEFT)

{(DirSel!=0)//Якщо змінилася коренева директорія

{(DirSel)

{1://Якщо вибір в ListDevices (RootDir.AnsiCompare (RootDirRight) == 0)//Якщо при зміні кореневої Директорії

{// користувач вибрав той же пристрій, що=CurrentPathRight;// В іншій панелі, то отображеется=CurrentPathLeft + Mask;// Папка відкрита в тій панелі (PathChar, Path.c_str ()); (PathChar, LEFT); - gt; LabelCurrentPathLeft- gt; Caption=CurrentPathLeft;

}//Якщо вибрано устройсва, відмінне від устройсва в другій панелі

{= RootDir +" ";=RootDir + Mask; (PathChar, Path.c_str ());// Преобрзованіе AnsiString в char (PathChar, Panel); - gt; LabelCurrentPathLeft- gt; Caption=CurrentPathLeft;

}; 2://Якщо натискання на bCurrentRootDir=RootDir +" ";=RootDir + Mask; (PathChar, Path.c_str ());// Преобрзованіе AnsiString в char (PathChar, Panel); - gt; LabelCurrentPathLeft- gt; Caption=CurrentPathLeft ;;

}}

{if ((Form1- gt; FileListLeft- gt; Cells [ColAttrib] [Row] == Dir 0 ) ||//Якщо подвійний клік по

(Form1-gt;FileListLeft-gt;Cells[ColAttrib][Row]==laquo;HideDirraquo;)||//директории

(Form1-gt;FileListLeft-gt;Cells[ColAttrib][Row]==laquo;HideSysDirraquo;))(Name==laquo;..raquo;)//Если перехід на один рівень вгору

{int Pos, Len=CurrentPathLeft.Length (); (int i=Len - 2; i gt;=3; i -)

{(CurrentPathLeft [i] == '')

{Pos=i ;;

}}. Delete (Pos, (Len-Pos));=CurrentPathLeft + Mask; (PathChar, Path.c_str ());// Преобрзованіе AnsiString в char (PathChar, LEFT); - gt; LabelCurrentPathLeft- gt; Caption=CurrentPathLeft;

}//Якщо відкриття підкаталогу

{+=Name;=CurrentPathLeft + Mask; +=""; (PathChar, Path.c_str ());// Преобрзованіе AnsiString в char- gt; LabelCurrentPathLeft- gt; Caption=CurrentPathLeft; (PathChar, LEFT);}//Якщо відкриття файлу (Не папки)

{(Name!= 0 )

{AnsiString FilePath;=CurrentPathLeft + Name; (PathChar, FilePath.c_str ()); (0, open , PathChar, , , 1);

}}} CurrentPathLeft;

}//Якщо активна права панель

{long int Row=Form1-gt;FileListRight-gt;Row;Name=Form1-gt;FileListRight-gt;Cells[ColName][Row];(DirSel!=0)//Если змінилася коренева директорія

{(DirSel)

{case 1: (RootDir.AnsiCompare (RootDirLeft) == 0)//Якщо при зміні кореневої Директорії

{// користувач вибрав той же пристрій, що=CurrentPathLeft;// В іншій панелі, то отображеется=CurrentPathRight + Mask;// Папка відкрита в тій панелі (PathChar, Path.c_str ()); (PathChar, RIGHT); - gt; LabelCurrentPathRight- gt; Caption=CurrentPathRight;

}

{= RootDir + '';=RootDir + Mask; (PathChar, Path.c_str ());// Преобрзованіе AnsiString в char (PathChar, Panel); - gt; LabelCurrentPathRight- gt; Caption=CurrentPathRight;

}; 2:=RootDir + '';=RootDir + Mask; (PathChar, Path.c_str ());// Преобрзованіе AnsiString в char (PathChar, Panel); - gt; LabelCurrentPathRight- gt; Caption=CurrentPathRight ;;

}}

{((Form1- gt; FileListRight- gt; Cells [ColAttrib] [Row] == Dir 0 ) ||//Якщо подвійний клік по

(Form1- gt; FileListRight- gt; Cells [ColAttrib] [Row] == HideDir 0 ) ||//по директорії

(Form1-gt;FileListRight-gt;Cells[ColAttrib][Row]==laquo;HideSysDirraquo;))(Name==laquo;..raquo;)// Перехід на один рівень вгору

{Pos, Len=CurrentPathRight.Length (); (int i=Len - 2; i gt;=3; i -)

{(CurrentPathRight [i] == '')

{= i ;;

}}. Delete (Pos, (Len-Pos));=CurrentPathRight + Mask; (PathChar, Path.c_str ());// Преобрзованіе AnsiString в char (PathChar, RIGHT); - gt; LabelCurrentPathRight- gt; Caption=CurrentPathRight;

}//Відкриття підкаталогу

{+=Name;=CurrentPathRight + Mask; +=""; (PathChar, Path.c_str ());// Преобрзованіе AnsiString в char (PathChar, RIGHT); - gt; LabelCurrentPathRight- gt; Caption=CurrentPathRight;

}

{(Name!= 0 )//Якщо подвійний клік по файлу (не по папці)

{AnsiString FilePath;=CurrentPathRight + Name; (PathChar, FilePath.c_str ()); (0, open , PathChar, , , 1);

}}