ImageList z zasobów

0

Jak dodac do ImageList bitmape z zasobow ?

0
  Procedure LoadMasked(Const ImageList:TImageList; Const ResName:String);
  Var B1,B2:TBitmap;
  Begin
    B1:=TBitmap.Create;
    B2:=TBitmap.Create;
    B1.LoadFromResourceName(hInstance,ResName);
    B2.Assign(B1);
    B2.Mask(clFuchsia);
    ImageList.Add(B1,B2);
    B1.Free;
    B2.Free;
  End;

1 użytkowników online, w tym zalogowanych: 0, gości: 1