forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix, dbl click todo item, av

This commit is contained in:
Basile Burg 2015-01-16 04:23:31 +01:00
parent 181b1361a3
commit 08ef69ce89
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/ce_todolist.pas
View File

@ -353,15 +353,21 @@ end;
procedure TCETodoListWidget.lstItemsDoubleClick(sender: TObject);
var
itm: TTodoItem;
fname: string;
ln: string;
begin
if lstItems.Selected = nil then exit;
if lstItems.Selected.Data = nil then exit;
//
// the collection will be cleared if a file is opened
// docFocused->callToolProcess->fTodos....clear
// so line and filename must be copied
itm := TTodoItem(lstItems.Selected.Data);
CEMainForm.openFile(itm.filename);
fname := itm.filename;
ln := itm.line;
CEMainForm.openFile(fname);
//
if fDoc = nil then exit;
fDoc.CaretY := strToInt(itm.line);
fDoc.CaretY := strToInt(ln);
fDoc.SelectLine;
end;