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

EditorSyntaxHighlighterDef: Free callback list, if editoropts where not created. Fixes #41732

Browse Source
This commit is contained in:
Martin 2025-07-01 20:05:50 +02:00
parent c8e1818c64
commit 4a28f12f43
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/ideintf/editorsyntaxhighlighterdef.pas
View File

@ -153,9 +153,14 @@ end;
procedure _IDE_CallOnIdeColorSchemeListCreated; procedure _IDE_CallOnIdeColorSchemeListCreated;
begin begin
if OnIdeColorSchemeListCreated = nil then
exit;
OnIdeColorSchemeListCreated.CallNotifyEvents(nil); OnIdeColorSchemeListCreated.CallNotifyEvents(nil);
FreeAndNil(OnIdeColorSchemeListCreated); FreeAndNil(OnIdeColorSchemeListCreated);
end; end;
finalization
FreeAndNil(OnIdeColorSchemeListCreated);
end. end.