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

T, DirSel);

}

// --------------------------------------------- ------------------------------

void __ fastcall TForm1 :: FileListLeftDblClick (TObject * Sender)

{

DirSel = 0;

CurrentPathLeft = HandlerOfOpen (RootDirLeft, LEFT, DirSel);

}

// --------------------------------------------- ------------------------------

void __ fastcall TForm1 :: FileListRightDblClick (TObject * Sender)

{

DirSel = 0;

CurrentPathRight = HandlerOfOpen (RootDirRight, RIGHT, DirSel);

}

// --------------------------------------------- ------------------------------

void __ fastcall TForm1 :: ListDevicesLeftSelect (TObject * Sender)

{

RootDirLeft = Form1-> ListDevicesLeft-> Text.Delete

(3, (Form1-> ListDevicesLeft-> Text.Length () -2));

DirSel = 1;

CurrentPathLeft = HandlerOfOpen (RootDirLeft, LEFT, DirSel);

Form1-> FileListLeft-> SetFocus ();

}

// --------------------------------------------- ------------------------------

void __ fastcall TForm1 :: ListDevicesRightSelect (TObject * Sender)

{

RootDirRight = Form1-> ListDevicesRight-> Text.Delete

(3, (Form1-> ListDevicesRight-> Text.Length () -2));

DirSel = 1;

CurrentPathRight = HandlerOfOpen (RootDirRight, RIGHT, DirSel);

Form1-> FileListRight-> SetFocus ();

}

// --------------------------------------------- ------------------------------

void __ fastcall TForm1 :: FileListLeftEnter (TObject * Sender)

{

Panel = LEFT;

Form1-> LabelCurrentPathLeft-> Color = 0x00E9E9E9;

Form1-> ListDevicesLeft-> Color = 0x00E9E9E9;

Form1-> FileListLeft-> Color = clGradientInactiveCaption;

Form1-> LabelCurrentPathRight-> Color = 0x00C4C4C4;

Form1-> ListDevicesRight-> Color = 0x00C4C4C4;

Form1-> FileListRight-> Color = 0x00C4C4C4;

}

// --------------------------------------------- ------------------------------

void __ fastcall TForm1 :: FileListRightEnter (TObject * Sender)

{

Panel = RIGHT;

Form1-> LabelCurrentPathRight-> Color = 0x00E9E9E9;

Form1-> ListDevicesRight-> Color = 0x00E9E9E9;

Form1-> FileListRight-> Color = clGradientInactiveCaption;

Form1-> LabelCurrentPathLeft-> Color = 0x00C4C4C4;

Form1-> ListDevicesLeft-> Color = 0x00C4C4C4;

Form1-> FileListLeft-> Color = 0x00C4C4C4;

}

// --------------------------------------------- ------------------------------

void __ fastcall TForm1 :: ListDevicesLeftEnter (TObject * Sender)

{

Form1-> LabelCurrentPathLeft-> Color = 0x00E9E9E9;

Form1-> ListDevicesLeft-> Color = 0x00E9E9E9;

Form1-> FileListLeft-> Color = clGradientInactiveCaption;

Form1-> LabelCurrentPathRight-> Color = 0x00...