Jak dodac do ImageList bitmape z zasobow ?
0
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;