Dont unselect message if target source is the one that has the focus, close #323

This commit is contained in:
Basile Burg 2018-05-09 11:39:03 +02:00
parent a08ac85eab
commit 3a73b9577b
1 changed files with 4 additions and 1 deletions

View File

@ -1004,15 +1004,18 @@ procedure TCEMessagesWidget.handleMessageClick(Sender: TObject);
var var
pos: TPoint; pos: TPoint;
msg: string; msg: string;
old: TCESynMemo;
begin begin
if List.Selected.isNil then if List.Selected.isNil then
exit; exit;
if ssCtrl in GetKeyShiftState then if ssCtrl in GetKeyShiftState then
exit; exit;
old := fDoc;
msg := List.Selected.Text; msg := List.Selected.Text;
if not openFileFromDmdMessage(msg) then if not openFileFromDmdMessage(msg) then
exit; exit;
List.ClearSelection(false); if fDoc <> old then
List.ClearSelection(false);
// from here, since a doc has the focus, List.Selected is nil // from here, since a doc has the focus, List.Selected is nil
pos := getLineFromMessage(msg); pos := getLineFromMessage(msg);
if fDoc.isNil then if fDoc.isNil then