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; fKeyChanged := false;
if fDoc.Lines.Count = 0 then exit; if fDoc.Lines.Count = 0 then exit;
// //
md := ''; md := pageControl.currentPage.Caption;
if fDoc.isDSource and (fDoc.CaretY < 50) then if (fDoc.isDSource and (fDoc.CaretY < 50)) or (md = fDoc.fileName.extractFileName) then
begin begin
lex(fDoc.Lines.Text, fTokList, @lexFindToken); lex(fDoc.Lines.Text, fTokList, @lexFindToken);
md := getModuleName(fTokList); md := getModuleName(fTokList);
fTokList.Clear; fTokList.Clear;
end; 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; pageControl.currentPage.Caption := md;
end; end;
{$ENDREGION} {$ENDREGION}