rewritten message dbl click, open editor and focus line, column

This commit is contained in:
Basile Burg 2014-11-10 07:47:30 +01:00
parent e7c9cfac4d
commit 4fba5dff2c
1 changed files with 11 additions and 10 deletions

View File

@ -493,17 +493,18 @@ begin
end;
procedure TCEMessagesWidget.ListDblClick(Sender: TObject);
//var
//dat: PMessageItemData;
var
pos: TPoint;
msg: string;
begin
//if List.Selected = nil then exit;
//if List.Selected.Data = nil then exit;
////
//dat := PMessageItemData(List.Selected.Data);
//if dat^.editor = nil then exit;
//CEMainForm.openFile(dat^.editor.fileName);
//dat^.editor.CaretXY := dat^.position;
//dat^.editor.SelectLine;
if List.Selected = nil then exit;
msg := List.Selected.Text;
if not openFileFromDmdMessage(msg) then exit;
// from here since a doc has the focus, List.Selected is nil
pos := getLineFromDmdMessage(msg);
if fDoc = nil then exit;
fDoc.CaretXY := pos;
fDoc.SelectLine;
end;
procedure TCEMessagesWidget.filterMessages(aCtxt: TCEAppMessageCtxt);