mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-19 11:59:13 +02:00
ide: fix mem leak
git-svn-id: trunk@14889 -
This commit is contained in:
parent
8668735887
commit
45b2451fb2
@ -552,8 +552,7 @@ begin
|
|||||||
+'_'+CurComponent.ComponentClass.ClassName;
|
+'_'+CurComponent.ComponentClass.ClassName;
|
||||||
// Left and Top will be set in ReAlignButtons.
|
// Left and Top will be set in ReAlignButtons.
|
||||||
SetBounds(Left,Top,ComponentPaletteBtnWidth,ComponentPaletteBtnHeight);
|
SetBounds(Left,Top,ComponentPaletteBtnWidth,ComponentPaletteBtnHeight);
|
||||||
Glyph := TBitmap.Create;
|
Glyph := CurComponent.Icon;
|
||||||
Glyph.Assign(CurComponent.Icon);
|
|
||||||
GroupIndex := 1;
|
GroupIndex := 1;
|
||||||
Flat := true;
|
Flat := true;
|
||||||
OnClick := @ComponentBtnClick;
|
OnClick := @ComponentBtnClick;
|
||||||
|
Loading…
Reference in New Issue
Block a user