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

fixup for 8b880edddf

This commit is contained in:
Basile Burg 2016-03-11 18:44:00 +01:00
parent 750a8761b9
commit f3c15fff00
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ce_editor.pas
View File

@ -198,6 +198,8 @@ end;
procedure TCEEditorWidget.docFocused(aDoc: TCESynMemo); procedure TCEEditorWidget.docFocused(aDoc: TCESynMemo);
begin begin
if pageControl.currentPage.Caption = '<new document>' then
updatePageCaption;
if aDoc = fDoc then exit; if aDoc = fDoc then exit;
fDoc := aDoc; fDoc := aDoc;
focusedEditorChanged; focusedEditorChanged;
@ -206,7 +208,8 @@ end;
procedure TCEEditorWidget.docChanged(aDoc: TCESynMemo); procedure TCEEditorWidget.docChanged(aDoc: TCESynMemo);
begin begin
if fDoc <> aDoc then exit; if fDoc <> aDoc then
exit;
fKeyChanged := true; fKeyChanged := true;
beginDelayedUpdate; beginDelayedUpdate;
end; end;