paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 01:20:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

ToDoList: A minor fix.

Browse Source
This commit is contained in:
Juha 2025-06-29 01:08:27 +03:00
parent 752aaa4a7d
commit 4669f5dc48
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/todolist/todolist.pas
View File

@ -214,6 +214,7 @@ var
i: Integer;
begin
FTodoItemToEdit := nil;
ACaption := lisTDDInsertToDo;
SrcEdit := SourceEditorManagerIntf.ActiveEditor;
if SrcEdit=nil then exit;
for i := 0 to lvtodo.Items.Count-1 do
@ -222,14 +223,14 @@ begin
TodoItem := TTodoItem(ListItem.Data);
SrcPos := SrcEdit.CursorTextXY;
if (TodoItem.Filename = SrcEdit.FileName)
and (SrcPos.Y = TodoItem.CodePos.Y)
and (SrcPos.X > TodoItem.CodePos.X)
and (SrcPos.X < TodoItem.CodePos.X + TodoItem.CommentLen)
and (SrcPos.Y = TodoItem.CodePos.Y) then
and (SrcPos.X < TodoItem.CodePos.X + TodoItem.CommentLen) then
begin
// Editor cursor is inside a ToDo item > change menu item captions.
lvTodo.Selected := ListItem;
FTodoItemToEdit := TodoItem; // InsertOrEditToDo in ToDoDlg knows what to do.
ACaption:=lisTDDEditToDo;
ACaption := lisTDDEditToDo;
Break;
end;
end;