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

TodoList: Don't try to update the list too early. Regression caused by issue #31006.

Browse Source 
git-svn-id: trunk@55059 -
This commit is contained in:
juha 2017-05-23 07:46:34 +00:00
parent 6dbb82d795
commit 5b3be46dc8
1 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/todolist/todolist.pas
View File

@ -205,7 +205,7 @@ type
procedure UpdateTodos(Immediately: boolean = false);
property IDEItem: string read FIDEItem write SetIDEItem; // package name or empty for active project
property StartFilename : String read fStartFilename write SetStartFilename; // lpi, lpk or a source file
property StartFilename: String read fStartFilename write SetStartFilename; // lpi, lpk or a source file
property BaseDirectory: string read FBaseDirectory;
property OnOpenFile: TOnOpenFile read FOnOpenFile write FOnOpenFile;
property IdleConnected: boolean read FIdleConnected write SetIdleConnected;
@ -274,11 +274,7 @@ begin
exit;
end;
fUpdateNeeded:=false;
if fUpdating then Exit;
DebugLn(['TfrmTodo.UpdateTodos StartFilename=',StartFilename,' IDEItem=',IDEItem]);
LazarusIDE.SaveSourceEditorChangesToCodeCache(nil);
Screen.Cursor:=crHourGlass;
@ -302,9 +298,9 @@ begin
end;
ResolveIDEItem(CurOwner,CurProject,CurPkg);
Assert(Assigned(CurOwner), 'TIDETodoWindow.UpdateTodos: CurOwner=Nil');
Flags:=[];
if chkListed.Checked then
Include(Flags, fuooListed);
if chkUsed.Checked then
@ -343,8 +339,7 @@ end;
procedure TIDETodoWindow.FormShow(Sender: TObject);
begin
IdleConnected:=true;
UpdateTodos(true);
UpdateTodos;
end;
procedure TIDETodoWindow.HelpButtonClick(Sender: TObject);