clear by context, clear editor specific msg, not all the editor msg

This commit is contained in:
Basile Burg 2015-01-04 22:31:54 +01:00
parent 826c591548
commit bce244b754
1 changed files with 8 additions and 1 deletions

View File

@ -289,7 +289,14 @@ end;
procedure TCEMessagesWidget.actClearCurCatExecute(Sender: TObject); procedure TCEMessagesWidget.actClearCurCatExecute(Sender: TObject);
begin begin
case fCtxt of
amcAll, amcApp, amcMisc :
lmClearbyContext(fCtxt); lmClearbyContext(fCtxt);
amcEdit: if fDoc <> nil then
lmClearbyData(fDoc);
amcProj: if fProj <> nil then
lmClearbyData(fProj);
end;
end; end;
procedure TCEMessagesWidget.actCopyMsgExecute(Sender: TObject); procedure TCEMessagesWidget.actCopyMsgExecute(Sender: TObject);