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

Education package: Fix compilation after cbc97e5a03.

Browse Source
This commit is contained in:
Juha 2021-11-24 12:49:30 +02:00
parent 63945a80e6
commit b1e6affa83
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/education/educomppalette.pas
View File

@ -418,13 +418,13 @@ begin
inherited Create;
Name:='ComponentPalette';
fVisible:=TStringToStringTree.Create(false);
IDEComponentPalette.AddHandlerUpdateVisible(@VoteForVisible);
IDEComponentPalette.AddHandlerVoteVisibility(@VoteForVisible);
end;
destructor TEduComponentPaletteOptions.Destroy;
begin
if IDEComponentPalette<>nil then
IDEComponentPalette.RemoveHandlerUpdateVisible(@VoteForVisible);
IDEComponentPalette.RemoveHandlerVoteVisibility(@VoteForVisible);
FreeAndNil(fVisible);
inherited Destroy;
end;