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

Education package: Fix compilation after cbc97e5a03.

Browse Source 
(cherry picked from commit b1e6affa83)
This commit is contained in:
Juha 2021-11-24 12:49:30 +02:00 committed by Maxim Ganetsky
parent cdb3eee512
commit 8d8ee178c7
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;