Добрый день.
Есть Timage, на который надо рисовать png-шки (именно, png-шки, важна прозрачность!). Наткнулся на freepascal.org на код:
Ocean := TPNGImage.Create;
Ocean.LoadFromFile(CurrentDir + '/images/ocean.png');
Но не могу найти, в каком модуле находится TPNGImage! Даже гугл не в курсе.
Убунту 14.04, Lazarus 1.2.2
В каком модуле находится TPNGImage?
Модератор: Модераторы
Такой код может грузить bmp, gif, png, jpg:
А так, смотри модуль LazPNG, но он deprecated.
Код: Выделить всё
var
Img: TPicture;
Bmp: TBitmap;
begin
Img := TPicture.Create;
Img.LoadFromFile(Filename);
Bmp.Assign(Img.Graphic);
ImageList1.Add(Bmp, nil);
А так, смотри модуль LazPNG, но он deprecated.
А так, смотри модуль LazPNG, но он deprecated.
Ругается, что нет такого модуля. Похоже, успели выпилить.
ImageList1.Add(Bmp, nil);
Не понял, причём здесь список изображений? Есть здоровенный Timage, на котором в случайном порядке надо размещать более мелкие изображения шестиугольной формы. Поскольку шестиугольные изображения не существуют, они в png и всё что за пределами шестиугольника - прозрачное.
То есть нужно как-то так:
Код: Выделить всё
Считать png-шку.
Разместить её по центру Timage.
Считать вторую png-шку.
Разместить её выше первой.
Считать третью png-шку.
Разместить её в Timage ниже первой.
и так далее.arra писал(а):не могу найти, в каком модуле находится TPNGImage
В модуле Graphics под псевдонимом TPortableNetworkGraphic.
