|
|
@@ -1,2862 +1,2871 @@
|
|
|
-{
|
|
|
-Double Commander
|
|
|
-----------------------------
|
|
|
-Licence : GNU GPL v 2.0
|
|
|
-Copyright (C) 2006-2007 Alexander Koblov ([email protected])
|
|
|
-
|
|
|
-Main Dialog window
|
|
|
-
|
|
|
-contributors:
|
|
|
-
|
|
|
-based on:
|
|
|
-
|
|
|
-Seksi Commander (radekc.regnet.cz)
|
|
|
-----------------------------
|
|
|
-Licence : GNU GPL v 2.0
|
|
|
-Author : [email protected]
|
|
|
-
|
|
|
-Main Dialog window and other stuff
|
|
|
-
|
|
|
-contributors:
|
|
|
-
|
|
|
-
|
|
|
-based on (heavy rewriten):
|
|
|
-
|
|
|
-main Unit of PFM : Peter's File Manager
|
|
|
----------------------------------------
|
|
|
-
|
|
|
-Copyright : Peter Cernoch 2002
|
|
|
-Contact : [email protected]
|
|
|
-Licence : GNU GPL v 2.0
|
|
|
-
|
|
|
-}
|
|
|
-
|
|
|
-unit fMain;
|
|
|
-
|
|
|
-{$mode objfpc}{$H+}
|
|
|
-
|
|
|
-interface
|
|
|
-
|
|
|
-uses
|
|
|
- LResources,
|
|
|
- Graphics, Forms, Menus, Controls, Dialogs, ComCtrls,
|
|
|
- StdCtrls, ExtCtrls,ActnList,Buttons,
|
|
|
- SysUtils, Classes, {uFilePanel,} framePanel, {FileCtrl,} Grids,
|
|
|
- KASToolBar, IniFiles;
|
|
|
-
|
|
|
-const
|
|
|
- cHistoryFile='cmdhistory.txt';
|
|
|
-
|
|
|
-type
|
|
|
-
|
|
|
- { TfrmMain }
|
|
|
-
|
|
|
- TfrmMain = class(TForm)
|
|
|
- actExtractFiles: TAction;
|
|
|
- actAddPathToCmdLine: TAction;
|
|
|
- actFocusCmdLine: TAction;
|
|
|
- actContextMenu: TAction;
|
|
|
- actTransferRight: TAction;
|
|
|
- actTransferLeft: TAction;
|
|
|
- actRightOpenDrives: TAction;
|
|
|
- actLeftOpenDrives: TAction;
|
|
|
- actOpenVFSList: TAction;
|
|
|
- actPackFiles: TAction;
|
|
|
- actRemoveTab: TAction;
|
|
|
- actNewTab: TAction;
|
|
|
- btnF10: TSpeedButton;
|
|
|
- btnF3: TSpeedButton;
|
|
|
- btnF4: TSpeedButton;
|
|
|
- btnF5: TSpeedButton;
|
|
|
- btnF6: TSpeedButton;
|
|
|
- btnF7: TSpeedButton;
|
|
|
- btnF8: TSpeedButton;
|
|
|
- btnF9: TSpeedButton;
|
|
|
- dskLeft: TKAStoolBar;
|
|
|
- dskRight: TKAStoolBar;
|
|
|
- lblRightDriveInfo: TLabel;
|
|
|
- lblLeftDriveInfo: TLabel;
|
|
|
- MainToolBar: TKASToolBar;
|
|
|
- MenuItem1: TMenuItem;
|
|
|
- mnuExtractFiles: TMenuItem;
|
|
|
- nbLeft: TNotebook;
|
|
|
- nbRight: TNotebook;
|
|
|
- pnlKeys: TPanel;
|
|
|
- pnlLeftTools: TPanel;
|
|
|
- pnlRightTools: TPanel;
|
|
|
- pnlRight: TPanel;
|
|
|
- pnlLeft: TPanel;
|
|
|
- pnlDisk: TPanel;
|
|
|
- btnLeftDrive: TSpeedButton;
|
|
|
- btnLeftHome: TSpeedButton;
|
|
|
- btnLeftUp: TSpeedButton;
|
|
|
- btnLeftRoot: TSpeedButton;
|
|
|
- btnRightDrive: TSpeedButton;
|
|
|
- btnRightHome: TSpeedButton;
|
|
|
- btnRightUp: TSpeedButton;
|
|
|
- btnRightRoot: TSpeedButton;
|
|
|
- pmDrivesMenu: TPopupMenu;
|
|
|
- tbDelete: TMenuItem;
|
|
|
- tbEdit: TMenuItem;
|
|
|
- mnuMain: TMainMenu;
|
|
|
- pnlNotebooks: TPanel;
|
|
|
- pnlSyncSize: TPanel;
|
|
|
- pnlCommand: TPanel;
|
|
|
- lblCommandPath: TLabel;
|
|
|
- mnuHelp: TMenuItem;
|
|
|
- mnuHelpAbout: TMenuItem;
|
|
|
- mnuShow: TMenuItem;
|
|
|
- mnuShowName: TMenuItem;
|
|
|
- mnuShowExtension: TMenuItem;
|
|
|
- mnuShowTime: TMenuItem;
|
|
|
- mnuShowSize: TMenuItem;
|
|
|
- mnuShowAttrib: TMenuItem;
|
|
|
- miLine7: TMenuItem;
|
|
|
- mnuShowReverse: TMenuItem;
|
|
|
- mnuShowReread: TMenuItem;
|
|
|
- mnuFiles: TMenuItem;
|
|
|
- mnuPackFiles : TMenuItem;
|
|
|
- mnuFilesSplit: TMenuItem;
|
|
|
- mnuFilesCombine: TMenuItem;
|
|
|
- mnuCmd: TMenuItem;
|
|
|
- mnuCmdDirHotlist: TMenuItem;
|
|
|
- miLine2: TMenuItem;
|
|
|
- mnuFilesSpace: TMenuItem;
|
|
|
- mnuFilesAttrib: TMenuItem;
|
|
|
- mnuFilesProperties: TMenuItem;
|
|
|
- miLine6: TMenuItem;
|
|
|
- mnuCmdSwapSourceTarget: TMenuItem;
|
|
|
- mnuCmdTargetIsSource: TMenuItem;
|
|
|
- miLine3: TMenuItem;
|
|
|
- mnuFilesShwSysFiles: TMenuItem;
|
|
|
- miLine1: TMenuItem;
|
|
|
- mnuFilesLink: TMenuItem;
|
|
|
- mnuFilesSymLink: TMenuItem;
|
|
|
- mnuConfig: TMenuItem;
|
|
|
- mnuConfigOptions: TMenuItem;
|
|
|
- mnuMark: TMenuItem;
|
|
|
- mnuMarkSGroup: TMenuItem;
|
|
|
- mnuMarkUGroup: TMenuItem;
|
|
|
- mnuMarkSAll: TMenuItem;
|
|
|
- mnuMarkUAll: TMenuItem;
|
|
|
- mnuMarkInvert: TMenuItem;
|
|
|
- miLine5: TMenuItem;
|
|
|
- mnuMarkCmpDir: TMenuItem;
|
|
|
- mnuCmdSearch: TMenuItem;
|
|
|
- actionLst: TActionList;
|
|
|
- actExit: TAction;
|
|
|
- actView: TAction;
|
|
|
- actEdit: TAction;
|
|
|
- actCopy: TAction;
|
|
|
- actRename: TAction;
|
|
|
- actMakeDir: TAction;
|
|
|
- actDelete: TAction;
|
|
|
- actAbout: TAction;
|
|
|
- actShowSysFiles: TAction;
|
|
|
- actOptions: TAction;
|
|
|
- edtCommand: TComboBox;
|
|
|
- mnuFilesCmpCnt: TMenuItem;
|
|
|
- actCompareContents: TAction;
|
|
|
- actShowMenu: TAction;
|
|
|
- actRefresh: TAction;
|
|
|
- actSearch: TAction;
|
|
|
- actDirHotList: TAction;
|
|
|
- actMarkMarkAll: TAction;
|
|
|
- actMarkInvert: TAction;
|
|
|
- actMarkUnmarkAll: TAction;
|
|
|
- pmHotList: TPopupMenu;
|
|
|
- actMarkPlus: TAction;
|
|
|
- actMarkMinus: TAction;
|
|
|
- actSymLink: TAction;
|
|
|
- actHardLink: TAction;
|
|
|
- actReverseOrder: TAction;
|
|
|
- actSortByName: TAction;
|
|
|
- actSortByExt: TAction;
|
|
|
- actSortBySize: TAction;
|
|
|
- actSortByDate: TAction;
|
|
|
- actSortByAttr: TAction;
|
|
|
- miLine4: TMenuItem;
|
|
|
- miExit: TMenuItem;
|
|
|
- actMultiRename: TAction;
|
|
|
- miMultiRename: TMenuItem;
|
|
|
- actCopySamePanel: TAction;
|
|
|
- actRenameOnly: TAction;
|
|
|
- actEditNew: TAction;
|
|
|
- actDirHistory: TAction;
|
|
|
- pmDirHistory: TPopupMenu;
|
|
|
- actShowCmdLineHistory: TAction;
|
|
|
- actRunTerm: TAction;
|
|
|
- miLine9: TMenuItem;
|
|
|
- miRunTerm: TMenuItem;
|
|
|
- actCalculateSpace: TAction;
|
|
|
- actFileProperties: TAction;
|
|
|
- actFileLinker: TAction;
|
|
|
- actFileSpliter: TAction;
|
|
|
- pmToolBar: TPopupMenu;
|
|
|
- MainSplitter: TSplitter;
|
|
|
- procedure actAddPathToCmdLineExecute(Sender: TObject);
|
|
|
- procedure actContextMenuExecute(Sender: TObject);
|
|
|
- procedure actExtractFilesExecute(Sender: TObject);
|
|
|
- procedure actFocusCmdLineExecute(Sender: TObject);
|
|
|
- procedure actLeftOpenDrivesExecute(Sender: TObject);
|
|
|
- procedure actOpenVFSListExecute(Sender: TObject);
|
|
|
- procedure actPackFilesExecute(Sender: TObject);
|
|
|
- procedure actRightOpenDrivesExecute(Sender: TObject);
|
|
|
- procedure actTransferLeftExecute(Sender: TObject);
|
|
|
- procedure actTransferRightExecute(Sender: TObject);
|
|
|
- procedure btnLeftClick(Sender: TObject);
|
|
|
- procedure btnRightClick(Sender: TObject);
|
|
|
- procedure DeleteClick(Sender: TObject);
|
|
|
- procedure dskRightChangeLineCount(AddSize: Integer);
|
|
|
- procedure dskToolButtonClick(Sender: TObject; NumberOfButton: Integer);
|
|
|
- procedure FormCreate(Sender: TObject);
|
|
|
- procedure FormDestroy(Sender: TObject);
|
|
|
- procedure lblDriveInfoDblClick(Sender: TObject);
|
|
|
- procedure MainToolBarMouseDown(Sender: TOBject; Button: TMouseButton;
|
|
|
- Shift: TShiftState; X, Y: Integer);
|
|
|
- procedure MainToolBarToolButtonClick(Sender: TObject; NumberOfButton : Integer);
|
|
|
- procedure actExitExecute(Sender: TObject);
|
|
|
- procedure actNewTabExecute(Sender: TObject);
|
|
|
- procedure actRemoveTabExecute(Sender: TObject);
|
|
|
- procedure frmMainClose(Sender: TObject; var CloseAction: TCloseAction);
|
|
|
- procedure frmMainKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
|
|
|
- procedure frmMainShow(Sender: TObject);
|
|
|
- procedure mnuHelpClick(Sender: TObject);
|
|
|
- procedure nbPageChanged(Sender: TObject);
|
|
|
- procedure NotebookCloseTabClicked(Sender: TObject);
|
|
|
- procedure pnlKeysResize(Sender: TObject);
|
|
|
- procedure actViewExecute(Sender: TObject);
|
|
|
- procedure actEditExecute(Sender: TObject);
|
|
|
- procedure actCopyExecute(Sender: TObject);
|
|
|
- procedure actRenameExecute(Sender: TObject);
|
|
|
- procedure actMakeDirExecute(Sender: TObject);
|
|
|
- procedure actDeleteExecute(Sender: TObject);
|
|
|
- procedure FormResize(Sender: TObject);
|
|
|
- procedure actAboutExecute(Sender: TObject);
|
|
|
- procedure actShowSysFilesExecute(Sender: TObject);
|
|
|
- procedure actOptionsExecute(Sender: TObject);
|
|
|
- procedure FormKeyPress(Sender: TObject; var Key: Char);
|
|
|
- procedure actCompareContentsExecute(Sender: TObject);
|
|
|
- procedure actShowMenuExecute(Sender: TObject);
|
|
|
- procedure actRefreshExecute(Sender: TObject);
|
|
|
- procedure actMarkInvertExecute(Sender: TObject);
|
|
|
- procedure actMarkMarkAllExecute(Sender: TObject);
|
|
|
- procedure actMarkUnmarkAllExecute(Sender: TObject);
|
|
|
- procedure actDirHotListExecute(Sender: TObject);
|
|
|
- procedure actSearchExecute(Sender: TObject);
|
|
|
- procedure actDelete2Execute(Sender: TObject);
|
|
|
- procedure edtCommandKeyUp(Sender: TObject; var Key: Word;
|
|
|
- Shift: TShiftState);
|
|
|
- procedure actMarkPlusExecute(Sender: TObject);
|
|
|
- procedure actMarkMinusExecute(Sender: TObject);
|
|
|
- procedure actSymLinkExecute(Sender: TObject);
|
|
|
- procedure actHardLinkExecute(Sender: TObject);
|
|
|
- procedure actReverseOrderExecute(Sender: TObject);
|
|
|
- procedure actSortByNameExecute(Sender: TObject);
|
|
|
- procedure actSortByExtExecute(Sender: TObject);
|
|
|
- procedure actSortBySizeExecute(Sender: TObject);
|
|
|
- procedure actSortByDateExecute(Sender: TObject);
|
|
|
- procedure actSortByAttrExecute(Sender: TObject);
|
|
|
- procedure actMultiRenameExecute(Sender: TObject);
|
|
|
- procedure actCopySamePanelExecute(Sender: TObject);
|
|
|
- procedure actRenameOnlyExecute(Sender: TObject);
|
|
|
- procedure actEditNewExecute(Sender: TObject);
|
|
|
- procedure actDirHistoryExecute(Sender: TObject);
|
|
|
- procedure actShowCmdLineHistoryExecute(Sender: TObject);
|
|
|
- procedure actRunTermExecute(Sender: TObject);
|
|
|
- procedure FormKeyDown(Sender: TObject; var Key: Word;
|
|
|
- Shift: TShiftState);
|
|
|
- procedure FormActivate(Sender: TObject);
|
|
|
- procedure FrameEditExit(Sender: TObject);
|
|
|
- procedure FrameedtSearchExit(Sender: TObject);
|
|
|
-
|
|
|
- procedure actCalculateSpaceExecute(Sender: TObject);
|
|
|
- procedure actFilePropertiesExecute(Sender: TObject);
|
|
|
- procedure FramedgPanelEnter(Sender: TObject);
|
|
|
- procedure framedgPanelMouseDown(Sender: TObject; Button: TMouseButton;
|
|
|
- Shift: TShiftState; X, Y: Integer);
|
|
|
- procedure ShowPathEdit;
|
|
|
- procedure FramelblLPathClick(Sender: TObject);
|
|
|
- procedure FramelblLPathMouseDown(Sender: TObject; Button: TMouseButton;
|
|
|
- Shift: TShiftState; X, Y: Integer);
|
|
|
- procedure FramepnlFileChangeDirectory(Sender: TObject; const NewDir : String);
|
|
|
- procedure edtCommandKeyDown(Sender: TObject; var Key: Word;
|
|
|
- Shift: TShiftState);
|
|
|
- procedure actFileLinkerExecute(Sender: TObject);
|
|
|
- procedure actFileSpliterExecute(Sender: TObject);
|
|
|
- procedure tbEditClick(Sender: TObject);
|
|
|
- private
|
|
|
- { Private declarations }
|
|
|
- PanelSelected:TFilePanelSelect;
|
|
|
- bAltPress:Boolean;
|
|
|
- DrivesList : TList;
|
|
|
- IsPanelsCreated : Boolean;
|
|
|
-
|
|
|
- function ExecuteCommandFromEdit(sCmd:String):Boolean;
|
|
|
- procedure AddSpecialButtons(dskPanel: TKASToolBar);
|
|
|
- public
|
|
|
-// frameLeft, frameRight:TFrameFilePanel;
|
|
|
-
|
|
|
- function HandleActionHotKeys(var Key: Word; Shift: TShiftState):Boolean; // handled
|
|
|
-
|
|
|
- Function ActiveFrame:TFrameFilePanel; // get Active frame
|
|
|
- Function NotActiveFrame:TFrameFilePanel; // get NotActive frame :)
|
|
|
- function FrameLeft:TFrameFilePanel;
|
|
|
- function FrameRight:TFrameFilePanel;
|
|
|
- Function IsAltPanel:Boolean;
|
|
|
- procedure AppException(Sender: TObject; E: Exception);
|
|
|
- //check selected count and generate correct msg, parameters is lng indexs
|
|
|
- Function GetFileDlgStr(sLngOne, sLngMulti : String):String;
|
|
|
- procedure HotDirSelected(Sender:TObject);
|
|
|
- procedure CreatePopUpHotDir;
|
|
|
- procedure CreatePopUpDirHistory;
|
|
|
- procedure miHotAddClick(Sender: TObject);
|
|
|
- procedure miHotDeleteClick(Sender: TObject);
|
|
|
- procedure miHotConfClick(Sender: TObject);
|
|
|
- procedure CalculateSpace(bDisplayMessage:Boolean);
|
|
|
- procedure RenameFile(sDestPath:String); // this is for F6 and Shift+F6
|
|
|
- procedure CopyFile(sDestPath:String); // this is for F5 and Shift+F5
|
|
|
- procedure ShowRenameFileEdit(const sFileName:String);
|
|
|
- procedure SetNotActFrmByActFrm;
|
|
|
- procedure SetActiveFrame(panel: TFilePanelSelect);
|
|
|
- procedure UpdateDiskCount;
|
|
|
- procedure CreateDrivesMenu;
|
|
|
- procedure DrivesMenuClick(Sender: TObject);
|
|
|
- procedure CreateDiskPanel(dskPanel : TKASToolBar);
|
|
|
- procedure CreatePanel(AOwner:TWinControl; APanel:TFilePanelSelect; sPath : String);
|
|
|
- function AddPage(ANoteBook:TNoteBook):TPage;
|
|
|
- procedure RemovePage(ANoteBook:TNoteBook; iPageIndex:Integer);
|
|
|
- procedure LoadTabs(ANoteBook:TNoteBook);
|
|
|
- procedure SaveTabs(ANoteBook:TNoteBook);
|
|
|
- function ExecCmd(Cmd : String) : Boolean;
|
|
|
- procedure UpdateWindowView;
|
|
|
- procedure SaveShortCuts;
|
|
|
- procedure LoadShortCuts;
|
|
|
- end;
|
|
|
-
|
|
|
-var
|
|
|
- frmMain: TfrmMain;
|
|
|
-
|
|
|
-implementation
|
|
|
-
|
|
|
-uses
|
|
|
- uTypes, fAbout, uGlobs, uLng, fOptions,{ fViewer,}fconfigtoolbar,
|
|
|
- uCopyThread, uFileList, uDeleteThread, uVFSUtil,
|
|
|
- fMkDir, fCopyDlg, fCompareFiles,{ fEditor,} fMoveDlg, uMoveThread, uShowMsg,
|
|
|
- fFindDlg, uSpaceThread, fHotDir, fSymLink, fHardLink,
|
|
|
- fMultiRename, uShowForm, uGlobsPaths, fFileOpDlg, fMsg, fPackDlg, fExtractDlg,
|
|
|
- fLinker, fSplitter, uFileProcs, lclType, LCLProc, uOSUtils, uOSForms, uPixMapManager;
|
|
|
-
|
|
|
-
|
|
|
-procedure TfrmMain.FormCreate(Sender: TObject);
|
|
|
-begin
|
|
|
- inherited;
|
|
|
- SetMyWndProc(Handle);
|
|
|
- Application.OnException := @AppException;
|
|
|
-
|
|
|
-
|
|
|
- if FileExists(gpIniDir+cHistoryFile) then
|
|
|
- edtCommand.Items.LoadFromFile(gpIniDir+cHistoryFile);
|
|
|
-// DebugLn('frmMain.FormCreate Done');
|
|
|
- IsPanelsCreated := False;
|
|
|
-end;
|
|
|
-
|
|
|
-
|
|
|
-(* Pack files in archive *)
|
|
|
-procedure TfrmMain.actPackFilesExecute(Sender: TObject);
|
|
|
-var
|
|
|
- fl : TFileList;
|
|
|
-begin
|
|
|
- fl:=TFileList.Create;
|
|
|
- with ActiveFrame do
|
|
|
- begin
|
|
|
- SelectFileIfNoSelected(GetActiveItem);
|
|
|
- CopyListSelectedExpandNames(pnlFile.FileList,fl,ActiveDir);
|
|
|
-
|
|
|
- fl.CurrentDirectory := ActiveDir;
|
|
|
- end;
|
|
|
- try
|
|
|
- ShowPackFilesForm(NotActiveFrame.pnlFile.VFS, fl, NotActiveFrame.ActiveDir);
|
|
|
- finally
|
|
|
- frameLeft.RefreshPanel;
|
|
|
- frameRight.RefreshPanel;
|
|
|
- end;
|
|
|
-
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actRightOpenDrivesExecute(Sender: TObject);
|
|
|
-var
|
|
|
- p : TPoint;
|
|
|
-begin
|
|
|
- pmDrivesMenu.Tag := 1; // indicate that is right panel menu
|
|
|
- p := Classes.Point(btnRightDrive.Left,btnRightDrive.Height);
|
|
|
- p := pnlRightTools.ClientToScreen(p);
|
|
|
- pmDrivesMenu.Items[dskRight.Tag].Checked := True;
|
|
|
- pmDrivesMenu.PopUp(p.x, p.y);
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actTransferLeftExecute(Sender: TObject);
|
|
|
-begin
|
|
|
- if (PanelSelected = fpRight) then
|
|
|
- SetNotActFrmByActFrm;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actTransferRightExecute(Sender: TObject);
|
|
|
-begin
|
|
|
- if (PanelSelected = fpLeft) then
|
|
|
- SetNotActFrmByActFrm;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.btnLeftClick(Sender: TObject);
|
|
|
-begin
|
|
|
- with Sender as TSpeedButton do
|
|
|
- begin
|
|
|
- if Caption = '/' then
|
|
|
- FrameLeft.pnlFile.ActiveDir := ExtractFileDrive(FrameLeft.pnlFile.ActiveDir);
|
|
|
- if Caption = '..' then
|
|
|
- FrameLeft.pnlFile.cdUpLevel;
|
|
|
- if Caption = '~' then
|
|
|
- FrameLeft.pnlFile.ActiveDir := GetHomeDir;
|
|
|
- end;
|
|
|
- FrameLeft.pnlFile.LoadPanel;
|
|
|
-
|
|
|
- SetActiveFrame(fpLeft);
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.btnRightClick(Sender: TObject);
|
|
|
-begin
|
|
|
- with Sender as TSpeedButton do
|
|
|
- begin
|
|
|
- if Caption = '/' then
|
|
|
- FrameRight.pnlFile.ActiveDir := ExtractFileDrive(FrameRight.pnlFile.ActiveDir);
|
|
|
- if Caption = '..' then
|
|
|
- FrameRight.pnlFile.cdUpLevel;
|
|
|
- if Caption = '~' then
|
|
|
- FrameRight.pnlFile.ActiveDir := GetHomeDir;
|
|
|
- end;
|
|
|
- FrameRight.pnlFile.LoadPanel;
|
|
|
-
|
|
|
- SetActiveFrame(fpRight);
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actExtractFilesExecute(Sender: TObject);
|
|
|
-var
|
|
|
- fl : TFileList;
|
|
|
-begin
|
|
|
- fl:=TFileList.Create;
|
|
|
- with ActiveFrame do
|
|
|
- begin
|
|
|
- SelectFileIfNoSelected(GetActiveItem);
|
|
|
- CopyListSelectedExpandNames(pnlFile.FileList,fl,ActiveDir);
|
|
|
-
|
|
|
- fl.CurrentDirectory := ActiveDir;
|
|
|
- end;
|
|
|
- try
|
|
|
- ShowExtractDlg(ActiveFrame, fl, NotActiveFrame.ActiveDir);
|
|
|
- finally
|
|
|
- frameLeft.RefreshPanel;
|
|
|
- frameRight.RefreshPanel;
|
|
|
- end;
|
|
|
-
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actFocusCmdLineExecute(Sender: TObject);
|
|
|
-begin
|
|
|
- edtCommand.SetFocus;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actAddPathToCmdLineExecute(Sender: TObject);
|
|
|
-begin
|
|
|
- with ActiveFrame do
|
|
|
- begin
|
|
|
- edtCmdLine.Text := edtCmdLine.Text + (pnlFile.ActiveDir);
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actContextMenuExecute(Sender: TObject);
|
|
|
-var
|
|
|
- pfri : PFileRecItem;
|
|
|
-begin
|
|
|
- pfri := ActiveFrame.GetActiveItem;
|
|
|
- pfri^.sPath := ActiveFrame.ActiveDir;
|
|
|
- ShowContextMenu(Handle, pfri, Mouse.CursorPos.x, Mouse.CursorPos.y);
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actLeftOpenDrivesExecute(Sender: TObject);
|
|
|
-var
|
|
|
- p : TPoint;
|
|
|
-begin
|
|
|
- pmDrivesMenu.Tag := 0; // indicate that is left panel menu
|
|
|
- p := Classes.Point(btnLeftDrive.Left,btnLeftDrive.Height);
|
|
|
- p := pnlLeftTools.ClientToScreen(p);
|
|
|
- pmDrivesMenu.Items[dskLeft.Tag].Checked := True;
|
|
|
- pmDrivesMenu.PopUp(p.x, p.y);
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actOpenVFSListExecute(Sender: TObject);
|
|
|
-begin
|
|
|
- ActiveFrame.pnlFile.LoadVFSListInPanel;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.FormDestroy(Sender: TObject);
|
|
|
-begin
|
|
|
- DebugLn('frmMain.Destroy');
|
|
|
- edtCommand.Items.SaveToFile(gpIniDir+cHistoryFile);
|
|
|
- {*Tool Bar*}
|
|
|
- MainToolBar.SaveToFile(gpIniDir + 'default.bar');
|
|
|
- {*Tool Bar*}
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.lblDriveInfoDblClick(Sender: TObject);
|
|
|
-begin
|
|
|
- if (Sender as TLabel).Name = 'lblRightDriveInfo' then
|
|
|
- SetActiveFrame(fpRight)
|
|
|
- else if (Sender as TLabel).Name = 'lblLeftDriveInfo' then
|
|
|
- SetActiveFrame(fpLeft);
|
|
|
- actDirHotList.Execute;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.DeleteClick(Sender: TObject);
|
|
|
-begin
|
|
|
-if pmToolBar.Tag >= 0 then
|
|
|
- begin
|
|
|
- if msgYesNo('You really want delete button?') then
|
|
|
- begin
|
|
|
- MainToolBar.RemoveButton (pmToolBar.Tag);
|
|
|
- MainToolBar.SaveToFile(gpIniDir + 'default.bar');
|
|
|
- end;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.dskRightChangeLineCount(AddSize: Integer);
|
|
|
-begin
|
|
|
- pnlSyncSize.Height := pnlSyncSize.Height + AddSize;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.dskToolButtonClick(Sender: TObject; NumberOfButton: Integer);
|
|
|
-var
|
|
|
- Command : String;
|
|
|
- dskPanel : TKASToolBar;
|
|
|
- FrameFilePanel : TFrameFilePanel;
|
|
|
- btnDrive : TSpeedButton;
|
|
|
-begin
|
|
|
- dskPanel := (Sender as TKASToolBar);
|
|
|
-
|
|
|
- if (dskPanel.Align = alLeft) or (not gDriveBar2 and (PanelSelected = fpLeft)) then
|
|
|
- begin
|
|
|
- FrameFilePanel := FrameLeft;
|
|
|
- btnDrive := btnLeftDrive;
|
|
|
- PanelSelected := fpLeft;
|
|
|
- end
|
|
|
- else
|
|
|
- begin
|
|
|
- FrameFilePanel := FrameRight;
|
|
|
- btnDrive := btnRightDrive;
|
|
|
- PanelSelected := fpRight;
|
|
|
- end;
|
|
|
-
|
|
|
-
|
|
|
- if dskPanel.Buttons[NumberOfButton].GroupIndex = 0 then
|
|
|
- begin
|
|
|
- Command := dskPanel.Commands[NumberOfButton];
|
|
|
- if Command = '/' then
|
|
|
- FrameFilePanel.pnlFile.ActiveDir := ExtractFileDrive(FrameFilePanel.pnlFile.ActiveDir);
|
|
|
- if Command = '..' then
|
|
|
- FrameFilePanel.pnlFile.cdUpLevel;
|
|
|
- if Command = '~' then
|
|
|
- FrameFilePanel.pnlFile.ActiveDir := GetHomeDir;
|
|
|
- end
|
|
|
- else
|
|
|
- begin
|
|
|
- if IsAvailable(dskPanel.Commands[NumberOfButton]) then
|
|
|
- begin
|
|
|
- FrameFilePanel.pnlFile.ActiveDir := dskPanel.Commands[NumberOfButton];
|
|
|
- dskPanel.Tag := NumberOfButton;
|
|
|
- if gDriveMenuButton then // if show drive button
|
|
|
- begin
|
|
|
- btnDrive.Glyph := PixMapManager.GetDriveIcon(PDrive(DrivesList[NumberOfButton]), btnDrive.Height - 4, btnDrive.Color);
|
|
|
- btnDrive.Caption := dskRight.Buttons[NumberOfButton].Caption;
|
|
|
- end;
|
|
|
- end
|
|
|
- else
|
|
|
- begin
|
|
|
- dskPanel.Buttons[dskPanel.Tag].Down := True;
|
|
|
- msgOK(rsMsgDiskNotAvail);
|
|
|
- end;
|
|
|
- end;
|
|
|
- FrameFilePanel.pnlFile.LoadPanel;
|
|
|
-
|
|
|
- SetActiveFrame(PanelSelected);
|
|
|
-end;
|
|
|
-
|
|
|
-
|
|
|
-procedure TfrmMain.MainToolBarMouseDown(Sender: TOBject; Button: TMouseButton;
|
|
|
- Shift: TShiftState; X, Y: Integer);
|
|
|
-var
|
|
|
-Point : TPoint;
|
|
|
-begin
|
|
|
-if (Button = mbRight) then
|
|
|
- begin
|
|
|
- Point := Mouse.CursorPos;
|
|
|
- if (Sender is TSpeedButton) then
|
|
|
- begin
|
|
|
- pmToolBar.Tag := (Sender as TSpeedButton).Tag;
|
|
|
- tbDelete.Enabled := true;
|
|
|
- end
|
|
|
- else
|
|
|
- begin
|
|
|
- pmToolBar.Tag := -1;
|
|
|
- tbDelete.Enabled := false;
|
|
|
- end;
|
|
|
-
|
|
|
- pmToolBar.PopUp(Point.X, Point.Y);
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.MainToolBarToolButtonClick(Sender: TObject; NumberOfButton : Integer);
|
|
|
-begin
|
|
|
- ExecCmd(MainToolBar.Commands[NumberOfButton]);
|
|
|
- DebugLn(MainToolBar.Commands[NumberOfButton]);
|
|
|
-end;
|
|
|
-
|
|
|
-
|
|
|
-procedure TfrmMain.actExitExecute(Sender: TObject);
|
|
|
-begin
|
|
|
- Application.Terminate;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actNewTabExecute(Sender: TObject);
|
|
|
-begin
|
|
|
- case PanelSelected of
|
|
|
- fpLeft:
|
|
|
- CreatePanel(AddPage(nbLeft), fpLeft, ActiveFrame.ActiveDir);
|
|
|
- fpRight:
|
|
|
- CreatePanel(AddPage(nbRight), fpRight, ActiveFrame.ActiveDir);
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actRemoveTabExecute(Sender: TObject);
|
|
|
-begin
|
|
|
- case PanelSelected of
|
|
|
- fpLeft:
|
|
|
- RemovePage(nbLeft, nbLeft.PageIndex);
|
|
|
- fpRight:
|
|
|
- RemovePage(nbRight, nbRight.PageIndex);
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.frmMainClose(Sender: TObject; var CloseAction: TCloseAction);
|
|
|
-var
|
|
|
- x:Integer;
|
|
|
-begin
|
|
|
- for x:=0 to 4 do
|
|
|
- gColumnSize[x]:=FrameLeft.dgPanel.ColWidths[x];
|
|
|
-
|
|
|
- (* Save all tabs *)
|
|
|
- SaveTabs(nbLeft);
|
|
|
- SaveTabs(nbRight);
|
|
|
-
|
|
|
- gIni.WriteInteger('Configuration', 'Main.Left', Left);
|
|
|
- gIni.WriteInteger('Configuration', 'Main.Top', Top);
|
|
|
- gIni.WriteInteger('Configuration', 'Main.Width', Width);
|
|
|
- gIni.WriteInteger('Configuration', 'Main.Height', Height);
|
|
|
- gIni.WriteBool('Configuration', 'maximized', (WindowState = wsMaximized));
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.frmMainKeyUp(Sender: TObject; var Key: Word;
|
|
|
- Shift: TShiftState);
|
|
|
-begin
|
|
|
-//
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.frmMainShow(Sender: TObject);
|
|
|
-var
|
|
|
- I : Integer;
|
|
|
-begin
|
|
|
- DebugLn('frmMainShow');
|
|
|
- (* If panels already created then refresh their and exit *)
|
|
|
- if IsPanelsCreated then
|
|
|
- begin
|
|
|
- FrameLeft.RefreshPanel;
|
|
|
- FrameRight.RefreshPanel;
|
|
|
- Exit;
|
|
|
- end;
|
|
|
-
|
|
|
-
|
|
|
- Left := gIni.ReadInteger('Configuration', 'Main.Left', Left);
|
|
|
- Top := gIni.ReadInteger('Configuration', 'Main.Top', Top);
|
|
|
- Width := gIni.ReadInteger('Configuration', 'Main.Width', Width);
|
|
|
- Height := gIni.ReadInteger('Configuration', 'Main.Height', Height);
|
|
|
- if gIni.ReadBool('Configuration', 'maximized', True) then
|
|
|
- Self.WindowState := wsMaximized;
|
|
|
-
|
|
|
-
|
|
|
- LoadTabs(nbLeft);
|
|
|
- LoadTabs(nbRight);
|
|
|
-
|
|
|
- nbLeft.Options:=[nboShowCloseButtons];
|
|
|
- nbRight.Options:=[nboShowCloseButtons];
|
|
|
- actShowSysFiles.Checked:=uGlobs.gShowSystemFiles;
|
|
|
-
|
|
|
- PanelSelected:=fpLeft;
|
|
|
-
|
|
|
- SetActiveFrame(fpLeft);
|
|
|
-
|
|
|
- pnlNotebooks.Width:=Width div 2;
|
|
|
-
|
|
|
- //DebugLN('dskLeft.Width == ' + IntToStr(dskLeft.Width));
|
|
|
- //DebugLN('dskRight.Width == ' + IntToStr(dskRight.Width));
|
|
|
- DrivesList := GetAllDrives;
|
|
|
-
|
|
|
- CreateDrivesMenu;
|
|
|
-
|
|
|
- (*Create Disk Panels*)
|
|
|
- dskLeft.Visible := gDriveBar2;
|
|
|
- if gDriveBar2 then
|
|
|
- CreateDiskPanel(dskLeft);
|
|
|
-
|
|
|
- dskRight.Visible := gDriveBar1;
|
|
|
- if gDriveBar1 then
|
|
|
- CreateDiskPanel(dskRight);
|
|
|
-
|
|
|
- pnlSyncSize.Visible := gDriveBar1;
|
|
|
- (*/Create Disk Panels*)
|
|
|
-
|
|
|
- (*Tool Bar*)
|
|
|
- if gButtonBar then
|
|
|
- begin
|
|
|
- MainToolBar.FlatButtons := gToolBarFlat;
|
|
|
- MainToolBar.ChangePath := gpExePath;
|
|
|
- MainToolBar.EnvVar := '%commander_path%';
|
|
|
- MainToolBar.LoadFromFile(gpIniDir + 'default.bar');
|
|
|
- end;
|
|
|
- (*Tool Bar*)
|
|
|
-
|
|
|
- LoadShortCuts;
|
|
|
-
|
|
|
- {Load some options from layout page}
|
|
|
-
|
|
|
- for I := 0 to pnlKeys.ControlCount - 1 do // function keys
|
|
|
- if pnlKeys.Controls[I] is TSpeedButton then
|
|
|
- (pnlKeys.Controls[I] as TSpeedButton).Flat := gInterfaceFlat;
|
|
|
-
|
|
|
- MainToolBar.Visible := gButtonBar;
|
|
|
-
|
|
|
- btnLeftDrive.Visible := gDriveMenuButton;
|
|
|
- btnLeftDrive.Flat := gInterfaceFlat;
|
|
|
- btnLeftRoot.Visible := gDriveMenuButton;
|
|
|
- btnLeftRoot.Flat := gInterfaceFlat;
|
|
|
- btnLeftUp.Visible := gDriveMenuButton;
|
|
|
- btnLeftUp.Flat := gInterfaceFlat;
|
|
|
- btnLeftHome.Visible := gDriveMenuButton;
|
|
|
- btnLeftHome.Flat := gInterfaceFlat;
|
|
|
-
|
|
|
- btnRightDrive.Visible := gDriveMenuButton;
|
|
|
- btnRightDrive.Flat := gInterfaceFlat;
|
|
|
- btnRightRoot.Visible := gDriveMenuButton;
|
|
|
- btnRightRoot.Flat := gInterfaceFlat;
|
|
|
- btnRightUp.Visible := gDriveMenuButton;
|
|
|
- btnRightUp.Flat := gInterfaceFlat;
|
|
|
- btnRightHome.Visible := gDriveMenuButton;;
|
|
|
- btnRightHome.Flat := gInterfaceFlat;
|
|
|
-
|
|
|
- pnlCommand.Visible := gCmdLine;
|
|
|
- pnlKeys.Visible := gKeyButtons;
|
|
|
- nbLeft.ShowTabs := gDirectoryTabs;
|
|
|
- nbRight.ShowTabs := gDirectoryTabs;
|
|
|
-
|
|
|
- IsPanelsCreated := True;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.mnuHelpClick(Sender: TObject);
|
|
|
-begin
|
|
|
-
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.nbPageChanged(Sender: TObject);
|
|
|
-begin
|
|
|
- with Sender as TNoteBook do
|
|
|
- begin
|
|
|
- if (Hint = 'Left') and (FrameLeft <> nil) then
|
|
|
- FrameLeft.pnlFile.UpdatePrompt;
|
|
|
- if (Hint = 'Right') and (FrameRight <> nil) then
|
|
|
- FrameRight.pnlFile.UpdatePrompt;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.NoteBookCloseTabClicked(Sender: TObject);
|
|
|
-begin
|
|
|
- With (Sender As TPage) do
|
|
|
- begin
|
|
|
- RemovePage(Parent as TNoteBook, PageIndex);
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.pnlKeysResize(Sender: TObject);
|
|
|
-var
|
|
|
- iWidth:Integer;
|
|
|
-begin
|
|
|
- iWidth:=pnlKeys.Width div 8;
|
|
|
- btnF3.Left:=1;
|
|
|
- btnF3.Width:=iWidth;
|
|
|
-
|
|
|
- btnF4.Left:=btnF3.Left+btnF3.Width;
|
|
|
- btnF4.Width:=iWidth;
|
|
|
-
|
|
|
- btnF5.Left:=btnF4.Left+btnF4.Width;
|
|
|
- btnF5.Width:=iWidth;
|
|
|
-
|
|
|
- btnF6.Left:=btnF5.Left+btnF5.Width;
|
|
|
- btnF6.Width:=iWidth;
|
|
|
-
|
|
|
- btnF7.Left:=btnF6.Left+btnF6.Width;
|
|
|
- btnF7.Width:=iWidth;
|
|
|
-
|
|
|
- btnF8.Left:=btnF7.Left+btnF7.Width;
|
|
|
- btnF8.Width:=iWidth;
|
|
|
-
|
|
|
- btnF9.Left:=btnF8.Left+btnF8.Width;
|
|
|
- btnF9.Width:=iWidth;
|
|
|
-
|
|
|
- btnF10.Left:=btnF9.Left+btnF9.Width;
|
|
|
- btnF10.Width:=iWidth;
|
|
|
-
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actViewExecute(Sender: TObject);
|
|
|
-var
|
|
|
- sl:TStringList;
|
|
|
- i:Integer;
|
|
|
- fr:PFileRecItem;
|
|
|
- VFSFileList : TFileList;
|
|
|
- sTempDir : String;
|
|
|
-begin
|
|
|
- with ActiveFrame do
|
|
|
- begin
|
|
|
- SelectFileIfNoSelected(GetActiveItem);
|
|
|
- sl:=TStringList.Create;
|
|
|
- try
|
|
|
- for i:=0 to pnlFile.FileList.Count-1 do
|
|
|
- begin
|
|
|
- fr:=pnlFile.GetFileItemPtr(i);
|
|
|
- if fr^.bSelected and not (FPS_ISDIR(fr^.iMode)) then
|
|
|
- begin
|
|
|
- (* If in Virtual File System *)
|
|
|
- if pnlFile.PanelMode in [pmArchive, pmVFS] then
|
|
|
- begin
|
|
|
- VFSFileList := TFileList.Create;
|
|
|
- VFSFileList.CurrentDirectory := ActiveDir;
|
|
|
- fr^.sName := ActiveDir + fr^.sName;
|
|
|
- VFSFileList.AddItem(fr);
|
|
|
- sTempDir := GetTempDir;
|
|
|
- {if }pnlFile.VFS.VFSmodule.VFSCopyOut(VFSFileList, sTempDir, 0);{ then}
|
|
|
- begin
|
|
|
- sl.Add(sTempDir + ExtractDirLevel(ActiveDir, fr^.sName));
|
|
|
- ShowViewerByGlobList(sl, True);
|
|
|
- Exit;
|
|
|
- end;
|
|
|
- end;
|
|
|
- sl.Add(ActiveDir+fr^.sName);
|
|
|
- DebugLn('View.Add:',ActiveDir+fr^.sName);
|
|
|
- end;
|
|
|
- end;
|
|
|
- if sl.Count>0 then
|
|
|
- ShowViewerByGlobList(sl)
|
|
|
- else
|
|
|
- begin
|
|
|
- fr := pnlFile.GetActiveItem;
|
|
|
- if FPS_ISDIR(fr^.iMode) then
|
|
|
- begin
|
|
|
- Screen.Cursor:=crHourGlass;
|
|
|
- try
|
|
|
- pnlFile.ChooseFile(fr);
|
|
|
- UpDatelblInfo;
|
|
|
- finally
|
|
|
- dgPanel.Invalidate;
|
|
|
- Screen.Cursor:=crDefault;
|
|
|
- end;
|
|
|
- end
|
|
|
- end;
|
|
|
- finally
|
|
|
- if pnlFile.PanelMode = pmDirectory then
|
|
|
- FreeAndNil(sl);
|
|
|
- ActiveFrame.UnMarkAll;
|
|
|
- end;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actEditExecute(Sender: TObject);
|
|
|
-var
|
|
|
-// sl:TStringList;
|
|
|
- i:Integer;
|
|
|
- fr:PFileRecItem;
|
|
|
-begin
|
|
|
- with ActiveFrame do
|
|
|
- begin
|
|
|
- SelectFileIfNoSelected(GetActiveItem);
|
|
|
- try
|
|
|
- // in this time we only one file process
|
|
|
- for i:=0 to pnlFile.FileList.Count-1 do
|
|
|
- begin
|
|
|
- fr:=pnlFile.GetFileItemPtr(i);
|
|
|
- if fr^.bSelected and not (FPS_ISDIR(fr^.iMode)) then
|
|
|
- begin
|
|
|
- ShowEditorByGlob(ActiveDir+fr^.sName);
|
|
|
- Break;
|
|
|
- end;
|
|
|
- end;
|
|
|
- finally
|
|
|
- ActiveFrame.UnMarkAll;
|
|
|
- end;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actCopyExecute(Sender: TObject);
|
|
|
-begin
|
|
|
- CopyFile(NotActiveFrame.ActiveDir);
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actRenameExecute(Sender: TObject);
|
|
|
-begin
|
|
|
- RenameFile(NotActiveFrame.ActiveDir);
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actMakeDirExecute(Sender: TObject);
|
|
|
-var
|
|
|
- sPath:String;
|
|
|
-begin
|
|
|
- with ActiveFrame do
|
|
|
- begin
|
|
|
- try
|
|
|
- sPath:=ActiveDir;
|
|
|
- if not ShowMkDir(sPath) then Exit;
|
|
|
- if (sPath='') then Exit;
|
|
|
-
|
|
|
- { Create directory in VFS }
|
|
|
- if ActiveFrame.pnlFile.PanelMode in [pmArchive, pmVFS] then
|
|
|
- begin
|
|
|
- DebugLN('+++ Create directory in VFS +++');
|
|
|
- ActiveFrame.pnlFile.VFS.VFSmodule.VFSMkDir(ActiveDir + sPath);
|
|
|
- ActiveFrame.RefreshPanel;
|
|
|
- end
|
|
|
- else
|
|
|
- { /Create directory in VFS }
|
|
|
-
|
|
|
- if (DirectoryExists(ActiveDir+sPath)) then
|
|
|
- begin
|
|
|
- msgError(Format(rsMsgErrDirExists,[ActiveDir+sPath]));
|
|
|
- pnlFile.LastActive:=sPath;
|
|
|
- pnlFile.LoadPanel;
|
|
|
- end
|
|
|
- else
|
|
|
- begin
|
|
|
- if not ForceDirectory(ActiveDir+sPath) then
|
|
|
- msgError(Format(rsMsgErrForceDir,[ActiveDir+sPath]))
|
|
|
- else
|
|
|
- begin
|
|
|
- pnlFile.LastActive:=sPath;
|
|
|
- pnlFile.LoadPanel;
|
|
|
- end;
|
|
|
- end;
|
|
|
- finally
|
|
|
- ActiveFrame.SetFocus;
|
|
|
- end;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actDeleteExecute(Sender: TObject);
|
|
|
-var
|
|
|
- fl:TFileList;
|
|
|
- DT : TDeleteThread;
|
|
|
-begin
|
|
|
- with ActiveFrame do
|
|
|
- SelectFileIfNoSelected(GetActiveItem);
|
|
|
-
|
|
|
- case msgYesNoCancel(GetFileDlgStr(rsMsgDelSel,rsMsgDelFlDr)) of
|
|
|
- mmrNo:
|
|
|
- begin
|
|
|
- ActiveFrame.UnMarkAll;
|
|
|
- Exit;
|
|
|
- end;
|
|
|
- mmrCancel:
|
|
|
- begin
|
|
|
- Exit;
|
|
|
- end;
|
|
|
- end;
|
|
|
-
|
|
|
- fl:=TFileList.Create; // free at Thread end by thread
|
|
|
- try
|
|
|
- CopyListSelectedExpandNames(ActiveFrame.pnlFile.FileList,fl,ActiveFrame.ActiveDir);
|
|
|
-
|
|
|
-
|
|
|
- (* Delete files from archive *)
|
|
|
- if ActiveFrame.pnlFile.PanelMode in [pmArchive, pmVFS] then
|
|
|
- begin
|
|
|
- DebugLN('+++ Delete files +++');
|
|
|
- ActiveFrame.pnlFile.VFS.VFSmodule.VFSDelete(fl);
|
|
|
- end
|
|
|
- else
|
|
|
- (* Delete files *)
|
|
|
- begin
|
|
|
- if not Assigned(frmFileOp) then
|
|
|
- frmFileOp:= TfrmFileOp.Create(Application);
|
|
|
- try
|
|
|
- DT := TDeleteThread.Create(fl);
|
|
|
- DT.FFileOpDlg := frmFileOp;
|
|
|
- DT.sDstPath:=NotActiveFrame.ActiveDir;
|
|
|
- //DT.sDstMask:=sDstMaskTemp;
|
|
|
- frmFileOp.Thread := TThread(DT);
|
|
|
- frmFileOp.Show;
|
|
|
- DT.Resume;
|
|
|
- except
|
|
|
- DT.Free;
|
|
|
- end;
|
|
|
- end;
|
|
|
-
|
|
|
- except
|
|
|
- FreeAndNil(frmFileOp);
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.FormResize(Sender: TObject);
|
|
|
-begin
|
|
|
- pnlLeft.Width:= (frmMain.Width div 2) - (MainSplitter.Width div 2);
|
|
|
-
|
|
|
- //DebugLN('pnlDisk.Width == ' + IntToStr(pnlDisk.Width));
|
|
|
-
|
|
|
- { Synchronize width of left and right disk panels }
|
|
|
-
|
|
|
- pnlDisk.Width := pnlSyncSize.Width - (pnlSyncSize.Width mod 2);
|
|
|
-
|
|
|
- dskLeft.Width := (pnlDisk.Width div 2) - pnlDisk.BevelWidth;
|
|
|
-
|
|
|
- //DebugLN('dskLeft.Width == ' + IntToStr(dskLeft.Width));
|
|
|
- //DebugLN('dskRight.Width == ' + IntToStr(dskRight.Width));
|
|
|
-
|
|
|
- dskLeft.Repaint;
|
|
|
- dskRight.Repaint;
|
|
|
-End;
|
|
|
-
|
|
|
-procedure TfrmMain.actAboutExecute(Sender: TObject);
|
|
|
-begin
|
|
|
- ShowAboutBox;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actShowSysFilesExecute(Sender: TObject);
|
|
|
-begin
|
|
|
- uGlobs.gShowSystemFiles:=not uGlobs.gShowSystemFiles;
|
|
|
- actShowSysFiles.Checked:=uGlobs.gShowSystemFiles;
|
|
|
-// we don't want any not visited files selected
|
|
|
- if not uGlobs.gShowSystemFiles then
|
|
|
- begin
|
|
|
- frameLeft.pnlFile.MarkAllFiles(False);
|
|
|
- frameRight.pnlFile.MarkAllFiles(False);
|
|
|
- end;
|
|
|
-//repaint both panels
|
|
|
- FrameLeft.pnlFile.UpdatePanel;
|
|
|
- FrameRight.pnlFile.UpdatePanel;
|
|
|
-end;
|
|
|
-
|
|
|
-function TfrmMain.HandleActionHotKeys(var Key: Word; Shift: TShiftState):Boolean; // handled
|
|
|
-var
|
|
|
- pfri : PFileRecItem;
|
|
|
-begin
|
|
|
- Result:=True;
|
|
|
- if Shift=[] then
|
|
|
- begin
|
|
|
- case Key of
|
|
|
- VK_F8, VK_DELETE:
|
|
|
- begin
|
|
|
-{ Key:=0;
|
|
|
- ActiveFrame.ClearCmdLine; // hack delete key
|
|
|
-}
|
|
|
- if (not edtCommand.Focused) or (Key = VK_F8) then
|
|
|
- begin
|
|
|
- actDelete.Execute;
|
|
|
- Exit;
|
|
|
- end;
|
|
|
- end;
|
|
|
-
|
|
|
-
|
|
|
- VK_APPS:
|
|
|
- begin
|
|
|
- actContextMenu.Execute;
|
|
|
- Exit;
|
|
|
- end;
|
|
|
-
|
|
|
- end;
|
|
|
- end;
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
- if (Key=VK_Return) or (Key=VK_SELECT) then
|
|
|
- begin
|
|
|
- Key:=0;
|
|
|
- with ActiveFrame do
|
|
|
- begin
|
|
|
- if Shift=[] then
|
|
|
- begin
|
|
|
- if (edtCommand.Text='') then
|
|
|
- begin
|
|
|
- Screen.Cursor:=crHourGlass;
|
|
|
- try
|
|
|
- pnlFile.ChooseFile(pnlFile.GetActiveItem);
|
|
|
- UpDatelblInfo;
|
|
|
- finally
|
|
|
- dgPanel.Invalidate;
|
|
|
- Screen.Cursor:=crDefault;
|
|
|
- end;
|
|
|
- Exit;
|
|
|
- end
|
|
|
- else
|
|
|
- begin
|
|
|
- // execute command line
|
|
|
- ChDir(ActiveDir);
|
|
|
- ExecuteCommandFromEdit(edtCommand.Text);
|
|
|
- ClearCmdLine;
|
|
|
- RefreshPanel;
|
|
|
- Exit;
|
|
|
- end;
|
|
|
- end; //Shift=[]
|
|
|
-
|
|
|
- // execute active file in terminal (Shift+Enter)
|
|
|
- if Shift=[ssShift] then
|
|
|
- begin
|
|
|
- Chdir(ActiveDir);
|
|
|
- pnlFile.ExecuteFile(pnlFile.GetActiveItem^.sName, True);
|
|
|
- Exit;
|
|
|
- end;
|
|
|
- // alt enter
|
|
|
- if Shift=[ssCtrl] then
|
|
|
- begin
|
|
|
- edtCmdLine.Text:=edtCmdLine.Text+pnlFile.GetActiveItem^.sName+' ';
|
|
|
- Exit;
|
|
|
- end;
|
|
|
- // ctrl+shift+enter
|
|
|
- if Shift=[ssShift,ssCtrl] then
|
|
|
- begin
|
|
|
- if (pnlFile.GetActiveItem^.sName = '..') then
|
|
|
- begin
|
|
|
- edtCmdLine.Text:=edtCmdLine.Text+(pnlFile.ActiveDir) + ' ';
|
|
|
- end
|
|
|
- else
|
|
|
- begin
|
|
|
- edtCmdLine.Text:=edtCmdLine.Text+(pnlFile.ActiveDir) + pnlFile.GetActiveItem^.sName+' ';
|
|
|
- end;
|
|
|
- Exit;
|
|
|
- end;
|
|
|
- end;
|
|
|
- end; // handle ENTER with some modifier
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
- if Shift=[ssAlt] then
|
|
|
- begin
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
- end;
|
|
|
-
|
|
|
- if Shift=[ssShift] then
|
|
|
- begin
|
|
|
-
|
|
|
- {Kylix:
|
|
|
- this strange: KEY_15 is at real KEY_5
|
|
|
- and KEY_16 is a KEY_6, Why?
|
|
|
- it's a bug or feature? :-(
|
|
|
- }
|
|
|
- if ((Key=VK_F4) {or (Key=VK_F14)}) then
|
|
|
- begin
|
|
|
- actEditNew.Execute;
|
|
|
- Exit;
|
|
|
- end;
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
- end;
|
|
|
-
|
|
|
- if Shift=[ssCtrl] then
|
|
|
- begin
|
|
|
-
|
|
|
-{
|
|
|
- // handle Ctrl+Enter
|
|
|
- if ((Key=VK_Return) or (Key=VK_SELECT)) and (edtCommand.Text='') then
|
|
|
- begin
|
|
|
- actCalculateSpace.Execute;
|
|
|
- Exit;
|
|
|
- end;
|
|
|
-}
|
|
|
- // handle ctrl+right
|
|
|
- if (Key=VK_Right) then
|
|
|
- begin
|
|
|
- if (PanelSelected = fpLeft) then
|
|
|
- SetNotActFrmByActFrm;
|
|
|
- Exit;
|
|
|
- end;
|
|
|
- // handle ctrl+left
|
|
|
- if (Key=VK_Left) then
|
|
|
- begin
|
|
|
- if (PanelSelected = fpRight) then
|
|
|
- SetNotActFrmByActFrm;
|
|
|
- Exit;
|
|
|
- end;
|
|
|
-
|
|
|
-
|
|
|
- if (Key=VK_X) then
|
|
|
- begin
|
|
|
- if not edtCommand.Focused then
|
|
|
- begin
|
|
|
- actRunTerm.Execute;
|
|
|
- Exit;
|
|
|
- end;
|
|
|
- end;
|
|
|
-
|
|
|
- end;
|
|
|
-
|
|
|
- // not handled
|
|
|
- Result:=False;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actOptionsExecute(Sender: TObject);
|
|
|
-begin
|
|
|
- inherited;
|
|
|
- with TfrmOptions.Create(Application) do
|
|
|
- begin
|
|
|
- try
|
|
|
- ShowModal;
|
|
|
- finally
|
|
|
- Free;
|
|
|
- end;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.FormKeyPress(Sender: TObject; var Key: Char);
|
|
|
-begin
|
|
|
-// DebugLn('KeyPress:',Key);
|
|
|
- if Key=#27 then
|
|
|
- ActiveFrame.ClearCmdLine;
|
|
|
- if (ord(key)>31) and (ord(key)<255) then
|
|
|
- begin
|
|
|
- if ((Key='-') or (Key='*') or (Key='+') or (Key=' '))and (Trim(edtCommand.Text)='') then Exit;
|
|
|
- if not edtCommand.Focused then
|
|
|
- begin
|
|
|
- edtCommand.SetFocus; // handle first char of command line specially
|
|
|
- with ActiveFrame do
|
|
|
- begin
|
|
|
- edtCommand.Text:=edtCmdLine.Text+Key;
|
|
|
- edtCommand.SelStart := Length(edtCommand.Text) + 1;
|
|
|
- end;
|
|
|
- Key:=#0;
|
|
|
- end;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-Function TfrmMain.ActiveFrame:TFrameFilePanel;
|
|
|
-begin
|
|
|
-
|
|
|
- case PanelSelected of
|
|
|
- fpLeft:
|
|
|
- Result:=FrameLeft;
|
|
|
- fpRight:
|
|
|
- Result:=FrameRight;
|
|
|
- else
|
|
|
- assert(false,'Bad active frame');
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-Function TfrmMain.NotActiveFrame:TFrameFilePanel;
|
|
|
-begin
|
|
|
- case PanelSelected of
|
|
|
- fpRight: Result:=FrameLeft;
|
|
|
- fpLeft: Result:=FrameRight;
|
|
|
- else
|
|
|
- assert(false,'Bad active frame');
|
|
|
- Result:=FrameLeft;// only for compilator warning;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-function TfrmMain.FrameLeft: TFrameFilePanel;
|
|
|
-begin
|
|
|
-// DebugLn(nbLeft.Page[nbLeft.PageIndex].Components[0].ClassName);
|
|
|
- Result:=TFrameFilePanel(nbLeft.Page[nbLeft.PageIndex].Components[0]);
|
|
|
-end;
|
|
|
-
|
|
|
-function TfrmMain.FrameRight: TFrameFilePanel;
|
|
|
-begin
|
|
|
-// DebugLn(nbRight.Page[nbRight.PageIndex].Components[0].ClassName);
|
|
|
- Result:=TFrameFilePanel(nbRight.Page[nbRight.PageIndex].Components[0]);
|
|
|
-
|
|
|
-// Result:=TFrameFilePanel(nbRight.Page[0].Components[0]);
|
|
|
-
|
|
|
-end;
|
|
|
-
|
|
|
-Function TfrmMain.IsAltPanel:Boolean;
|
|
|
-begin
|
|
|
- Result:= frameLeft.pnAltSearch.Visible or
|
|
|
- FrameRight.pnAltSearch.Visible;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actCompareContentsExecute(Sender: TObject);
|
|
|
-var
|
|
|
- sFile1, sFile2:String;
|
|
|
-begin
|
|
|
- inherited;
|
|
|
-
|
|
|
- with frameLeft do
|
|
|
- begin
|
|
|
- SelectFileIfNoSelected(GetActiveItem);
|
|
|
- sFile1:=ActiveDir+pnlFile.GetActiveItem^.sName;
|
|
|
- end; // frameLeft;
|
|
|
-
|
|
|
- with frameRight do
|
|
|
- begin
|
|
|
- SelectFileIfNoSelected(GetActiveItem);
|
|
|
- sFile2:=ActiveDir+pnlFile.GetActiveItem^.sName;
|
|
|
- end; // frameright;
|
|
|
- if gUseExtDiff then
|
|
|
- begin
|
|
|
- ExecCmdFork(Format(gExtDiff,[sFile1, sFile2]));
|
|
|
- Exit;
|
|
|
- end;
|
|
|
- try
|
|
|
- ShowCmpFiles(sFile1, sFile2);
|
|
|
- finally
|
|
|
- frameLeft.UnMarkAll;
|
|
|
- FrameRight.UnMarkAll;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.AppException(Sender: TObject; E: Exception);
|
|
|
-begin
|
|
|
- WriteLN(stdErr,'Exception:',E.Message);
|
|
|
- WriteLN(stdErr,'Func:',BackTraceStrFunc(get_caller_frame(get_frame)));
|
|
|
- Dump_Stack(StdErr, get_caller_frame(get_frame));
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actShowMenuExecute(Sender: TObject);
|
|
|
-begin
|
|
|
- //gtk_menu_item_select(PGtkMenuItem(mnuFiles.Handle));
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actRefreshExecute(Sender: TObject);
|
|
|
-begin
|
|
|
- inherited;
|
|
|
- ActiveFrame.RefreshPanel;
|
|
|
-end;
|
|
|
-
|
|
|
-Function TfrmMain.GetFileDlgStr(sLngOne, sLngMulti:String):String;
|
|
|
-var
|
|
|
- iSelCnt:Integer;
|
|
|
-begin
|
|
|
- with ActiveFrame do
|
|
|
- begin
|
|
|
- SelectFileIfNoSelected(GetActiveItem);
|
|
|
- iSelCnt:=pnlFile.GetSelectedCount;
|
|
|
- if iSelCnt=0 then Abort;
|
|
|
- if iSelCnt >1 then
|
|
|
- Result:=Format(sLngMulti, [iSelCnt])
|
|
|
- else
|
|
|
- Result:=Format(sLngOne, [pnlFile.GetActiveItem^.sName])
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actMarkInvertExecute(Sender: TObject);
|
|
|
-begin
|
|
|
- inherited;
|
|
|
- ActiveFrame.InvertAllFiles;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actMarkMarkAllExecute(Sender: TObject);
|
|
|
-begin
|
|
|
- inherited;
|
|
|
- ActiveFrame.MarkAll;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actMarkUnmarkAllExecute(Sender: TObject);
|
|
|
-begin
|
|
|
- inherited;
|
|
|
- ActiveFrame.UnMarkAll;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actDirHotListExecute(Sender: TObject);
|
|
|
-var
|
|
|
- p:TPoint;
|
|
|
-begin
|
|
|
- inherited;
|
|
|
- CreatePopUpHotDir;// TODO: i thing in future this must call on create or change
|
|
|
- p:=ActiveFrame.dgPanel.ClientToScreen(Classes.Point(0,0));
|
|
|
- pmHotList.Popup(p.X,p.Y);
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actSearchExecute(Sender: TObject);
|
|
|
-begin
|
|
|
- inherited;
|
|
|
- DebugLn('ShowFindDlg');
|
|
|
- ShowFindDlg(ActiveFrame.ActiveDir);
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.miHotAddClick(Sender: TObject);
|
|
|
-begin
|
|
|
- inherited;
|
|
|
- glsHotDir.Add(ActiveFrame.ActiveDir);
|
|
|
-// pmHotList.Items.Add();
|
|
|
-// OnClick:=HotDirSelected;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.miHotDeleteClick(Sender: TObject);
|
|
|
-var i : integer;
|
|
|
-begin
|
|
|
- i:= glsHotDir.IndexOf(ActiveFrame.ActiveDir);
|
|
|
- if i > 0 then glsHotDir.Delete(i);
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.miHotConfClick(Sender: TObject);
|
|
|
-begin
|
|
|
- inherited;
|
|
|
- with TfrmHotDir.Create(Application) do
|
|
|
- begin
|
|
|
- try
|
|
|
- LoadFromGlob;
|
|
|
- ShowModal;
|
|
|
- finally
|
|
|
- Free;
|
|
|
- end;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.CreatePopUpDirHistory;
|
|
|
-var
|
|
|
- mi:TMenuItem;
|
|
|
- i:Integer;
|
|
|
-begin
|
|
|
- pmDirHistory.Items.Clear;
|
|
|
-
|
|
|
- // store only first gDirHistoryCount of DirHistory
|
|
|
- for i:=glsDirHistory.Count-1 downto 0 do
|
|
|
- if i>gDirHistoryCount then
|
|
|
- glsDirHistory.Delete(i)
|
|
|
- else
|
|
|
- Break;
|
|
|
-
|
|
|
- for i:=0 to glsDirHistory.Count-1 do
|
|
|
- begin
|
|
|
- mi:=TMenuItem.Create(pmDirHistory);
|
|
|
- mi.Caption:=glsDirHistory.Strings[i];
|
|
|
- mi.OnClick:=@HotDirSelected;
|
|
|
- pmDirHistory.Items.Add(mi);
|
|
|
- end;
|
|
|
-
|
|
|
-end;
|
|
|
-
|
|
|
-
|
|
|
-procedure TfrmMain.CreatePopUpHotDir;
|
|
|
-var
|
|
|
- mi:TMenuItem;
|
|
|
- i:Integer;
|
|
|
-begin
|
|
|
- // Create All popup menu
|
|
|
- pmHotList.Items.Clear;
|
|
|
- for i:=0 to glsHotDir.Count-1 do
|
|
|
- begin
|
|
|
- mi:=TMenuItem.Create(pmHotList);
|
|
|
- mi.Caption:=glsHotDir.Strings[i];
|
|
|
- mi.OnClick:=@HotDirSelected;
|
|
|
- pmHotList.Items.Add(mi);
|
|
|
- end;
|
|
|
- // now add delimiter
|
|
|
- mi:=TMenuItem.Create(pmHotList);
|
|
|
- mi.Caption:='-';
|
|
|
- pmHotList.Items.Add(mi);
|
|
|
- // now add ADD or DELETE item
|
|
|
-
|
|
|
- mi:=TMenuItem.Create(pmHotList);
|
|
|
- if glsHotDir.IndexOf(ActiveFrame.ActiveDir)>0 then
|
|
|
- begin
|
|
|
- mi.Caption:=Format(rsMsgPopUpHotDelete,[ActiveFrame.ActiveDir]);
|
|
|
- mi.OnClick:=@miHotDeleteClick;
|
|
|
- end
|
|
|
- else
|
|
|
- begin
|
|
|
- mi.Caption:=Format(rsMsgPopUpHotAdd,[ActiveFrame.ActiveDir]);
|
|
|
- mi.OnClick:=@miHotAddClick;
|
|
|
- end;
|
|
|
- pmHotList.Items.Add(mi);
|
|
|
-
|
|
|
- // now add configure item
|
|
|
- mi:=TMenuItem.Create(pmHotList);
|
|
|
- mi.Caption:=rsMsgPopUpHotCnf;
|
|
|
- mi.OnClick:=@miHotConfClick;
|
|
|
- pmHotList.Items.Add(mi);
|
|
|
-// KeyPreview:=False;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.HotDirSelected(Sender:TObject);
|
|
|
-var
|
|
|
- sDummy:String;
|
|
|
-begin
|
|
|
- // this handler is used by HotDir and DirHistory
|
|
|
- // must extract & from Caption
|
|
|
- sDummy:=(Sender As TMenuItem).Caption;
|
|
|
- SDummy:=StringReplace(sDummy,'&','',[rfReplaceAll]);
|
|
|
- ActiveFrame.pnlFile.ActiveDir:=sDummy;
|
|
|
- ActiveFrame.LoadPanel;
|
|
|
-
|
|
|
- KeyPreview:=True;
|
|
|
- with ActiveFrame.dgPanel do
|
|
|
- begin
|
|
|
- if RowCount>0 then
|
|
|
- Row:=1;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actDelete2Execute(Sender: TObject);
|
|
|
-begin
|
|
|
- inherited;
|
|
|
- actDelete.Execute;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.edtCommandKeyUp(Sender: TObject; var Key: Word;
|
|
|
- Shift: TShiftState);
|
|
|
-begin
|
|
|
- inherited;
|
|
|
- if (key=VK_Down) and (Shift=[ssCtrl]) and (edtCommand.Items.Count>0) then
|
|
|
- begin
|
|
|
- Key:=0;
|
|
|
- edtCommand.DroppedDown:=True;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.CalculateSpace(bDisplayMessage:Boolean);
|
|
|
-var
|
|
|
- fl:TFileList;
|
|
|
- p:TFileRecItem;
|
|
|
-begin
|
|
|
- fl:=TFileList.Create; // free at Thread end by thread
|
|
|
- with ActiveFrame do
|
|
|
- begin
|
|
|
- p:=GetActiveItem^;
|
|
|
- p.sNameNoExt:=p.sName; //dstname
|
|
|
- p.sName:=ActiveDir+p.sName;
|
|
|
- p.sPath:='';
|
|
|
-
|
|
|
- fl.AddItem(@p);
|
|
|
-
|
|
|
-// CopyListSelectedExpandNames(pnlFile.FileList,fl,ActiveDir);
|
|
|
- end;
|
|
|
-// sDstPathTemp:=NotActiveFrame.ActiveDir;
|
|
|
- try
|
|
|
- with TSpaceThread.Create(fl) do
|
|
|
- begin
|
|
|
- Screen.Cursor:=crHourGlass;
|
|
|
- Resume;
|
|
|
- WaitFor;
|
|
|
- Screen.Cursor:=crDefault;
|
|
|
-
|
|
|
- if (bDisplayMessage = True) then
|
|
|
- ShowMessage(Format(rsSpaceMsg,[FilesCount, DirCount, FilesSize]));
|
|
|
-
|
|
|
- with ActiveFrame.GetActiveItem^ do
|
|
|
- begin
|
|
|
- if (bDisplayMessage = False) then
|
|
|
- iDirSize:=FilesSize;
|
|
|
- ActiveFrame.pnlFile.LastActive:=sName;
|
|
|
- end;
|
|
|
- Free;
|
|
|
- end;
|
|
|
- finally
|
|
|
- with ActiveFrame do
|
|
|
- begin
|
|
|
- Screen.Cursor:=crDefault;
|
|
|
-// UnMarkAll;
|
|
|
- pnlFile.UpdatePanel;
|
|
|
- end;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-
|
|
|
-procedure TfrmMain.actMarkPlusExecute(Sender: TObject);
|
|
|
-begin
|
|
|
- ActiveFrame.MarkPlus;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actMarkMinusExecute(Sender: TObject);
|
|
|
-begin
|
|
|
- ActiveFrame.MarkMinus;
|
|
|
-end;
|
|
|
-
|
|
|
-
|
|
|
-procedure TfrmMain.actSymLinkExecute(Sender: TObject);
|
|
|
-var
|
|
|
- sFile1, sFile2:String;
|
|
|
-begin
|
|
|
- inherited;
|
|
|
- try
|
|
|
- with ActiveFrame do
|
|
|
- begin
|
|
|
- SelectFileIfNoSelected(GetActiveItem);
|
|
|
- sFile2 := pnlFile.GetActiveItem^.sName;
|
|
|
- sFile1 := ActiveDir + sFile2;
|
|
|
- sFile2 := NotActiveFrame.ActiveDir + sFile2;
|
|
|
- end;
|
|
|
-
|
|
|
- ShowSymLinkForm(sFile1, sFile2);
|
|
|
-
|
|
|
- finally
|
|
|
- FrameLeft.RefreshPanel;
|
|
|
- FrameRight.RefreshPanel;
|
|
|
- ActiveFrame.SetFocus;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actHardLinkExecute(Sender: TObject);
|
|
|
-var
|
|
|
- sFile1, sFile2:String;
|
|
|
-begin
|
|
|
- inherited;
|
|
|
- try
|
|
|
- with ActiveFrame do
|
|
|
- begin
|
|
|
- SelectFileIfNoSelected(GetActiveItem);
|
|
|
- sFile2 := pnlFile.GetActiveItem^.sName;
|
|
|
- sFile1 := ActiveDir + sFile2;
|
|
|
- sFile2 := NotActiveFrame.ActiveDir + sFile2;
|
|
|
- end;
|
|
|
-
|
|
|
- ShowHardLinkForm(sFile1, sFile2);
|
|
|
-
|
|
|
- finally
|
|
|
- frameLeft.RefreshPanel;
|
|
|
- FrameRight.RefreshPanel;
|
|
|
- ActiveFrame.SetFocus;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actReverseOrderExecute(Sender: TObject);
|
|
|
-begin
|
|
|
- inherited;
|
|
|
- with ActiveFrame do
|
|
|
- begin
|
|
|
- pnlFile.SortDirection:= not pnlFile.SortDirection;
|
|
|
- pnlFile.Sort;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actSortByNameExecute(Sender: TObject);
|
|
|
-begin
|
|
|
- inherited;
|
|
|
- with ActiveFrame do
|
|
|
- begin
|
|
|
- pnlFile.SortByCol(0);
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actSortByExtExecute(Sender: TObject);
|
|
|
-begin
|
|
|
- inherited;
|
|
|
- with ActiveFrame do
|
|
|
- begin
|
|
|
- pnlFile.SortByCol(1);
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actSortBySizeExecute(Sender: TObject);
|
|
|
-begin
|
|
|
- inherited;
|
|
|
- with ActiveFrame do
|
|
|
- begin
|
|
|
- pnlFile.SortByCol(2);
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actSortByDateExecute(Sender: TObject);
|
|
|
-begin
|
|
|
- inherited;
|
|
|
- with ActiveFrame do
|
|
|
- begin
|
|
|
- pnlFile.SortByCol(3);
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actSortByAttrExecute(Sender: TObject);
|
|
|
-begin
|
|
|
- inherited;
|
|
|
- with ActiveFrame do
|
|
|
- begin
|
|
|
- pnlFile.SortByCol(4);
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actMultiRenameExecute(Sender: TObject);
|
|
|
-var
|
|
|
- sl:TStringList;
|
|
|
- i:Integer;
|
|
|
-begin
|
|
|
- with ActiveFrame do
|
|
|
- begin
|
|
|
- SelectFileIfNoSelected(GetActiveItem);
|
|
|
-
|
|
|
- sl:=TStringList.Create;
|
|
|
- try
|
|
|
- for i:=0 to pnlFile.FileList.Count-1 do
|
|
|
- if pnlFile.GetFileItem(i).bSelected then
|
|
|
- sl.Add(ActiveDir+pnlFile.GetFileItem(i).sName);
|
|
|
- if sl.Count>0 then
|
|
|
- ShowMultiRenameForm(sl);
|
|
|
- finally
|
|
|
- FreeAndNil(sl);
|
|
|
- FrameLeft.RefreshPanel;
|
|
|
- FrameRight.RefreshPanel;
|
|
|
- ActiveFrame.SetFocus;
|
|
|
- end;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.RenameFile(sDestPath:String);
|
|
|
-var
|
|
|
- fl:TFileList;
|
|
|
- sDstMaskTemp:String;
|
|
|
- sCopyQuest:String;
|
|
|
- MT : TMoveThread;
|
|
|
-begin
|
|
|
- fl:=TFileList.Create; // free at Thread end by thread
|
|
|
- sCopyQuest:=GetFileDlgStr(rsMsgRenSel, rsMsgRenFlDr);
|
|
|
- CopyListSelectedExpandNames(ActiveFrame.pnlFile.FileList,fl,ActiveFrame.ActiveDir);
|
|
|
-
|
|
|
-
|
|
|
- if (ActiveFrame.pnlFile.GetSelectedCount=1) then
|
|
|
- begin
|
|
|
- if sDestPath='' then
|
|
|
- begin
|
|
|
- ShowRenameFileEdit(ActiveFrame.pnlFile.GetActiveItem^.sName);
|
|
|
- Exit;
|
|
|
- end
|
|
|
- else
|
|
|
- begin
|
|
|
- if FPS_ISDIR(ActiveFrame.pnlFile.GetActiveItem^.iMode) then
|
|
|
- sDestPath:=sDestPath+'*.*'
|
|
|
- else
|
|
|
- sDestPath:=sDestPath+ActiveFrame.pnlFile.GetActiveItem^.sName;
|
|
|
- end;
|
|
|
- end
|
|
|
- else
|
|
|
- sDestPath:=sDestPath+'*.*';
|
|
|
- with TfrmMoveDlg.Create(Application) do
|
|
|
- begin
|
|
|
- try
|
|
|
- edtDst.Text:=sDestPath;
|
|
|
- lblMoveSrc.Caption:=sCopyQuest;
|
|
|
- if ShowModal=mrCancel then Exit ; // throught finally
|
|
|
-{ ActiveFrame.UnMarkAll;
|
|
|
- Exit;}
|
|
|
- sDestPath := ExtractFilePath(edtDst.Text);
|
|
|
- sDstMaskTemp:=ExtractFileName(edtDst.Text);
|
|
|
- finally
|
|
|
- Free;
|
|
|
- end;
|
|
|
- end;
|
|
|
-
|
|
|
-(*Move files*)
|
|
|
-
|
|
|
-try
|
|
|
- begin
|
|
|
- if not Assigned(frmFileOp) then
|
|
|
- frmFileOp:= TfrmFileOp.Create(Application);
|
|
|
- try
|
|
|
- MT := TMoveThread.Create(fl);
|
|
|
- MT.FFileOpDlg := frmFileOp;
|
|
|
- MT.sDstPath:=sDestPath;
|
|
|
- MT.sDstMask:=sDstMaskTemp;
|
|
|
- frmFileOp.Thread := TThread(MT);
|
|
|
- frmFileOp.Show;
|
|
|
- MT.Resume;
|
|
|
- except
|
|
|
- MT.Free;
|
|
|
- end;
|
|
|
- end;
|
|
|
-
|
|
|
-except
|
|
|
- //FreeAndNil(frmFileOp);
|
|
|
-end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.CopyFile(sDestPath:String);
|
|
|
-var
|
|
|
- fl:TFileList;
|
|
|
- sDstMaskTemp:String;
|
|
|
- sCopyQuest:String;
|
|
|
- CT : TCopyThread;
|
|
|
- blDropReadOnlyFlag : Boolean;
|
|
|
-begin
|
|
|
- fl:=TFileList.Create; // free at Thread end by thread
|
|
|
- sCopyQuest:=GetFileDlgStr(rsMsgCpSel, rsMsgCpFlDr);
|
|
|
-
|
|
|
- CopyListSelectedExpandNames(ActiveFrame.pnlFile.FileList,fl,ActiveFrame.ActiveDir);
|
|
|
-
|
|
|
- CopyListSelectedExpandNames(ActiveFrame.pnlFile.FileList,fl,ActiveFrame.ActiveDir);
|
|
|
-
|
|
|
- if (ActiveFrame.pnlFile.GetSelectedCount=1) and not (FPS_ISDIR(ActiveFrame.pnlFile.GetActiveItem^.iMode) or ActiveFrame.pnlFile.GetActiveItem^.bLinkIsDir) then
|
|
|
- sDestPath:=sDestPath+ActiveFrame.pnlFile.GetActiveItem^.sName
|
|
|
- else
|
|
|
- sDestPath:=sDestPath+'*.*';
|
|
|
-
|
|
|
-
|
|
|
- (* Extract files from archive *)
|
|
|
- if ActiveFrame.pnlFile.PanelMode = pmArchive then
|
|
|
- begin
|
|
|
- DebugLN('+++ Extract files from archive +++');
|
|
|
- fl.CurrentDirectory := ActiveFrame.ActiveDir;
|
|
|
- ShowExtractDlg(ActiveFrame, fl, ExtractFilePath(sDestPath));
|
|
|
- NotActiveFrame.RefreshPanel;
|
|
|
- Exit;
|
|
|
- end;
|
|
|
-
|
|
|
- with TfrmCopyDlg.Create(Application) do
|
|
|
- begin
|
|
|
- try
|
|
|
- edtDst.Text:=sDestPath;
|
|
|
- lblCopySrc.Caption := sCopyQuest;
|
|
|
- cbDropReadOnlyFlag.Checked := gDropReadOnlyFlag;
|
|
|
- cbDropReadOnlyFlag.Visible := (NotActiveFrame.pnlFile.PanelMode = pmDirectory);
|
|
|
- if ShowModal=mrCancel then
|
|
|
- Exit ; // throught finally
|
|
|
- sDestPath:=ExtractFilePath(edtDst.Text);
|
|
|
- sDstMaskTemp:=ExtractFileName(edtDst.Text);
|
|
|
- blDropReadOnlyFlag := cbDropReadOnlyFlag.Checked;
|
|
|
-
|
|
|
- finally
|
|
|
- Free;
|
|
|
- end;
|
|
|
- end; //with
|
|
|
-
|
|
|
- (* Check not active panel *)
|
|
|
- if NotActiveFrame.pnlFile.PanelMode in [pmArchive, pmVFS] then
|
|
|
- begin
|
|
|
- DebugLN('+++ Copy files to VFS +++');
|
|
|
- fl.CurrentDirectory := ActiveFrame.ActiveDir;
|
|
|
- NotActiveFrame.pnlFile.VFS.VFSmodule.VFSCopyInEx(fl, sDestPath, 0);
|
|
|
- Exit;
|
|
|
- end;
|
|
|
-
|
|
|
- (* Check active panel *)
|
|
|
- try
|
|
|
- (*Copy files from VFS*)
|
|
|
- if ActiveFrame.pnlFile.PanelMode = pmVFS then
|
|
|
- begin
|
|
|
- DebugLN('+++ Copy files from VFS +++');
|
|
|
- fl.CurrentDirectory := ActiveFrame.ActiveDir;
|
|
|
- ActiveFrame.pnlFile.VFS.VFSmodule.VFSCopyOutEx(fl, sDestPath, 0);
|
|
|
- NotActiveFrame.RefreshPanel;
|
|
|
- end
|
|
|
- else
|
|
|
- (*Copy files*)
|
|
|
- begin
|
|
|
- if not Assigned(frmFileOp) then
|
|
|
- frmFileOp:= TfrmFileOp.Create(Application);
|
|
|
- try
|
|
|
- CT := TCopyThread.Create(fl);
|
|
|
- CT.FFileOpDlg := frmFileOp;
|
|
|
- CT.sDstPath:=sDestPath;
|
|
|
- CT.sDstMask:=sDstMaskTemp;
|
|
|
- CT.bDropReadOnlyFlag := blDropReadOnlyFlag;
|
|
|
-
|
|
|
- frmFileOp.Thread := TThread(CT);
|
|
|
- frmFileOp.Show;
|
|
|
- CT.Resume;
|
|
|
- except
|
|
|
- CT.Free;
|
|
|
- end;
|
|
|
- end;
|
|
|
-
|
|
|
- except
|
|
|
- //frmFileOp.Free;
|
|
|
- end;
|
|
|
-
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actCopySamePanelExecute(Sender: TObject);
|
|
|
-begin
|
|
|
- CopyFile('');
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actRenameOnlyExecute(Sender: TObject);
|
|
|
-begin
|
|
|
- RenameFile('');
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actEditNewExecute(Sender: TObject);
|
|
|
-var
|
|
|
- sNewFile:String;
|
|
|
- f:TextFile;
|
|
|
-begin
|
|
|
- sNewFile:=ActiveFrame.ActiveDir + rsEditNewFile;
|
|
|
- if not InputQuery(rsEditNewOpen, rsEditNewFileName, sNewFile) then Exit;
|
|
|
- if not FileExists(sNewFile) then
|
|
|
- begin
|
|
|
- assignFile(f,sNewFile);
|
|
|
- try
|
|
|
- rewrite(f);
|
|
|
- finally
|
|
|
- CloseFile(f);
|
|
|
- end;
|
|
|
- end;
|
|
|
- try
|
|
|
- ShowEditorByGlob(sNewFile);
|
|
|
- finally
|
|
|
- frameLeft.RefreshPanel;
|
|
|
- frameRight.RefreshPanel;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actDirHistoryExecute(Sender: TObject);
|
|
|
-var
|
|
|
- p:TPoint;
|
|
|
-begin
|
|
|
- inherited;
|
|
|
- CreatePopUpDirHistory;
|
|
|
- p:=ActiveFrame.dgPanel.ClientToScreen(Classes.Point(0,0));
|
|
|
- pmDirHistory.Popup(p.X,p.Y);
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actShowCmdLineHistoryExecute(Sender: TObject);
|
|
|
-begin
|
|
|
- inherited;
|
|
|
- if (edtCommand.Items.Count>0) then
|
|
|
- edtCommand.DroppedDown:=True;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actRunTermExecute(Sender: TObject);
|
|
|
-begin
|
|
|
- if not edtCommand.Focused then
|
|
|
- ExecCmdFork(gRunTerm);
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.FormKeyDown(Sender: TObject; var Key: Word;
|
|
|
- Shift: TShiftState);
|
|
|
-begin
|
|
|
- inherited;
|
|
|
-
|
|
|
-// DebugLn('Key down:',Key);
|
|
|
- if Key=18 then // is the ALT?
|
|
|
- begin
|
|
|
- ActiveFrame.ShowAltPanel;
|
|
|
- Key:=0;
|
|
|
- KeyPreview:=False;
|
|
|
- Exit;
|
|
|
- end;
|
|
|
-
|
|
|
- if Key=9 then
|
|
|
- begin
|
|
|
- Key:=0;
|
|
|
- case PanelSelected of
|
|
|
- fpLeft: SetActiveFrame(fpRight);
|
|
|
- fpRight: SetActiveFrame(fpLeft);
|
|
|
- end;
|
|
|
- Exit;
|
|
|
- end;
|
|
|
-
|
|
|
- bAltPress:=(Shift=[ssAlt]);
|
|
|
-
|
|
|
- // CTRL+PgUp
|
|
|
- if (Shift=[ssCtrl]) and (Key=VK_PRIOR) then
|
|
|
- begin
|
|
|
- ActiveFrame.pnlFile.cdUpLevel;
|
|
|
- Key:=0;
|
|
|
-
|
|
|
- Exit;
|
|
|
- end;
|
|
|
-
|
|
|
- // CTRL+PgDown
|
|
|
- if (Shift=[ssCtrl]) and (Key=VK_NEXT) then
|
|
|
- begin
|
|
|
- with ActiveFrame do
|
|
|
- begin
|
|
|
- if pnlFile.GetActiveItem^.sName='..' then Exit;
|
|
|
- pnlFile.cdDownLevel(pnlFile.GetActiveItem);
|
|
|
- end;
|
|
|
- Key:=0;
|
|
|
- Exit;
|
|
|
- end;
|
|
|
-
|
|
|
- // cursors keys in Lynx like mode
|
|
|
- if (Shift=[]) and (Key=VK_LEFT) and gLynxLike and (edtCommand.Text='') then
|
|
|
- begin
|
|
|
- ActiveFrame.pnlFile.cdUpLevel;
|
|
|
- Key:=0;
|
|
|
- Exit;
|
|
|
- end;
|
|
|
-
|
|
|
- if (Shift=[]) and (Key=VK_RIGHT) and gLynxLike and (edtCommand.Text='') then
|
|
|
- begin
|
|
|
- with ActiveFrame do
|
|
|
- begin
|
|
|
- if pnlFile.GetActiveItem^.sName='..' then Exit;
|
|
|
- pnlFile.cdDownLevel(pnlFile.GetActiveItem);
|
|
|
- end;
|
|
|
- Key:=0;
|
|
|
- Exit;
|
|
|
- end;
|
|
|
-
|
|
|
-{ // this is hack for ShowModal bug
|
|
|
- with ActiveFrame do
|
|
|
- begin
|
|
|
- if bDialogShowed then
|
|
|
- begin
|
|
|
- Key:=0;
|
|
|
- bDialogShowed:=False;
|
|
|
- Exit;
|
|
|
- end;
|
|
|
- end;}
|
|
|
-// DebugLn(Key);
|
|
|
- if HandleActionHotKeys(Key, Shift) Then
|
|
|
- begin
|
|
|
- Key:=0;;
|
|
|
- Exit;
|
|
|
- end;
|
|
|
-// DebugLn(Key);
|
|
|
-
|
|
|
-{ if bAltPress and (shift=[ssAlt]) and (key=VK_Alt) and not IsAltPanel then
|
|
|
- begin
|
|
|
-// qt.QMenuBar_activateItemAt(mnuMain.Handle, 0);
|
|
|
- bAltPress:=False;
|
|
|
- Exit;
|
|
|
- end;}
|
|
|
- bAltPress:=False;
|
|
|
-
|
|
|
- if (shift=[ssCtrl]) and (Key=VK_Down) then
|
|
|
- begin
|
|
|
- Key:=0;
|
|
|
- actShowCmdLineHistory.Execute;
|
|
|
- Exit;
|
|
|
- end;
|
|
|
-
|
|
|
- // handle Space key
|
|
|
- if (Shift=[]) and (Key=VK_Space) and (edtCommand.Text='') and (edtCommand.Text='') then
|
|
|
- begin
|
|
|
- with ActiveFrame do
|
|
|
- begin
|
|
|
-// if not AnySelected then Exit;
|
|
|
- if FPS_ISDIR(pnlFile.GetActiveItem^.iMode) then
|
|
|
- CalculateSpace(False);
|
|
|
- SelectFile(GetActiveItem);
|
|
|
- dgPanel.Invalidate;
|
|
|
- MakeSelectedVisible;
|
|
|
- end;
|
|
|
- Exit;
|
|
|
- end;
|
|
|
-
|
|
|
- if (Shift=[]) and (Key=VK_BACK) and (edtCommand.Text='') then
|
|
|
- begin
|
|
|
- if edtCommand.Focused then Exit;
|
|
|
- with ActiveFrame do
|
|
|
- begin
|
|
|
- pnlFile.cdUpLevel;
|
|
|
- RedrawGrid;
|
|
|
- end;
|
|
|
- Exit;
|
|
|
- end;
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.FormActivate(Sender: TObject);
|
|
|
-begin
|
|
|
- KeyPreview:=True;
|
|
|
-// ActiveFrame.SetFocus;
|
|
|
-// DebugLn('Activate');
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.FrameEditExit(Sender: TObject);
|
|
|
-begin
|
|
|
-// handler for both edits
|
|
|
-// DebugLn('On exit');
|
|
|
- KeyPreview:=True;
|
|
|
- (Sender as TEdit).Visible:=False;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.FrameedtSearchExit(Sender: TObject);
|
|
|
-begin
|
|
|
- // sometimes must be search panel closed this way
|
|
|
- TPanel(TEdit(Sender).Parent).Visible:=False;
|
|
|
- KeyPreview:=True;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.ShowRenameFileEdit(const sFileName:String);
|
|
|
-begin
|
|
|
- KeyPreview:=False;
|
|
|
- With ActiveFrame do
|
|
|
- begin
|
|
|
- edtRename.OnExit:=@FrameEditExit;
|
|
|
- edtRename.Width:=dgPanel.ColWidths[0]+dgPanel.ColWidths[1]-16;
|
|
|
- edtRename.Top:= (dgPanel.CellRect(0,dgPanel.Row).Top-2);
|
|
|
- edtRename.Left:=16;
|
|
|
- edtRename.Height:=dgpanel.DefaultRowHeight+4;
|
|
|
- edtRename.Hint:=sFileName;
|
|
|
- edtRename.Text:=ExtractFileName(sFileName);
|
|
|
- edtRename.Visible:=True;
|
|
|
- edtRename.SelectAll;
|
|
|
- edtRename.SetFocus;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actCalculateSpaceExecute(Sender: TObject);
|
|
|
-begin
|
|
|
- inherited;
|
|
|
- with ActiveFrame do
|
|
|
- begin
|
|
|
- if FPS_ISDIR(pnlFile.GetActiveItem^.iMode) then
|
|
|
- CalculateSpace(True);
|
|
|
- // I don't know what to do if the item is file or something else
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.SetNotActFrmByActFrm;
|
|
|
-var
|
|
|
- pfr:PFileRecItem;
|
|
|
-begin
|
|
|
- with ActiveFrame do
|
|
|
- begin
|
|
|
- pfr:=pnlFile.GetActiveItem;
|
|
|
- if not assigned(pfr) then Exit;
|
|
|
- if FPS_ISDIR(pfr^.iMode) and (not (pfr^.sName = '..')) then
|
|
|
- begin
|
|
|
- NotActiveFrame.pnlFile.ActiveDir := ActiveDir + pfr^.sName;
|
|
|
- end
|
|
|
- else
|
|
|
- begin
|
|
|
- NotActiveFrame.pnlFile.ActiveDir := ActiveDir;
|
|
|
- end;
|
|
|
- NotActiveFrame.LoadPanel;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actFilePropertiesExecute(Sender: TObject);
|
|
|
-begin
|
|
|
- inherited;
|
|
|
- try
|
|
|
- with ActiveFrame do
|
|
|
- begin
|
|
|
- SelectFileIfNoSelected(GetActiveItem);
|
|
|
- ShowFilePropertiesDialog(pnlFile.FileList, ActiveDir);
|
|
|
- end;
|
|
|
- finally
|
|
|
- frameLeft.RefreshPanel;
|
|
|
- frameRight.RefreshPanel;
|
|
|
- ActiveFrame.SetFocus;
|
|
|
- end
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.FramedgPanelEnter(Sender: TObject);
|
|
|
-begin
|
|
|
- if (Sender is TDrawGrid) then
|
|
|
- begin;
|
|
|
- with TFrameFilePanel(TDrawGrid(Sender).Parent) do
|
|
|
- begin
|
|
|
- PanelSelected:=PanelSelect;
|
|
|
- dgPanelEnter(Sender);
|
|
|
- end;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-{ Show context menu on right click }
|
|
|
-procedure TfrmMain.framedgPanelMouseDown(Sender: TObject; Button: TMouseButton;
|
|
|
- Shift: TShiftState; X, Y: Integer);
|
|
|
-var
|
|
|
- pfri : PFileRecItem;
|
|
|
-begin
|
|
|
- if Button = mbRight then
|
|
|
- begin
|
|
|
- pfri := ActiveFrame.GetActiveItem;
|
|
|
- pfri^.sPath := ActiveFrame.ActiveDir;
|
|
|
- ShowContextMenu(Handle, pfri, Mouse.CursorPos.x, Mouse.CursorPos.y);
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.ShowPathEdit;
|
|
|
-begin
|
|
|
- KeyPreview:=False;
|
|
|
- with ActiveFrame do
|
|
|
- begin
|
|
|
- edtPath.OnExit:=@FrameEditExit;
|
|
|
- with lblLPath do
|
|
|
- edtPath.SetBounds(Left, Top, Width, Height);
|
|
|
- edtPath.Text := ActiveDir;
|
|
|
- edtPath.Visible := True;
|
|
|
- edtPath.SetFocus;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.FramelblLPathClick(Sender: TObject);
|
|
|
-begin
|
|
|
-// DebugLn(TControl(Sender).Parent.Parent.ClassName);
|
|
|
- SetActiveFrame(TFrameFilePanel(TControl(Sender).Parent.Parent).PanelSelect);
|
|
|
- actDirHistory.Execute;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.FramelblLPathMouseDown(Sender: TObject; Button: TMouseButton;
|
|
|
- Shift: TShiftState; X, Y: Integer);
|
|
|
-begin
|
|
|
- case Button of
|
|
|
- mbMiddle:
|
|
|
- begin
|
|
|
- SetActiveFrame(TFrameFilePanel(TControl(Sender).Parent.Parent).PanelSelect);
|
|
|
- actDirHotList.Execute;
|
|
|
- end;
|
|
|
- mbRight:
|
|
|
- begin
|
|
|
- SetActiveFrame(TFrameFilePanel(TControl(Sender).Parent.Parent).PanelSelect);
|
|
|
- ShowPathEdit;
|
|
|
- end;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.FramepnlFileChangeDirectory(Sender: TObject; const NewDir: String);
|
|
|
-var
|
|
|
- ANoteBook : TNoteBook;
|
|
|
-begin
|
|
|
- if Sender is TPage then
|
|
|
- begin
|
|
|
- ANoteBook := (Sender as TPage).Parent as TNoteBook;
|
|
|
- ANoteBook.Page[ANoteBook.PageIndex].Caption := GetLastDir(ExcludeTrailingPathDelimiter(NewDir));
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.SetActiveFrame(panel: TFilePanelSelect);
|
|
|
-begin
|
|
|
- PanelSelected:=panel;
|
|
|
- ActiveFrame.SetFocus;
|
|
|
- NotActiveFrame.dgPanelExit(self);
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.UpdateDiskCount;
|
|
|
-begin
|
|
|
- DrivesList.Clear;
|
|
|
- DrivesList := GetAllDrives;
|
|
|
- if gDriveMenuButton then
|
|
|
- CreateDrivesMenu;
|
|
|
- // delete all disk buttons
|
|
|
- dskRight.DeleteAllToolButtons;
|
|
|
- dskLeft.DeleteAllToolButtons;
|
|
|
- // and add new
|
|
|
- CreateDiskPanel(dskLeft);
|
|
|
- CreateDiskPanel(dskRight);
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.CreateDrivesMenu;
|
|
|
-var
|
|
|
- I, Count : Integer;
|
|
|
- Drive : PDrive;
|
|
|
- miTmp : TMenuItem;
|
|
|
-begin
|
|
|
- pmDrivesMenu.Items.Clear;
|
|
|
- Count := DrivesList.Count - 1;
|
|
|
- for I := 0 to Count do
|
|
|
- begin
|
|
|
- Drive := PDrive(DrivesList.Items[I]);
|
|
|
- with Drive^ do
|
|
|
- begin
|
|
|
- miTmp := TMenuItem.Create(pmDrivesMenu);
|
|
|
- miTmp.Tag := I;
|
|
|
- miTmp.Caption := Name;
|
|
|
- miTmp.Hint := Path;
|
|
|
-
|
|
|
- if gDriveMenuButton then
|
|
|
- begin
|
|
|
- if Pos(Path, FrameLeft.pnlFile.ActiveDir) = 1 then
|
|
|
- begin
|
|
|
- btnLeftDrive.Glyph := PixMapManager.GetDriveIcon(Drive, btnLeftDrive.Height - 4, btnLeftDrive.Color);
|
|
|
- btnLeftDrive.Caption := Name;
|
|
|
- btnLeftDrive.Width := btnLeftDrive.Glyph.Width + btnLeftDrive.Canvas.TextWidth(btnLeftDrive.Caption) + 16;
|
|
|
- dskLeft.Tag := I;
|
|
|
- end;
|
|
|
- if Pos(Path, FrameRight.pnlFile.ActiveDir) = 1 then
|
|
|
- begin
|
|
|
- btnRightDrive.Glyph := PixMapManager.GetDriveIcon(Drive, btnRightDrive.Height - 4, btnRightDrive.Color);
|
|
|
- btnRightDrive.Caption := Name;
|
|
|
- btnRightDrive.Width := btnRightDrive.Glyph.Width + btnRightDrive.Canvas.TextWidth(btnRightDrive.Caption) + 16;
|
|
|
- dskRight.Tag := I;
|
|
|
- end;
|
|
|
- end;
|
|
|
-
|
|
|
- // get disk icon
|
|
|
- miTmp.Bitmap := PixMapManager.GetDriveIcon(Drive, 16, clMenu);
|
|
|
- miTmp.RadioItem := True;
|
|
|
- miTmp.AutoCheck := True;
|
|
|
- miTmp.GroupIndex := 1;
|
|
|
- miTmp.OnClick := @DrivesMenuClick;
|
|
|
- pmDrivesMenu.Items.Add(miTmp);
|
|
|
- end; // with
|
|
|
- end; // for
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.DrivesMenuClick(Sender: TObject);
|
|
|
-begin
|
|
|
- with Sender as TMenuItem do
|
|
|
- begin
|
|
|
- if IsAvailable(Hint) then
|
|
|
- begin
|
|
|
- case pmDrivesMenu.Tag of
|
|
|
- 0:
|
|
|
- begin
|
|
|
- FrameLeft.pnlFile.ActiveDir := Hint;
|
|
|
- if gDriveBar2 then
|
|
|
- dskLeft.Buttons[Tag].Down := True;
|
|
|
- dskLeft.Tag := Tag;
|
|
|
- FrameLeft.pnlFile.LoadPanel;
|
|
|
- SetActiveFrame(fpLeft);
|
|
|
- btnLeftDrive.Glyph := PixMapManager.GetDriveIcon(PDrive(DrivesList[Tag]), btnLeftDrive.Height - 4, btnLeftDrive.Color);
|
|
|
- btnLeftDrive.Caption := Caption;
|
|
|
- btnLeftDrive.Width := btnLeftDrive.Glyph.Width + btnLeftDrive.Canvas.TextWidth(btnLeftDrive.Caption) + 16;
|
|
|
- end;
|
|
|
- 1:
|
|
|
- begin
|
|
|
- FrameRight.pnlFile.ActiveDir := Hint;
|
|
|
- if gDriveBar1 then
|
|
|
- dskRight.Buttons[Tag].Down := True;
|
|
|
- dskRight.Tag := Tag;
|
|
|
- FrameRight.pnlFile.LoadPanel;
|
|
|
- SetActiveFrame(fpRight);
|
|
|
- btnRightDrive.Glyph := PixMapManager.GetDriveIcon(PDrive(DrivesList[Tag]), btnRightDrive.Height - 4, btnRightDrive.Color);
|
|
|
- btnRightDrive.Caption := Caption;
|
|
|
- btnRightDrive.Width := btnRightDrive.Glyph.Width + btnRightDrive.Canvas.TextWidth(btnRightDrive.Caption) + 16;
|
|
|
- end;
|
|
|
- end; // case
|
|
|
- end
|
|
|
- else
|
|
|
- begin
|
|
|
- pmDrivesMenu.Items[dskLeft.Tag].Checked := True;
|
|
|
- msgOK(rsMsgDiskNotAvail);
|
|
|
- end;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.AddSpecialButtons(dskPanel: TKASToolBar);
|
|
|
-var
|
|
|
- btnIndex : Integer;
|
|
|
-begin
|
|
|
- (*root button*)
|
|
|
- btnIndex := dskPanel.AddButton('/', '/', 'root', '');
|
|
|
- dskPanel.Buttons[btnIndex].GroupIndex := 0;
|
|
|
- (*up button*)
|
|
|
- btnIndex := dskPanel.AddButton('..', '..', 'Up', '');
|
|
|
- dskPanel.Buttons[btnIndex].GroupIndex := 0;
|
|
|
- (*home button*)
|
|
|
- btnIndex := dskPanel.AddButton('~', '~', 'Home', '');
|
|
|
- dskPanel.Buttons[btnIndex].GroupIndex := 0;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.CreateDiskPanel(dskPanel: TKASToolBar);
|
|
|
-var
|
|
|
- I, Count : Integer;
|
|
|
- Drive : PDrive;
|
|
|
-begin
|
|
|
-//dskPanel.InitBounds; // Update information
|
|
|
-
|
|
|
- dskPanel.FlatButtons := gDriveBarFlat;
|
|
|
- Count := DrivesList.Count - 1;
|
|
|
-
|
|
|
- for I := 0 to Count do
|
|
|
- begin
|
|
|
- Drive := PDrive(DrivesList.Items[I]);
|
|
|
- with Drive^ do
|
|
|
- begin
|
|
|
- dskPanel.AddButton(Name, Path, Path, '');
|
|
|
- {Set chosen drive}
|
|
|
- if dskPanel.Align = alLeft then
|
|
|
- begin
|
|
|
- if Pos(Path, FrameLeft.pnlFile.ActiveDir) = 1 then
|
|
|
- begin
|
|
|
- dskPanel.Buttons[I].Down := True;
|
|
|
- dskPanel.Tag := I;
|
|
|
- end;
|
|
|
- end
|
|
|
- else
|
|
|
- begin
|
|
|
- if Pos(Path, FrameRight.pnlFile.ActiveDir) = 1 then
|
|
|
- begin
|
|
|
- dskPanel.Buttons[I].Down := True;
|
|
|
- dskPanel.Tag := I;
|
|
|
- end;
|
|
|
- end;
|
|
|
- {/Set chosen drive}
|
|
|
-
|
|
|
- // get drive icon
|
|
|
- dskPanel.Buttons[I].Glyph := PixMapManager.GetDriveIcon(Drive, 16, dskPanel.Buttons[I].Color);
|
|
|
- {Set Buttons Transparent. Is need? }
|
|
|
- dskPanel.Buttons[I].Glyph.Transparent := True;
|
|
|
- dskPanel.Buttons[I].Transparent := True;
|
|
|
- {/Set Buttons Transparent}
|
|
|
- dskPanel.Buttons[I].Layout := blGlyphLeft;
|
|
|
- end; // with
|
|
|
- end; // for
|
|
|
-
|
|
|
- if not gDriveMenuButton then {Add special buttons}
|
|
|
- AddSpecialButtons(dskPanel);
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.CreatePanel(AOwner: TWinControl; APanel:TFilePanelSelect; sPath : String);
|
|
|
-var
|
|
|
- lblDriveInfo : TLabel;
|
|
|
-begin
|
|
|
- case APanel of
|
|
|
- fpLeft:
|
|
|
- lblDriveInfo := lblLeftDriveInfo;
|
|
|
- fpRight:
|
|
|
- lblDriveInfo := lblRightDriveInfo;
|
|
|
- end;
|
|
|
-
|
|
|
- with TFrameFilePanel.Create(AOwner, lblDriveInfo, lblCommandPath, edtCommand) do
|
|
|
- begin
|
|
|
- edtCmdLine:=edtCommand;
|
|
|
- PanelSelect:=APanel;
|
|
|
- Init;
|
|
|
- ReAlign;
|
|
|
- pnlFile.OnChangeDirectory := @FramepnlFileChangeDirectory;
|
|
|
- if not DirectoryExists(sPath) then
|
|
|
- GetDir(0, sPath);
|
|
|
- pnlFile.ActiveDir := sPath;
|
|
|
- pnlFile.LoadPanel;
|
|
|
- UpDatelblInfo;
|
|
|
- dgPanel.Color := gBackColor;
|
|
|
- pnlHeader.Visible := gCurDir;
|
|
|
- pnlFooter.Visible := gStatusBar;
|
|
|
- lblLPath.OnClick:=@FramelblLPathClick;
|
|
|
- lblLPath.OnMouseDown := @FramelblLPathMouseDown;
|
|
|
- edtPath.OnExit:=@FrameEditExit;
|
|
|
- edtRename.OnExit:=@FrameEditExit;
|
|
|
- edtSearch.OnExit:=@FrameedtSearchExit;
|
|
|
-
|
|
|
- dgPanel.OnEnter:=@framedgPanelEnter;
|
|
|
- dgPanel.OnMouseDown := @framedgPanelMouseDown;
|
|
|
-
|
|
|
- end;
|
|
|
-
|
|
|
-end;
|
|
|
-
|
|
|
-function TfrmMain.AddPage(ANoteBook: TNoteBook):TPage;
|
|
|
-var
|
|
|
- x:Integer;
|
|
|
-begin
|
|
|
- x:=ANotebook.PageCount;
|
|
|
-
|
|
|
- ANoteBook.Pages.Add(IntToStr(x));
|
|
|
- ANoteBook.ActivePage:= IntToStr(x);
|
|
|
- Result:=ANoteBook.Page[x];
|
|
|
-
|
|
|
- ANoteBook.ShowTabs:= ((ANoteBook.PageCount > 1) or Boolean(gDirTabOptions and tb_always_visible)) and gDirectoryTabs;
|
|
|
- if Boolean(gDirTabOptions and tb_multiple_lines) then
|
|
|
- ANoteBook.Options := ANoteBook.Options + [nboMultiLine];
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.RemovePage(ANoteBook: TNoteBook; iPageIndex:Integer);
|
|
|
-begin
|
|
|
- if ANoteBook.PageCount>1 then
|
|
|
- begin
|
|
|
-{ With ANoteBook.Page[iPageIndex] do
|
|
|
- begin
|
|
|
- if ComponentCount>0 then // must be true, but
|
|
|
- // component 0 is TFrameFilePanel
|
|
|
- Components[0].Free;
|
|
|
- end;}
|
|
|
- ANoteBook.Pages.Delete(iPageIndex);
|
|
|
- end;
|
|
|
- ANoteBook.ShowTabs:= ((ANoteBook.PageCount > 1) or Boolean(gDirTabOptions and tb_always_visible)) and gDirectoryTabs;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.LoadTabs(ANoteBook: TNoteBook);
|
|
|
-var
|
|
|
- I : Integer;
|
|
|
- sIndex,
|
|
|
- TabsSection, Section: String;
|
|
|
- fpsPanel : TFilePanelSelect;
|
|
|
- sPath,
|
|
|
- sCaption, sActiveCaption : String;
|
|
|
- iActiveTab : Integer;
|
|
|
-begin
|
|
|
- if ANoteBook.Hint = 'Left' then
|
|
|
- begin
|
|
|
- TabsSection := 'lefttabs';
|
|
|
- Section := 'left';
|
|
|
- fpsPanel := fpLeft;
|
|
|
- end
|
|
|
- else
|
|
|
- begin
|
|
|
- TabsSection := 'righttabs';
|
|
|
- Section := 'right';
|
|
|
- fpsPanel := fpRight;
|
|
|
- end;
|
|
|
- I := 0;
|
|
|
- sIndex := '0';
|
|
|
-
|
|
|
- { Read active tab index and caption }
|
|
|
- iActiveTab := gIni.ReadInteger(TabsSection, 'activetab', 0);
|
|
|
- sActiveCaption := gIni.ReadString(Section, 'activecaption', '');
|
|
|
-
|
|
|
- while True do
|
|
|
- begin
|
|
|
- if I = iActiveTab then
|
|
|
- begin
|
|
|
- sPath := gIni.ReadString(Section, 'path', '');
|
|
|
- CreatePanel(AddPage(ANoteBook), fpsPanel, sPath);
|
|
|
- if sActiveCaption <> '' then
|
|
|
- ANoteBook.Page[ANoteBook.PageCount - 1].Caption := sActiveCaption;
|
|
|
- end;
|
|
|
- sPath := gIni.ReadString(TabsSection, sIndex + '_path', '');
|
|
|
- if sPath = '' then Break;
|
|
|
- sCaption := gIni.ReadString(TabsSection, sIndex + '_caption', '');
|
|
|
- CreatePanel(AddPage(ANoteBook), fpsPanel, sPath);
|
|
|
- if sCaption <> '' then
|
|
|
- ANoteBook.Page[ANoteBook.PageCount - 1].Caption := sCaption;
|
|
|
- inc(I);
|
|
|
- sIndex := IntToStr(I);
|
|
|
- end;
|
|
|
- // set active tab
|
|
|
- ANoteBook.PageIndex := iActiveTab;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.SaveTabs(ANoteBook: TNoteBook);
|
|
|
-var
|
|
|
- I, Count, J : Integer;
|
|
|
- sIndex,
|
|
|
- TabsSection, Section : String;
|
|
|
- sPath : String;
|
|
|
-begin
|
|
|
- if ANoteBook.Hint = 'Left' then
|
|
|
- begin
|
|
|
- TabsSection := 'lefttabs';
|
|
|
- Section := 'left';
|
|
|
- end
|
|
|
- else
|
|
|
- begin
|
|
|
- TabsSection := 'righttabs';
|
|
|
- Section := 'right';
|
|
|
- end;
|
|
|
-
|
|
|
- gIni.EraseSection(TabsSection);
|
|
|
-
|
|
|
- I := 0;
|
|
|
- J := 0;
|
|
|
- Count := ANoteBook.PageCount - 1;
|
|
|
- repeat
|
|
|
- sIndex := IntToStr(I - J);
|
|
|
-
|
|
|
- if I = ANoteBook.PageIndex then
|
|
|
- begin
|
|
|
- gIni.WriteInteger(TabsSection, 'activetab', I);
|
|
|
- gIni.WriteString(TabsSection, 'activecaption', ANoteBook.ActivePage);
|
|
|
- if I < Count then
|
|
|
- begin
|
|
|
- inc(I);
|
|
|
- J := 1;
|
|
|
- end
|
|
|
- else
|
|
|
- Break;
|
|
|
- end;
|
|
|
- sPath := TFrameFilePanel(ANoteBook.Page[I].Components[0]).ActiveDir;
|
|
|
- gIni.WriteString(TabsSection, sIndex + '_path', sPath);
|
|
|
- gIni.WriteString(TabsSection, sIndex + '_caption', ANoteBook.Page[I].Caption);
|
|
|
- inc(I);
|
|
|
- until (I > Count);
|
|
|
- sPath := TFrameFilePanel(ANoteBook.ActivePageComponent.Components[0]).ActiveDir;
|
|
|
- gIni.WriteString(Section, 'path', sPath);
|
|
|
-end;
|
|
|
-
|
|
|
-(* Execute internal or external command *)
|
|
|
-
|
|
|
-function TfrmMain.ExecCmd(Cmd: String): Boolean;
|
|
|
-begin
|
|
|
- if actionLst.ActionByName(Cmd) <> nil then
|
|
|
- Result := actionLst.ActionByName(Cmd).Execute
|
|
|
- else
|
|
|
- Result := (ExecCmdFork(Cmd) = 0);
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.UpdateWindowView;
|
|
|
-var
|
|
|
- I : Integer;
|
|
|
-begin
|
|
|
- (* Disk Panels *)
|
|
|
- if (dskRight.FlatButtons <> gDriveBarFlat) then // if change
|
|
|
- begin
|
|
|
- dskLeft.FlatButtons := gDriveBarFlat;
|
|
|
- dskRight.FlatButtons := gDriveBarFlat;
|
|
|
- end;
|
|
|
-
|
|
|
- if (dskLeft.Visible <> gDriveBar2) or (dskRight.Visible <> gDriveBar1) then // if change
|
|
|
- begin
|
|
|
- if gDriveBar1 and gDriveBar2 then // left visible only then right visible
|
|
|
- begin
|
|
|
- CreateDiskPanel(dskLeft);
|
|
|
- dskLeft.Visible := gDriveBar2;
|
|
|
- end
|
|
|
- else
|
|
|
- begin
|
|
|
- dskLeft.Visible := gDriveBar2;
|
|
|
- dskLeft.DeleteAllToolButtons;
|
|
|
- end;
|
|
|
-
|
|
|
- end;
|
|
|
-
|
|
|
- if dskRight.Visible <> gDriveBar1 then // if change
|
|
|
- begin
|
|
|
- if gDriveBar1 then
|
|
|
- begin
|
|
|
- CreateDiskPanel(dskRight);
|
|
|
- dskRight.Visible := gDriveBar1;
|
|
|
- end
|
|
|
- else
|
|
|
- begin
|
|
|
- dskRight.Visible := gDriveBar1;
|
|
|
- dskRight.DeleteAllToolButtons;
|
|
|
- end;
|
|
|
- end;
|
|
|
-
|
|
|
- pnlSyncSize.Visible := gDriveBar1;
|
|
|
- (*/ Disk Panels *)
|
|
|
-
|
|
|
- (*Tool Bar*)
|
|
|
- if MainToolBar.FlatButtons <> gToolBarFlat then
|
|
|
- MainToolBar.FlatButtons := gToolBarFlat;
|
|
|
- if MainToolBar.Visible <> gButtonBar then // if change
|
|
|
- begin
|
|
|
- if gButtonBar then
|
|
|
- begin
|
|
|
- MainToolBar.ChangePath := gpExePath;
|
|
|
- MainToolBar.EnvVar := '%commander_path%';
|
|
|
- MainToolBar.LoadFromFile(gpIniDir + 'default.bar');
|
|
|
- MainToolBar.Visible := gButtonBar;
|
|
|
- end
|
|
|
- else
|
|
|
- begin
|
|
|
- MainToolBar.Visible := gButtonBar;
|
|
|
- MainToolBar.DeleteAllToolButtons;
|
|
|
- end;
|
|
|
- end;
|
|
|
- (*Tool Bar*)
|
|
|
-
|
|
|
- {Load some options from layout page}
|
|
|
- if btnLeftDrive.Visible <> gDriveMenuButton then
|
|
|
- if gDriveMenuButton then
|
|
|
- begin
|
|
|
- if gDriveBar1 and gDriveBar2 then // left visible only then right visible
|
|
|
- for I := 1 to 3 do
|
|
|
- dskLeft.RemoveButton(dskLeft.ButtonCount - 1);
|
|
|
- if gDriveBar1 then
|
|
|
- for I := 1 to 3 do
|
|
|
- dskRight.RemoveButton(dskRight.ButtonCount - 1);
|
|
|
- end
|
|
|
- else
|
|
|
- begin
|
|
|
- if gDriveBar1 and gDriveBar2 then // left visible only then right visible
|
|
|
- AddSpecialButtons(dskLeft);
|
|
|
- if gDriveBar1 then
|
|
|
- AddSpecialButtons(dskRight);
|
|
|
- end;
|
|
|
- if btnLeftDrive.Flat <> gInterfaceFlat then
|
|
|
- begin
|
|
|
- btnLeftDrive.Flat := gInterfaceFlat;
|
|
|
- btnLeftRoot.Flat := gInterfaceFlat;
|
|
|
- btnLeftUp.Flat := gInterfaceFlat;
|
|
|
- btnLeftHome.Flat := gInterfaceFlat;
|
|
|
-
|
|
|
- btnRightDrive.Flat := gInterfaceFlat;
|
|
|
- btnRightRoot.Flat := gInterfaceFlat;
|
|
|
- btnRightUp.Flat := gInterfaceFlat;
|
|
|
- btnRightHome.Flat := gInterfaceFlat;
|
|
|
- end;
|
|
|
-
|
|
|
- for I := 0 to nbLeft.PageCount - 1 do // change on all tabs
|
|
|
- with nbLeft.Page[I].Controls[0] as TFrameFilePanel do
|
|
|
- begin
|
|
|
- pnlHeader.Visible := gCurDir; // Current directory
|
|
|
- pnlFooter.Visible := gStatusBar; // Status bar
|
|
|
- if gShowIcons then
|
|
|
- pnlFile.FileList.UpdateFileInformation(pnlFile.PanelMode);
|
|
|
- end;
|
|
|
-
|
|
|
- for I := 0 to nbRight.PageCount - 1 do // change on all tabs
|
|
|
- with nbRight.Page[I].Controls[0] as TFrameFilePanel do
|
|
|
- begin
|
|
|
- pnlHeader.Visible := gCurDir; // Current directory
|
|
|
- pnlFooter.Visible := gStatusBar; // Status bar
|
|
|
- if gShowIcons then
|
|
|
- pnlFile.FileList.UpdateFileInformation(pnlFile.PanelMode);
|
|
|
- end;
|
|
|
-
|
|
|
- for I := 0 to pnlKeys.ControlCount - 1 do // function keys
|
|
|
- if pnlKeys.Controls[I] is TSpeedButton then
|
|
|
- (pnlKeys.Controls[I] as TSpeedButton).Flat := gInterfaceFlat;
|
|
|
-
|
|
|
- btnLeftDrive.Visible := gDriveMenuButton;
|
|
|
- btnLeftRoot.Visible := gDriveMenuButton;
|
|
|
- btnLeftUp.Visible := gDriveMenuButton;
|
|
|
- btnLeftHome.Visible := gDriveMenuButton;
|
|
|
-
|
|
|
- btnRightDrive.Visible := gDriveMenuButton;
|
|
|
- btnRightRoot.Visible := gDriveMenuButton;
|
|
|
- btnRightUp.Visible := gDriveMenuButton;
|
|
|
- btnRightHome.Visible := gDriveMenuButton;
|
|
|
-
|
|
|
- pnlCommand.Visible := gCmdLine;
|
|
|
- pnlKeys.Visible := gKeyButtons;
|
|
|
- nbLeft.ShowTabs := gDirectoryTabs;
|
|
|
- nbRight.ShowTabs := gDirectoryTabs;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.edtCommandKeyDown(Sender: TObject; var Key: Word;
|
|
|
- Shift: TShiftState);
|
|
|
-begin
|
|
|
- if not edtCommand.DroppedDown and ((Key=VK_UP) or (Key=VK_DOWN)) then
|
|
|
- begin
|
|
|
- ActiveFrame.SetFocus;
|
|
|
- Key:=0;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-
|
|
|
-procedure TfrmMain.actFileLinkerExecute(Sender: TObject);
|
|
|
-var
|
|
|
- sl:TStringList;
|
|
|
- i:Integer;
|
|
|
-begin
|
|
|
-
|
|
|
- with ActiveFrame do
|
|
|
- begin
|
|
|
- SelectFileIfNoSelected(GetActiveItem);
|
|
|
- sl:=TStringList.Create;
|
|
|
- try
|
|
|
- for i:=0 to pnlFile.FileList.Count-1 do
|
|
|
- if pnlFile.GetFileItem(i).bSelected then
|
|
|
- sl.Add(ActiveDir+pnlFile.GetFileItem(i).sName);
|
|
|
- if sl.Count>1 then
|
|
|
- ShowLinkerFilesForm(sl);
|
|
|
- finally
|
|
|
- FreeAndNil(sl);
|
|
|
- FrameLeft.RefreshPanel;
|
|
|
- FrameRight.RefreshPanel;
|
|
|
- ActiveFrame.SetFocus;
|
|
|
- end;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.actFileSpliterExecute(Sender: TObject);
|
|
|
-var
|
|
|
- sl:TStringList;
|
|
|
- i:Integer;
|
|
|
-begin
|
|
|
- with ActiveFrame do
|
|
|
- begin
|
|
|
- SelectFileIfNoSelected(GetActiveItem);
|
|
|
-
|
|
|
- sl:=TStringList.Create;
|
|
|
- try
|
|
|
- for i:=0 to pnlFile.FileList.Count-1 do
|
|
|
- if pnlFile.GetFileItem(i).bSelected then
|
|
|
- sl.Add(ActiveDir+pnlFile.GetFileItem(i).sName);
|
|
|
- if sl.Count>0 then
|
|
|
- ShowSplitterFileForm(sl);
|
|
|
- finally
|
|
|
- FreeAndNil(sl);
|
|
|
- FrameLeft.RefreshPanel;
|
|
|
- FrameRight.RefreshPanel;
|
|
|
- ActiveFrame.SetFocus;
|
|
|
- end;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure TfrmMain.tbEditClick(Sender: TObject);
|
|
|
-begin
|
|
|
- ShowConfigToolbar(pmToolBar.Tag);
|
|
|
-end;
|
|
|
-
|
|
|
-
|
|
|
-function TfrmMain.ExecuteCommandFromEdit(sCmd: String): Boolean;
|
|
|
-var
|
|
|
- iIndex:Integer;
|
|
|
- sDir:String;
|
|
|
-begin
|
|
|
- Result:=True;
|
|
|
- iIndex:=pos('cd ',sCmd);
|
|
|
- if iIndex=1 then
|
|
|
- begin
|
|
|
- sDir:=Trim(Copy(sCmd, iIndex+3, length(sCmd)));
|
|
|
- sDir:=IncludeTrailingBackslash(sDir);
|
|
|
- DebugLn('Chdir to:',sDir);
|
|
|
- if not SetCurrentDir(sDir) then
|
|
|
- begin
|
|
|
- msgError(Format('ChDir to [%s] failed!',[sDir]));
|
|
|
- end
|
|
|
- else
|
|
|
- begin
|
|
|
- with ActiveFrame.pnlFile do
|
|
|
- begin
|
|
|
- GetDir(0,sDir);
|
|
|
- ActiveDir:=sDir;
|
|
|
- DebugLn(sDir);
|
|
|
- end;
|
|
|
- end;
|
|
|
- end
|
|
|
- else
|
|
|
- begin
|
|
|
- if edtCommand.Items.IndexOf(sCmd)=-1 then
|
|
|
- edtCommand.Items.Insert(0,sCmd);
|
|
|
- ActiveFrame.pnlFile.ExecuteFile(sCmd, True);
|
|
|
- edtCommand.DroppedDown:=False;
|
|
|
- // only cMaxStringItems(see uGlobs.pas) is stored
|
|
|
- if edtCommand.Items.Count>cMaxStringItems then
|
|
|
- edtCommand.Items.Delete(edtCommand.Items.Count-1);
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-// Save ShortCuts to config file
|
|
|
-procedure TfrmMain.SaveShortCuts;
|
|
|
-var
|
|
|
- i, count: Integer;
|
|
|
- ini: TIniFile;
|
|
|
-begin
|
|
|
- ini:=TIniFile.Create(gpIniDir + 'shortcuts.ini');
|
|
|
- try
|
|
|
- count := actionLst.ActionCount;
|
|
|
- for i := 0 to count-1 do
|
|
|
- with actionLst.Actions[i] as TAction do
|
|
|
- ini.WriteString('SHORTCUTS', Name, ShortCutToText(ShortCut));
|
|
|
- ini.UpdateFile;
|
|
|
- finally
|
|
|
- ini.Free;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-// Load ShortCuts from config file
|
|
|
-procedure TfrmMain.LoadShortCuts;
|
|
|
-var
|
|
|
- i, j, count: Integer;
|
|
|
- ini: TIniFile;
|
|
|
- vAction: TAction;
|
|
|
- vShortCut: TShortCut;
|
|
|
-begin
|
|
|
- // ToDo Black list HotKey which can't use
|
|
|
- ini:=TIniFile.Create(gpIniDir + 'shortcuts.ini');
|
|
|
- try
|
|
|
- count := actionLst.ActionCount;
|
|
|
- for i := 0 to count-1 do
|
|
|
- begin
|
|
|
- vAction := actionLst.Actions[i] as TAction;
|
|
|
- vShortCut := TextToShortCut(ini.ReadString('SHORTCUTS',
|
|
|
- vAction.Name, ShortCutToText(vAction.ShortCut)));
|
|
|
- if (ShortCutToText(vShortCut) <> ShortCutToText(vAction.ShortCut)) and (ShortCutToText(vShortCut) <> '') then
|
|
|
- begin
|
|
|
- for j := 0 to count-1 do
|
|
|
- if (ShortCutToText(TAction(actionLst.Actions[j]).ShortCut) = ShortCutToText(vShortCut)) then
|
|
|
- TAction(actionLst.Actions[j]).ShortCut := TextToShortCut('');
|
|
|
- vAction.ShortCut := vShortCut;
|
|
|
- end; // if
|
|
|
- end; // for i
|
|
|
- finally
|
|
|
- ini.Free;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-initialization
|
|
|
- {$I fmain.lrs}
|
|
|
-end.
|
|
|
+{
|
|
|
+Double Commander
|
|
|
+----------------------------
|
|
|
+Licence : GNU GPL v 2.0
|
|
|
+Copyright (C) 2006-2007 Alexander Koblov ([email protected])
|
|
|
+
|
|
|
+Main Dialog window
|
|
|
+
|
|
|
+contributors:
|
|
|
+
|
|
|
+based on:
|
|
|
+
|
|
|
+Seksi Commander (radekc.regnet.cz)
|
|
|
+----------------------------
|
|
|
+Licence : GNU GPL v 2.0
|
|
|
+Author : [email protected]
|
|
|
+
|
|
|
+Main Dialog window and other stuff
|
|
|
+
|
|
|
+contributors:
|
|
|
+
|
|
|
+
|
|
|
+based on (heavy rewriten):
|
|
|
+
|
|
|
+main Unit of PFM : Peter's File Manager
|
|
|
+---------------------------------------
|
|
|
+
|
|
|
+Copyright : Peter Cernoch 2002
|
|
|
+Contact : [email protected]
|
|
|
+Licence : GNU GPL v 2.0
|
|
|
+
|
|
|
+}
|
|
|
+
|
|
|
+unit fMain;
|
|
|
+
|
|
|
+{$mode objfpc}{$H+}
|
|
|
+
|
|
|
+interface
|
|
|
+
|
|
|
+uses
|
|
|
+ LResources,
|
|
|
+ Graphics, Forms, Menus, Controls, Dialogs, ComCtrls,
|
|
|
+ StdCtrls, ExtCtrls,ActnList,Buttons,
|
|
|
+ SysUtils, Classes, {uFilePanel,} framePanel, {FileCtrl,} Grids,
|
|
|
+ KASToolBar, IniFiles;
|
|
|
+
|
|
|
+const
|
|
|
+ cHistoryFile='cmdhistory.txt';
|
|
|
+
|
|
|
+type
|
|
|
+
|
|
|
+ { TfrmMain }
|
|
|
+
|
|
|
+ TfrmMain = class(TForm)
|
|
|
+ actExtractFiles: TAction;
|
|
|
+ actAddPathToCmdLine: TAction;
|
|
|
+ actFocusCmdLine: TAction;
|
|
|
+ actContextMenu: TAction;
|
|
|
+ actTransferRight: TAction;
|
|
|
+ actTransferLeft: TAction;
|
|
|
+ actRightOpenDrives: TAction;
|
|
|
+ actLeftOpenDrives: TAction;
|
|
|
+ actOpenVFSList: TAction;
|
|
|
+ actPackFiles: TAction;
|
|
|
+ actRemoveTab: TAction;
|
|
|
+ actNewTab: TAction;
|
|
|
+ btnF10: TSpeedButton;
|
|
|
+ btnF3: TSpeedButton;
|
|
|
+ btnF4: TSpeedButton;
|
|
|
+ btnF5: TSpeedButton;
|
|
|
+ btnF6: TSpeedButton;
|
|
|
+ btnF7: TSpeedButton;
|
|
|
+ btnF8: TSpeedButton;
|
|
|
+ btnF9: TSpeedButton;
|
|
|
+ dskLeft: TKAStoolBar;
|
|
|
+ dskRight: TKAStoolBar;
|
|
|
+ lblRightDriveInfo: TLabel;
|
|
|
+ lblLeftDriveInfo: TLabel;
|
|
|
+ MainToolBar: TKASToolBar;
|
|
|
+ MenuItem1: TMenuItem;
|
|
|
+ mnuExtractFiles: TMenuItem;
|
|
|
+ nbLeft: TNotebook;
|
|
|
+ nbRight: TNotebook;
|
|
|
+ pnlKeys: TPanel;
|
|
|
+ pnlLeftTools: TPanel;
|
|
|
+ pnlRightTools: TPanel;
|
|
|
+ pnlRight: TPanel;
|
|
|
+ pnlLeft: TPanel;
|
|
|
+ pnlDisk: TPanel;
|
|
|
+ btnLeftDrive: TSpeedButton;
|
|
|
+ btnLeftHome: TSpeedButton;
|
|
|
+ btnLeftUp: TSpeedButton;
|
|
|
+ btnLeftRoot: TSpeedButton;
|
|
|
+ btnRightDrive: TSpeedButton;
|
|
|
+ btnRightHome: TSpeedButton;
|
|
|
+ btnRightUp: TSpeedButton;
|
|
|
+ btnRightRoot: TSpeedButton;
|
|
|
+ pmDrivesMenu: TPopupMenu;
|
|
|
+ tbDelete: TMenuItem;
|
|
|
+ tbEdit: TMenuItem;
|
|
|
+ mnuMain: TMainMenu;
|
|
|
+ pnlNotebooks: TPanel;
|
|
|
+ pnlSyncSize: TPanel;
|
|
|
+ pnlCommand: TPanel;
|
|
|
+ lblCommandPath: TLabel;
|
|
|
+ mnuHelp: TMenuItem;
|
|
|
+ mnuHelpAbout: TMenuItem;
|
|
|
+ mnuShow: TMenuItem;
|
|
|
+ mnuShowName: TMenuItem;
|
|
|
+ mnuShowExtension: TMenuItem;
|
|
|
+ mnuShowTime: TMenuItem;
|
|
|
+ mnuShowSize: TMenuItem;
|
|
|
+ mnuShowAttrib: TMenuItem;
|
|
|
+ miLine7: TMenuItem;
|
|
|
+ mnuShowReverse: TMenuItem;
|
|
|
+ mnuShowReread: TMenuItem;
|
|
|
+ mnuFiles: TMenuItem;
|
|
|
+ mnuPackFiles : TMenuItem;
|
|
|
+ mnuFilesSplit: TMenuItem;
|
|
|
+ mnuFilesCombine: TMenuItem;
|
|
|
+ mnuCmd: TMenuItem;
|
|
|
+ mnuCmdDirHotlist: TMenuItem;
|
|
|
+ miLine2: TMenuItem;
|
|
|
+ mnuFilesSpace: TMenuItem;
|
|
|
+ mnuFilesAttrib: TMenuItem;
|
|
|
+ mnuFilesProperties: TMenuItem;
|
|
|
+ miLine6: TMenuItem;
|
|
|
+ mnuCmdSwapSourceTarget: TMenuItem;
|
|
|
+ mnuCmdTargetIsSource: TMenuItem;
|
|
|
+ miLine3: TMenuItem;
|
|
|
+ mnuFilesShwSysFiles: TMenuItem;
|
|
|
+ miLine1: TMenuItem;
|
|
|
+ mnuFilesLink: TMenuItem;
|
|
|
+ mnuFilesSymLink: TMenuItem;
|
|
|
+ mnuConfig: TMenuItem;
|
|
|
+ mnuConfigOptions: TMenuItem;
|
|
|
+ mnuMark: TMenuItem;
|
|
|
+ mnuMarkSGroup: TMenuItem;
|
|
|
+ mnuMarkUGroup: TMenuItem;
|
|
|
+ mnuMarkSAll: TMenuItem;
|
|
|
+ mnuMarkUAll: TMenuItem;
|
|
|
+ mnuMarkInvert: TMenuItem;
|
|
|
+ miLine5: TMenuItem;
|
|
|
+ mnuMarkCmpDir: TMenuItem;
|
|
|
+ mnuCmdSearch: TMenuItem;
|
|
|
+ actionLst: TActionList;
|
|
|
+ actExit: TAction;
|
|
|
+ actView: TAction;
|
|
|
+ actEdit: TAction;
|
|
|
+ actCopy: TAction;
|
|
|
+ actRename: TAction;
|
|
|
+ actMakeDir: TAction;
|
|
|
+ actDelete: TAction;
|
|
|
+ actAbout: TAction;
|
|
|
+ actShowSysFiles: TAction;
|
|
|
+ actOptions: TAction;
|
|
|
+ edtCommand: TComboBox;
|
|
|
+ mnuFilesCmpCnt: TMenuItem;
|
|
|
+ actCompareContents: TAction;
|
|
|
+ actShowMenu: TAction;
|
|
|
+ actRefresh: TAction;
|
|
|
+ actSearch: TAction;
|
|
|
+ actDirHotList: TAction;
|
|
|
+ actMarkMarkAll: TAction;
|
|
|
+ actMarkInvert: TAction;
|
|
|
+ actMarkUnmarkAll: TAction;
|
|
|
+ pmHotList: TPopupMenu;
|
|
|
+ actMarkPlus: TAction;
|
|
|
+ actMarkMinus: TAction;
|
|
|
+ actSymLink: TAction;
|
|
|
+ actHardLink: TAction;
|
|
|
+ actReverseOrder: TAction;
|
|
|
+ actSortByName: TAction;
|
|
|
+ actSortByExt: TAction;
|
|
|
+ actSortBySize: TAction;
|
|
|
+ actSortByDate: TAction;
|
|
|
+ actSortByAttr: TAction;
|
|
|
+ miLine4: TMenuItem;
|
|
|
+ miExit: TMenuItem;
|
|
|
+ actMultiRename: TAction;
|
|
|
+ miMultiRename: TMenuItem;
|
|
|
+ actCopySamePanel: TAction;
|
|
|
+ actRenameOnly: TAction;
|
|
|
+ actEditNew: TAction;
|
|
|
+ actDirHistory: TAction;
|
|
|
+ pmDirHistory: TPopupMenu;
|
|
|
+ actShowCmdLineHistory: TAction;
|
|
|
+ actRunTerm: TAction;
|
|
|
+ miLine9: TMenuItem;
|
|
|
+ miRunTerm: TMenuItem;
|
|
|
+ actCalculateSpace: TAction;
|
|
|
+ actFileProperties: TAction;
|
|
|
+ actFileLinker: TAction;
|
|
|
+ actFileSpliter: TAction;
|
|
|
+ pmToolBar: TPopupMenu;
|
|
|
+ MainSplitter: TSplitter;
|
|
|
+ procedure actAddPathToCmdLineExecute(Sender: TObject);
|
|
|
+ procedure actContextMenuExecute(Sender: TObject);
|
|
|
+ procedure actExtractFilesExecute(Sender: TObject);
|
|
|
+ procedure actFocusCmdLineExecute(Sender: TObject);
|
|
|
+ procedure actLeftOpenDrivesExecute(Sender: TObject);
|
|
|
+ procedure actOpenVFSListExecute(Sender: TObject);
|
|
|
+ procedure actPackFilesExecute(Sender: TObject);
|
|
|
+ procedure actRightOpenDrivesExecute(Sender: TObject);
|
|
|
+ procedure actTransferLeftExecute(Sender: TObject);
|
|
|
+ procedure actTransferRightExecute(Sender: TObject);
|
|
|
+ procedure btnLeftClick(Sender: TObject);
|
|
|
+ procedure btnRightClick(Sender: TObject);
|
|
|
+ procedure DeleteClick(Sender: TObject);
|
|
|
+ procedure dskRightChangeLineCount(AddSize: Integer);
|
|
|
+ procedure dskToolButtonClick(Sender: TObject; NumberOfButton: Integer);
|
|
|
+ procedure FormCreate(Sender: TObject);
|
|
|
+ procedure FormDestroy(Sender: TObject);
|
|
|
+ procedure lblDriveInfoDblClick(Sender: TObject);
|
|
|
+ function MainToolBarLoadButtonGlyph(sIconFileName: String;
|
|
|
+ iIconSize: Integer; clBackColor: TColor): TBitmap;
|
|
|
+ procedure MainToolBarMouseDown(Sender: TOBject; Button: TMouseButton;
|
|
|
+ Shift: TShiftState; X, Y: Integer);
|
|
|
+ procedure MainToolBarToolButtonClick(Sender: TObject; NumberOfButton : Integer);
|
|
|
+ procedure actExitExecute(Sender: TObject);
|
|
|
+ procedure actNewTabExecute(Sender: TObject);
|
|
|
+ procedure actRemoveTabExecute(Sender: TObject);
|
|
|
+ procedure frmMainClose(Sender: TObject; var CloseAction: TCloseAction);
|
|
|
+ procedure frmMainKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
|
|
|
+ procedure frmMainShow(Sender: TObject);
|
|
|
+ procedure mnuHelpClick(Sender: TObject);
|
|
|
+ procedure nbPageChanged(Sender: TObject);
|
|
|
+ procedure NotebookCloseTabClicked(Sender: TObject);
|
|
|
+ procedure pnlKeysResize(Sender: TObject);
|
|
|
+ procedure actViewExecute(Sender: TObject);
|
|
|
+ procedure actEditExecute(Sender: TObject);
|
|
|
+ procedure actCopyExecute(Sender: TObject);
|
|
|
+ procedure actRenameExecute(Sender: TObject);
|
|
|
+ procedure actMakeDirExecute(Sender: TObject);
|
|
|
+ procedure actDeleteExecute(Sender: TObject);
|
|
|
+ procedure FormResize(Sender: TObject);
|
|
|
+ procedure actAboutExecute(Sender: TObject);
|
|
|
+ procedure actShowSysFilesExecute(Sender: TObject);
|
|
|
+ procedure actOptionsExecute(Sender: TObject);
|
|
|
+ procedure FormKeyPress(Sender: TObject; var Key: Char);
|
|
|
+ procedure actCompareContentsExecute(Sender: TObject);
|
|
|
+ procedure actShowMenuExecute(Sender: TObject);
|
|
|
+ procedure actRefreshExecute(Sender: TObject);
|
|
|
+ procedure actMarkInvertExecute(Sender: TObject);
|
|
|
+ procedure actMarkMarkAllExecute(Sender: TObject);
|
|
|
+ procedure actMarkUnmarkAllExecute(Sender: TObject);
|
|
|
+ procedure actDirHotListExecute(Sender: TObject);
|
|
|
+ procedure actSearchExecute(Sender: TObject);
|
|
|
+ procedure actDelete2Execute(Sender: TObject);
|
|
|
+ procedure edtCommandKeyUp(Sender: TObject; var Key: Word;
|
|
|
+ Shift: TShiftState);
|
|
|
+ procedure actMarkPlusExecute(Sender: TObject);
|
|
|
+ procedure actMarkMinusExecute(Sender: TObject);
|
|
|
+ procedure actSymLinkExecute(Sender: TObject);
|
|
|
+ procedure actHardLinkExecute(Sender: TObject);
|
|
|
+ procedure actReverseOrderExecute(Sender: TObject);
|
|
|
+ procedure actSortByNameExecute(Sender: TObject);
|
|
|
+ procedure actSortByExtExecute(Sender: TObject);
|
|
|
+ procedure actSortBySizeExecute(Sender: TObject);
|
|
|
+ procedure actSortByDateExecute(Sender: TObject);
|
|
|
+ procedure actSortByAttrExecute(Sender: TObject);
|
|
|
+ procedure actMultiRenameExecute(Sender: TObject);
|
|
|
+ procedure actCopySamePanelExecute(Sender: TObject);
|
|
|
+ procedure actRenameOnlyExecute(Sender: TObject);
|
|
|
+ procedure actEditNewExecute(Sender: TObject);
|
|
|
+ procedure actDirHistoryExecute(Sender: TObject);
|
|
|
+ procedure actShowCmdLineHistoryExecute(Sender: TObject);
|
|
|
+ procedure actRunTermExecute(Sender: TObject);
|
|
|
+ procedure FormKeyDown(Sender: TObject; var Key: Word;
|
|
|
+ Shift: TShiftState);
|
|
|
+ procedure FormActivate(Sender: TObject);
|
|
|
+ procedure FrameEditExit(Sender: TObject);
|
|
|
+ procedure FrameedtSearchExit(Sender: TObject);
|
|
|
+
|
|
|
+ procedure actCalculateSpaceExecute(Sender: TObject);
|
|
|
+ procedure actFilePropertiesExecute(Sender: TObject);
|
|
|
+ procedure FramedgPanelEnter(Sender: TObject);
|
|
|
+ procedure framedgPanelMouseDown(Sender: TObject; Button: TMouseButton;
|
|
|
+ Shift: TShiftState; X, Y: Integer);
|
|
|
+ procedure ShowPathEdit;
|
|
|
+ procedure FramelblLPathClick(Sender: TObject);
|
|
|
+ procedure FramelblLPathMouseDown(Sender: TObject; Button: TMouseButton;
|
|
|
+ Shift: TShiftState; X, Y: Integer);
|
|
|
+ procedure FramepnlFileChangeDirectory(Sender: TObject; const NewDir : String);
|
|
|
+ procedure edtCommandKeyDown(Sender: TObject; var Key: Word;
|
|
|
+ Shift: TShiftState);
|
|
|
+ procedure actFileLinkerExecute(Sender: TObject);
|
|
|
+ procedure actFileSpliterExecute(Sender: TObject);
|
|
|
+ procedure tbEditClick(Sender: TObject);
|
|
|
+ private
|
|
|
+ { Private declarations }
|
|
|
+ PanelSelected:TFilePanelSelect;
|
|
|
+ bAltPress:Boolean;
|
|
|
+ DrivesList : TList;
|
|
|
+ IsPanelsCreated : Boolean;
|
|
|
+
|
|
|
+ function ExecuteCommandFromEdit(sCmd:String):Boolean;
|
|
|
+ procedure AddSpecialButtons(dskPanel: TKASToolBar);
|
|
|
+ public
|
|
|
+// frameLeft, frameRight:TFrameFilePanel;
|
|
|
+
|
|
|
+ function HandleActionHotKeys(var Key: Word; Shift: TShiftState):Boolean; // handled
|
|
|
+
|
|
|
+ Function ActiveFrame:TFrameFilePanel; // get Active frame
|
|
|
+ Function NotActiveFrame:TFrameFilePanel; // get NotActive frame :)
|
|
|
+ function FrameLeft:TFrameFilePanel;
|
|
|
+ function FrameRight:TFrameFilePanel;
|
|
|
+ Function IsAltPanel:Boolean;
|
|
|
+ procedure AppException(Sender: TObject; E: Exception);
|
|
|
+ //check selected count and generate correct msg, parameters is lng indexs
|
|
|
+ Function GetFileDlgStr(sLngOne, sLngMulti : String):String;
|
|
|
+ procedure HotDirSelected(Sender:TObject);
|
|
|
+ procedure CreatePopUpHotDir;
|
|
|
+ procedure CreatePopUpDirHistory;
|
|
|
+ procedure miHotAddClick(Sender: TObject);
|
|
|
+ procedure miHotDeleteClick(Sender: TObject);
|
|
|
+ procedure miHotConfClick(Sender: TObject);
|
|
|
+ procedure CalculateSpace(bDisplayMessage:Boolean);
|
|
|
+ procedure RenameFile(sDestPath:String); // this is for F6 and Shift+F6
|
|
|
+ procedure CopyFile(sDestPath:String); // this is for F5 and Shift+F5
|
|
|
+ procedure ShowRenameFileEdit(const sFileName:String);
|
|
|
+ procedure SetNotActFrmByActFrm;
|
|
|
+ procedure SetActiveFrame(panel: TFilePanelSelect);
|
|
|
+ procedure UpdateDiskCount;
|
|
|
+ procedure CreateDrivesMenu;
|
|
|
+ procedure DrivesMenuClick(Sender: TObject);
|
|
|
+ procedure CreateDiskPanel(dskPanel : TKASToolBar);
|
|
|
+ procedure CreatePanel(AOwner:TWinControl; APanel:TFilePanelSelect; sPath : String);
|
|
|
+ function AddPage(ANoteBook:TNoteBook):TPage;
|
|
|
+ procedure RemovePage(ANoteBook:TNoteBook; iPageIndex:Integer);
|
|
|
+ procedure LoadTabs(ANoteBook:TNoteBook);
|
|
|
+ procedure SaveTabs(ANoteBook:TNoteBook);
|
|
|
+ function ExecCmd(Cmd : String) : Boolean;
|
|
|
+ procedure UpdateWindowView;
|
|
|
+ procedure SaveShortCuts;
|
|
|
+ procedure LoadShortCuts;
|
|
|
+ end;
|
|
|
+
|
|
|
+var
|
|
|
+ frmMain: TfrmMain;
|
|
|
+
|
|
|
+implementation
|
|
|
+
|
|
|
+uses
|
|
|
+ uTypes, fAbout, uGlobs, uLng, fOptions,{ fViewer,}fconfigtoolbar,
|
|
|
+ uCopyThread, uFileList, uDeleteThread, uVFSUtil,
|
|
|
+ fMkDir, fCopyDlg, fCompareFiles,{ fEditor,} fMoveDlg, uMoveThread, uShowMsg,
|
|
|
+ fFindDlg, uSpaceThread, fHotDir, fSymLink, fHardLink,
|
|
|
+ fMultiRename, uShowForm, uGlobsPaths, fFileOpDlg, fMsg, fPackDlg, fExtractDlg,
|
|
|
+ fLinker, fSplitter, uFileProcs, lclType, LCLProc, uOSUtils, uOSForms, uPixMapManager;
|
|
|
+
|
|
|
+
|
|
|
+procedure TfrmMain.FormCreate(Sender: TObject);
|
|
|
+begin
|
|
|
+ inherited;
|
|
|
+ SetMyWndProc(Handle);
|
|
|
+ Application.OnException := @AppException;
|
|
|
+
|
|
|
+
|
|
|
+ if FileExists(gpIniDir+cHistoryFile) then
|
|
|
+ edtCommand.Items.LoadFromFile(gpIniDir+cHistoryFile);
|
|
|
+// DebugLn('frmMain.FormCreate Done');
|
|
|
+ IsPanelsCreated := False;
|
|
|
+end;
|
|
|
+
|
|
|
+
|
|
|
+(* Pack files in archive *)
|
|
|
+procedure TfrmMain.actPackFilesExecute(Sender: TObject);
|
|
|
+var
|
|
|
+ fl : TFileList;
|
|
|
+begin
|
|
|
+ fl:=TFileList.Create;
|
|
|
+ with ActiveFrame do
|
|
|
+ begin
|
|
|
+ SelectFileIfNoSelected(GetActiveItem);
|
|
|
+ CopyListSelectedExpandNames(pnlFile.FileList,fl,ActiveDir);
|
|
|
+
|
|
|
+ fl.CurrentDirectory := ActiveDir;
|
|
|
+ end;
|
|
|
+ try
|
|
|
+ ShowPackFilesForm(NotActiveFrame.pnlFile.VFS, fl, NotActiveFrame.ActiveDir);
|
|
|
+ finally
|
|
|
+ frameLeft.RefreshPanel;
|
|
|
+ frameRight.RefreshPanel;
|
|
|
+ end;
|
|
|
+
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actRightOpenDrivesExecute(Sender: TObject);
|
|
|
+var
|
|
|
+ p : TPoint;
|
|
|
+begin
|
|
|
+ pmDrivesMenu.Tag := 1; // indicate that is right panel menu
|
|
|
+ p := Classes.Point(btnRightDrive.Left,btnRightDrive.Height);
|
|
|
+ p := pnlRightTools.ClientToScreen(p);
|
|
|
+ pmDrivesMenu.Items[dskRight.Tag].Checked := True;
|
|
|
+ pmDrivesMenu.PopUp(p.x, p.y);
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actTransferLeftExecute(Sender: TObject);
|
|
|
+begin
|
|
|
+ if (PanelSelected = fpRight) then
|
|
|
+ SetNotActFrmByActFrm;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actTransferRightExecute(Sender: TObject);
|
|
|
+begin
|
|
|
+ if (PanelSelected = fpLeft) then
|
|
|
+ SetNotActFrmByActFrm;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.btnLeftClick(Sender: TObject);
|
|
|
+begin
|
|
|
+ with Sender as TSpeedButton do
|
|
|
+ begin
|
|
|
+ if Caption = '/' then
|
|
|
+ FrameLeft.pnlFile.ActiveDir := ExtractFileDrive(FrameLeft.pnlFile.ActiveDir);
|
|
|
+ if Caption = '..' then
|
|
|
+ FrameLeft.pnlFile.cdUpLevel;
|
|
|
+ if Caption = '~' then
|
|
|
+ FrameLeft.pnlFile.ActiveDir := GetHomeDir;
|
|
|
+ end;
|
|
|
+ FrameLeft.pnlFile.LoadPanel;
|
|
|
+
|
|
|
+ SetActiveFrame(fpLeft);
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.btnRightClick(Sender: TObject);
|
|
|
+begin
|
|
|
+ with Sender as TSpeedButton do
|
|
|
+ begin
|
|
|
+ if Caption = '/' then
|
|
|
+ FrameRight.pnlFile.ActiveDir := ExtractFileDrive(FrameRight.pnlFile.ActiveDir);
|
|
|
+ if Caption = '..' then
|
|
|
+ FrameRight.pnlFile.cdUpLevel;
|
|
|
+ if Caption = '~' then
|
|
|
+ FrameRight.pnlFile.ActiveDir := GetHomeDir;
|
|
|
+ end;
|
|
|
+ FrameRight.pnlFile.LoadPanel;
|
|
|
+
|
|
|
+ SetActiveFrame(fpRight);
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actExtractFilesExecute(Sender: TObject);
|
|
|
+var
|
|
|
+ fl : TFileList;
|
|
|
+begin
|
|
|
+ fl:=TFileList.Create;
|
|
|
+ with ActiveFrame do
|
|
|
+ begin
|
|
|
+ SelectFileIfNoSelected(GetActiveItem);
|
|
|
+ CopyListSelectedExpandNames(pnlFile.FileList,fl,ActiveDir);
|
|
|
+
|
|
|
+ fl.CurrentDirectory := ActiveDir;
|
|
|
+ end;
|
|
|
+ try
|
|
|
+ ShowExtractDlg(ActiveFrame, fl, NotActiveFrame.ActiveDir);
|
|
|
+ finally
|
|
|
+ frameLeft.RefreshPanel;
|
|
|
+ frameRight.RefreshPanel;
|
|
|
+ end;
|
|
|
+
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actFocusCmdLineExecute(Sender: TObject);
|
|
|
+begin
|
|
|
+ edtCommand.SetFocus;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actAddPathToCmdLineExecute(Sender: TObject);
|
|
|
+begin
|
|
|
+ with ActiveFrame do
|
|
|
+ begin
|
|
|
+ edtCmdLine.Text := edtCmdLine.Text + (pnlFile.ActiveDir);
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actContextMenuExecute(Sender: TObject);
|
|
|
+var
|
|
|
+ pfri : PFileRecItem;
|
|
|
+begin
|
|
|
+ pfri := ActiveFrame.GetActiveItem;
|
|
|
+ pfri^.sPath := ActiveFrame.ActiveDir;
|
|
|
+ ShowContextMenu(Handle, pfri, Mouse.CursorPos.x, Mouse.CursorPos.y);
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actLeftOpenDrivesExecute(Sender: TObject);
|
|
|
+var
|
|
|
+ p : TPoint;
|
|
|
+begin
|
|
|
+ pmDrivesMenu.Tag := 0; // indicate that is left panel menu
|
|
|
+ p := Classes.Point(btnLeftDrive.Left,btnLeftDrive.Height);
|
|
|
+ p := pnlLeftTools.ClientToScreen(p);
|
|
|
+ pmDrivesMenu.Items[dskLeft.Tag].Checked := True;
|
|
|
+ pmDrivesMenu.PopUp(p.x, p.y);
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actOpenVFSListExecute(Sender: TObject);
|
|
|
+begin
|
|
|
+ ActiveFrame.pnlFile.LoadVFSListInPanel;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.FormDestroy(Sender: TObject);
|
|
|
+begin
|
|
|
+ DebugLn('frmMain.Destroy');
|
|
|
+ edtCommand.Items.SaveToFile(gpIniDir+cHistoryFile);
|
|
|
+ {*Tool Bar*}
|
|
|
+ MainToolBar.SaveToFile(gpIniDir + 'default.bar');
|
|
|
+ {*Tool Bar*}
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.lblDriveInfoDblClick(Sender: TObject);
|
|
|
+begin
|
|
|
+ if (Sender as TLabel).Name = 'lblRightDriveInfo' then
|
|
|
+ SetActiveFrame(fpRight)
|
|
|
+ else if (Sender as TLabel).Name = 'lblLeftDriveInfo' then
|
|
|
+ SetActiveFrame(fpLeft);
|
|
|
+ actDirHotList.Execute;
|
|
|
+end;
|
|
|
+
|
|
|
+function TfrmMain.MainToolBarLoadButtonGlyph(sIconFileName: String;
|
|
|
+ iIconSize: Integer; clBackColor: TColor): TBitmap;
|
|
|
+begin
|
|
|
+ Result := LoadBitmapFromFile(sIconFileName, iIconSize, clBackColor);
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.DeleteClick(Sender: TObject);
|
|
|
+begin
|
|
|
+if pmToolBar.Tag >= 0 then
|
|
|
+ begin
|
|
|
+ if msgYesNo('You really want delete button?') then
|
|
|
+ begin
|
|
|
+ MainToolBar.RemoveButton (pmToolBar.Tag);
|
|
|
+ MainToolBar.SaveToFile(gpIniDir + 'default.bar');
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.dskRightChangeLineCount(AddSize: Integer);
|
|
|
+begin
|
|
|
+ pnlSyncSize.Height := pnlSyncSize.Height + AddSize;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.dskToolButtonClick(Sender: TObject; NumberOfButton: Integer);
|
|
|
+var
|
|
|
+ Command : String;
|
|
|
+ dskPanel : TKASToolBar;
|
|
|
+ FrameFilePanel : TFrameFilePanel;
|
|
|
+ btnDrive : TSpeedButton;
|
|
|
+begin
|
|
|
+ dskPanel := (Sender as TKASToolBar);
|
|
|
+
|
|
|
+ if (dskPanel.Align = alLeft) or (not gDriveBar2 and (PanelSelected = fpLeft)) then
|
|
|
+ begin
|
|
|
+ FrameFilePanel := FrameLeft;
|
|
|
+ btnDrive := btnLeftDrive;
|
|
|
+ PanelSelected := fpLeft;
|
|
|
+ end
|
|
|
+ else
|
|
|
+ begin
|
|
|
+ FrameFilePanel := FrameRight;
|
|
|
+ btnDrive := btnRightDrive;
|
|
|
+ PanelSelected := fpRight;
|
|
|
+ end;
|
|
|
+
|
|
|
+
|
|
|
+ if dskPanel.Buttons[NumberOfButton].GroupIndex = 0 then
|
|
|
+ begin
|
|
|
+ Command := dskPanel.Commands[NumberOfButton];
|
|
|
+ if Command = '/' then
|
|
|
+ FrameFilePanel.pnlFile.ActiveDir := ExtractFileDrive(FrameFilePanel.pnlFile.ActiveDir);
|
|
|
+ if Command = '..' then
|
|
|
+ FrameFilePanel.pnlFile.cdUpLevel;
|
|
|
+ if Command = '~' then
|
|
|
+ FrameFilePanel.pnlFile.ActiveDir := GetHomeDir;
|
|
|
+ end
|
|
|
+ else
|
|
|
+ begin
|
|
|
+ if IsAvailable(dskPanel.Commands[NumberOfButton]) then
|
|
|
+ begin
|
|
|
+ FrameFilePanel.pnlFile.ActiveDir := dskPanel.Commands[NumberOfButton];
|
|
|
+ dskPanel.Tag := NumberOfButton;
|
|
|
+ if gDriveMenuButton then // if show drive button
|
|
|
+ begin
|
|
|
+ btnDrive.Glyph := PixMapManager.GetDriveIcon(PDrive(DrivesList[NumberOfButton]), btnDrive.Height - 4, btnDrive.Color);
|
|
|
+ btnDrive.Caption := dskRight.Buttons[NumberOfButton].Caption;
|
|
|
+ end;
|
|
|
+ end
|
|
|
+ else
|
|
|
+ begin
|
|
|
+ dskPanel.Buttons[dskPanel.Tag].Down := True;
|
|
|
+ msgOK(rsMsgDiskNotAvail);
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+ FrameFilePanel.pnlFile.LoadPanel;
|
|
|
+
|
|
|
+ SetActiveFrame(PanelSelected);
|
|
|
+end;
|
|
|
+
|
|
|
+
|
|
|
+procedure TfrmMain.MainToolBarMouseDown(Sender: TOBject; Button: TMouseButton;
|
|
|
+ Shift: TShiftState; X, Y: Integer);
|
|
|
+var
|
|
|
+Point : TPoint;
|
|
|
+begin
|
|
|
+if (Button = mbRight) then
|
|
|
+ begin
|
|
|
+ Point := Mouse.CursorPos;
|
|
|
+ if (Sender is TSpeedButton) then
|
|
|
+ begin
|
|
|
+ pmToolBar.Tag := (Sender as TSpeedButton).Tag;
|
|
|
+ tbDelete.Enabled := true;
|
|
|
+ end
|
|
|
+ else
|
|
|
+ begin
|
|
|
+ pmToolBar.Tag := -1;
|
|
|
+ tbDelete.Enabled := false;
|
|
|
+ end;
|
|
|
+
|
|
|
+ pmToolBar.PopUp(Point.X, Point.Y);
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.MainToolBarToolButtonClick(Sender: TObject; NumberOfButton : Integer);
|
|
|
+begin
|
|
|
+ ExecCmd(MainToolBar.Commands[NumberOfButton]);
|
|
|
+ DebugLn(MainToolBar.Commands[NumberOfButton]);
|
|
|
+end;
|
|
|
+
|
|
|
+
|
|
|
+procedure TfrmMain.actExitExecute(Sender: TObject);
|
|
|
+begin
|
|
|
+ Application.Terminate;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actNewTabExecute(Sender: TObject);
|
|
|
+begin
|
|
|
+ case PanelSelected of
|
|
|
+ fpLeft:
|
|
|
+ CreatePanel(AddPage(nbLeft), fpLeft, ActiveFrame.ActiveDir);
|
|
|
+ fpRight:
|
|
|
+ CreatePanel(AddPage(nbRight), fpRight, ActiveFrame.ActiveDir);
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actRemoveTabExecute(Sender: TObject);
|
|
|
+begin
|
|
|
+ case PanelSelected of
|
|
|
+ fpLeft:
|
|
|
+ RemovePage(nbLeft, nbLeft.PageIndex);
|
|
|
+ fpRight:
|
|
|
+ RemovePage(nbRight, nbRight.PageIndex);
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.frmMainClose(Sender: TObject; var CloseAction: TCloseAction);
|
|
|
+var
|
|
|
+ x:Integer;
|
|
|
+begin
|
|
|
+ for x:=0 to 4 do
|
|
|
+ gColumnSize[x]:=FrameLeft.dgPanel.ColWidths[x];
|
|
|
+
|
|
|
+ (* Save all tabs *)
|
|
|
+ SaveTabs(nbLeft);
|
|
|
+ SaveTabs(nbRight);
|
|
|
+
|
|
|
+ gIni.WriteInteger('Configuration', 'Main.Left', Left);
|
|
|
+ gIni.WriteInteger('Configuration', 'Main.Top', Top);
|
|
|
+ gIni.WriteInteger('Configuration', 'Main.Width', Width);
|
|
|
+ gIni.WriteInteger('Configuration', 'Main.Height', Height);
|
|
|
+ gIni.WriteBool('Configuration', 'maximized', (WindowState = wsMaximized));
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.frmMainKeyUp(Sender: TObject; var Key: Word;
|
|
|
+ Shift: TShiftState);
|
|
|
+begin
|
|
|
+//
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.frmMainShow(Sender: TObject);
|
|
|
+var
|
|
|
+ I : Integer;
|
|
|
+begin
|
|
|
+ DebugLn('frmMainShow');
|
|
|
+ (* If panels already created then refresh their and exit *)
|
|
|
+ if IsPanelsCreated then
|
|
|
+ begin
|
|
|
+ FrameLeft.RefreshPanel;
|
|
|
+ FrameRight.RefreshPanel;
|
|
|
+ Exit;
|
|
|
+ end;
|
|
|
+
|
|
|
+
|
|
|
+ Left := gIni.ReadInteger('Configuration', 'Main.Left', Left);
|
|
|
+ Top := gIni.ReadInteger('Configuration', 'Main.Top', Top);
|
|
|
+ Width := gIni.ReadInteger('Configuration', 'Main.Width', Width);
|
|
|
+ Height := gIni.ReadInteger('Configuration', 'Main.Height', Height);
|
|
|
+ if gIni.ReadBool('Configuration', 'maximized', True) then
|
|
|
+ Self.WindowState := wsMaximized;
|
|
|
+
|
|
|
+
|
|
|
+ LoadTabs(nbLeft);
|
|
|
+ LoadTabs(nbRight);
|
|
|
+
|
|
|
+ nbLeft.Options:=[nboShowCloseButtons];
|
|
|
+ nbRight.Options:=[nboShowCloseButtons];
|
|
|
+ actShowSysFiles.Checked:=uGlobs.gShowSystemFiles;
|
|
|
+
|
|
|
+ PanelSelected:=fpLeft;
|
|
|
+
|
|
|
+ SetActiveFrame(fpLeft);
|
|
|
+
|
|
|
+ pnlNotebooks.Width:=Width div 2;
|
|
|
+
|
|
|
+ //DebugLN('dskLeft.Width == ' + IntToStr(dskLeft.Width));
|
|
|
+ //DebugLN('dskRight.Width == ' + IntToStr(dskRight.Width));
|
|
|
+ DrivesList := GetAllDrives;
|
|
|
+
|
|
|
+ CreateDrivesMenu;
|
|
|
+
|
|
|
+ (*Create Disk Panels*)
|
|
|
+ dskLeft.Visible := gDriveBar2;
|
|
|
+ if gDriveBar2 then
|
|
|
+ CreateDiskPanel(dskLeft);
|
|
|
+
|
|
|
+ dskRight.Visible := gDriveBar1;
|
|
|
+ if gDriveBar1 then
|
|
|
+ CreateDiskPanel(dskRight);
|
|
|
+
|
|
|
+ pnlSyncSize.Visible := gDriveBar1;
|
|
|
+ (*/Create Disk Panels*)
|
|
|
+
|
|
|
+ (*Tool Bar*)
|
|
|
+ if gButtonBar then
|
|
|
+ begin
|
|
|
+ MainToolBar.FlatButtons := gToolBarFlat;
|
|
|
+ MainToolBar.ButtonGlyphSize := gToolBarIconSize;
|
|
|
+ MainToolBar.ChangePath := gpExePath;
|
|
|
+ MainToolBar.EnvVar := '%commander_path%';
|
|
|
+ MainToolBar.LoadFromFile(gpIniDir + 'default.bar');
|
|
|
+ end;
|
|
|
+ (*Tool Bar*)
|
|
|
+
|
|
|
+ LoadShortCuts;
|
|
|
+
|
|
|
+ {Load some options from layout page}
|
|
|
+
|
|
|
+ for I := 0 to pnlKeys.ControlCount - 1 do // function keys
|
|
|
+ if pnlKeys.Controls[I] is TSpeedButton then
|
|
|
+ (pnlKeys.Controls[I] as TSpeedButton).Flat := gInterfaceFlat;
|
|
|
+
|
|
|
+ MainToolBar.Visible := gButtonBar;
|
|
|
+
|
|
|
+ btnLeftDrive.Visible := gDriveMenuButton;
|
|
|
+ btnLeftDrive.Flat := gInterfaceFlat;
|
|
|
+ btnLeftRoot.Visible := gDriveMenuButton;
|
|
|
+ btnLeftRoot.Flat := gInterfaceFlat;
|
|
|
+ btnLeftUp.Visible := gDriveMenuButton;
|
|
|
+ btnLeftUp.Flat := gInterfaceFlat;
|
|
|
+ btnLeftHome.Visible := gDriveMenuButton;
|
|
|
+ btnLeftHome.Flat := gInterfaceFlat;
|
|
|
+
|
|
|
+ btnRightDrive.Visible := gDriveMenuButton;
|
|
|
+ btnRightDrive.Flat := gInterfaceFlat;
|
|
|
+ btnRightRoot.Visible := gDriveMenuButton;
|
|
|
+ btnRightRoot.Flat := gInterfaceFlat;
|
|
|
+ btnRightUp.Visible := gDriveMenuButton;
|
|
|
+ btnRightUp.Flat := gInterfaceFlat;
|
|
|
+ btnRightHome.Visible := gDriveMenuButton;;
|
|
|
+ btnRightHome.Flat := gInterfaceFlat;
|
|
|
+
|
|
|
+ pnlCommand.Visible := gCmdLine;
|
|
|
+ pnlKeys.Visible := gKeyButtons;
|
|
|
+ nbLeft.ShowTabs := gDirectoryTabs;
|
|
|
+ nbRight.ShowTabs := gDirectoryTabs;
|
|
|
+
|
|
|
+ IsPanelsCreated := True;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.mnuHelpClick(Sender: TObject);
|
|
|
+begin
|
|
|
+
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.nbPageChanged(Sender: TObject);
|
|
|
+begin
|
|
|
+ with Sender as TNoteBook do
|
|
|
+ begin
|
|
|
+ if (Hint = 'Left') and (FrameLeft <> nil) then
|
|
|
+ FrameLeft.pnlFile.UpdatePrompt;
|
|
|
+ if (Hint = 'Right') and (FrameRight <> nil) then
|
|
|
+ FrameRight.pnlFile.UpdatePrompt;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.NoteBookCloseTabClicked(Sender: TObject);
|
|
|
+begin
|
|
|
+ With (Sender As TPage) do
|
|
|
+ begin
|
|
|
+ RemovePage(Parent as TNoteBook, PageIndex);
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.pnlKeysResize(Sender: TObject);
|
|
|
+var
|
|
|
+ iWidth:Integer;
|
|
|
+begin
|
|
|
+ iWidth:=pnlKeys.Width div 8;
|
|
|
+ btnF3.Left:=1;
|
|
|
+ btnF3.Width:=iWidth;
|
|
|
+
|
|
|
+ btnF4.Left:=btnF3.Left+btnF3.Width;
|
|
|
+ btnF4.Width:=iWidth;
|
|
|
+
|
|
|
+ btnF5.Left:=btnF4.Left+btnF4.Width;
|
|
|
+ btnF5.Width:=iWidth;
|
|
|
+
|
|
|
+ btnF6.Left:=btnF5.Left+btnF5.Width;
|
|
|
+ btnF6.Width:=iWidth;
|
|
|
+
|
|
|
+ btnF7.Left:=btnF6.Left+btnF6.Width;
|
|
|
+ btnF7.Width:=iWidth;
|
|
|
+
|
|
|
+ btnF8.Left:=btnF7.Left+btnF7.Width;
|
|
|
+ btnF8.Width:=iWidth;
|
|
|
+
|
|
|
+ btnF9.Left:=btnF8.Left+btnF8.Width;
|
|
|
+ btnF9.Width:=iWidth;
|
|
|
+
|
|
|
+ btnF10.Left:=btnF9.Left+btnF9.Width;
|
|
|
+ btnF10.Width:=iWidth;
|
|
|
+
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actViewExecute(Sender: TObject);
|
|
|
+var
|
|
|
+ sl:TStringList;
|
|
|
+ i:Integer;
|
|
|
+ fr:PFileRecItem;
|
|
|
+ VFSFileList : TFileList;
|
|
|
+ sTempDir : String;
|
|
|
+begin
|
|
|
+ with ActiveFrame do
|
|
|
+ begin
|
|
|
+ SelectFileIfNoSelected(GetActiveItem);
|
|
|
+ sl:=TStringList.Create;
|
|
|
+ try
|
|
|
+ for i:=0 to pnlFile.FileList.Count-1 do
|
|
|
+ begin
|
|
|
+ fr:=pnlFile.GetFileItemPtr(i);
|
|
|
+ if fr^.bSelected and not (FPS_ISDIR(fr^.iMode)) then
|
|
|
+ begin
|
|
|
+ (* If in Virtual File System *)
|
|
|
+ if pnlFile.PanelMode in [pmArchive, pmVFS] then
|
|
|
+ begin
|
|
|
+ VFSFileList := TFileList.Create;
|
|
|
+ VFSFileList.CurrentDirectory := ActiveDir;
|
|
|
+ fr^.sName := ActiveDir + fr^.sName;
|
|
|
+ VFSFileList.AddItem(fr);
|
|
|
+ sTempDir := GetTempDir;
|
|
|
+ {if }pnlFile.VFS.VFSmodule.VFSCopyOut(VFSFileList, sTempDir, 0);{ then}
|
|
|
+ begin
|
|
|
+ sl.Add(sTempDir + ExtractDirLevel(ActiveDir, fr^.sName));
|
|
|
+ ShowViewerByGlobList(sl, True);
|
|
|
+ Exit;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+ sl.Add(ActiveDir+fr^.sName);
|
|
|
+ DebugLn('View.Add:',ActiveDir+fr^.sName);
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+ if sl.Count>0 then
|
|
|
+ ShowViewerByGlobList(sl)
|
|
|
+ else
|
|
|
+ begin
|
|
|
+ fr := pnlFile.GetActiveItem;
|
|
|
+ if FPS_ISDIR(fr^.iMode) then
|
|
|
+ begin
|
|
|
+ Screen.Cursor:=crHourGlass;
|
|
|
+ try
|
|
|
+ pnlFile.ChooseFile(fr);
|
|
|
+ UpDatelblInfo;
|
|
|
+ finally
|
|
|
+ dgPanel.Invalidate;
|
|
|
+ Screen.Cursor:=crDefault;
|
|
|
+ end;
|
|
|
+ end
|
|
|
+ end;
|
|
|
+ finally
|
|
|
+ if pnlFile.PanelMode = pmDirectory then
|
|
|
+ FreeAndNil(sl);
|
|
|
+ ActiveFrame.UnMarkAll;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actEditExecute(Sender: TObject);
|
|
|
+var
|
|
|
+// sl:TStringList;
|
|
|
+ i:Integer;
|
|
|
+ fr:PFileRecItem;
|
|
|
+begin
|
|
|
+ with ActiveFrame do
|
|
|
+ begin
|
|
|
+ SelectFileIfNoSelected(GetActiveItem);
|
|
|
+ try
|
|
|
+ // in this time we only one file process
|
|
|
+ for i:=0 to pnlFile.FileList.Count-1 do
|
|
|
+ begin
|
|
|
+ fr:=pnlFile.GetFileItemPtr(i);
|
|
|
+ if fr^.bSelected and not (FPS_ISDIR(fr^.iMode)) then
|
|
|
+ begin
|
|
|
+ ShowEditorByGlob(ActiveDir+fr^.sName);
|
|
|
+ Break;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+ finally
|
|
|
+ ActiveFrame.UnMarkAll;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actCopyExecute(Sender: TObject);
|
|
|
+begin
|
|
|
+ CopyFile(NotActiveFrame.ActiveDir);
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actRenameExecute(Sender: TObject);
|
|
|
+begin
|
|
|
+ RenameFile(NotActiveFrame.ActiveDir);
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actMakeDirExecute(Sender: TObject);
|
|
|
+var
|
|
|
+ sPath:String;
|
|
|
+begin
|
|
|
+ with ActiveFrame do
|
|
|
+ begin
|
|
|
+ try
|
|
|
+ sPath:=ActiveDir;
|
|
|
+ if not ShowMkDir(sPath) then Exit;
|
|
|
+ if (sPath='') then Exit;
|
|
|
+
|
|
|
+ { Create directory in VFS }
|
|
|
+ if ActiveFrame.pnlFile.PanelMode in [pmArchive, pmVFS] then
|
|
|
+ begin
|
|
|
+ DebugLN('+++ Create directory in VFS +++');
|
|
|
+ ActiveFrame.pnlFile.VFS.VFSmodule.VFSMkDir(ActiveDir + sPath);
|
|
|
+ ActiveFrame.RefreshPanel;
|
|
|
+ end
|
|
|
+ else
|
|
|
+ { /Create directory in VFS }
|
|
|
+
|
|
|
+ if (DirectoryExists(ActiveDir+sPath)) then
|
|
|
+ begin
|
|
|
+ msgError(Format(rsMsgErrDirExists,[ActiveDir+sPath]));
|
|
|
+ pnlFile.LastActive:=sPath;
|
|
|
+ pnlFile.LoadPanel;
|
|
|
+ end
|
|
|
+ else
|
|
|
+ begin
|
|
|
+ if not ForceDirectory(ActiveDir+sPath) then
|
|
|
+ msgError(Format(rsMsgErrForceDir,[ActiveDir+sPath]))
|
|
|
+ else
|
|
|
+ begin
|
|
|
+ pnlFile.LastActive:=sPath;
|
|
|
+ pnlFile.LoadPanel;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+ finally
|
|
|
+ ActiveFrame.SetFocus;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actDeleteExecute(Sender: TObject);
|
|
|
+var
|
|
|
+ fl:TFileList;
|
|
|
+ DT : TDeleteThread;
|
|
|
+begin
|
|
|
+ with ActiveFrame do
|
|
|
+ SelectFileIfNoSelected(GetActiveItem);
|
|
|
+
|
|
|
+ case msgYesNoCancel(GetFileDlgStr(rsMsgDelSel,rsMsgDelFlDr)) of
|
|
|
+ mmrNo:
|
|
|
+ begin
|
|
|
+ ActiveFrame.UnMarkAll;
|
|
|
+ Exit;
|
|
|
+ end;
|
|
|
+ mmrCancel:
|
|
|
+ begin
|
|
|
+ Exit;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+
|
|
|
+ fl:=TFileList.Create; // free at Thread end by thread
|
|
|
+ try
|
|
|
+ CopyListSelectedExpandNames(ActiveFrame.pnlFile.FileList,fl,ActiveFrame.ActiveDir);
|
|
|
+
|
|
|
+
|
|
|
+ (* Delete files from archive *)
|
|
|
+ if ActiveFrame.pnlFile.PanelMode in [pmArchive, pmVFS] then
|
|
|
+ begin
|
|
|
+ DebugLN('+++ Delete files +++');
|
|
|
+ ActiveFrame.pnlFile.VFS.VFSmodule.VFSDelete(fl);
|
|
|
+ end
|
|
|
+ else
|
|
|
+ (* Delete files *)
|
|
|
+ begin
|
|
|
+ if not Assigned(frmFileOp) then
|
|
|
+ frmFileOp:= TfrmFileOp.Create(Application);
|
|
|
+ try
|
|
|
+ DT := TDeleteThread.Create(fl);
|
|
|
+ DT.FFileOpDlg := frmFileOp;
|
|
|
+ DT.sDstPath:=NotActiveFrame.ActiveDir;
|
|
|
+ //DT.sDstMask:=sDstMaskTemp;
|
|
|
+ frmFileOp.Thread := TThread(DT);
|
|
|
+ frmFileOp.Show;
|
|
|
+ DT.Resume;
|
|
|
+ except
|
|
|
+ DT.Free;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+
|
|
|
+ except
|
|
|
+ FreeAndNil(frmFileOp);
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.FormResize(Sender: TObject);
|
|
|
+begin
|
|
|
+ pnlLeft.Width:= (frmMain.Width div 2) - (MainSplitter.Width div 2);
|
|
|
+
|
|
|
+ //DebugLN('pnlDisk.Width == ' + IntToStr(pnlDisk.Width));
|
|
|
+
|
|
|
+ { Synchronize width of left and right disk panels }
|
|
|
+
|
|
|
+ pnlDisk.Width := pnlSyncSize.Width - (pnlSyncSize.Width mod 2);
|
|
|
+
|
|
|
+ dskLeft.Width := (pnlDisk.Width div 2) - pnlDisk.BevelWidth;
|
|
|
+
|
|
|
+ //DebugLN('dskLeft.Width == ' + IntToStr(dskLeft.Width));
|
|
|
+ //DebugLN('dskRight.Width == ' + IntToStr(dskRight.Width));
|
|
|
+
|
|
|
+ dskLeft.Repaint;
|
|
|
+ dskRight.Repaint;
|
|
|
+End;
|
|
|
+
|
|
|
+procedure TfrmMain.actAboutExecute(Sender: TObject);
|
|
|
+begin
|
|
|
+ ShowAboutBox;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actShowSysFilesExecute(Sender: TObject);
|
|
|
+begin
|
|
|
+ uGlobs.gShowSystemFiles:=not uGlobs.gShowSystemFiles;
|
|
|
+ actShowSysFiles.Checked:=uGlobs.gShowSystemFiles;
|
|
|
+// we don't want any not visited files selected
|
|
|
+ if not uGlobs.gShowSystemFiles then
|
|
|
+ begin
|
|
|
+ frameLeft.pnlFile.MarkAllFiles(False);
|
|
|
+ frameRight.pnlFile.MarkAllFiles(False);
|
|
|
+ end;
|
|
|
+//repaint both panels
|
|
|
+ FrameLeft.pnlFile.UpdatePanel;
|
|
|
+ FrameRight.pnlFile.UpdatePanel;
|
|
|
+end;
|
|
|
+
|
|
|
+function TfrmMain.HandleActionHotKeys(var Key: Word; Shift: TShiftState):Boolean; // handled
|
|
|
+var
|
|
|
+ pfri : PFileRecItem;
|
|
|
+begin
|
|
|
+ Result:=True;
|
|
|
+ if Shift=[] then
|
|
|
+ begin
|
|
|
+ case Key of
|
|
|
+ VK_F8, VK_DELETE:
|
|
|
+ begin
|
|
|
+{ Key:=0;
|
|
|
+ ActiveFrame.ClearCmdLine; // hack delete key
|
|
|
+}
|
|
|
+ if (not edtCommand.Focused) or (Key = VK_F8) then
|
|
|
+ begin
|
|
|
+ actDelete.Execute;
|
|
|
+ Exit;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+
|
|
|
+
|
|
|
+ VK_APPS:
|
|
|
+ begin
|
|
|
+ actContextMenu.Execute;
|
|
|
+ Exit;
|
|
|
+ end;
|
|
|
+
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+ if (Key=VK_Return) or (Key=VK_SELECT) then
|
|
|
+ begin
|
|
|
+ Key:=0;
|
|
|
+ with ActiveFrame do
|
|
|
+ begin
|
|
|
+ if Shift=[] then
|
|
|
+ begin
|
|
|
+ if (edtCommand.Text='') then
|
|
|
+ begin
|
|
|
+ Screen.Cursor:=crHourGlass;
|
|
|
+ try
|
|
|
+ pnlFile.ChooseFile(pnlFile.GetActiveItem);
|
|
|
+ UpDatelblInfo;
|
|
|
+ finally
|
|
|
+ dgPanel.Invalidate;
|
|
|
+ Screen.Cursor:=crDefault;
|
|
|
+ end;
|
|
|
+ Exit;
|
|
|
+ end
|
|
|
+ else
|
|
|
+ begin
|
|
|
+ // execute command line
|
|
|
+ ChDir(ActiveDir);
|
|
|
+ ExecuteCommandFromEdit(edtCommand.Text);
|
|
|
+ ClearCmdLine;
|
|
|
+ RefreshPanel;
|
|
|
+ Exit;
|
|
|
+ end;
|
|
|
+ end; //Shift=[]
|
|
|
+
|
|
|
+ // execute active file in terminal (Shift+Enter)
|
|
|
+ if Shift=[ssShift] then
|
|
|
+ begin
|
|
|
+ Chdir(ActiveDir);
|
|
|
+ pnlFile.ExecuteFile(pnlFile.GetActiveItem^.sName, True);
|
|
|
+ Exit;
|
|
|
+ end;
|
|
|
+ // alt enter
|
|
|
+ if Shift=[ssCtrl] then
|
|
|
+ begin
|
|
|
+ edtCmdLine.Text:=edtCmdLine.Text+pnlFile.GetActiveItem^.sName+' ';
|
|
|
+ Exit;
|
|
|
+ end;
|
|
|
+ // ctrl+shift+enter
|
|
|
+ if Shift=[ssShift,ssCtrl] then
|
|
|
+ begin
|
|
|
+ if (pnlFile.GetActiveItem^.sName = '..') then
|
|
|
+ begin
|
|
|
+ edtCmdLine.Text:=edtCmdLine.Text+(pnlFile.ActiveDir) + ' ';
|
|
|
+ end
|
|
|
+ else
|
|
|
+ begin
|
|
|
+ edtCmdLine.Text:=edtCmdLine.Text+(pnlFile.ActiveDir) + pnlFile.GetActiveItem^.sName+' ';
|
|
|
+ end;
|
|
|
+ Exit;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+ end; // handle ENTER with some modifier
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+ if Shift=[ssAlt] then
|
|
|
+ begin
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+ end;
|
|
|
+
|
|
|
+ if Shift=[ssShift] then
|
|
|
+ begin
|
|
|
+
|
|
|
+ {Kylix:
|
|
|
+ this strange: KEY_15 is at real KEY_5
|
|
|
+ and KEY_16 is a KEY_6, Why?
|
|
|
+ it's a bug or feature? :-(
|
|
|
+ }
|
|
|
+ if ((Key=VK_F4) {or (Key=VK_F14)}) then
|
|
|
+ begin
|
|
|
+ actEditNew.Execute;
|
|
|
+ Exit;
|
|
|
+ end;
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+ end;
|
|
|
+
|
|
|
+ if Shift=[ssCtrl] then
|
|
|
+ begin
|
|
|
+
|
|
|
+{
|
|
|
+ // handle Ctrl+Enter
|
|
|
+ if ((Key=VK_Return) or (Key=VK_SELECT)) and (edtCommand.Text='') then
|
|
|
+ begin
|
|
|
+ actCalculateSpace.Execute;
|
|
|
+ Exit;
|
|
|
+ end;
|
|
|
+}
|
|
|
+ // handle ctrl+right
|
|
|
+ if (Key=VK_Right) then
|
|
|
+ begin
|
|
|
+ if (PanelSelected = fpLeft) then
|
|
|
+ SetNotActFrmByActFrm;
|
|
|
+ Exit;
|
|
|
+ end;
|
|
|
+ // handle ctrl+left
|
|
|
+ if (Key=VK_Left) then
|
|
|
+ begin
|
|
|
+ if (PanelSelected = fpRight) then
|
|
|
+ SetNotActFrmByActFrm;
|
|
|
+ Exit;
|
|
|
+ end;
|
|
|
+
|
|
|
+
|
|
|
+ if (Key=VK_X) then
|
|
|
+ begin
|
|
|
+ if not edtCommand.Focused then
|
|
|
+ begin
|
|
|
+ actRunTerm.Execute;
|
|
|
+ Exit;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+
|
|
|
+ end;
|
|
|
+
|
|
|
+ // not handled
|
|
|
+ Result:=False;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actOptionsExecute(Sender: TObject);
|
|
|
+begin
|
|
|
+ inherited;
|
|
|
+ with TfrmOptions.Create(Application) do
|
|
|
+ begin
|
|
|
+ try
|
|
|
+ ShowModal;
|
|
|
+ finally
|
|
|
+ Free;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.FormKeyPress(Sender: TObject; var Key: Char);
|
|
|
+begin
|
|
|
+// DebugLn('KeyPress:',Key);
|
|
|
+ if Key=#27 then
|
|
|
+ ActiveFrame.ClearCmdLine;
|
|
|
+ if (ord(key)>31) and (ord(key)<255) then
|
|
|
+ begin
|
|
|
+ if ((Key='-') or (Key='*') or (Key='+') or (Key=' '))and (Trim(edtCommand.Text)='') then Exit;
|
|
|
+ if not edtCommand.Focused then
|
|
|
+ begin
|
|
|
+ edtCommand.SetFocus; // handle first char of command line specially
|
|
|
+ with ActiveFrame do
|
|
|
+ begin
|
|
|
+ edtCommand.Text:=edtCmdLine.Text+Key;
|
|
|
+ edtCommand.SelStart := Length(edtCommand.Text) + 1;
|
|
|
+ end;
|
|
|
+ Key:=#0;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+Function TfrmMain.ActiveFrame:TFrameFilePanel;
|
|
|
+begin
|
|
|
+
|
|
|
+ case PanelSelected of
|
|
|
+ fpLeft:
|
|
|
+ Result:=FrameLeft;
|
|
|
+ fpRight:
|
|
|
+ Result:=FrameRight;
|
|
|
+ else
|
|
|
+ assert(false,'Bad active frame');
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+Function TfrmMain.NotActiveFrame:TFrameFilePanel;
|
|
|
+begin
|
|
|
+ case PanelSelected of
|
|
|
+ fpRight: Result:=FrameLeft;
|
|
|
+ fpLeft: Result:=FrameRight;
|
|
|
+ else
|
|
|
+ assert(false,'Bad active frame');
|
|
|
+ Result:=FrameLeft;// only for compilator warning;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+function TfrmMain.FrameLeft: TFrameFilePanel;
|
|
|
+begin
|
|
|
+// DebugLn(nbLeft.Page[nbLeft.PageIndex].Components[0].ClassName);
|
|
|
+ Result:=TFrameFilePanel(nbLeft.Page[nbLeft.PageIndex].Components[0]);
|
|
|
+end;
|
|
|
+
|
|
|
+function TfrmMain.FrameRight: TFrameFilePanel;
|
|
|
+begin
|
|
|
+// DebugLn(nbRight.Page[nbRight.PageIndex].Components[0].ClassName);
|
|
|
+ Result:=TFrameFilePanel(nbRight.Page[nbRight.PageIndex].Components[0]);
|
|
|
+
|
|
|
+// Result:=TFrameFilePanel(nbRight.Page[0].Components[0]);
|
|
|
+
|
|
|
+end;
|
|
|
+
|
|
|
+Function TfrmMain.IsAltPanel:Boolean;
|
|
|
+begin
|
|
|
+ Result:= frameLeft.pnAltSearch.Visible or
|
|
|
+ FrameRight.pnAltSearch.Visible;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actCompareContentsExecute(Sender: TObject);
|
|
|
+var
|
|
|
+ sFile1, sFile2:String;
|
|
|
+begin
|
|
|
+ inherited;
|
|
|
+
|
|
|
+ with frameLeft do
|
|
|
+ begin
|
|
|
+ SelectFileIfNoSelected(GetActiveItem);
|
|
|
+ sFile1:=ActiveDir+pnlFile.GetActiveItem^.sName;
|
|
|
+ end; // frameLeft;
|
|
|
+
|
|
|
+ with frameRight do
|
|
|
+ begin
|
|
|
+ SelectFileIfNoSelected(GetActiveItem);
|
|
|
+ sFile2:=ActiveDir+pnlFile.GetActiveItem^.sName;
|
|
|
+ end; // frameright;
|
|
|
+ if gUseExtDiff then
|
|
|
+ begin
|
|
|
+ ExecCmdFork(Format(gExtDiff,[sFile1, sFile2]));
|
|
|
+ Exit;
|
|
|
+ end;
|
|
|
+ try
|
|
|
+ ShowCmpFiles(sFile1, sFile2);
|
|
|
+ finally
|
|
|
+ frameLeft.UnMarkAll;
|
|
|
+ FrameRight.UnMarkAll;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.AppException(Sender: TObject; E: Exception);
|
|
|
+begin
|
|
|
+ WriteLN(stdErr,'Exception:',E.Message);
|
|
|
+ WriteLN(stdErr,'Func:',BackTraceStrFunc(get_caller_frame(get_frame)));
|
|
|
+ Dump_Stack(StdErr, get_caller_frame(get_frame));
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actShowMenuExecute(Sender: TObject);
|
|
|
+begin
|
|
|
+ //gtk_menu_item_select(PGtkMenuItem(mnuFiles.Handle));
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actRefreshExecute(Sender: TObject);
|
|
|
+begin
|
|
|
+ inherited;
|
|
|
+ ActiveFrame.RefreshPanel;
|
|
|
+end;
|
|
|
+
|
|
|
+Function TfrmMain.GetFileDlgStr(sLngOne, sLngMulti:String):String;
|
|
|
+var
|
|
|
+ iSelCnt:Integer;
|
|
|
+begin
|
|
|
+ with ActiveFrame do
|
|
|
+ begin
|
|
|
+ SelectFileIfNoSelected(GetActiveItem);
|
|
|
+ iSelCnt:=pnlFile.GetSelectedCount;
|
|
|
+ if iSelCnt=0 then Abort;
|
|
|
+ if iSelCnt >1 then
|
|
|
+ Result:=Format(sLngMulti, [iSelCnt])
|
|
|
+ else
|
|
|
+ Result:=Format(sLngOne, [pnlFile.GetActiveItem^.sName])
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actMarkInvertExecute(Sender: TObject);
|
|
|
+begin
|
|
|
+ inherited;
|
|
|
+ ActiveFrame.InvertAllFiles;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actMarkMarkAllExecute(Sender: TObject);
|
|
|
+begin
|
|
|
+ inherited;
|
|
|
+ ActiveFrame.MarkAll;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actMarkUnmarkAllExecute(Sender: TObject);
|
|
|
+begin
|
|
|
+ inherited;
|
|
|
+ ActiveFrame.UnMarkAll;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actDirHotListExecute(Sender: TObject);
|
|
|
+var
|
|
|
+ p:TPoint;
|
|
|
+begin
|
|
|
+ inherited;
|
|
|
+ CreatePopUpHotDir;// TODO: i thing in future this must call on create or change
|
|
|
+ p:=ActiveFrame.dgPanel.ClientToScreen(Classes.Point(0,0));
|
|
|
+ pmHotList.Popup(p.X,p.Y);
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actSearchExecute(Sender: TObject);
|
|
|
+begin
|
|
|
+ inherited;
|
|
|
+ DebugLn('ShowFindDlg');
|
|
|
+ ShowFindDlg(ActiveFrame.ActiveDir);
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.miHotAddClick(Sender: TObject);
|
|
|
+begin
|
|
|
+ inherited;
|
|
|
+ glsHotDir.Add(ActiveFrame.ActiveDir);
|
|
|
+// pmHotList.Items.Add();
|
|
|
+// OnClick:=HotDirSelected;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.miHotDeleteClick(Sender: TObject);
|
|
|
+var i : integer;
|
|
|
+begin
|
|
|
+ i:= glsHotDir.IndexOf(ActiveFrame.ActiveDir);
|
|
|
+ if i > 0 then glsHotDir.Delete(i);
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.miHotConfClick(Sender: TObject);
|
|
|
+begin
|
|
|
+ inherited;
|
|
|
+ with TfrmHotDir.Create(Application) do
|
|
|
+ begin
|
|
|
+ try
|
|
|
+ LoadFromGlob;
|
|
|
+ ShowModal;
|
|
|
+ finally
|
|
|
+ Free;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.CreatePopUpDirHistory;
|
|
|
+var
|
|
|
+ mi:TMenuItem;
|
|
|
+ i:Integer;
|
|
|
+begin
|
|
|
+ pmDirHistory.Items.Clear;
|
|
|
+
|
|
|
+ // store only first gDirHistoryCount of DirHistory
|
|
|
+ for i:=glsDirHistory.Count-1 downto 0 do
|
|
|
+ if i>gDirHistoryCount then
|
|
|
+ glsDirHistory.Delete(i)
|
|
|
+ else
|
|
|
+ Break;
|
|
|
+
|
|
|
+ for i:=0 to glsDirHistory.Count-1 do
|
|
|
+ begin
|
|
|
+ mi:=TMenuItem.Create(pmDirHistory);
|
|
|
+ mi.Caption:=glsDirHistory.Strings[i];
|
|
|
+ mi.OnClick:=@HotDirSelected;
|
|
|
+ pmDirHistory.Items.Add(mi);
|
|
|
+ end;
|
|
|
+
|
|
|
+end;
|
|
|
+
|
|
|
+
|
|
|
+procedure TfrmMain.CreatePopUpHotDir;
|
|
|
+var
|
|
|
+ mi:TMenuItem;
|
|
|
+ i:Integer;
|
|
|
+begin
|
|
|
+ // Create All popup menu
|
|
|
+ pmHotList.Items.Clear;
|
|
|
+ for i:=0 to glsHotDir.Count-1 do
|
|
|
+ begin
|
|
|
+ mi:=TMenuItem.Create(pmHotList);
|
|
|
+ mi.Caption:=glsHotDir.Strings[i];
|
|
|
+ mi.OnClick:=@HotDirSelected;
|
|
|
+ pmHotList.Items.Add(mi);
|
|
|
+ end;
|
|
|
+ // now add delimiter
|
|
|
+ mi:=TMenuItem.Create(pmHotList);
|
|
|
+ mi.Caption:='-';
|
|
|
+ pmHotList.Items.Add(mi);
|
|
|
+ // now add ADD or DELETE item
|
|
|
+
|
|
|
+ mi:=TMenuItem.Create(pmHotList);
|
|
|
+ if glsHotDir.IndexOf(ActiveFrame.ActiveDir)>0 then
|
|
|
+ begin
|
|
|
+ mi.Caption:=Format(rsMsgPopUpHotDelete,[ActiveFrame.ActiveDir]);
|
|
|
+ mi.OnClick:=@miHotDeleteClick;
|
|
|
+ end
|
|
|
+ else
|
|
|
+ begin
|
|
|
+ mi.Caption:=Format(rsMsgPopUpHotAdd,[ActiveFrame.ActiveDir]);
|
|
|
+ mi.OnClick:=@miHotAddClick;
|
|
|
+ end;
|
|
|
+ pmHotList.Items.Add(mi);
|
|
|
+
|
|
|
+ // now add configure item
|
|
|
+ mi:=TMenuItem.Create(pmHotList);
|
|
|
+ mi.Caption:=rsMsgPopUpHotCnf;
|
|
|
+ mi.OnClick:=@miHotConfClick;
|
|
|
+ pmHotList.Items.Add(mi);
|
|
|
+// KeyPreview:=False;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.HotDirSelected(Sender:TObject);
|
|
|
+var
|
|
|
+ sDummy:String;
|
|
|
+begin
|
|
|
+ // this handler is used by HotDir and DirHistory
|
|
|
+ // must extract & from Caption
|
|
|
+ sDummy:=(Sender As TMenuItem).Caption;
|
|
|
+ SDummy:=StringReplace(sDummy,'&','',[rfReplaceAll]);
|
|
|
+ ActiveFrame.pnlFile.ActiveDir:=sDummy;
|
|
|
+ ActiveFrame.LoadPanel;
|
|
|
+
|
|
|
+ KeyPreview:=True;
|
|
|
+ with ActiveFrame.dgPanel do
|
|
|
+ begin
|
|
|
+ if RowCount>0 then
|
|
|
+ Row:=1;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actDelete2Execute(Sender: TObject);
|
|
|
+begin
|
|
|
+ inherited;
|
|
|
+ actDelete.Execute;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.edtCommandKeyUp(Sender: TObject; var Key: Word;
|
|
|
+ Shift: TShiftState);
|
|
|
+begin
|
|
|
+ inherited;
|
|
|
+ if (key=VK_Down) and (Shift=[ssCtrl]) and (edtCommand.Items.Count>0) then
|
|
|
+ begin
|
|
|
+ Key:=0;
|
|
|
+ edtCommand.DroppedDown:=True;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.CalculateSpace(bDisplayMessage:Boolean);
|
|
|
+var
|
|
|
+ fl:TFileList;
|
|
|
+ p:TFileRecItem;
|
|
|
+begin
|
|
|
+ fl:=TFileList.Create; // free at Thread end by thread
|
|
|
+ with ActiveFrame do
|
|
|
+ begin
|
|
|
+ p:=GetActiveItem^;
|
|
|
+ p.sNameNoExt:=p.sName; //dstname
|
|
|
+ p.sName:=ActiveDir+p.sName;
|
|
|
+ p.sPath:='';
|
|
|
+
|
|
|
+ fl.AddItem(@p);
|
|
|
+
|
|
|
+// CopyListSelectedExpandNames(pnlFile.FileList,fl,ActiveDir);
|
|
|
+ end;
|
|
|
+// sDstPathTemp:=NotActiveFrame.ActiveDir;
|
|
|
+ try
|
|
|
+ with TSpaceThread.Create(fl) do
|
|
|
+ begin
|
|
|
+ Screen.Cursor:=crHourGlass;
|
|
|
+ Resume;
|
|
|
+ WaitFor;
|
|
|
+ Screen.Cursor:=crDefault;
|
|
|
+
|
|
|
+ if (bDisplayMessage = True) then
|
|
|
+ ShowMessage(Format(rsSpaceMsg,[FilesCount, DirCount, FilesSize]));
|
|
|
+
|
|
|
+ with ActiveFrame.GetActiveItem^ do
|
|
|
+ begin
|
|
|
+ if (bDisplayMessage = False) then
|
|
|
+ iDirSize:=FilesSize;
|
|
|
+ ActiveFrame.pnlFile.LastActive:=sName;
|
|
|
+ end;
|
|
|
+ Free;
|
|
|
+ end;
|
|
|
+ finally
|
|
|
+ with ActiveFrame do
|
|
|
+ begin
|
|
|
+ Screen.Cursor:=crDefault;
|
|
|
+// UnMarkAll;
|
|
|
+ pnlFile.UpdatePanel;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+
|
|
|
+procedure TfrmMain.actMarkPlusExecute(Sender: TObject);
|
|
|
+begin
|
|
|
+ ActiveFrame.MarkPlus;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actMarkMinusExecute(Sender: TObject);
|
|
|
+begin
|
|
|
+ ActiveFrame.MarkMinus;
|
|
|
+end;
|
|
|
+
|
|
|
+
|
|
|
+procedure TfrmMain.actSymLinkExecute(Sender: TObject);
|
|
|
+var
|
|
|
+ sFile1, sFile2:String;
|
|
|
+begin
|
|
|
+ inherited;
|
|
|
+ try
|
|
|
+ with ActiveFrame do
|
|
|
+ begin
|
|
|
+ SelectFileIfNoSelected(GetActiveItem);
|
|
|
+ sFile2 := pnlFile.GetActiveItem^.sName;
|
|
|
+ sFile1 := ActiveDir + sFile2;
|
|
|
+ sFile2 := NotActiveFrame.ActiveDir + sFile2;
|
|
|
+ end;
|
|
|
+
|
|
|
+ ShowSymLinkForm(sFile1, sFile2);
|
|
|
+
|
|
|
+ finally
|
|
|
+ FrameLeft.RefreshPanel;
|
|
|
+ FrameRight.RefreshPanel;
|
|
|
+ ActiveFrame.SetFocus;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actHardLinkExecute(Sender: TObject);
|
|
|
+var
|
|
|
+ sFile1, sFile2:String;
|
|
|
+begin
|
|
|
+ inherited;
|
|
|
+ try
|
|
|
+ with ActiveFrame do
|
|
|
+ begin
|
|
|
+ SelectFileIfNoSelected(GetActiveItem);
|
|
|
+ sFile2 := pnlFile.GetActiveItem^.sName;
|
|
|
+ sFile1 := ActiveDir + sFile2;
|
|
|
+ sFile2 := NotActiveFrame.ActiveDir + sFile2;
|
|
|
+ end;
|
|
|
+
|
|
|
+ ShowHardLinkForm(sFile1, sFile2);
|
|
|
+
|
|
|
+ finally
|
|
|
+ frameLeft.RefreshPanel;
|
|
|
+ FrameRight.RefreshPanel;
|
|
|
+ ActiveFrame.SetFocus;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actReverseOrderExecute(Sender: TObject);
|
|
|
+begin
|
|
|
+ inherited;
|
|
|
+ with ActiveFrame do
|
|
|
+ begin
|
|
|
+ pnlFile.SortDirection:= not pnlFile.SortDirection;
|
|
|
+ pnlFile.Sort;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actSortByNameExecute(Sender: TObject);
|
|
|
+begin
|
|
|
+ inherited;
|
|
|
+ with ActiveFrame do
|
|
|
+ begin
|
|
|
+ pnlFile.SortByCol(0);
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actSortByExtExecute(Sender: TObject);
|
|
|
+begin
|
|
|
+ inherited;
|
|
|
+ with ActiveFrame do
|
|
|
+ begin
|
|
|
+ pnlFile.SortByCol(1);
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actSortBySizeExecute(Sender: TObject);
|
|
|
+begin
|
|
|
+ inherited;
|
|
|
+ with ActiveFrame do
|
|
|
+ begin
|
|
|
+ pnlFile.SortByCol(2);
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actSortByDateExecute(Sender: TObject);
|
|
|
+begin
|
|
|
+ inherited;
|
|
|
+ with ActiveFrame do
|
|
|
+ begin
|
|
|
+ pnlFile.SortByCol(3);
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actSortByAttrExecute(Sender: TObject);
|
|
|
+begin
|
|
|
+ inherited;
|
|
|
+ with ActiveFrame do
|
|
|
+ begin
|
|
|
+ pnlFile.SortByCol(4);
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actMultiRenameExecute(Sender: TObject);
|
|
|
+var
|
|
|
+ sl:TStringList;
|
|
|
+ i:Integer;
|
|
|
+begin
|
|
|
+ with ActiveFrame do
|
|
|
+ begin
|
|
|
+ SelectFileIfNoSelected(GetActiveItem);
|
|
|
+
|
|
|
+ sl:=TStringList.Create;
|
|
|
+ try
|
|
|
+ for i:=0 to pnlFile.FileList.Count-1 do
|
|
|
+ if pnlFile.GetFileItem(i).bSelected then
|
|
|
+ sl.Add(ActiveDir+pnlFile.GetFileItem(i).sName);
|
|
|
+ if sl.Count>0 then
|
|
|
+ ShowMultiRenameForm(sl);
|
|
|
+ finally
|
|
|
+ FreeAndNil(sl);
|
|
|
+ FrameLeft.RefreshPanel;
|
|
|
+ FrameRight.RefreshPanel;
|
|
|
+ ActiveFrame.SetFocus;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.RenameFile(sDestPath:String);
|
|
|
+var
|
|
|
+ fl:TFileList;
|
|
|
+ sDstMaskTemp:String;
|
|
|
+ sCopyQuest:String;
|
|
|
+ MT : TMoveThread;
|
|
|
+begin
|
|
|
+ fl:=TFileList.Create; // free at Thread end by thread
|
|
|
+ sCopyQuest:=GetFileDlgStr(rsMsgRenSel, rsMsgRenFlDr);
|
|
|
+ CopyListSelectedExpandNames(ActiveFrame.pnlFile.FileList,fl,ActiveFrame.ActiveDir);
|
|
|
+
|
|
|
+
|
|
|
+ if (ActiveFrame.pnlFile.GetSelectedCount=1) then
|
|
|
+ begin
|
|
|
+ if sDestPath='' then
|
|
|
+ begin
|
|
|
+ ShowRenameFileEdit(ActiveFrame.pnlFile.GetActiveItem^.sName);
|
|
|
+ Exit;
|
|
|
+ end
|
|
|
+ else
|
|
|
+ begin
|
|
|
+ if FPS_ISDIR(ActiveFrame.pnlFile.GetActiveItem^.iMode) then
|
|
|
+ sDestPath:=sDestPath+'*.*'
|
|
|
+ else
|
|
|
+ sDestPath:=sDestPath+ActiveFrame.pnlFile.GetActiveItem^.sName;
|
|
|
+ end;
|
|
|
+ end
|
|
|
+ else
|
|
|
+ sDestPath:=sDestPath+'*.*';
|
|
|
+ with TfrmMoveDlg.Create(Application) do
|
|
|
+ begin
|
|
|
+ try
|
|
|
+ edtDst.Text:=sDestPath;
|
|
|
+ lblMoveSrc.Caption:=sCopyQuest;
|
|
|
+ if ShowModal=mrCancel then Exit ; // throught finally
|
|
|
+{ ActiveFrame.UnMarkAll;
|
|
|
+ Exit;}
|
|
|
+ sDestPath := ExtractFilePath(edtDst.Text);
|
|
|
+ sDstMaskTemp:=ExtractFileName(edtDst.Text);
|
|
|
+ finally
|
|
|
+ Free;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+
|
|
|
+(*Move files*)
|
|
|
+
|
|
|
+try
|
|
|
+ begin
|
|
|
+ if not Assigned(frmFileOp) then
|
|
|
+ frmFileOp:= TfrmFileOp.Create(Application);
|
|
|
+ try
|
|
|
+ MT := TMoveThread.Create(fl);
|
|
|
+ MT.FFileOpDlg := frmFileOp;
|
|
|
+ MT.sDstPath:=sDestPath;
|
|
|
+ MT.sDstMask:=sDstMaskTemp;
|
|
|
+ frmFileOp.Thread := TThread(MT);
|
|
|
+ frmFileOp.Show;
|
|
|
+ MT.Resume;
|
|
|
+ except
|
|
|
+ MT.Free;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+
|
|
|
+except
|
|
|
+ //FreeAndNil(frmFileOp);
|
|
|
+end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.CopyFile(sDestPath:String);
|
|
|
+var
|
|
|
+ fl:TFileList;
|
|
|
+ sDstMaskTemp:String;
|
|
|
+ sCopyQuest:String;
|
|
|
+ CT : TCopyThread;
|
|
|
+ blDropReadOnlyFlag : Boolean;
|
|
|
+begin
|
|
|
+ fl:=TFileList.Create; // free at Thread end by thread
|
|
|
+ sCopyQuest:=GetFileDlgStr(rsMsgCpSel, rsMsgCpFlDr);
|
|
|
+
|
|
|
+ CopyListSelectedExpandNames(ActiveFrame.pnlFile.FileList,fl,ActiveFrame.ActiveDir);
|
|
|
+
|
|
|
+ CopyListSelectedExpandNames(ActiveFrame.pnlFile.FileList,fl,ActiveFrame.ActiveDir);
|
|
|
+
|
|
|
+ if (ActiveFrame.pnlFile.GetSelectedCount=1) and not (FPS_ISDIR(ActiveFrame.pnlFile.GetActiveItem^.iMode) or ActiveFrame.pnlFile.GetActiveItem^.bLinkIsDir) then
|
|
|
+ sDestPath:=sDestPath+ActiveFrame.pnlFile.GetActiveItem^.sName
|
|
|
+ else
|
|
|
+ sDestPath:=sDestPath+'*.*';
|
|
|
+
|
|
|
+
|
|
|
+ (* Extract files from archive *)
|
|
|
+ if ActiveFrame.pnlFile.PanelMode = pmArchive then
|
|
|
+ begin
|
|
|
+ DebugLN('+++ Extract files from archive +++');
|
|
|
+ fl.CurrentDirectory := ActiveFrame.ActiveDir;
|
|
|
+ ShowExtractDlg(ActiveFrame, fl, ExtractFilePath(sDestPath));
|
|
|
+ NotActiveFrame.RefreshPanel;
|
|
|
+ Exit;
|
|
|
+ end;
|
|
|
+
|
|
|
+ with TfrmCopyDlg.Create(Application) do
|
|
|
+ begin
|
|
|
+ try
|
|
|
+ edtDst.Text:=sDestPath;
|
|
|
+ lblCopySrc.Caption := sCopyQuest;
|
|
|
+ cbDropReadOnlyFlag.Checked := gDropReadOnlyFlag;
|
|
|
+ cbDropReadOnlyFlag.Visible := (NotActiveFrame.pnlFile.PanelMode = pmDirectory);
|
|
|
+ if ShowModal=mrCancel then
|
|
|
+ Exit ; // throught finally
|
|
|
+ sDestPath:=ExtractFilePath(edtDst.Text);
|
|
|
+ sDstMaskTemp:=ExtractFileName(edtDst.Text);
|
|
|
+ blDropReadOnlyFlag := cbDropReadOnlyFlag.Checked;
|
|
|
+
|
|
|
+ finally
|
|
|
+ Free;
|
|
|
+ end;
|
|
|
+ end; //with
|
|
|
+
|
|
|
+ (* Check not active panel *)
|
|
|
+ if NotActiveFrame.pnlFile.PanelMode in [pmArchive, pmVFS] then
|
|
|
+ begin
|
|
|
+ DebugLN('+++ Copy files to VFS +++');
|
|
|
+ fl.CurrentDirectory := ActiveFrame.ActiveDir;
|
|
|
+ NotActiveFrame.pnlFile.VFS.VFSmodule.VFSCopyInEx(fl, sDestPath, 0);
|
|
|
+ Exit;
|
|
|
+ end;
|
|
|
+
|
|
|
+ (* Check active panel *)
|
|
|
+ try
|
|
|
+ (*Copy files from VFS*)
|
|
|
+ if ActiveFrame.pnlFile.PanelMode = pmVFS then
|
|
|
+ begin
|
|
|
+ DebugLN('+++ Copy files from VFS +++');
|
|
|
+ fl.CurrentDirectory := ActiveFrame.ActiveDir;
|
|
|
+ ActiveFrame.pnlFile.VFS.VFSmodule.VFSCopyOutEx(fl, sDestPath, 0);
|
|
|
+ NotActiveFrame.RefreshPanel;
|
|
|
+ end
|
|
|
+ else
|
|
|
+ (*Copy files*)
|
|
|
+ begin
|
|
|
+ if not Assigned(frmFileOp) then
|
|
|
+ frmFileOp:= TfrmFileOp.Create(Application);
|
|
|
+ try
|
|
|
+ CT := TCopyThread.Create(fl);
|
|
|
+ CT.FFileOpDlg := frmFileOp;
|
|
|
+ CT.sDstPath:=sDestPath;
|
|
|
+ CT.sDstMask:=sDstMaskTemp;
|
|
|
+ CT.bDropReadOnlyFlag := blDropReadOnlyFlag;
|
|
|
+
|
|
|
+ frmFileOp.Thread := TThread(CT);
|
|
|
+ frmFileOp.Show;
|
|
|
+ CT.Resume;
|
|
|
+ except
|
|
|
+ CT.Free;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+
|
|
|
+ except
|
|
|
+ //frmFileOp.Free;
|
|
|
+ end;
|
|
|
+
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actCopySamePanelExecute(Sender: TObject);
|
|
|
+begin
|
|
|
+ CopyFile('');
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actRenameOnlyExecute(Sender: TObject);
|
|
|
+begin
|
|
|
+ RenameFile('');
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actEditNewExecute(Sender: TObject);
|
|
|
+var
|
|
|
+ sNewFile:String;
|
|
|
+ f:TextFile;
|
|
|
+begin
|
|
|
+ sNewFile:=ActiveFrame.ActiveDir + rsEditNewFile;
|
|
|
+ if not InputQuery(rsEditNewOpen, rsEditNewFileName, sNewFile) then Exit;
|
|
|
+ if not FileExists(sNewFile) then
|
|
|
+ begin
|
|
|
+ assignFile(f,sNewFile);
|
|
|
+ try
|
|
|
+ rewrite(f);
|
|
|
+ finally
|
|
|
+ CloseFile(f);
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+ try
|
|
|
+ ShowEditorByGlob(sNewFile);
|
|
|
+ finally
|
|
|
+ frameLeft.RefreshPanel;
|
|
|
+ frameRight.RefreshPanel;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actDirHistoryExecute(Sender: TObject);
|
|
|
+var
|
|
|
+ p:TPoint;
|
|
|
+begin
|
|
|
+ inherited;
|
|
|
+ CreatePopUpDirHistory;
|
|
|
+ p:=ActiveFrame.dgPanel.ClientToScreen(Classes.Point(0,0));
|
|
|
+ pmDirHistory.Popup(p.X,p.Y);
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actShowCmdLineHistoryExecute(Sender: TObject);
|
|
|
+begin
|
|
|
+ inherited;
|
|
|
+ if (edtCommand.Items.Count>0) then
|
|
|
+ edtCommand.DroppedDown:=True;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actRunTermExecute(Sender: TObject);
|
|
|
+begin
|
|
|
+ if not edtCommand.Focused then
|
|
|
+ ExecCmdFork(gRunTerm);
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.FormKeyDown(Sender: TObject; var Key: Word;
|
|
|
+ Shift: TShiftState);
|
|
|
+begin
|
|
|
+ inherited;
|
|
|
+
|
|
|
+// DebugLn('Key down:',Key);
|
|
|
+ if Key=18 then // is the ALT?
|
|
|
+ begin
|
|
|
+ ActiveFrame.ShowAltPanel;
|
|
|
+ Key:=0;
|
|
|
+ KeyPreview:=False;
|
|
|
+ Exit;
|
|
|
+ end;
|
|
|
+
|
|
|
+ if Key=9 then
|
|
|
+ begin
|
|
|
+ Key:=0;
|
|
|
+ case PanelSelected of
|
|
|
+ fpLeft: SetActiveFrame(fpRight);
|
|
|
+ fpRight: SetActiveFrame(fpLeft);
|
|
|
+ end;
|
|
|
+ Exit;
|
|
|
+ end;
|
|
|
+
|
|
|
+ bAltPress:=(Shift=[ssAlt]);
|
|
|
+
|
|
|
+ // CTRL+PgUp
|
|
|
+ if (Shift=[ssCtrl]) and (Key=VK_PRIOR) then
|
|
|
+ begin
|
|
|
+ ActiveFrame.pnlFile.cdUpLevel;
|
|
|
+ Key:=0;
|
|
|
+
|
|
|
+ Exit;
|
|
|
+ end;
|
|
|
+
|
|
|
+ // CTRL+PgDown
|
|
|
+ if (Shift=[ssCtrl]) and (Key=VK_NEXT) then
|
|
|
+ begin
|
|
|
+ with ActiveFrame do
|
|
|
+ begin
|
|
|
+ if pnlFile.GetActiveItem^.sName='..' then Exit;
|
|
|
+ pnlFile.cdDownLevel(pnlFile.GetActiveItem);
|
|
|
+ end;
|
|
|
+ Key:=0;
|
|
|
+ Exit;
|
|
|
+ end;
|
|
|
+
|
|
|
+ // cursors keys in Lynx like mode
|
|
|
+ if (Shift=[]) and (Key=VK_LEFT) and gLynxLike and (edtCommand.Text='') then
|
|
|
+ begin
|
|
|
+ ActiveFrame.pnlFile.cdUpLevel;
|
|
|
+ Key:=0;
|
|
|
+ Exit;
|
|
|
+ end;
|
|
|
+
|
|
|
+ if (Shift=[]) and (Key=VK_RIGHT) and gLynxLike and (edtCommand.Text='') then
|
|
|
+ begin
|
|
|
+ with ActiveFrame do
|
|
|
+ begin
|
|
|
+ if pnlFile.GetActiveItem^.sName='..' then Exit;
|
|
|
+ pnlFile.cdDownLevel(pnlFile.GetActiveItem);
|
|
|
+ end;
|
|
|
+ Key:=0;
|
|
|
+ Exit;
|
|
|
+ end;
|
|
|
+
|
|
|
+{ // this is hack for ShowModal bug
|
|
|
+ with ActiveFrame do
|
|
|
+ begin
|
|
|
+ if bDialogShowed then
|
|
|
+ begin
|
|
|
+ Key:=0;
|
|
|
+ bDialogShowed:=False;
|
|
|
+ Exit;
|
|
|
+ end;
|
|
|
+ end;}
|
|
|
+// DebugLn(Key);
|
|
|
+ if HandleActionHotKeys(Key, Shift) Then
|
|
|
+ begin
|
|
|
+ Key:=0;;
|
|
|
+ Exit;
|
|
|
+ end;
|
|
|
+// DebugLn(Key);
|
|
|
+
|
|
|
+{ if bAltPress and (shift=[ssAlt]) and (key=VK_Alt) and not IsAltPanel then
|
|
|
+ begin
|
|
|
+// qt.QMenuBar_activateItemAt(mnuMain.Handle, 0);
|
|
|
+ bAltPress:=False;
|
|
|
+ Exit;
|
|
|
+ end;}
|
|
|
+ bAltPress:=False;
|
|
|
+
|
|
|
+ if (shift=[ssCtrl]) and (Key=VK_Down) then
|
|
|
+ begin
|
|
|
+ Key:=0;
|
|
|
+ actShowCmdLineHistory.Execute;
|
|
|
+ Exit;
|
|
|
+ end;
|
|
|
+
|
|
|
+ // handle Space key
|
|
|
+ if (Shift=[]) and (Key=VK_Space) and (edtCommand.Text='') and (edtCommand.Text='') then
|
|
|
+ begin
|
|
|
+ with ActiveFrame do
|
|
|
+ begin
|
|
|
+// if not AnySelected then Exit;
|
|
|
+ if FPS_ISDIR(pnlFile.GetActiveItem^.iMode) then
|
|
|
+ CalculateSpace(False);
|
|
|
+ SelectFile(GetActiveItem);
|
|
|
+ dgPanel.Invalidate;
|
|
|
+ MakeSelectedVisible;
|
|
|
+ end;
|
|
|
+ Exit;
|
|
|
+ end;
|
|
|
+
|
|
|
+ if (Shift=[]) and (Key=VK_BACK) and (edtCommand.Text='') then
|
|
|
+ begin
|
|
|
+ if edtCommand.Focused then Exit;
|
|
|
+ with ActiveFrame do
|
|
|
+ begin
|
|
|
+ pnlFile.cdUpLevel;
|
|
|
+ RedrawGrid;
|
|
|
+ end;
|
|
|
+ Exit;
|
|
|
+ end;
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.FormActivate(Sender: TObject);
|
|
|
+begin
|
|
|
+ KeyPreview:=True;
|
|
|
+// ActiveFrame.SetFocus;
|
|
|
+// DebugLn('Activate');
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.FrameEditExit(Sender: TObject);
|
|
|
+begin
|
|
|
+// handler for both edits
|
|
|
+// DebugLn('On exit');
|
|
|
+ KeyPreview:=True;
|
|
|
+ (Sender as TEdit).Visible:=False;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.FrameedtSearchExit(Sender: TObject);
|
|
|
+begin
|
|
|
+ // sometimes must be search panel closed this way
|
|
|
+ TPanel(TEdit(Sender).Parent).Visible:=False;
|
|
|
+ KeyPreview:=True;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.ShowRenameFileEdit(const sFileName:String);
|
|
|
+begin
|
|
|
+ KeyPreview:=False;
|
|
|
+ With ActiveFrame do
|
|
|
+ begin
|
|
|
+ edtRename.OnExit:=@FrameEditExit;
|
|
|
+ edtRename.Width:=dgPanel.ColWidths[0]+dgPanel.ColWidths[1]-16;
|
|
|
+ edtRename.Top:= (dgPanel.CellRect(0,dgPanel.Row).Top-2);
|
|
|
+ edtRename.Left:=16;
|
|
|
+ edtRename.Height:=dgpanel.DefaultRowHeight+4;
|
|
|
+ edtRename.Hint:=sFileName;
|
|
|
+ edtRename.Text:=ExtractFileName(sFileName);
|
|
|
+ edtRename.Visible:=True;
|
|
|
+ edtRename.SelectAll;
|
|
|
+ edtRename.SetFocus;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actCalculateSpaceExecute(Sender: TObject);
|
|
|
+begin
|
|
|
+ inherited;
|
|
|
+ with ActiveFrame do
|
|
|
+ begin
|
|
|
+ if FPS_ISDIR(pnlFile.GetActiveItem^.iMode) then
|
|
|
+ CalculateSpace(True);
|
|
|
+ // I don't know what to do if the item is file or something else
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.SetNotActFrmByActFrm;
|
|
|
+var
|
|
|
+ pfr:PFileRecItem;
|
|
|
+begin
|
|
|
+ with ActiveFrame do
|
|
|
+ begin
|
|
|
+ pfr:=pnlFile.GetActiveItem;
|
|
|
+ if not assigned(pfr) then Exit;
|
|
|
+ if FPS_ISDIR(pfr^.iMode) and (not (pfr^.sName = '..')) then
|
|
|
+ begin
|
|
|
+ NotActiveFrame.pnlFile.ActiveDir := ActiveDir + pfr^.sName;
|
|
|
+ end
|
|
|
+ else
|
|
|
+ begin
|
|
|
+ NotActiveFrame.pnlFile.ActiveDir := ActiveDir;
|
|
|
+ end;
|
|
|
+ NotActiveFrame.LoadPanel;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actFilePropertiesExecute(Sender: TObject);
|
|
|
+begin
|
|
|
+ inherited;
|
|
|
+ try
|
|
|
+ with ActiveFrame do
|
|
|
+ begin
|
|
|
+ SelectFileIfNoSelected(GetActiveItem);
|
|
|
+ ShowFilePropertiesDialog(pnlFile.FileList, ActiveDir);
|
|
|
+ end;
|
|
|
+ finally
|
|
|
+ frameLeft.RefreshPanel;
|
|
|
+ frameRight.RefreshPanel;
|
|
|
+ ActiveFrame.SetFocus;
|
|
|
+ end
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.FramedgPanelEnter(Sender: TObject);
|
|
|
+begin
|
|
|
+ if (Sender is TDrawGrid) then
|
|
|
+ begin;
|
|
|
+ with TFrameFilePanel(TDrawGrid(Sender).Parent) do
|
|
|
+ begin
|
|
|
+ PanelSelected:=PanelSelect;
|
|
|
+ dgPanelEnter(Sender);
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+{ Show context menu on right click }
|
|
|
+procedure TfrmMain.framedgPanelMouseDown(Sender: TObject; Button: TMouseButton;
|
|
|
+ Shift: TShiftState; X, Y: Integer);
|
|
|
+var
|
|
|
+ pfri : PFileRecItem;
|
|
|
+begin
|
|
|
+ if Button = mbRight then
|
|
|
+ begin
|
|
|
+ pfri := ActiveFrame.GetActiveItem;
|
|
|
+ pfri^.sPath := ActiveFrame.ActiveDir;
|
|
|
+ ShowContextMenu(Handle, pfri, Mouse.CursorPos.x, Mouse.CursorPos.y);
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.ShowPathEdit;
|
|
|
+begin
|
|
|
+ KeyPreview:=False;
|
|
|
+ with ActiveFrame do
|
|
|
+ begin
|
|
|
+ edtPath.OnExit:=@FrameEditExit;
|
|
|
+ with lblLPath do
|
|
|
+ edtPath.SetBounds(Left, Top, Width, Height);
|
|
|
+ edtPath.Text := ActiveDir;
|
|
|
+ edtPath.Visible := True;
|
|
|
+ edtPath.SetFocus;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.FramelblLPathClick(Sender: TObject);
|
|
|
+begin
|
|
|
+// DebugLn(TControl(Sender).Parent.Parent.ClassName);
|
|
|
+ SetActiveFrame(TFrameFilePanel(TControl(Sender).Parent.Parent).PanelSelect);
|
|
|
+ actDirHistory.Execute;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.FramelblLPathMouseDown(Sender: TObject; Button: TMouseButton;
|
|
|
+ Shift: TShiftState; X, Y: Integer);
|
|
|
+begin
|
|
|
+ case Button of
|
|
|
+ mbMiddle:
|
|
|
+ begin
|
|
|
+ SetActiveFrame(TFrameFilePanel(TControl(Sender).Parent.Parent).PanelSelect);
|
|
|
+ actDirHotList.Execute;
|
|
|
+ end;
|
|
|
+ mbRight:
|
|
|
+ begin
|
|
|
+ SetActiveFrame(TFrameFilePanel(TControl(Sender).Parent.Parent).PanelSelect);
|
|
|
+ ShowPathEdit;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.FramepnlFileChangeDirectory(Sender: TObject; const NewDir: String);
|
|
|
+var
|
|
|
+ ANoteBook : TNoteBook;
|
|
|
+begin
|
|
|
+ if Sender is TPage then
|
|
|
+ begin
|
|
|
+ ANoteBook := (Sender as TPage).Parent as TNoteBook;
|
|
|
+ ANoteBook.Page[ANoteBook.PageIndex].Caption := GetLastDir(ExcludeTrailingPathDelimiter(NewDir));
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.SetActiveFrame(panel: TFilePanelSelect);
|
|
|
+begin
|
|
|
+ PanelSelected:=panel;
|
|
|
+ ActiveFrame.SetFocus;
|
|
|
+ NotActiveFrame.dgPanelExit(self);
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.UpdateDiskCount;
|
|
|
+begin
|
|
|
+ DrivesList.Clear;
|
|
|
+ DrivesList := GetAllDrives;
|
|
|
+ if gDriveMenuButton then
|
|
|
+ CreateDrivesMenu;
|
|
|
+ // delete all disk buttons
|
|
|
+ dskRight.DeleteAllToolButtons;
|
|
|
+ dskLeft.DeleteAllToolButtons;
|
|
|
+ // and add new
|
|
|
+ CreateDiskPanel(dskLeft);
|
|
|
+ CreateDiskPanel(dskRight);
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.CreateDrivesMenu;
|
|
|
+var
|
|
|
+ I, Count : Integer;
|
|
|
+ Drive : PDrive;
|
|
|
+ miTmp : TMenuItem;
|
|
|
+begin
|
|
|
+ pmDrivesMenu.Items.Clear;
|
|
|
+ Count := DrivesList.Count - 1;
|
|
|
+ for I := 0 to Count do
|
|
|
+ begin
|
|
|
+ Drive := PDrive(DrivesList.Items[I]);
|
|
|
+ with Drive^ do
|
|
|
+ begin
|
|
|
+ miTmp := TMenuItem.Create(pmDrivesMenu);
|
|
|
+ miTmp.Tag := I;
|
|
|
+ miTmp.Caption := Name;
|
|
|
+ miTmp.Hint := Path;
|
|
|
+
|
|
|
+ if gDriveMenuButton then
|
|
|
+ begin
|
|
|
+ if Pos(Path, FrameLeft.pnlFile.ActiveDir) = 1 then
|
|
|
+ begin
|
|
|
+ btnLeftDrive.Glyph := PixMapManager.GetDriveIcon(Drive, btnLeftDrive.Height - 4, btnLeftDrive.Color);
|
|
|
+ btnLeftDrive.Caption := Name;
|
|
|
+ btnLeftDrive.Width := btnLeftDrive.Glyph.Width + btnLeftDrive.Canvas.TextWidth(btnLeftDrive.Caption) + 16;
|
|
|
+ dskLeft.Tag := I;
|
|
|
+ end;
|
|
|
+ if Pos(Path, FrameRight.pnlFile.ActiveDir) = 1 then
|
|
|
+ begin
|
|
|
+ btnRightDrive.Glyph := PixMapManager.GetDriveIcon(Drive, btnRightDrive.Height - 4, btnRightDrive.Color);
|
|
|
+ btnRightDrive.Caption := Name;
|
|
|
+ btnRightDrive.Width := btnRightDrive.Glyph.Width + btnRightDrive.Canvas.TextWidth(btnRightDrive.Caption) + 16;
|
|
|
+ dskRight.Tag := I;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+
|
|
|
+ // get disk icon
|
|
|
+ miTmp.Bitmap := PixMapManager.GetDriveIcon(Drive, 16, clMenu);
|
|
|
+ miTmp.RadioItem := True;
|
|
|
+ miTmp.AutoCheck := True;
|
|
|
+ miTmp.GroupIndex := 1;
|
|
|
+ miTmp.OnClick := @DrivesMenuClick;
|
|
|
+ pmDrivesMenu.Items.Add(miTmp);
|
|
|
+ end; // with
|
|
|
+ end; // for
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.DrivesMenuClick(Sender: TObject);
|
|
|
+begin
|
|
|
+ with Sender as TMenuItem do
|
|
|
+ begin
|
|
|
+ if IsAvailable(Hint) then
|
|
|
+ begin
|
|
|
+ case pmDrivesMenu.Tag of
|
|
|
+ 0:
|
|
|
+ begin
|
|
|
+ FrameLeft.pnlFile.ActiveDir := Hint;
|
|
|
+ if gDriveBar2 then
|
|
|
+ dskLeft.Buttons[Tag].Down := True;
|
|
|
+ dskLeft.Tag := Tag;
|
|
|
+ FrameLeft.pnlFile.LoadPanel;
|
|
|
+ SetActiveFrame(fpLeft);
|
|
|
+ btnLeftDrive.Glyph := PixMapManager.GetDriveIcon(PDrive(DrivesList[Tag]), btnLeftDrive.Height - 4, btnLeftDrive.Color);
|
|
|
+ btnLeftDrive.Caption := Caption;
|
|
|
+ btnLeftDrive.Width := btnLeftDrive.Glyph.Width + btnLeftDrive.Canvas.TextWidth(btnLeftDrive.Caption) + 16;
|
|
|
+ end;
|
|
|
+ 1:
|
|
|
+ begin
|
|
|
+ FrameRight.pnlFile.ActiveDir := Hint;
|
|
|
+ if gDriveBar1 then
|
|
|
+ dskRight.Buttons[Tag].Down := True;
|
|
|
+ dskRight.Tag := Tag;
|
|
|
+ FrameRight.pnlFile.LoadPanel;
|
|
|
+ SetActiveFrame(fpRight);
|
|
|
+ btnRightDrive.Glyph := PixMapManager.GetDriveIcon(PDrive(DrivesList[Tag]), btnRightDrive.Height - 4, btnRightDrive.Color);
|
|
|
+ btnRightDrive.Caption := Caption;
|
|
|
+ btnRightDrive.Width := btnRightDrive.Glyph.Width + btnRightDrive.Canvas.TextWidth(btnRightDrive.Caption) + 16;
|
|
|
+ end;
|
|
|
+ end; // case
|
|
|
+ end
|
|
|
+ else
|
|
|
+ begin
|
|
|
+ pmDrivesMenu.Items[dskLeft.Tag].Checked := True;
|
|
|
+ msgOK(rsMsgDiskNotAvail);
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.AddSpecialButtons(dskPanel: TKASToolBar);
|
|
|
+var
|
|
|
+ btnIndex : Integer;
|
|
|
+begin
|
|
|
+ (*root button*)
|
|
|
+ btnIndex := dskPanel.AddButton('/', '/', 'root', '');
|
|
|
+ dskPanel.Buttons[btnIndex].GroupIndex := 0;
|
|
|
+ (*up button*)
|
|
|
+ btnIndex := dskPanel.AddButton('..', '..', 'Up', '');
|
|
|
+ dskPanel.Buttons[btnIndex].GroupIndex := 0;
|
|
|
+ (*home button*)
|
|
|
+ btnIndex := dskPanel.AddButton('~', '~', 'Home', '');
|
|
|
+ dskPanel.Buttons[btnIndex].GroupIndex := 0;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.CreateDiskPanel(dskPanel: TKASToolBar);
|
|
|
+var
|
|
|
+ I, Count : Integer;
|
|
|
+ Drive : PDrive;
|
|
|
+begin
|
|
|
+//dskPanel.InitBounds; // Update information
|
|
|
+
|
|
|
+ dskPanel.FlatButtons := gDriveBarFlat;
|
|
|
+ Count := DrivesList.Count - 1;
|
|
|
+
|
|
|
+ for I := 0 to Count do
|
|
|
+ begin
|
|
|
+ Drive := PDrive(DrivesList.Items[I]);
|
|
|
+ with Drive^ do
|
|
|
+ begin
|
|
|
+ dskPanel.AddButton(Name, Path, Path, '');
|
|
|
+ {Set chosen drive}
|
|
|
+ if dskPanel.Align = alLeft then
|
|
|
+ begin
|
|
|
+ if Pos(Path, FrameLeft.pnlFile.ActiveDir) = 1 then
|
|
|
+ begin
|
|
|
+ dskPanel.Buttons[I].Down := True;
|
|
|
+ dskPanel.Tag := I;
|
|
|
+ end;
|
|
|
+ end
|
|
|
+ else
|
|
|
+ begin
|
|
|
+ if Pos(Path, FrameRight.pnlFile.ActiveDir) = 1 then
|
|
|
+ begin
|
|
|
+ dskPanel.Buttons[I].Down := True;
|
|
|
+ dskPanel.Tag := I;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+ {/Set chosen drive}
|
|
|
+
|
|
|
+ // get drive icon
|
|
|
+ dskPanel.Buttons[I].Glyph := PixMapManager.GetDriveIcon(Drive, dskPanel.ButtonGlyphSize, dskPanel.Buttons[I].Color);
|
|
|
+ {Set Buttons Transparent. Is need? }
|
|
|
+ dskPanel.Buttons[I].Glyph.Transparent := True;
|
|
|
+ dskPanel.Buttons[I].Transparent := True;
|
|
|
+ {/Set Buttons Transparent}
|
|
|
+ dskPanel.Buttons[I].Layout := blGlyphLeft;
|
|
|
+ end; // with
|
|
|
+ end; // for
|
|
|
+
|
|
|
+ if not gDriveMenuButton then {Add special buttons}
|
|
|
+ AddSpecialButtons(dskPanel);
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.CreatePanel(AOwner: TWinControl; APanel:TFilePanelSelect; sPath : String);
|
|
|
+var
|
|
|
+ lblDriveInfo : TLabel;
|
|
|
+begin
|
|
|
+ case APanel of
|
|
|
+ fpLeft:
|
|
|
+ lblDriveInfo := lblLeftDriveInfo;
|
|
|
+ fpRight:
|
|
|
+ lblDriveInfo := lblRightDriveInfo;
|
|
|
+ end;
|
|
|
+
|
|
|
+ with TFrameFilePanel.Create(AOwner, lblDriveInfo, lblCommandPath, edtCommand) do
|
|
|
+ begin
|
|
|
+ edtCmdLine:=edtCommand;
|
|
|
+ PanelSelect:=APanel;
|
|
|
+ Init;
|
|
|
+ ReAlign;
|
|
|
+ pnlFile.OnChangeDirectory := @FramepnlFileChangeDirectory;
|
|
|
+ if not DirectoryExists(sPath) then
|
|
|
+ GetDir(0, sPath);
|
|
|
+ pnlFile.ActiveDir := sPath;
|
|
|
+ pnlFile.LoadPanel;
|
|
|
+ UpDatelblInfo;
|
|
|
+ dgPanel.Color := gBackColor;
|
|
|
+ pnlHeader.Visible := gCurDir;
|
|
|
+ pnlFooter.Visible := gStatusBar;
|
|
|
+ lblLPath.OnClick:=@FramelblLPathClick;
|
|
|
+ lblLPath.OnMouseDown := @FramelblLPathMouseDown;
|
|
|
+ edtPath.OnExit:=@FrameEditExit;
|
|
|
+ edtRename.OnExit:=@FrameEditExit;
|
|
|
+ edtSearch.OnExit:=@FrameedtSearchExit;
|
|
|
+
|
|
|
+ dgPanel.OnEnter:=@framedgPanelEnter;
|
|
|
+ dgPanel.OnMouseDown := @framedgPanelMouseDown;
|
|
|
+
|
|
|
+ end;
|
|
|
+
|
|
|
+end;
|
|
|
+
|
|
|
+function TfrmMain.AddPage(ANoteBook: TNoteBook):TPage;
|
|
|
+var
|
|
|
+ x:Integer;
|
|
|
+begin
|
|
|
+ x:=ANotebook.PageCount;
|
|
|
+
|
|
|
+ ANoteBook.Pages.Add(IntToStr(x));
|
|
|
+ ANoteBook.ActivePage:= IntToStr(x);
|
|
|
+ Result:=ANoteBook.Page[x];
|
|
|
+
|
|
|
+ ANoteBook.ShowTabs:= ((ANoteBook.PageCount > 1) or Boolean(gDirTabOptions and tb_always_visible)) and gDirectoryTabs;
|
|
|
+ if Boolean(gDirTabOptions and tb_multiple_lines) then
|
|
|
+ ANoteBook.Options := ANoteBook.Options + [nboMultiLine];
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.RemovePage(ANoteBook: TNoteBook; iPageIndex:Integer);
|
|
|
+begin
|
|
|
+ if ANoteBook.PageCount>1 then
|
|
|
+ begin
|
|
|
+{ With ANoteBook.Page[iPageIndex] do
|
|
|
+ begin
|
|
|
+ if ComponentCount>0 then // must be true, but
|
|
|
+ // component 0 is TFrameFilePanel
|
|
|
+ Components[0].Free;
|
|
|
+ end;}
|
|
|
+ ANoteBook.Pages.Delete(iPageIndex);
|
|
|
+ end;
|
|
|
+ ANoteBook.ShowTabs:= ((ANoteBook.PageCount > 1) or Boolean(gDirTabOptions and tb_always_visible)) and gDirectoryTabs;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.LoadTabs(ANoteBook: TNoteBook);
|
|
|
+var
|
|
|
+ I : Integer;
|
|
|
+ sIndex,
|
|
|
+ TabsSection, Section: String;
|
|
|
+ fpsPanel : TFilePanelSelect;
|
|
|
+ sPath,
|
|
|
+ sCaption, sActiveCaption : String;
|
|
|
+ iActiveTab : Integer;
|
|
|
+begin
|
|
|
+ if ANoteBook.Hint = 'Left' then
|
|
|
+ begin
|
|
|
+ TabsSection := 'lefttabs';
|
|
|
+ Section := 'left';
|
|
|
+ fpsPanel := fpLeft;
|
|
|
+ end
|
|
|
+ else
|
|
|
+ begin
|
|
|
+ TabsSection := 'righttabs';
|
|
|
+ Section := 'right';
|
|
|
+ fpsPanel := fpRight;
|
|
|
+ end;
|
|
|
+ I := 0;
|
|
|
+ sIndex := '0';
|
|
|
+
|
|
|
+ { Read active tab index and caption }
|
|
|
+ iActiveTab := gIni.ReadInteger(TabsSection, 'activetab', 0);
|
|
|
+ sActiveCaption := gIni.ReadString(Section, 'activecaption', '');
|
|
|
+
|
|
|
+ while True do
|
|
|
+ begin
|
|
|
+ if I = iActiveTab then
|
|
|
+ begin
|
|
|
+ sPath := gIni.ReadString(Section, 'path', '');
|
|
|
+ CreatePanel(AddPage(ANoteBook), fpsPanel, sPath);
|
|
|
+ if sActiveCaption <> '' then
|
|
|
+ ANoteBook.Page[ANoteBook.PageCount - 1].Caption := sActiveCaption;
|
|
|
+ end;
|
|
|
+ sPath := gIni.ReadString(TabsSection, sIndex + '_path', '');
|
|
|
+ if sPath = '' then Break;
|
|
|
+ sCaption := gIni.ReadString(TabsSection, sIndex + '_caption', '');
|
|
|
+ CreatePanel(AddPage(ANoteBook), fpsPanel, sPath);
|
|
|
+ if sCaption <> '' then
|
|
|
+ ANoteBook.Page[ANoteBook.PageCount - 1].Caption := sCaption;
|
|
|
+ inc(I);
|
|
|
+ sIndex := IntToStr(I);
|
|
|
+ end;
|
|
|
+ // set active tab
|
|
|
+ ANoteBook.PageIndex := iActiveTab;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.SaveTabs(ANoteBook: TNoteBook);
|
|
|
+var
|
|
|
+ I, Count, J : Integer;
|
|
|
+ sIndex,
|
|
|
+ TabsSection, Section : String;
|
|
|
+ sPath : String;
|
|
|
+begin
|
|
|
+ if ANoteBook.Hint = 'Left' then
|
|
|
+ begin
|
|
|
+ TabsSection := 'lefttabs';
|
|
|
+ Section := 'left';
|
|
|
+ end
|
|
|
+ else
|
|
|
+ begin
|
|
|
+ TabsSection := 'righttabs';
|
|
|
+ Section := 'right';
|
|
|
+ end;
|
|
|
+
|
|
|
+ gIni.EraseSection(TabsSection);
|
|
|
+
|
|
|
+ I := 0;
|
|
|
+ J := 0;
|
|
|
+ Count := ANoteBook.PageCount - 1;
|
|
|
+ repeat
|
|
|
+ sIndex := IntToStr(I - J);
|
|
|
+
|
|
|
+ if I = ANoteBook.PageIndex then
|
|
|
+ begin
|
|
|
+ gIni.WriteInteger(TabsSection, 'activetab', I);
|
|
|
+ gIni.WriteString(TabsSection, 'activecaption', ANoteBook.ActivePage);
|
|
|
+ if I < Count then
|
|
|
+ begin
|
|
|
+ inc(I);
|
|
|
+ J := 1;
|
|
|
+ end
|
|
|
+ else
|
|
|
+ Break;
|
|
|
+ end;
|
|
|
+ sPath := TFrameFilePanel(ANoteBook.Page[I].Components[0]).ActiveDir;
|
|
|
+ gIni.WriteString(TabsSection, sIndex + '_path', sPath);
|
|
|
+ gIni.WriteString(TabsSection, sIndex + '_caption', ANoteBook.Page[I].Caption);
|
|
|
+ inc(I);
|
|
|
+ until (I > Count);
|
|
|
+ sPath := TFrameFilePanel(ANoteBook.ActivePageComponent.Components[0]).ActiveDir;
|
|
|
+ gIni.WriteString(Section, 'path', sPath);
|
|
|
+end;
|
|
|
+
|
|
|
+(* Execute internal or external command *)
|
|
|
+
|
|
|
+function TfrmMain.ExecCmd(Cmd: String): Boolean;
|
|
|
+begin
|
|
|
+ if actionLst.ActionByName(Cmd) <> nil then
|
|
|
+ Result := actionLst.ActionByName(Cmd).Execute
|
|
|
+ else
|
|
|
+ Result := (ExecCmdFork(Cmd) = 0);
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.UpdateWindowView;
|
|
|
+var
|
|
|
+ I : Integer;
|
|
|
+begin
|
|
|
+ (* Disk Panels *)
|
|
|
+ if (dskRight.FlatButtons <> gDriveBarFlat) then // if change
|
|
|
+ begin
|
|
|
+ dskLeft.FlatButtons := gDriveBarFlat;
|
|
|
+ dskRight.FlatButtons := gDriveBarFlat;
|
|
|
+ end;
|
|
|
+
|
|
|
+ if (dskLeft.Visible <> gDriveBar2) or (dskRight.Visible <> gDriveBar1) then // if change
|
|
|
+ begin
|
|
|
+ if gDriveBar1 and gDriveBar2 then // left visible only then right visible
|
|
|
+ begin
|
|
|
+ CreateDiskPanel(dskLeft);
|
|
|
+ dskLeft.Visible := gDriveBar2;
|
|
|
+ end
|
|
|
+ else
|
|
|
+ begin
|
|
|
+ dskLeft.Visible := gDriveBar2;
|
|
|
+ dskLeft.DeleteAllToolButtons;
|
|
|
+ end;
|
|
|
+
|
|
|
+ end;
|
|
|
+
|
|
|
+ if dskRight.Visible <> gDriveBar1 then // if change
|
|
|
+ begin
|
|
|
+ if gDriveBar1 then
|
|
|
+ begin
|
|
|
+ CreateDiskPanel(dskRight);
|
|
|
+ dskRight.Visible := gDriveBar1;
|
|
|
+ end
|
|
|
+ else
|
|
|
+ begin
|
|
|
+ dskRight.Visible := gDriveBar1;
|
|
|
+ dskRight.DeleteAllToolButtons;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+
|
|
|
+ pnlSyncSize.Visible := gDriveBar1;
|
|
|
+ (*/ Disk Panels *)
|
|
|
+
|
|
|
+ (*Tool Bar*)
|
|
|
+ if MainToolBar.FlatButtons <> gToolBarFlat then
|
|
|
+ MainToolBar.FlatButtons := gToolBarFlat;
|
|
|
+ if MainToolBar.Visible <> gButtonBar then // if change
|
|
|
+ begin
|
|
|
+ if gButtonBar then
|
|
|
+ begin
|
|
|
+ MainToolBar.ChangePath := gpExePath;
|
|
|
+ MainToolBar.EnvVar := '%commander_path%';
|
|
|
+ MainToolBar.LoadFromFile(gpIniDir + 'default.bar');
|
|
|
+ MainToolBar.Visible := gButtonBar;
|
|
|
+ end
|
|
|
+ else
|
|
|
+ begin
|
|
|
+ MainToolBar.Visible := gButtonBar;
|
|
|
+ MainToolBar.DeleteAllToolButtons;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+ (*Tool Bar*)
|
|
|
+
|
|
|
+ {Load some options from layout page}
|
|
|
+ if btnLeftDrive.Visible <> gDriveMenuButton then
|
|
|
+ if gDriveMenuButton then
|
|
|
+ begin
|
|
|
+ if gDriveBar1 and gDriveBar2 then // left visible only then right visible
|
|
|
+ for I := 1 to 3 do
|
|
|
+ dskLeft.RemoveButton(dskLeft.ButtonCount - 1);
|
|
|
+ if gDriveBar1 then
|
|
|
+ for I := 1 to 3 do
|
|
|
+ dskRight.RemoveButton(dskRight.ButtonCount - 1);
|
|
|
+ end
|
|
|
+ else
|
|
|
+ begin
|
|
|
+ if gDriveBar1 and gDriveBar2 then // left visible only then right visible
|
|
|
+ AddSpecialButtons(dskLeft);
|
|
|
+ if gDriveBar1 then
|
|
|
+ AddSpecialButtons(dskRight);
|
|
|
+ end;
|
|
|
+ if btnLeftDrive.Flat <> gInterfaceFlat then
|
|
|
+ begin
|
|
|
+ btnLeftDrive.Flat := gInterfaceFlat;
|
|
|
+ btnLeftRoot.Flat := gInterfaceFlat;
|
|
|
+ btnLeftUp.Flat := gInterfaceFlat;
|
|
|
+ btnLeftHome.Flat := gInterfaceFlat;
|
|
|
+
|
|
|
+ btnRightDrive.Flat := gInterfaceFlat;
|
|
|
+ btnRightRoot.Flat := gInterfaceFlat;
|
|
|
+ btnRightUp.Flat := gInterfaceFlat;
|
|
|
+ btnRightHome.Flat := gInterfaceFlat;
|
|
|
+ end;
|
|
|
+
|
|
|
+ for I := 0 to nbLeft.PageCount - 1 do // change on all tabs
|
|
|
+ with nbLeft.Page[I].Controls[0] as TFrameFilePanel do
|
|
|
+ begin
|
|
|
+ pnlHeader.Visible := gCurDir; // Current directory
|
|
|
+ pnlFooter.Visible := gStatusBar; // Status bar
|
|
|
+ if gShowIcons then
|
|
|
+ pnlFile.FileList.UpdateFileInformation(pnlFile.PanelMode);
|
|
|
+ end;
|
|
|
+
|
|
|
+ for I := 0 to nbRight.PageCount - 1 do // change on all tabs
|
|
|
+ with nbRight.Page[I].Controls[0] as TFrameFilePanel do
|
|
|
+ begin
|
|
|
+ pnlHeader.Visible := gCurDir; // Current directory
|
|
|
+ pnlFooter.Visible := gStatusBar; // Status bar
|
|
|
+ if gShowIcons then
|
|
|
+ pnlFile.FileList.UpdateFileInformation(pnlFile.PanelMode);
|
|
|
+ end;
|
|
|
+
|
|
|
+ for I := 0 to pnlKeys.ControlCount - 1 do // function keys
|
|
|
+ if pnlKeys.Controls[I] is TSpeedButton then
|
|
|
+ (pnlKeys.Controls[I] as TSpeedButton).Flat := gInterfaceFlat;
|
|
|
+
|
|
|
+ btnLeftDrive.Visible := gDriveMenuButton;
|
|
|
+ btnLeftRoot.Visible := gDriveMenuButton;
|
|
|
+ btnLeftUp.Visible := gDriveMenuButton;
|
|
|
+ btnLeftHome.Visible := gDriveMenuButton;
|
|
|
+
|
|
|
+ btnRightDrive.Visible := gDriveMenuButton;
|
|
|
+ btnRightRoot.Visible := gDriveMenuButton;
|
|
|
+ btnRightUp.Visible := gDriveMenuButton;
|
|
|
+ btnRightHome.Visible := gDriveMenuButton;
|
|
|
+
|
|
|
+ pnlCommand.Visible := gCmdLine;
|
|
|
+ pnlKeys.Visible := gKeyButtons;
|
|
|
+ nbLeft.ShowTabs := gDirectoryTabs;
|
|
|
+ nbRight.ShowTabs := gDirectoryTabs;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.edtCommandKeyDown(Sender: TObject; var Key: Word;
|
|
|
+ Shift: TShiftState);
|
|
|
+begin
|
|
|
+ if not edtCommand.DroppedDown and ((Key=VK_UP) or (Key=VK_DOWN)) then
|
|
|
+ begin
|
|
|
+ ActiveFrame.SetFocus;
|
|
|
+ Key:=0;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+
|
|
|
+procedure TfrmMain.actFileLinkerExecute(Sender: TObject);
|
|
|
+var
|
|
|
+ sl:TStringList;
|
|
|
+ i:Integer;
|
|
|
+begin
|
|
|
+
|
|
|
+ with ActiveFrame do
|
|
|
+ begin
|
|
|
+ SelectFileIfNoSelected(GetActiveItem);
|
|
|
+ sl:=TStringList.Create;
|
|
|
+ try
|
|
|
+ for i:=0 to pnlFile.FileList.Count-1 do
|
|
|
+ if pnlFile.GetFileItem(i).bSelected then
|
|
|
+ sl.Add(ActiveDir+pnlFile.GetFileItem(i).sName);
|
|
|
+ if sl.Count>1 then
|
|
|
+ ShowLinkerFilesForm(sl);
|
|
|
+ finally
|
|
|
+ FreeAndNil(sl);
|
|
|
+ FrameLeft.RefreshPanel;
|
|
|
+ FrameRight.RefreshPanel;
|
|
|
+ ActiveFrame.SetFocus;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.actFileSpliterExecute(Sender: TObject);
|
|
|
+var
|
|
|
+ sl:TStringList;
|
|
|
+ i:Integer;
|
|
|
+begin
|
|
|
+ with ActiveFrame do
|
|
|
+ begin
|
|
|
+ SelectFileIfNoSelected(GetActiveItem);
|
|
|
+
|
|
|
+ sl:=TStringList.Create;
|
|
|
+ try
|
|
|
+ for i:=0 to pnlFile.FileList.Count-1 do
|
|
|
+ if pnlFile.GetFileItem(i).bSelected then
|
|
|
+ sl.Add(ActiveDir+pnlFile.GetFileItem(i).sName);
|
|
|
+ if sl.Count>0 then
|
|
|
+ ShowSplitterFileForm(sl);
|
|
|
+ finally
|
|
|
+ FreeAndNil(sl);
|
|
|
+ FrameLeft.RefreshPanel;
|
|
|
+ FrameRight.RefreshPanel;
|
|
|
+ ActiveFrame.SetFocus;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure TfrmMain.tbEditClick(Sender: TObject);
|
|
|
+begin
|
|
|
+ ShowConfigToolbar(pmToolBar.Tag);
|
|
|
+end;
|
|
|
+
|
|
|
+
|
|
|
+function TfrmMain.ExecuteCommandFromEdit(sCmd: String): Boolean;
|
|
|
+var
|
|
|
+ iIndex:Integer;
|
|
|
+ sDir:String;
|
|
|
+begin
|
|
|
+ Result:=True;
|
|
|
+ iIndex:=pos('cd ',sCmd);
|
|
|
+ if iIndex=1 then
|
|
|
+ begin
|
|
|
+ sDir:=Trim(Copy(sCmd, iIndex+3, length(sCmd)));
|
|
|
+ sDir:=IncludeTrailingBackslash(sDir);
|
|
|
+ DebugLn('Chdir to:',sDir);
|
|
|
+ if not SetCurrentDir(sDir) then
|
|
|
+ begin
|
|
|
+ msgError(Format('ChDir to [%s] failed!',[sDir]));
|
|
|
+ end
|
|
|
+ else
|
|
|
+ begin
|
|
|
+ with ActiveFrame.pnlFile do
|
|
|
+ begin
|
|
|
+ GetDir(0,sDir);
|
|
|
+ ActiveDir:=sDir;
|
|
|
+ DebugLn(sDir);
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+ end
|
|
|
+ else
|
|
|
+ begin
|
|
|
+ if edtCommand.Items.IndexOf(sCmd)=-1 then
|
|
|
+ edtCommand.Items.Insert(0,sCmd);
|
|
|
+ ActiveFrame.pnlFile.ExecuteFile(sCmd, True);
|
|
|
+ edtCommand.DroppedDown:=False;
|
|
|
+ // only cMaxStringItems(see uGlobs.pas) is stored
|
|
|
+ if edtCommand.Items.Count>cMaxStringItems then
|
|
|
+ edtCommand.Items.Delete(edtCommand.Items.Count-1);
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+// Save ShortCuts to config file
|
|
|
+procedure TfrmMain.SaveShortCuts;
|
|
|
+var
|
|
|
+ i, count: Integer;
|
|
|
+ ini: TIniFile;
|
|
|
+begin
|
|
|
+ ini:=TIniFile.Create(gpIniDir + 'shortcuts.ini');
|
|
|
+ try
|
|
|
+ count := actionLst.ActionCount;
|
|
|
+ for i := 0 to count-1 do
|
|
|
+ with actionLst.Actions[i] as TAction do
|
|
|
+ ini.WriteString('SHORTCUTS', Name, ShortCutToText(ShortCut));
|
|
|
+ ini.UpdateFile;
|
|
|
+ finally
|
|
|
+ ini.Free;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+// Load ShortCuts from config file
|
|
|
+procedure TfrmMain.LoadShortCuts;
|
|
|
+var
|
|
|
+ i, j, count: Integer;
|
|
|
+ ini: TIniFile;
|
|
|
+ vAction: TAction;
|
|
|
+ vShortCut: TShortCut;
|
|
|
+begin
|
|
|
+ // ToDo Black list HotKey which can't use
|
|
|
+ ini:=TIniFile.Create(gpIniDir + 'shortcuts.ini');
|
|
|
+ try
|
|
|
+ count := actionLst.ActionCount;
|
|
|
+ for i := 0 to count-1 do
|
|
|
+ begin
|
|
|
+ vAction := actionLst.Actions[i] as TAction;
|
|
|
+ vShortCut := TextToShortCut(ini.ReadString('SHORTCUTS',
|
|
|
+ vAction.Name, ShortCutToText(vAction.ShortCut)));
|
|
|
+ if (ShortCutToText(vShortCut) <> ShortCutToText(vAction.ShortCut)) and (ShortCutToText(vShortCut) <> '') then
|
|
|
+ begin
|
|
|
+ for j := 0 to count-1 do
|
|
|
+ if (ShortCutToText(TAction(actionLst.Actions[j]).ShortCut) = ShortCutToText(vShortCut)) then
|
|
|
+ TAction(actionLst.Actions[j]).ShortCut := TextToShortCut('');
|
|
|
+ vAction.ShortCut := vShortCut;
|
|
|
+ end; // if
|
|
|
+ end; // for i
|
|
|
+ finally
|
|
|
+ ini.Free;
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+initialization
|
|
|
+ {$I fmain.lrs}
|
|
|
+end.
|
Alexander Koblov