Dlaczego nie jest przezroczyste ?

[Corvis]

Witam,

w ImageLiście mam takie zdjęcie:

1.png

Jak widać jest ono przezroczyste i teraz chce to wkleić w TImage:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

        Graphics::TBitmap *bmp = new Graphics::TBitmap();
        imglst8Wtryskow->GetBitmap(0, bmp);
        imgWtryskiwacz->Picture->Bitmap->Assign(bmp);
        delete bmp;
 

I nie otrzymuję przezroczystego obrazka tylko takie coś z białym tłem:

2.png

Próbowałem ustawiać Transparent na true we wszystkich kombinacjach ale cały czas mam białe tlo wokół obrazka. Może mi ktoś powiedzieć o co chodzi ?

Pozdrawiam,

[Cyfrowy Baron]

To czy w ImageList ustawisz przeźroczystość czy nie, dla TImage nie ma zupełnie znaczenia, gdyż jeżeli w Image ustawisz właściwość Transparent na true, to Image jako kolor przeźroczysty pobierze sobie kolor z lewego dolnego piksela i ten ustawi jako przeźroczysty.

Być może problem tkwi w czymś innym. Na czym leży u Ciebie ten obiekt imgWtryskiwacz?

[Corvis]

Leży na Panelu. Ale jak wczytam bezpośrednio na image bez użycia imageListy wszystko działa.

A tutaj jest wszystko związane z imgListą:

Lista.png

Zmieniałem DrawingStyle ale to nic nie daje

[Mironas]

imglst8Wtryskow->BkColor = clWhite

[Cyfrowy Baron]

Czy jak dodajesz do ImageList obrazek to ustawiasz obcinanie - Crop?

Możesz wrzucić ten obrazek do załącznika. Mam pewne podejrzenia.

[Corvis]

Baronie ustawiłem w ImageList BkColor na clRed i zadziałało :\ nie wiem tylko dlaczego ...

Obrazek jest http://img832.imageshack.us/img832/9770/36114421.png bo bmp na forum nie można wrzucić.

[Mironas]

Obrazek jest http://img832.imageshack.us/img832/9770/36114421.png bo bmp na forum nie można wrzucić.

Ten obrazek nie ma przeźroczystego tła.

[Corvis]

Ale to nic nie wnosi w temat. Bo jak go wrzucisz bezpośrednio na TImage i ustawisz Transparent na true to działa.
A jak wrzucasz go za pośrednictwem TImageList i ustawisz Transparent na true to nie działa.

Tutaj coś się dzieje na poziomie dodawania obrazka do TImageList-y.

[Cyfrowy Baron]

Nie wiem co u Ciebie jest nie tak. U mnie działa to z takimi ustawieniami jak podałeś prawidłowo, a to czy BkColor ustawię na clRed czy clNone niczego nie zmienia. Może przyczyna tkwi w systemie.
Umieściłem w załączniku prosty program wykorzystujący Twój pierwotny kod, czyli z BkColor = clNone. Gdybyś mógł sprawdzić jak to działa u Ciebie. Program powstał dokładnie w tym samym środowisku co Twoje, czyli BCB XE2 Upd 4.

Co się zaś tyczy samego przenoszenia zawartości ImageList do Image, to nie musi w tym pośredniczyć obiekt typu TBitmap, możesz wszak to od razu przenieść:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

 ImageList1->GetBitmap( 0, Image1->Picture->Bitmap );

[Corvis]

Działa dobrze

Czyli problem jest gdzieś w użyciu pośrednika Graphics::TBitmap *bmp = new Graphics::TBitmap();

Dzięki !!

[Cyfrowy Baron]

Czyli problem jest gdzieś w użyciu pośrednika Graphics::TBitmap *bmp = new Graphics::TBitmap();

Raczej nie, gdyż ja użyłem tego pośrednika, a mimo to u mnie program działał zgodnie z założeniami. No chyba, że inaczej używasz obiektu TBitmap niż w przytoczonym tutaj przez Ciebie przykładzie.

[Corvis]

Identycznie

[Cyfrowy Baron]

Sprawdź ten pierwotny kod z bitmapą a nie plikiem PNG. Przyczyna prawdopodobnie tkwi w bibliotekach, z których korzysta środowisko. Ja mam zainstalowany pakiet komponentów LMD, który dodaje własne biblioteki do obsługi plików w formacie PNG (innych też), zastępując te środowiskowe.