Code:
ImageList.FileLoad(rtBitmap, 'images\Interface\1.bmp', clDefault);
ImageList.FileLoad(rtBitmap, 'images\Interface\2.bmp', clDefault);
ImageList.FileLoad(rtBitmap, 'images\Interface\1.bmp', clDefault);
ImageList.FileLoad(rtBitmap, 'images\Interface\2.bmp', clDefault);
E sad, kako da u JvImage ucitam neku sliku iz JvImageList-a, BEZ ikakvih dodatnih efekata (transparency itd), znaci kakva je slika, takva da bude i u JvImage ? Evo uproscene verzije procedure koja bi to trebala da odradi:
Code:
var
bmp : TBitmap;
begin
bmp := TBitmap.Create;
ImageList.GetBitmap(0, bmp);
Image.Picture.Bitmap := bmp;
bmp.Free;
end;
var
bmp : TBitmap;
begin
bmp := TBitmap.Create;
ImageList.GetBitmap(0, bmp);
Image.Picture.Bitmap := bmp;
bmp.Free;
end;
Medjutim, slika se ucita, ali mi je svugde umesto crne boje - bela boja. Probao sam da stavim MaskColor na clBlack, clNone ili clWhite, menjao sam Masked/Transparent svojstva i JvImage i JvImageList-a, ali opet nisam postigao to sto zelim.