[lazarus] ImageList editor

[Dex]

Solves #594, #654, #790, #454

***************
*** 105,113 ****
      if (Item.ImageIndex>=0) then
      begin
        //Clear old image
!     //  fImg.Picture.BitMap.Canvas.Brush.Color:=clWhite;
!     //  fImg.Picture.BitMap.Canvas.FillRect(Rect(0,0,fImg.Width,fImg.Height));
!       fImg.Picture.clear;
        //Draw new image
        Bmp:=TBitMap.Create;
        fImgL.GetBitmap(Item.ImageIndex,Bmp);
--- 105,112 ----
      if (Item.ImageIndex>=0) then
      begin
        //Clear old image
!       fImg.Picture.BitMap.Canvas.Brush.Color:=clWhite;
!       fImg.Picture.BitMap.Canvas.FillRect(Rect(0,0,fImg.Width,fImg.Height));
        //Draw new image
        Bmp:=TBitMap.Create;
        fImgL.GetBitmap(Item.ImageIndex,Bmp);