mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
ADD: Action cm_OpenBar
This commit is contained in:
Alexander Koblov
parent
d65986a6fd
commit
f68ea4f5f7
7 changed files with 5599 additions and 5541 deletions
File diff suppressed because it is too large
Load diff
|
|
@ -470,6 +470,7 @@ object frmConfigToolBar: TfrmConfigToolBar
|
|||
end
|
||||
object miAddSubBar: TMenuItem
|
||||
Caption = 'Add S&ubbar >>'
|
||||
OnClick = miAddSubBarClick
|
||||
end
|
||||
object miAddSubMenu: TMenuItem
|
||||
Caption = 'Add Sub&menu >>'
|
||||
|
|
|
|||
|
|
@ -88,6 +88,7 @@ type
|
|||
procedure btnDeleteButtonClick(Sender: TObject);
|
||||
procedure btnOpenFileClick(Sender: TObject);
|
||||
procedure btnOpenIconFileClick(Sender: TObject);
|
||||
procedure miAddSubBarClick(Sender: TObject);
|
||||
procedure miAddSubMenuClick(Sender: TObject);
|
||||
procedure miInsertSeparatorClick(Sender: TObject);
|
||||
procedure sbIconExampleClick(Sender: TObject);
|
||||
|
|
@ -113,7 +114,7 @@ type
|
|||
implementation
|
||||
|
||||
uses
|
||||
ActnList, LCLProc, uClassesEx, fMain, uOSForms, uPixMapManager,
|
||||
ActnList, LCLProc, uClassesEx, uOSForms, uPixMapManager,
|
||||
uGlobsPaths, uGlobs, uDCUtils, uOSUtils;
|
||||
|
||||
function ShowConfigToolbar(const aBarFileName: UTF8String; iButtonIndex : Integer = -1): Boolean;
|
||||
|
|
@ -128,6 +129,7 @@ begin
|
|||
end;
|
||||
|
||||
const
|
||||
cOpenBar = 'cm_OpenBar';
|
||||
cShowButtonMenu = 'cm_ShowButtonMenu';
|
||||
|
||||
{ TfrmConfigToolBar }
|
||||
|
|
@ -244,7 +246,6 @@ end;
|
|||
procedure TfrmConfigToolBar.btnOKClick(Sender: TObject);
|
||||
var
|
||||
IniBarFile: TIniFileEx;
|
||||
iDelta: Integer = 4;
|
||||
begin
|
||||
Save;
|
||||
|
||||
|
|
@ -252,18 +253,7 @@ begin
|
|||
gToolBarButtonSize:= StrToIntDef(edtBarSize.Text, 16);
|
||||
gToolBarSmallIcons:= cbSmallIcons.Checked;
|
||||
if gToolBarSmallIcons then
|
||||
begin
|
||||
gToolBarIconSize:= StrToIntDef(edtSmallIconSize.Text, 16);
|
||||
iDelta:= 0;
|
||||
end;
|
||||
// apply new parameters to main toolbar
|
||||
if gToolBarSmallIcons then
|
||||
frmMain.MainToolBar.GlyphSize:= gToolBarIconSize
|
||||
else
|
||||
frmMain.MainToolBar.GlyphSize:= gToolBarButtonSize;
|
||||
frmMain.MainToolBar.ButtonHeight:= gToolBarButtonSize + iDelta;
|
||||
frmMain.MainToolBar.ButtonWidth:= gToolBarButtonSize + iDelta;
|
||||
frmMain.MainToolBar.Flat:= gToolBarFlat;
|
||||
gToolBarIconSize:= StrToIntDef(edtSmallIconSize.Text, 16);
|
||||
|
||||
IniBarFile:= TIniFileEx.Create(FBarFileName);
|
||||
try
|
||||
|
|
@ -275,6 +265,7 @@ begin
|
|||
end;
|
||||
|
||||
Close;
|
||||
|
||||
ModalResult:= mrOK;
|
||||
end;
|
||||
|
||||
|
|
@ -387,6 +378,18 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmConfigToolBar.miAddSubBarClick(Sender: TObject);
|
||||
var
|
||||
sFileName: UTF8String;
|
||||
begin
|
||||
if AddGoBackButton(sFileName) then
|
||||
begin
|
||||
cbCommand.Text:= cOpenBar;
|
||||
edtParams.Text:= SetCmdDirAsEnvVar(sFileName);
|
||||
edtToolTip.Text:= Actions.GetCommandCaption(cOpenBar);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmConfigToolBar.miAddSubMenuClick(Sender: TObject);
|
||||
var
|
||||
sFileName: UTF8String;
|
||||
|
|
@ -439,8 +442,6 @@ begin
|
|||
end;
|
||||
|
||||
function TfrmConfigToolBar.AddGoBackButton(out aFileName: UTF8String): Boolean;
|
||||
const
|
||||
cBackCommand = 'cm_ShowButtonMenu';
|
||||
var
|
||||
IniBarFile: TIniFileEx;
|
||||
begin
|
||||
|
|
@ -452,9 +453,9 @@ begin
|
|||
begin
|
||||
IniBarFile:= TIniFileEx.Create(aFileName);
|
||||
IniBarFile.WriteInteger('ButtonBar', 'ButtonCount', 1);
|
||||
IniBarFile.WriteString('ButtonBar', 'cmd1', cBackCommand);
|
||||
IniBarFile.WriteString('ButtonBar', 'cmd1', cOpenBar);
|
||||
IniBarFile.WriteString('ButtonBar', 'param1', SetCmdDirAsEnvVar(FBarFileName));
|
||||
IniBarFile.WriteString('ButtonBar', 'menu1', Actions.GetCommandCaption(cBackCommand));
|
||||
IniBarFile.WriteString('ButtonBar', 'menu1', Actions.GetCommandCaption(cOpenBar));
|
||||
IniBarFile.Free;
|
||||
end;
|
||||
Result:= ShowConfigToolbar(aFileName);
|
||||
|
|
|
|||
4483
src/fmain.lfm
4483
src/fmain.lfm
File diff suppressed because it is too large
Load diff
339
src/fmain.lrt
339
src/fmain.lrt
|
|
@ -1,169 +1,170 @@
|
|||
TFRMMAIN.CAPTION=Double Commander
|
||||
TFRMMAIN.BTNLEFTHOME.HINT=Go to home directory
|
||||
TFRMMAIN.BTNLEFTHOME.CAPTION=~
|
||||
TFRMMAIN.BTNLEFTUP.HINT=Go to parent directory
|
||||
TFRMMAIN.BTNLEFTUP.CAPTION=..
|
||||
TFRMMAIN.BTNLEFTROOT.HINT=Go to root directory
|
||||
TFRMMAIN.BTNLEFTROOT.CAPTION=/
|
||||
TFRMMAIN.BTNLEFTDIRECTORYHOTLIST.HINT=Directory hotlist
|
||||
TFRMMAIN.BTNLEFTDIRECTORYHOTLIST.CAPTION=*
|
||||
TFRMMAIN.BTNLEFTTARGETEQUALSOURCE.HINT=Show same directory in opposite panel
|
||||
TFRMMAIN.BTNLEFTTARGETEQUALSOURCE.CAPTION==
|
||||
TFRMMAIN.BTNRIGHTHOME.CAPTION=~
|
||||
TFRMMAIN.BTNRIGHTUP.CAPTION=..
|
||||
TFRMMAIN.BTNRIGHTROOT.CAPTION=/
|
||||
TFRMMAIN.BTNRIGHTDIRECTORYHOTLIST.CAPTION=*
|
||||
TFRMMAIN.BTNRIGHTTARGETEQUALSOURCE.CAPTION==
|
||||
TFRMMAIN.LBLCOMMANDPATH.CAPTION=Path
|
||||
TFRMMAIN.BTNF9.CAPTION=Terminal F9
|
||||
TFRMMAIN.MNUFILES.CAPTION=Files
|
||||
TFRMMAIN.MILINE1.CAPTION=-
|
||||
TFRMMAIN.MILINE2.CAPTION=-
|
||||
TFRMMAIN.MNUFILESCOMBINE.CAPTION=Combine Files
|
||||
TFRMMAIN.MILINE4.CAPTION=-
|
||||
TFRMMAIN.MNUMARK.CAPTION=&Mark
|
||||
TFRMMAIN.MILINE5.CAPTION=-
|
||||
TFRMMAIN.MNUMARKCMPDIR.CAPTION=&Compare Directories
|
||||
TFRMMAIN.MILINE10.CAPTION=-
|
||||
TFRMMAIN.MNUCMD.CAPTION=&Commands
|
||||
TFRMMAIN.MILINE6.CAPTION=-
|
||||
TFRMMAIN.MILINE9.CAPTION=-
|
||||
TFRMMAIN.MILINE22.CAPTION=-
|
||||
TFRMMAIN.MNUTABS.CAPTION=&Tabs
|
||||
TFRMMAIN.MILINE15.CAPTION=-
|
||||
TFRMMAIN.MILINE16.CAPTION=-
|
||||
TFRMMAIN.MNUTABOPTIONS.CAPTION=Options
|
||||
TFRMMAIN.MILINE17.CAPTION=-
|
||||
TFRMMAIN.MNUSHOW.CAPTION=&Show
|
||||
TFRMMAIN.MILINE7.CAPTION=-
|
||||
TFRMMAIN.MILINE3.CAPTION=-
|
||||
TFRMMAIN.MILINE13.CAPTION=-
|
||||
TFRMMAIN.MNUSHOWOPERATIONS.CAPTION=Operations viewer
|
||||
TFRMMAIN.MNUCONFIG.CAPTION=C&onfiguration
|
||||
TFRMMAIN.MNUHELP.CAPTION=&Help
|
||||
TFRMMAIN.MILINE18.CAPTION=-
|
||||
TFRMMAIN.ACTEXIT.CAPTION=Exit
|
||||
TFRMMAIN.ACTVIEW.CAPTION=View F3
|
||||
TFRMMAIN.ACTEDIT.CAPTION=Edit F4
|
||||
TFRMMAIN.ACTCOPY.CAPTION=Copy F5
|
||||
TFRMMAIN.ACTRENAME.CAPTION=Move F6
|
||||
TFRMMAIN.ACTMAKEDIR.CAPTION=MakeDir F7
|
||||
TFRMMAIN.ACTDELETE.CAPTION=Delete F8
|
||||
TFRMMAIN.ACTABOUT.CAPTION=About
|
||||
TFRMMAIN.ACTSHOWSYSFILES.CAPTION=Show hidden/system files
|
||||
TFRMMAIN.ACTOPTIONS.CAPTION=Options...
|
||||
TFRMMAIN.ACTCOMPARECONTENTS.CAPTION=Compare by &Contents
|
||||
TFRMMAIN.ACTSHOWMENU.CAPTION=Menu F9
|
||||
TFRMMAIN.ACTREFRESH.CAPTION=&Refresh
|
||||
TFRMMAIN.ACTSEARCH.CAPTION=&Search
|
||||
TFRMMAIN.ACTDIRHOTLIST.CAPTION=Directory &hotlist
|
||||
TFRMMAIN.ACTMARKMARKALL.CAPTION=&Select All
|
||||
TFRMMAIN.ACTMARKINVERT.CAPTION=Invert Selections
|
||||
TFRMMAIN.ACTMARKUNMARKALL.CAPTION=Unselect All
|
||||
TFRMMAIN.ACTMARKPLUS.CAPTION=Select a group
|
||||
TFRMMAIN.ACTMARKMINUS.CAPTION=Unselect a group
|
||||
TFRMMAIN.ACTSYMLINK.CAPTION=Create symlink...
|
||||
TFRMMAIN.ACTHARDLINK.CAPTION=Create link...
|
||||
TFRMMAIN.ACTREVERSEORDER.CAPTION=Reverse order
|
||||
TFRMMAIN.ACTSORTBYNAME.CAPTION=Sort by name
|
||||
TFRMMAIN.ACTSORTBYEXT.CAPTION=Sort by extension
|
||||
TFRMMAIN.ACTSORTBYSIZE.CAPTION=Sort by size
|
||||
TFRMMAIN.ACTSORTBYDATE.CAPTION=Sort by date
|
||||
TFRMMAIN.ACTSORTBYATTR.CAPTION=Sort by attrib
|
||||
TFRMMAIN.ACTMULTIRENAME.CAPTION=Multi Rename Tool
|
||||
TFRMMAIN.ACTCOPYSAMEPANEL.CAPTION=Copy to same panel
|
||||
TFRMMAIN.ACTRENAMEONLY.CAPTION=Rename
|
||||
TFRMMAIN.ACTEDITNEW.CAPTION=Edit new file
|
||||
TFRMMAIN.ACTDIRHISTORY.CAPTION=Directory history
|
||||
TFRMMAIN.ACTSHOWCMDLINEHISTORY.CAPTION=Show command line history
|
||||
TFRMMAIN.ACTRUNTERM.CAPTION=Run Term
|
||||
TFRMMAIN.ACTCALCULATESPACE.CAPTION=Calculate &Occupied Space...
|
||||
TFRMMAIN.ACTFILEPROPERTIES.CAPTION=Show file properties
|
||||
TFRMMAIN.ACTFILELINKER.CAPTION=Link files
|
||||
TFRMMAIN.ACTFILESPLITER.CAPTION=Split file
|
||||
TFRMMAIN.ACTNEWTAB.CAPTION=New tab
|
||||
TFRMMAIN.ACTPACKFILES.CAPTION=Pack files...
|
||||
TFRMMAIN.ACTEXTRACTFILES.CAPTION=Extract files...
|
||||
TFRMMAIN.ACTOPENVIRTUALFILESYSTEMLIST.CAPTION=Open VFS List
|
||||
TFRMMAIN.ACTLEFTOPENDRIVES.CAPTION=Open left drive list
|
||||
TFRMMAIN.ACTRIGHTOPENDRIVES.CAPTION=Open right drive list
|
||||
TFRMMAIN.ACTADDPATHTOCMDLINE.CAPTION=Copy path to command line
|
||||
TFRMMAIN.ACTFOCUSCMDLINE.CAPTION=Focus command line
|
||||
TFRMMAIN.ACTTRANSFERLEFT.CAPTION=Transfer dir under cursor to left window
|
||||
TFRMMAIN.ACTTRANSFERRIGHT.CAPTION=Transfer dir under cursor to right window
|
||||
TFRMMAIN.ACTCONTEXTMENU.CAPTION=Show context menu
|
||||
TFRMMAIN.ACTOPENARCHIVE.CAPTION=Try open archive
|
||||
TFRMMAIN.ACTSHOWBUTTONMENU.CAPTION=Show button menu
|
||||
TFRMMAIN.ACTQUICKSEARCH.CAPTION=Quick search
|
||||
TFRMMAIN.ACTFILEASSOC.CAPTION=File associations...
|
||||
TFRMMAIN.ACTOPEN.CAPTION=Open
|
||||
TFRMMAIN.ACTCOPYNAMESTOCLIP.CAPTION=Copy &Filename(s) to Clipboard
|
||||
TFRMMAIN.ACTCUTTOCLIPBOARD.CAPTION=Cu&t
|
||||
TFRMMAIN.ACTCOPYTOCLIPBOARD.CAPTION=&Copy
|
||||
TFRMMAIN.ACTPASTEFROMCLIPBOARD.CAPTION=&Paste
|
||||
TFRMMAIN.ACTCOPYFULLNAMESTOCLIP.CAPTION=Copy Filename(s) with Full &Path
|
||||
TFRMMAIN.ACTTARGETEQUALSOURCE.CAPTION=Target &= Source
|
||||
TFRMMAIN.ACTEXCHANGE.CAPTION=Swap &Panels
|
||||
TFRMMAIN.ACTWIPE.CAPTION=Wipe
|
||||
TFRMMAIN.ACTMARKCURRENTEXTENSION.CAPTION=Select all with same extension
|
||||
TFRMMAIN.ACTUNMARKCURRENTEXTENSION.CAPTION=Unselect all with same extension
|
||||
TFRMMAIN.ACTEDITCOMMENT.CAPTION=Edit comment...
|
||||
TFRMMAIN.ACTKEYBOARD.CAPTION=Keyboard
|
||||
TFRMMAIN.ACTVISITHOMEPAGE.CAPTION=Visit Double Commander Web Site
|
||||
TFRMMAIN.ACTHELPINDEX.CAPTION=Contents
|
||||
TFRMMAIN.ACTLEFTEQUALRIGHT.CAPTION=Left &= Right
|
||||
TFRMMAIN.ACTRIGHTEQUALLEFT.CAPTION=Right &= Left
|
||||
TFRMMAIN.ACTCHANGEDIRTOROOT.CAPTION=Change directory to root
|
||||
TFRMMAIN.ACTCOUNTDIRCONTENT.CAPTION=Sho&w occupied space
|
||||
TFRMMAIN.ACTCHECKSUMVERIFY.CAPTION=Verify check sum...
|
||||
TFRMMAIN.ACTCHECKSUMCALC.CAPTION=Calculate check sum...
|
||||
TFRMMAIN.ACTCLEARLOGFILE.CAPTION=Clear log file
|
||||
TFRMMAIN.ACTCLEARLOGWINDOW.CAPTION=Clear log window
|
||||
TFRMMAIN.ACTMINIMIZE.CAPTION=Minimize window
|
||||
TFRMMAIN.ACTCHANGEDIR.CAPTION=Change directory
|
||||
TFRMMAIN.ACTADDFILENAMETOCMDLINE.CAPTION=Add file name to command line
|
||||
TFRMMAIN.ACTADDPATHANDFILENAMETOCMDLINE.CAPTION=Add path and file name to command line
|
||||
TFRMMAIN.ACTPANELSSPLITTERPERPOS.CAPTION=Set splitter position
|
||||
TFRMMAIN.ACTSORTBYCOLUMN.CAPTION=Sort by column
|
||||
TFRMMAIN.ACTDRIVECONTEXTMENU.CAPTION=Drive context menu
|
||||
TFRMMAIN.ACTCOPYNOASK.CAPTION=Copy files without asking for confirmation
|
||||
TFRMMAIN.ACTRENAMENOASK.CAPTION=Move/Rename files without asking for confirmation
|
||||
TFRMMAIN.ACTQUICKFILTER.CAPTION=Quick filter
|
||||
TFRMMAIN.ACTSETFILEPROPERTIES.CAPTION=Change file properties
|
||||
TFRMMAIN.ACTOPENDIRINNEWTAB.CAPTION=Open folder in new tab
|
||||
TFRMMAIN.ACTREMOVETAB.CAPTION=Remove tab
|
||||
TFRMMAIN.ACTREMOVEALLTABS.CAPTION=Remove all tabs
|
||||
TFRMMAIN.ACTSETTABOPTIONNORMAL.CAPTION=Normal
|
||||
TFRMMAIN.ACTSETTABOPTIONPATHLOCKED.CAPTION=Locked
|
||||
TFRMMAIN.ACTSETTABOPTIONPATHRESETS.CAPTION=Locked, but directory changes allowed
|
||||
TFRMMAIN.ACTSETTABOPTIONDIRSINNEWTAB.CAPTION=Directories are opened in new tabs
|
||||
TFRMMAIN.ACTNEXTTAB.CAPTION=Switch to next tab
|
||||
TFRMMAIN.ACTPREVTAB.CAPTION=Switch to previous tab
|
||||
TFRMMAIN.TBEDIT.CAPTION=Edit
|
||||
TFRMMAIN.TBDELETE.CAPTION=Delete
|
||||
TFRMMAIN.MENUITEM2.CAPTION=-
|
||||
TFRMMAIN.MI2080.CAPTION=&20/80
|
||||
TFRMMAIN.MI3070.CAPTION=&30/70
|
||||
TFRMMAIN.MI4060.CAPTION=&40/60
|
||||
TFRMMAIN.MI5050.CAPTION=&50/50
|
||||
TFRMMAIN.MI6040.CAPTION=&60/40
|
||||
TFRMMAIN.MI7030.CAPTION=&70/30
|
||||
TFRMMAIN.MI8020.CAPTION=&80/20
|
||||
TFRMMAIN.MICOPY.CAPTION=Copy...
|
||||
TFRMMAIN.MIMOVE.CAPTION=Move...
|
||||
TFRMMAIN.MIHARDLINK.CAPTION=Create link...
|
||||
TFRMMAIN.MISYMLINK.CAPTION=Create symlink...
|
||||
TFRMMAIN.MILINE12.CAPTION=-
|
||||
TFRMMAIN.MICANCEL.CAPTION=Cancel
|
||||
TFRMMAIN.MILINE14.CAPTION=-
|
||||
TFRMMAIN.MILINE19.CAPTION=-
|
||||
TFRMMAIN.MITABOPTIONS.CAPTION=Tab options
|
||||
TFRMMAIN.MITRAYICONRESTORE.CAPTION=Restore
|
||||
TFRMMAIN.MILINE8.CAPTION=-
|
||||
TFRMMAIN.MITRAYICONEXIT.CAPTION=Exit
|
||||
TFRMMAIN.MILOGCOPY.CAPTION=Copy
|
||||
TFRMMAIN.MILINE24.CAPTION=-
|
||||
TFRMMAIN.MILOGSELECTALL.CAPTION=Select All
|
||||
TFRMMAIN.MILINE25.CAPTION=-
|
||||
TFRMMAIN.MILOGCLEAR.CAPTION=Clear
|
||||
TFRMMAIN.MILOGHIDE.CAPTION=Hide
|
||||
TFRMMAIN.CAPTION=Double Commander
|
||||
TFRMMAIN.BTNLEFTHOME.HINT=Go to home directory
|
||||
TFRMMAIN.BTNLEFTHOME.CAPTION=~
|
||||
TFRMMAIN.BTNLEFTUP.HINT=Go to parent directory
|
||||
TFRMMAIN.BTNLEFTUP.CAPTION=..
|
||||
TFRMMAIN.BTNLEFTROOT.HINT=Go to root directory
|
||||
TFRMMAIN.BTNLEFTROOT.CAPTION=/
|
||||
TFRMMAIN.BTNLEFTDIRECTORYHOTLIST.HINT=Directory hotlist
|
||||
TFRMMAIN.BTNLEFTDIRECTORYHOTLIST.CAPTION=*
|
||||
TFRMMAIN.BTNLEFTTARGETEQUALSOURCE.HINT=Show same directory in opposite panel
|
||||
TFRMMAIN.BTNLEFTTARGETEQUALSOURCE.CAPTION==
|
||||
TFRMMAIN.BTNRIGHTHOME.CAPTION=~
|
||||
TFRMMAIN.BTNRIGHTUP.CAPTION=..
|
||||
TFRMMAIN.BTNRIGHTROOT.CAPTION=/
|
||||
TFRMMAIN.BTNRIGHTDIRECTORYHOTLIST.CAPTION=*
|
||||
TFRMMAIN.BTNRIGHTTARGETEQUALSOURCE.CAPTION==
|
||||
TFRMMAIN.LBLCOMMANDPATH.CAPTION=Path
|
||||
TFRMMAIN.BTNF9.CAPTION=Terminal F9
|
||||
TFRMMAIN.MNUFILES.CAPTION=Files
|
||||
TFRMMAIN.MILINE1.CAPTION=-
|
||||
TFRMMAIN.MILINE2.CAPTION=-
|
||||
TFRMMAIN.MNUFILESCOMBINE.CAPTION=Combine Files
|
||||
TFRMMAIN.MILINE4.CAPTION=-
|
||||
TFRMMAIN.MNUMARK.CAPTION=&Mark
|
||||
TFRMMAIN.MILINE5.CAPTION=-
|
||||
TFRMMAIN.MNUMARKCMPDIR.CAPTION=&Compare Directories
|
||||
TFRMMAIN.MILINE10.CAPTION=-
|
||||
TFRMMAIN.MNUCMD.CAPTION=&Commands
|
||||
TFRMMAIN.MILINE6.CAPTION=-
|
||||
TFRMMAIN.MILINE9.CAPTION=-
|
||||
TFRMMAIN.MILINE22.CAPTION=-
|
||||
TFRMMAIN.MNUTABS.CAPTION=&Tabs
|
||||
TFRMMAIN.MILINE15.CAPTION=-
|
||||
TFRMMAIN.MILINE16.CAPTION=-
|
||||
TFRMMAIN.MNUTABOPTIONS.CAPTION=Options
|
||||
TFRMMAIN.MILINE17.CAPTION=-
|
||||
TFRMMAIN.MNUSHOW.CAPTION=&Show
|
||||
TFRMMAIN.MILINE7.CAPTION=-
|
||||
TFRMMAIN.MILINE3.CAPTION=-
|
||||
TFRMMAIN.MILINE13.CAPTION=-
|
||||
TFRMMAIN.MNUSHOWOPERATIONS.CAPTION=Operations viewer
|
||||
TFRMMAIN.MNUCONFIG.CAPTION=C&onfiguration
|
||||
TFRMMAIN.MNUHELP.CAPTION=&Help
|
||||
TFRMMAIN.MILINE18.CAPTION=-
|
||||
TFRMMAIN.ACTEXIT.CAPTION=Exit
|
||||
TFRMMAIN.ACTVIEW.CAPTION=View F3
|
||||
TFRMMAIN.ACTEDIT.CAPTION=Edit F4
|
||||
TFRMMAIN.ACTCOPY.CAPTION=Copy F5
|
||||
TFRMMAIN.ACTRENAME.CAPTION=Move F6
|
||||
TFRMMAIN.ACTMAKEDIR.CAPTION=MakeDir F7
|
||||
TFRMMAIN.ACTDELETE.CAPTION=Delete F8
|
||||
TFRMMAIN.ACTABOUT.CAPTION=About
|
||||
TFRMMAIN.ACTSHOWSYSFILES.CAPTION=Show hidden/system files
|
||||
TFRMMAIN.ACTOPTIONS.CAPTION=Options...
|
||||
TFRMMAIN.ACTCOMPARECONTENTS.CAPTION=Compare by &Contents
|
||||
TFRMMAIN.ACTSHOWMENU.CAPTION=Menu F9
|
||||
TFRMMAIN.ACTREFRESH.CAPTION=&Refresh
|
||||
TFRMMAIN.ACTSEARCH.CAPTION=&Search
|
||||
TFRMMAIN.ACTDIRHOTLIST.CAPTION=Directory &hotlist
|
||||
TFRMMAIN.ACTMARKMARKALL.CAPTION=&Select All
|
||||
TFRMMAIN.ACTMARKINVERT.CAPTION=Invert Selections
|
||||
TFRMMAIN.ACTMARKUNMARKALL.CAPTION=Unselect All
|
||||
TFRMMAIN.ACTMARKPLUS.CAPTION=Select a group
|
||||
TFRMMAIN.ACTMARKMINUS.CAPTION=Unselect a group
|
||||
TFRMMAIN.ACTSYMLINK.CAPTION=Create symlink...
|
||||
TFRMMAIN.ACTHARDLINK.CAPTION=Create link...
|
||||
TFRMMAIN.ACTREVERSEORDER.CAPTION=Reverse order
|
||||
TFRMMAIN.ACTSORTBYNAME.CAPTION=Sort by name
|
||||
TFRMMAIN.ACTSORTBYEXT.CAPTION=Sort by extension
|
||||
TFRMMAIN.ACTSORTBYSIZE.CAPTION=Sort by size
|
||||
TFRMMAIN.ACTSORTBYDATE.CAPTION=Sort by date
|
||||
TFRMMAIN.ACTSORTBYATTR.CAPTION=Sort by attrib
|
||||
TFRMMAIN.ACTMULTIRENAME.CAPTION=Multi Rename Tool
|
||||
TFRMMAIN.ACTCOPYSAMEPANEL.CAPTION=Copy to same panel
|
||||
TFRMMAIN.ACTRENAMEONLY.CAPTION=Rename
|
||||
TFRMMAIN.ACTEDITNEW.CAPTION=Edit new file
|
||||
TFRMMAIN.ACTDIRHISTORY.CAPTION=Directory history
|
||||
TFRMMAIN.ACTSHOWCMDLINEHISTORY.CAPTION=Show command line history
|
||||
TFRMMAIN.ACTRUNTERM.CAPTION=Run Term
|
||||
TFRMMAIN.ACTCALCULATESPACE.CAPTION=Calculate &Occupied Space...
|
||||
TFRMMAIN.ACTFILEPROPERTIES.CAPTION=Show file properties
|
||||
TFRMMAIN.ACTFILELINKER.CAPTION=Link files
|
||||
TFRMMAIN.ACTFILESPLITER.CAPTION=Split file
|
||||
TFRMMAIN.ACTNEWTAB.CAPTION=New tab
|
||||
TFRMMAIN.ACTPACKFILES.CAPTION=Pack files...
|
||||
TFRMMAIN.ACTEXTRACTFILES.CAPTION=Extract files...
|
||||
TFRMMAIN.ACTOPENVIRTUALFILESYSTEMLIST.CAPTION=Open VFS List
|
||||
TFRMMAIN.ACTLEFTOPENDRIVES.CAPTION=Open left drive list
|
||||
TFRMMAIN.ACTRIGHTOPENDRIVES.CAPTION=Open right drive list
|
||||
TFRMMAIN.ACTADDPATHTOCMDLINE.CAPTION=Copy path to command line
|
||||
TFRMMAIN.ACTFOCUSCMDLINE.CAPTION=Focus command line
|
||||
TFRMMAIN.ACTTRANSFERLEFT.CAPTION=Transfer dir under cursor to left window
|
||||
TFRMMAIN.ACTTRANSFERRIGHT.CAPTION=Transfer dir under cursor to right window
|
||||
TFRMMAIN.ACTCONTEXTMENU.CAPTION=Show context menu
|
||||
TFRMMAIN.ACTOPENARCHIVE.CAPTION=Try open archive
|
||||
TFRMMAIN.ACTSHOWBUTTONMENU.CAPTION=Show button menu
|
||||
TFRMMAIN.ACTQUICKSEARCH.CAPTION=Quick search
|
||||
TFRMMAIN.ACTFILEASSOC.CAPTION=File associations...
|
||||
TFRMMAIN.ACTOPEN.CAPTION=Open
|
||||
TFRMMAIN.ACTCOPYNAMESTOCLIP.CAPTION=Copy &Filename(s) to Clipboard
|
||||
TFRMMAIN.ACTCUTTOCLIPBOARD.CAPTION=Cu&t
|
||||
TFRMMAIN.ACTCOPYTOCLIPBOARD.CAPTION=&Copy
|
||||
TFRMMAIN.ACTPASTEFROMCLIPBOARD.CAPTION=&Paste
|
||||
TFRMMAIN.ACTCOPYFULLNAMESTOCLIP.CAPTION=Copy Filename(s) with Full &Path
|
||||
TFRMMAIN.ACTTARGETEQUALSOURCE.CAPTION=Target &= Source
|
||||
TFRMMAIN.ACTEXCHANGE.CAPTION=Swap &Panels
|
||||
TFRMMAIN.ACTWIPE.CAPTION=Wipe
|
||||
TFRMMAIN.ACTMARKCURRENTEXTENSION.CAPTION=Select all with same extension
|
||||
TFRMMAIN.ACTUNMARKCURRENTEXTENSION.CAPTION=Unselect all with same extension
|
||||
TFRMMAIN.ACTEDITCOMMENT.CAPTION=Edit comment...
|
||||
TFRMMAIN.ACTKEYBOARD.CAPTION=Keyboard
|
||||
TFRMMAIN.ACTVISITHOMEPAGE.CAPTION=Visit Double Commander Web Site
|
||||
TFRMMAIN.ACTHELPINDEX.CAPTION=Contents
|
||||
TFRMMAIN.ACTLEFTEQUALRIGHT.CAPTION=Left &= Right
|
||||
TFRMMAIN.ACTRIGHTEQUALLEFT.CAPTION=Right &= Left
|
||||
TFRMMAIN.ACTCHANGEDIRTOROOT.CAPTION=Change directory to root
|
||||
TFRMMAIN.ACTCOUNTDIRCONTENT.CAPTION=Sho&w occupied space
|
||||
TFRMMAIN.ACTCHECKSUMVERIFY.CAPTION=Verify check sum...
|
||||
TFRMMAIN.ACTCHECKSUMCALC.CAPTION=Calculate check sum...
|
||||
TFRMMAIN.ACTCLEARLOGFILE.CAPTION=Clear log file
|
||||
TFRMMAIN.ACTCLEARLOGWINDOW.CAPTION=Clear log window
|
||||
TFRMMAIN.ACTMINIMIZE.CAPTION=Minimize window
|
||||
TFRMMAIN.ACTCHANGEDIR.CAPTION=Change directory
|
||||
TFRMMAIN.ACTADDFILENAMETOCMDLINE.CAPTION=Add file name to command line
|
||||
TFRMMAIN.ACTADDPATHANDFILENAMETOCMDLINE.CAPTION=Add path and file name to command line
|
||||
TFRMMAIN.ACTPANELSSPLITTERPERPOS.CAPTION=Set splitter position
|
||||
TFRMMAIN.ACTSORTBYCOLUMN.CAPTION=Sort by column
|
||||
TFRMMAIN.ACTDRIVECONTEXTMENU.CAPTION=Drive context menu
|
||||
TFRMMAIN.ACTCOPYNOASK.CAPTION=Copy files without asking for confirmation
|
||||
TFRMMAIN.ACTRENAMENOASK.CAPTION=Move/Rename files without asking for confirmation
|
||||
TFRMMAIN.ACTQUICKFILTER.CAPTION=Quick filter
|
||||
TFRMMAIN.ACTSETFILEPROPERTIES.CAPTION=Change file properties
|
||||
TFRMMAIN.ACTOPENDIRINNEWTAB.CAPTION=Open folder in new tab
|
||||
TFRMMAIN.ACTREMOVETAB.CAPTION=Remove tab
|
||||
TFRMMAIN.ACTREMOVEALLTABS.CAPTION=Remove all tabs
|
||||
TFRMMAIN.ACTSETTABOPTIONNORMAL.CAPTION=Normal
|
||||
TFRMMAIN.ACTSETTABOPTIONPATHLOCKED.CAPTION=Locked
|
||||
TFRMMAIN.ACTSETTABOPTIONPATHRESETS.CAPTION=Locked, but directory changes allowed
|
||||
TFRMMAIN.ACTSETTABOPTIONDIRSINNEWTAB.CAPTION=Directories are opened in new tabs
|
||||
TFRMMAIN.ACTNEXTTAB.CAPTION=Switch to next tab
|
||||
TFRMMAIN.ACTPREVTAB.CAPTION=Switch to previous tab
|
||||
TFRMMAIN.ACTOPENBAR.CAPTION=Open bar file
|
||||
TFRMMAIN.TBEDIT.CAPTION=Edit
|
||||
TFRMMAIN.TBDELETE.CAPTION=Delete
|
||||
TFRMMAIN.MENUITEM2.CAPTION=-
|
||||
TFRMMAIN.MI2080.CAPTION=&20/80
|
||||
TFRMMAIN.MI3070.CAPTION=&30/70
|
||||
TFRMMAIN.MI4060.CAPTION=&40/60
|
||||
TFRMMAIN.MI5050.CAPTION=&50/50
|
||||
TFRMMAIN.MI6040.CAPTION=&60/40
|
||||
TFRMMAIN.MI7030.CAPTION=&70/30
|
||||
TFRMMAIN.MI8020.CAPTION=&80/20
|
||||
TFRMMAIN.MICOPY.CAPTION=Copy...
|
||||
TFRMMAIN.MIMOVE.CAPTION=Move...
|
||||
TFRMMAIN.MIHARDLINK.CAPTION=Create link...
|
||||
TFRMMAIN.MISYMLINK.CAPTION=Create symlink...
|
||||
TFRMMAIN.MILINE12.CAPTION=-
|
||||
TFRMMAIN.MICANCEL.CAPTION=Cancel
|
||||
TFRMMAIN.MILINE14.CAPTION=-
|
||||
TFRMMAIN.MILINE19.CAPTION=-
|
||||
TFRMMAIN.MITABOPTIONS.CAPTION=Tab options
|
||||
TFRMMAIN.MITRAYICONRESTORE.CAPTION=Restore
|
||||
TFRMMAIN.MILINE8.CAPTION=-
|
||||
TFRMMAIN.MITRAYICONEXIT.CAPTION=Exit
|
||||
TFRMMAIN.MILOGCOPY.CAPTION=Copy
|
||||
TFRMMAIN.MILINE24.CAPTION=-
|
||||
TFRMMAIN.MILOGSELECTALL.CAPTION=Select All
|
||||
TFRMMAIN.MILINE25.CAPTION=-
|
||||
TFRMMAIN.MILOGCLEAR.CAPTION=Clear
|
||||
TFRMMAIN.MILOGHIDE.CAPTION=Hide
|
||||
|
|
|
|||
|
|
@ -80,6 +80,7 @@ type
|
|||
actAddPathAndFilenameToCmdLine: TAction;
|
||||
actDriveContextMenu: TAction;
|
||||
actCopyNoAsk: TAction;
|
||||
actOpenBar: TAction;
|
||||
actSetFileProperties: TAction;
|
||||
actQuickFilter: TAction;
|
||||
actRenameNoAsk: TAction;
|
||||
|
|
@ -786,7 +787,7 @@ begin
|
|||
end;
|
||||
{*Tool Bar*}
|
||||
try
|
||||
IniBarFile:= TIniFileEx.Create(gpIniDir + 'default.bar');
|
||||
IniBarFile:= TIniFileEx.Create(MainToolBar.BarFile.CurrentBar);
|
||||
MainToolBar.SaveToIniFile(IniBarFile);
|
||||
finally
|
||||
FreeThenNil(IniBarFile);
|
||||
|
|
@ -1154,7 +1155,7 @@ begin
|
|||
begin
|
||||
MainToolBar.AddButtonX('', aFile.FullPath, '', aFile.Path,
|
||||
aFile.Name, '', aFile.FullPath);
|
||||
IniBarFile:= TIniFileEx.Create(gpIniDir + 'default.bar');
|
||||
IniBarFile:= TIniFileEx.Create(MainToolBar.BarFile.CurrentBar);
|
||||
try
|
||||
MainToolBar.SaveToIniFile(IniBarFile);
|
||||
finally
|
||||
|
|
@ -1188,7 +1189,7 @@ begin
|
|||
if msgYesNo(Format(rsMsgDelSel, [MainToolBar.Buttons[pmToolBar.Tag].Hint])) then
|
||||
begin
|
||||
MainToolBar.RemoveButton (pmToolBar.Tag);
|
||||
MainToolBar.SaveToFile(gpIniDir + 'default.bar');
|
||||
MainToolBar.SaveToFile(MainToolBar.BarFile.CurrentBar);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
|
@ -2977,9 +2978,33 @@ begin
|
|||
end;
|
||||
|
||||
procedure TfrmMain.tbEditClick(Sender: TObject);
|
||||
var
|
||||
iDelta: Integer;
|
||||
IniFile: TIniFileEx;
|
||||
begin
|
||||
if ShowConfigToolbar(MainToolBar.BarFile.CurrentBar, pmToolBar.Tag) then
|
||||
MainToolBar.LoadFromFile(MainToolBar.BarFile.CurrentBar);
|
||||
begin
|
||||
// apply new parameters to main toolbar
|
||||
if gToolBarSmallIcons then
|
||||
begin
|
||||
MainToolBar.GlyphSize:= gToolBarIconSize;
|
||||
iDelta:= 0;
|
||||
end
|
||||
else
|
||||
begin
|
||||
MainToolBar.GlyphSize:= gToolBarButtonSize;
|
||||
iDelta:= 4;
|
||||
end;
|
||||
MainToolBar.ButtonHeight:= gToolBarButtonSize + iDelta;
|
||||
MainToolBar.ButtonWidth:= gToolBarButtonSize + iDelta;
|
||||
MainToolBar.Flat:= gToolBarFlat;
|
||||
try
|
||||
IniFile:= TIniFileEx.Create(MainToolBar.BarFile.CurrentBar, fmOpenRead);
|
||||
MainToolBar.LoadFromIniFile(IniFile);
|
||||
finally
|
||||
FreeThenNil(IniFile);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmMain.FramePanelOnWatcherNotifyEvent(Sender: TObject; NotifyData: PtrInt);
|
||||
|
|
|
|||
5191
src/uacts.pas
5191
src/uacts.pas
File diff suppressed because it is too large
Load diff
Loading…
Add table
Add a link
Reference in a new issue