Witam.

Szukam sposobu na to aby ikonkę mojego programu wyświetlić na komponencie TImage ale na takiej zasadzie że zawsze będzie przeźroczysta i mogę ją ustawić o innym rozmiarze niż 32x32 pixele.

Na razie udało mi się tego dokonać ale szukam lepszego sposobu który będzie bardziej profesjonalny :)

Moje wypociny :

 WORD idx;

 Graphics::TIcon *ICO = new Graphics::TIcon();
 Graphics::TBitmap *BMP = new Graphics::TBitmap();

 ICO->Handle = ExtractAssociatedIcon(HInstance,Application->ExeName.c_str(),&idx);

 BMP->TransparentMode = tmFixed;
 BMP->TransparentColor =  (TColor) RGB(255,255,255); //clWhite;
 BMP->Transparent = true;

 BMP->Height = ICO->Height;
 BMP->Width  = ICO->Width;
 BMP->Canvas->Draw(0, 0, ICO);

 Image4->Picture->Bitmap->Assign(BMP);
 Image4->Width = 16;
 Image4->Height = 16;

 ICO->Free();
 BMP->Free();

TImage ma ustawione parametry :

AutoSize = false;
Stretch = true;
Proportional = true;
Transparent = true;
Center = true;

Macie może jakieś lepsze podejście albo wiecie jak można ulepszyć to co już zrobiłem ?