mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-21 23:19:29 +02:00
* Removed unnesecary bitmap creation
git-svn-id: trunk@14897 -
This commit is contained in:
parent
4f7dcf7554
commit
5538f0bbf8
@ -553,11 +553,6 @@ begin
|
||||
+'_'+CurComponent.ComponentClass.ClassName;
|
||||
// Left and Top will be set in ReAlignButtons.
|
||||
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);
|
||||
GroupIndex := 1;
|
||||
Flat := true;
|
||||
|
Loading…
Reference in New Issue
Block a user