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

ADD: Some code for lock tab function

Browse source
This commit is contained in:
Alexander Koblov 2008-09-28 18:59:43 +00:00
commit e66e7d80df
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
fmain.pas
View file

@ -2544,6 +2544,8 @@ begin
CreatePanel(AddPage(ANoteBook), fpsPanel, sPath);
ANoteBook.Page[ANoteBook.PageCount - 1].Tag:= gIni.ReadInteger(TabsSection, sIndex + '_options', 0);
if ANoteBook.Page[ANoteBook.PageCount - 1].Tag = 2 then // if locked tab with directory change
ANoteBook.Page[ANoteBook.PageCount - 1].Hint:= sPath; // save in hint real path
if sCaption <> '' then
if Boolean(gDirTabOptions and tb_text_length_limit) and (Length(sCaption) > gDirTabLimit) then
@ -2604,7 +2606,10 @@ begin
else
Break;
end;
sPath := TFrameFilePanel(ANoteBook.Page[I].Components[0]).ActiveDir;
if ANoteBook.Page[I].Tag = 2 then // if locked tab with directory change
sPath := ANoteBook.Page[I].Hint // get path from hint
else
sPath := TFrameFilePanel(ANoteBook.Page[I].Components[0]).ActiveDir;
gIni.WriteString(TabsSection, sIndex + '_path', sPath);
gIni.WriteString(TabsSection, sIndex + '_caption', ANoteBook.Page[I].Caption);
gIni.WriteInteger(TabsSection, sIndex + '_options', ANoteBook.Page[I].Tag);