"justify">} CurrentPathRight;
}}
//Створення каталогуCreateFolder (int Panel)
{AnsiString Mask= *. * 0 raquo ;; Path; Result; PathChar [256]= 0 raquo ;; (Panel == LEFT)//Якщо активна ліва панель
{= CurrentPathLeft + FormDialogCreateDir- gt; edNewDirName- gt; Text; (PathChar, Path.c_str ());// Преобрзованіе AnsiString в char=CreateDirectory (PathChar, 0); (Result == false)
{(0, Каталог не створено! n Можливо неправильне ім'я - n повторіть введення. ,
Vontrop Commander - Помилка! raquo ;, 0);
}
{= CurrentPathLeft + Mask; (PathChar, Path.c_str ());// Преобрзованіе AnsiString в char (PathChar, Panel); (CurrentPathLeft.AnsiCompare (CurrentPathRight) == 0) ViewDirectory (PathChar, RIGHT);
}}//Якщо активна права панель
{= CurrentPathRight + FormDialogCreateDir- gt; edNewDirName- gt; Text; (PathChar, Path.c_str ());// Преобрзованіе AnsiString в char=CreateDirectory (PathChar, 0); (Result == false)
{(0, Каталог не створено! n Можливо неправильне ім'я - n повторіть введення. ,
Vontrop Commander - Помилка! raquo ;, 0);
}
{= CurrentPathRight + Mask; (PathChar, Path.c_str ());// Преобрзованіе AnsiString в char (PathChar, Panel);
if (CurrentPathRight.AnsiCompare (CurrentPathLeft) == 0) ViewDirectory (PathChar, LEFT);
}
} Result;
}
//УдаленіеDeleting (int Panel, int Operation)
{AnsiString Mask= *. * 0 raquo ;; StructOperation; Name; PathChar [256]= 0 raquo ;; int Row;Form1-gt;FileListLeft-gt;Row;Path;.hNameMappings=0;.lpszProgressTitle=0;.hwnd=0;.fAnyOperationsAborted=false;.pTo=laquo; raquo;;(Operation)
{FO_DELETE: StructOperation.wFunc=FO_DELETE;.fFlags=0;;FO_DELETER:StructOperation.wFunc=FO_DELETE;.fFlags=FOF_ALLOWUNDO;;
} (Panel == LEFT)
{=Form1-gt;FileListLeft-gt;Row;=Form1-gt;FileListLeft-gt;Cells[ColName][Row];=CurrentPathLeft+Name;(PathChar, Path.c_str ());// Преобрзованіе AnsiString в char (PathChar, 0 ) ;. pFrom=PathChar; ( amp; StructOperation);=CurrentPathLeft + Mask; (PathChar, Path.c_str ());// Преобрзованіе AnsiString в char (PathChar, Panel); (CurrentPathRight.AnsiCompare (CurrentPathLeft) == 0) ViewDirectory (PathChar, RIGHT);
}
{=Form1-gt;FileListRight-gt;Row;=Form1-gt;FileListRight-gt;Cells[ColName][Row];=CurrentPathRight+Name;(PathChar, Path.c_str ());// Преобрзованіе AnsiString в char (PathChar, 0 ) ;. pFrom=PathChar; ( amp; StructOperation);=CurrentPathRight + Mask; (PathChar, Path.c_str ());// Преобрзованіе AnsiString в char (PathChar, Panel); (CurrentPathRight.AnsiCompare (CurrentPathLeft) == 0) ViewDirectory (PathChar, LEFT);
}
}
//Копіювання або перемещеніеCopyOrRemove (int Panel, int Operation)
{AnsiString Mask=laquo;*.* raquo;;StructOperation;Name;PathCharFrom[256]=laquo; raquo;;PathCharTo[256]=laquo; raquo;;int Row; Form1- gt; FileListLeft- gt; Row; Path; (CurrentPathRight.AnsiCompare (CurrentPathLeft) == 0) (0, Кінцевий і вихідний каталоги збігаються !!! raquo ;, Vontrop Commander - Помилка! Raquo; , 0);
{.hNameMappings=0;.lpszProgressTitle=0;.hwnd=0;.fAnyOperationsAborted=false;.fFlags=0;(Operation)
{case FO_COPY: StructOperation.wFunc=FO_COPY;
break; FO_MOVE: StructOperation.wFunc=FO_MOVE ;;
} (Panel == LEFT)
{=Form1-gt;FileListLeft-gt;Row;=Form1-gt;FileListLeft-gt;Cells[ColName][Row];=CurrentPathLeft+Name;(PathCharFrom, Path.c_str ());// Преобрзованіе AnsiString в char.pFrom=PathCharFrom; (PathCharTo, CurrentPathRight.c_str ());// Преобрзованіе AnsiString в char.pTo=PathCharTo; ( amp; StructOperation);=CurrentPathLeft + Mask; (PathCharTo, Path.c_str ());// Преобрзованіе AnsiString в char (PathCharTo, Panel);=CurrentPathRight + Mask; (PathCharTo, Path.c_str ());// Преобрзованіе AnsiString в char (PathCharTo, RIGHT);
}
{=Form1-gt;FileListRight-gt;Row;=Form1-gt;FileListRight-gt;Cells[ColName][Row];=CurrentPathRight+Name;(PathCharFrom, Path.c_str ());// Преобрзованіе AnsiString в char.pFrom=PathCharFrom; (PathCharTo, CurrentPathLeft.c_str ());// Преобрзованіе AnsiString в char.pTo=PathCharTo; ( amp; StructOperation);=CurrentPathRight + Mask; (PathCharTo, Path.c_str ());// Преобрзованіе AnsiString в char (PathCharTo, Panel);=CurrentPathLeft + M...
