Discussion :

[scara]

Bonjour à tous,

J'utilise l'unité PNGimage de Gustavo Daud pour enregistrer des images au format PNG.
Je souhaite enregistrer un PNG palleté (PNG en couleurs indexées, par opposition a PNG en couleurs vraies,truecolor).

J'ai lu dans l'aide du composant que l'on pouvait sélectionné des filtre qui permette de faire ça :

This component allows to select the filter set to using the property Filters from TPNGObject.

type TFilter = (pfNone, pfSub, pfUp, pfAverage, pfPaeth);
type TFilters = set of TFilter;
property Filters: TFilters;

Description
When saving the image, Portable Network Graphics allows to use different 'filters to reduce the final image size. To compress the best as possible, the component tests all the selected filters for each image line to detect the best. This property allows to set which filters to test, meaning that if you select all the options, the image will get smallest as it can be but it will compress five times slower than if you had choosen only one item.

Voici e code je j'utilise actuellement pour sauvegarder les images au format PNG :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
 newPng := TPNGObject.Create;
with newPng do begin
            Assign(Image1.Picture.Graphic);
            CompressionLevel := 9;
            SaveToFile(FileName);
            Free;

Ma question est comment implémenter la possibilité de sauvegarder des PNG 'palletés'. Je crois comprendre qu'ii s'agit du filtre "pfPaeth"?
Merci.

[scara]

Bon ça vaut ce que ça vaut, mais ça fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 newPng := TPNGObject.Create;
            image1.Picture.bitmap.pixelformat := pf8bit;
            with newPng do begin
              Assign(Image1.Picture.Graphic);
              CompressionLevel := 9;
              SaveToFile(FileName);
              Free;