You can try my code:

put following code to OnCreate of the form:[pascal]var
D:TDIB;
I : TPictureCollectionItem;
....

D := TDIB.Create; //instance of DIB
Try
{Picture and color}
D.SetSize(100,100,24); //it is square
D.Canvas.Brush.Color := RGB($FF,$33,$22); //with this color
D.Canvas.FillRect(Bounds(0,0,100,100)); //render it
{new item for DXImageList}
I := TPictureCollectionItem.Create(DXImageList1.Items);
{picture assigned here}
I.Picture.Graphic := D; //OR better --> I.Picture.Assign(D);
{name for ident}
I.Name := 'Test2';
{and specific set up here}
I.Transparent := False;
Finally
D.Free; //freeing of DIB
End
[/pascal]
using this picture see (bar on screen)[pascal]DXImageList1.Items.Find('Test2').DrawAlpha(DXDraw1 .Surface,Bounds(200,0,100,DXDraw1.Display.Height), 0,12;
[/pascal]

Is it right ?