paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-08 20: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) Name:='PaletteBtnPage'+IntToStr(i)+'_'+IntToStr(j)
+'_'+CurComponent.ComponentClass.ClassName; +'_'+CurComponent.ComponentClass.ClassName;
Parent := CurNoteBookPage; Parent := CurNoteBookPage;
Glyph := CurComponent.Icon; Glyph := CurComponent.GetIconCopy;
Width := ComponentPaletteBtnWidth; Width := ComponentPaletteBtnWidth;
Height := ComponentPaletteBtnHeight; Height := ComponentPaletteBtnHeight;
GroupIndex := 1; GroupIndex := 1;

1
lcl/include/buttonglyph.inc
View File

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