Witam.
Od kilku godzin męczę się nad prawidłowym dodaniem ikon do ImageList. Problemy są dwa:
1). TPicture:
var
aImg: TPictrure;
begin
aImg := TPicture.Create;
try
aImg.LoadFromFile(Plik);
ImageList.AddIcon(aImg.Icon);
finally
aImg.Free;
end;
end;
Jak imagelist przypnę pod TPageControl i na zakładce ustawie index tej ikony to zamiast ładnej przezroczystości mam jakiś czarny cień. Jak tą samą ikonę załaduję do komponentu TImage to wszystko wygląda tak jak powinno.
- TPngObject (konwertowanie do BMP z demosów tego komponentu):
var
aPNG: TPNGObject;
aBMP: TBitmap;
aID: Integer;
begin
aPNG := TPNGObject.Create;
aBMP := TBitmap.Create;
try
aPNG.LoadFromFile(Plik);
aBMP.Assign(aPNG);
aID := ImageList.Add(aBMP, nil);
ImageList.GetIcon(aID, Form1.Icon);
finally
aPNG.Free;
aBMP.Free;
end;
end;
Tutaj za to "niby" jest jakaś transparencja, ale ikona na formie jest jakaś kanciasta - tam gdzie jest jednolity kolor maski to jest całkowita przezroczystość, ale jak jak zaczynają się jakieś cienie ikony to nie ma w ogóle przezroczystości, jest szare tło i na nim cień.
Ktoś może mi wytłumaczyć co i jak mam robić? Jakie parametry ustawić w ImageList i jak w bitmapie ustawić transparent, przekopałem forum ale kombinacje z TransparentColor, TransparentMode, AddMasked itp nie pomaga. Ja się poddaje, liczę na waszą pomoc.