mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Use old tab name as template when rename

Browse source
This commit is contained in:
Alexander Koblov 2011-06-25 10:39:44 +00:00
commit 4832819687
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/uacts.pas
View file

@ -1225,8 +1225,15 @@ var
sCaption: UTF8String;
begin
with frmMain do
begin
sCaption:= ActiveNotebook.Page[ActiveNotebook.PageIndex].Caption;
if (Length(sCaption) > 0) and (sCaption[1] = '*') and
(ActiveNotebook.Page[ActiveNotebook.PageIndex].LockState <> tlsNormal) and
(tb_show_asterisk_for_locked in gDirTabOptions) then
UTF8Delete(sCaption, 1, 1);
if InputQuery(rsMsgTabRenameCaption, rsMsgTabRenamePrompt, sCaption) then
ActiveNotebook.Page[ActiveNotebook.PageIndex].UpdateCaption(sCaption);
end;
end;
procedure TActs.cm_RemoveTab(param:string);