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

fixed freeing glyphs

Browse Source 
git-svn-id: trunk@4725 -
This commit is contained in:
mattias 2003-10-22 19:52:07 +00:00
parent 24a046fcf6
commit 9e186eb76b
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/componentpalette.pas
View File

@ -425,7 +425,7 @@ begin
Name:='PaletteBtnPage'+IntToStr(i)+'_'+IntToStr(j)
+'_'+CurComponent.ComponentClass.ClassName;
Parent := CurNoteBookPage;
Glyph := CurComponent.Icon;
Glyph := CurComponent.GetIconCopy;
Width := ComponentPaletteBtnWidth;
Height := ComponentPaletteBtnHeight;
GroupIndex := 1;

1
lcl/include/buttonglyph.inc
View File

@ -32,6 +32,7 @@ end;
destructor TButtonGlyph.Destroy;
Begin
FOriginal.Free;
FOriginal:=nil;
inherited Destroy;
end;