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

* Removed unnesecary bitmap creation

Browse Source 
git-svn-id: trunk@14897 -
This commit is contained in:
marc 2008-04-19 17:42:27 +00:00
parent 4f7dcf7554
commit 5538f0bbf8
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/componentpalette.pas
View File

@ -553,11 +553,6 @@ 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);
// we cannot assing a custombitmap directly, so force a glyph
B := TBitmap.Create;
Glyph := B;
B.Free;
// we now have a glyp so we can assign
Glyph.Assign(CurComponent.Icon); Glyph.Assign(CurComponent.Icon);
GroupIndex := 1; GroupIndex := 1;
Flat := true; Flat := true;