fix, possible focus loss on doc switch

This commit is contained in:
Basile Burg 2015-01-19 06:26:48 +01:00
parent 64a852bb60
commit 8fa2a71147
1 changed files with 2 additions and 5 deletions

View File

@ -363,10 +363,7 @@ end;
procedure TCESynMemo.SetVisible(Value: Boolean); procedure TCESynMemo.SetVisible(Value: Boolean);
begin begin
inherited; inherited;
if not Value then exit; if Value then setFocus;
checkFileDate;
identifierToD2Syn;
subjDocFocused(TCEMultiDocSubject(fMultiDocSubject), self);
end; end;
procedure TCESynMemo.SetHighlighter(const Value: TSynCustomHighlighter); procedure TCESynMemo.SetHighlighter(const Value: TSynCustomHighlighter);
@ -408,7 +405,7 @@ begin
loadCache; loadCache;
// //
fModified := false; fModified := false;
subjDocFocused(TCEMultiDocSubject(fMultiDocSubject), self); setFocus;
subjDocChanged(TCEMultiDocSubject(fMultiDocSubject), self); subjDocChanged(TCEMultiDocSubject(fMultiDocSubject), self);
end; end;