paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-25 21:07:24 +01: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; inherited Create;
Name:='ComponentPalette'; Name:='ComponentPalette';
fVisible:=TStringToStringTree.Create(false); fVisible:=TStringToStringTree.Create(false);
IDEComponentPalette.AddHandlerUpdateVisible(@VoteForVisible); IDEComponentPalette.AddHandlerVoteVisibility(@VoteForVisible);
end; end;
destructor TEduComponentPaletteOptions.Destroy; destructor TEduComponentPaletteOptions.Destroy;
begin begin
if IDEComponentPalette<>nil then if IDEComponentPalette<>nil then
IDEComponentPalette.RemoveHandlerUpdateVisible(@VoteForVisible); IDEComponentPalette.RemoveHandlerVoteVisibility(@VoteForVisible);
FreeAndNil(fVisible); FreeAndNil(fVisible);
inherited Destroy; inherited Destroy;
end; end;