fix, editor cache was not properly reloaded when a document is reopnened

automatically at startup
This commit is contained in:
Basile Burg 2015-11-29 17:58:24 +01:00
parent ea9b3af4dd
commit 144fd79788
1 changed files with 13 additions and 4 deletions

View File

@ -91,6 +91,7 @@ type
fFilename: string; fFilename: string;
fModified: boolean; fModified: boolean;
fFileDate: double; fFileDate: double;
fCacheLoaded: boolean;
fIsDSource: boolean; fIsDSource: boolean;
fIsTxtFile: boolean; fIsTxtFile: boolean;
fIsConfig: boolean; fIsConfig: boolean;
@ -526,7 +527,12 @@ procedure TCESynMemo.SetVisible(Value: Boolean);
begin begin
inherited; inherited;
if Value then if Value then
setFocus begin
setFocus;
if not fCacheLoaded then
loadCache;
fCacheLoaded := true;
end
else begin else begin
fDDocWin.Hide; fDDocWin.Hide;
fCallTipWin.Hide; fCallTipWin.Hide;
@ -712,10 +718,13 @@ begin
fFilename := aFilename; fFilename := aFilename;
FileAge(fFilename, fFileDate); FileAge(fFilename, fFileDate);
// //
loadCache;
//
fModified := false; fModified := false;
if Showing then setFocus; if Showing then
begin
setFocus;
loadCache;
fCacheLoaded := true;
end;
subjDocChanged(TCEMultiDocSubject(fMultiDocSubject), self); subjDocChanged(TCEMultiDocSubject(fMultiDocSubject), self);
end; end;