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); procedure TCETodoListWidget.lstItemsDoubleClick(sender: TObject);
var var
itm: TTodoItem; itm: TTodoItem;
fname: string;
ln: string;
begin begin
if lstItems.Selected = nil then exit; if lstItems.Selected = nil then exit;
if lstItems.Selected.Data = 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); itm := TTodoItem(lstItems.Selected.Data);
CEMainForm.openFile(itm.filename); fname := itm.filename;
ln := itm.line;
CEMainForm.openFile(fname);
// //
if fDoc = nil then exit; if fDoc = nil then exit;
fDoc.CaretY := strToInt(itm.line); fDoc.CaretY := strToInt(ln);
fDoc.SelectLine; fDoc.SelectLine;
end; end;