forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix #14

This commit is contained in:
Basile Burg 2016-02-16 18:56:29 +01:00
parent c08f752fc1
commit e019c81175
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/ce_editor.pas
View File

@ -539,14 +539,15 @@ begin
fKeyChanged := false;
if fDoc.Lines.Count = 0 then exit;
//
md := '';
if fDoc.isDSource and (fDoc.CaretY < 50) then
md := pageControl.currentPage.Caption;
if (fDoc.isDSource and (fDoc.CaretY < 50)) or (md = fDoc.fileName.extractFileName) then
begin
lex(fDoc.Lines.Text, fTokList, @lexFindToken);
md := getModuleName(fTokList);
fTokList.Clear;
end;
if md.isEmpty then md := fDoc.fileName.extractFileName;
if md.isEmpty or (md = '<new document>') then
md := fDoc.fileName.extractFileName;
pageControl.currentPage.Caption := md;
end;
{$ENDREGION}