png картинки в Delphi 10

[Marsel737]

Всем привет.

Подскажите какой нибудь компонент, который позволит в d10 использовать картинки в формате png

[Vol666]

использовать где? AlphaSkins кажется добавляет поддержку пнг.

[Marsel737]

В TImage, а кроме alhaskins ничё нету? Чего-нибудь вроде pngimgame в d7

[Vol666]

не припоминаю других

[Kotofff]

Сообщение от Marsel737

В TImage, а кроме alhaskins ничё нету? Чего-нибудь вроде pngimgame в d7

В прикрепленном файле изучай. Там и HELP есть.
Но лучше всего поставь AlphaSkin`ы - поддержка выполнена оч хорошо без нареканий ...

Сообщение от Vol666

не припоминаю других

Плохо знаешь сторонние компоненты !
abfImage - Abf Controls
AdvPicture - TMS Components
jvImage - JEDI ....

[Marsel737]

Kotofff, спасибо

Может ещё подскажеш как установить? На d7 я устанавливал так: Component>Install Component... А на d10 такого нету

[Kotofff]

Если честно я не пользовался ими. Я для png использую сторонние компоненты, исходя их текущей задачи. Но судя по всему как пишут их не устанавливать нужно а просто подключать в uses. Там в файле помощи есть примеры ...

[mnikola2009]

У меня проблема следующего характера, не получается загрузить png в timage. В uses добавлял pngimage.

procedure TForm1.Button3Click(Sender: TObject);
begin
image1.Picture.LoadFromFile('2.png');
end;

Выдает ошибку:


Таже ошибка при конвертировании png в bmp.

procedure PNGFileToBitmap(const Source, Dest: String);
var
  Bitmap: TBitmap;
  PNG: TPNGObject;
begin
  PNG := TPNGObject.Create;
  Bitmap := TBitmap.Create;
  {In case something goes wrong, free booth PNG and Bitmap}
  try
    PNG.LoadFromFile(Source);
    Bitmap.Assign(PNG);    //Convert data into bitmap
    Bitmap.SaveToFile(Dest);
  finally
    PNG.Free;
    Bitmap.Free;
  end
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 PNGFileToBitmap('2.png','2.bmp');
end;

Вот эта злоядлая картинка:
http://s43.radikal.ru/i100/1005/86/5de0d4e3d5d1.jpg


Посоветуйте как быть?

[Marsel737]

Все файлы из архива с PngImage, кроме справки конечно, нужно копировать в папку с программой и в каждом юните писать

uses 
  PngImage;