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

View File

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