[es] - Opet problem sa TJvImage i TJvImageList

reiser

Član broj: 7895
Poruke: 2314

+102 Profil

Opet problem sa TJvImage i TJvImageList

^{16.03.2007. u 19:13 - pre 208 meseci}

Ovako, imam JvImage i JvImageList komponente na formi. Tokom runtime-a, u JvImageList ucitavam dve slike, ovako:

Code:

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;

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.

Odgovor na temu