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 ?