ustify">
end; TForm1.Dir2Change (Sender: TObject);. Caption:=dir2.Directory;
end; TForm1.AllDirDbl (Sender: TObject); (form1.Handle, nil, PChar ((sender as tFileListBox). FileName), nil, nil, sw_ShowNormal) ;
end;
{////////////////////////////////////////////////////////////////////////////////////////}
procedure TForm1.MnCopyClick (Sender: TObject); MnCopy.Checked then begin.Checked:=false;. Down:=false;. Checked:=True;. Down :=True; else begin.Checked:=true;. Down:=true;. Checked:=False;. Down:=False;;
end; TForm1.MNMoveClick (Sender: TObject); MnMove.Checked then begin.Checked:=false;. Down:=false;. Checked:=True;. Down:=True; else begin.Checked:=true;. Down:=True;. Checked:=False;. Down:=false;;
end;
{////////////////////////////////////////////////////////////////////////////////////////}
procedure TForm1.ConfChange (const ACaption, FromFile, ToFile: string); MessageDlg (Format («% s% s» + # 13 + «У% s? », [« Копіювати », FromFile, ToFile]),, [mbYes, mbNo], 0)=mrYes then beginACaption =« Copy » then CopyFile (FromFile, ToFile) elseACaption=«Move» then MoveFile (FromFile, ToFile);. Update;. Update;. Update;;
end;
{/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /// / / / / / / / / / / /}
procedure TForm1.SBDir12Click (Sender: TObject);, FromFileName, ToFileName, s: string; TBsbCopy.Down then s:=«Copy» elseTBsbMove.Down then s:=«Move» else Exit;:=dir1.FileName;:=dir2.Directory; (s, FromFileName, ToFileName);
end; TForm1.SBDir21Click (Sender: TObject);, FromFileName, ToFileName, s: string; TBsbCopy.Down then s:=«Copy» elseTBsbMove.Down then s:=«Move» else Exit;:=dir2.FileName;:=Dir1.Directory; (s, FromFileName, ToFileName);
end;
{/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /// / / / / / / / /}
procedure TForm1.SBDir13Click (Sender: TObject);, FromFileName, ToFileName, s: string; TBsbCopy.Down then s:=«Copy» elseTBsbMove.Down then s:=«Move» else Exit;:=dir1.FileName;:=dir3.Directory; (s, FromFileName, ToFileName);
end; TForm1.SBDir31Click (Sender: TObject);, FromFileName, ToFileName, s: string; TBsbCopy.Down then s:=«Copy» elseTBsbMove.Down then s:=«Move» else Exit;:=dir3.FileName;:=Dir1.Directory; (s, FromFileName, ToFileName);
end;
{/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /// / / / / / / / / /}
procedure TForm1.Dir1DragOver (Sender, Source: TObject; X, Y: Integer;: TDragState; var Accept: Boolean); (source=Dir2) or (source= dir3) then accept:=true else accept:=false;
end; TForm1.Dir2DragOver (Sender, Source: TObject; X, Y: Integer;: TDragState; var Accept: Boolean); source=Dir1 then accept:=true else accept:=false;
end; TForm1.Dir3DragOver (Sender, Source: TObject; X, Y: Integer;: TDragState; var Accept: Boolean); source=Dir1 then ...
