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

Revert "ToDoList: Prevent a memory leak when running "lazarus --help". Issue #41732."

Browse Source 
This reverts commit 6a05f61aa3.
This commit is contained in:
Juha 2025-07-01 17:22:17 +03:00
parent 7acf414c64
commit 068397b12e
2 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/todolist/tododlg.pas
View File

@ -42,7 +42,6 @@ uses
PackageIntf,
// IdeIntf
IDECommands, MenuIntf, ToolBarIntf, SrcEditorIntf, IDEWindowIntf, LazIDEIntf,
EditorSyntaxHighlighterDef,
SynEdit,
// TodoList
ToDoList, ToDoListStrConsts, ToDoListCore, TodoSynMarkup;
@ -121,8 +120,6 @@ begin
// mattias: test short cut
ToDoManager := TToDoManager.Create;
// Register syntax highlighter
RegisterOnIdeColorSchemeListCreated(@TTodoEditorHandler(nil).DoRegisterAttribs);
// register shortcut for insert todo
Key := IDEShortCut(VK_T,[ssCtrl,ssShift],VK_UNKNOWN,[]);

21
components/todolist/todosynmarkup.pas
View File

@ -19,14 +19,6 @@ uses
SynEditHighlighter, SynEditHighlighterFoldBase;
type
{ TTodoEditorHandler }
TTodoEditorHandler = class
procedure DoEditorCreated(Sender: TObject);
procedure DoColorsChanged(Sender: TObject);
procedure DoRegisterAttribs(Sender: TObject);
end;
TFoundTodo = record
StartPos: TLogPoint;
EndPos: TLogPoint;
@ -62,6 +54,16 @@ procedure Register;
implementation
type
{ TTodoEditorHandler }
TTodoEditorHandler = class
procedure DoEditorCreated(Sender: TObject);
procedure DoColorsChanged(Sender: TObject);
procedure DoRegisterAttribs(Sender: TObject);
end;
var
AttribGroupIdx: Integer;
CommentAttribTodo, CommentAttribDone, CommentAttribNote: TSynSelectedColor;
@ -588,8 +590,9 @@ begin
end;
end;
initialization
RegisterOnIdeColorSchemeListCreated(@TTodoEditorHandler(nil).DoRegisterAttribs);
finalization
FreeAttribs;
end.