paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 10:22:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Return an accidentally removed assignment in component palette. Patch from Sandro Cumerlato.

Browse Source 
git-svn-id: trunk@46844 -
This commit is contained in:
juha 2014-11-14 01:40:23 +00:00
parent ffa4d82af8
commit 0f7c742f16
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/componentpalette.pas
View File

@ -851,8 +851,9 @@ var
Pg := Pages[aPageIndex];
if not Pg.Visible then Exit;
ScrollBox := Pg.GetScrollBox;
ScrollBox.OnResize := @OnScrollBoxResize;
Assert(Assigned(ScrollBox), 'CreateButtons: ScrollBox not assigned.');
ScrollBox.OnResize := @OnScrollBoxResize;
ScrollBox.OnMouseWheel := @OnPageMouseWheel;
//DebugLn(['TComponentPalette.UpdateNoteBookButtons PAGE=',Pg.PageName,' PageIndex=',Pg.PageComponent.PageIndex]);
// create selection button
CreateSelectionButton(Pg, IntToStr(aPageIndex), ScrollBox);