Make a Transparent Image: Iterate over pixels & replace colors within tolerance

[Boleeman]

Made a utility program to make a transparent image or just load an image and make an Icon

Uses Bgrabmp.

You can select a point or choose the (0,0) default.

It Iterates over each pixel and replace colors within a certain tolerance

Just realized that the zip file was missing the unit1.pas source so I re-uploaded.

[d2010]

I known two methods

Code: [Select]

    if (ob.text<>obTransparent)  then
        ob.Color := Color.FromArgb(0,c.R,c.G,c.B)
      else ob.Color := Color.FromArgb(255,c.R,c.G,c.B);


[Boleeman]

Thanks d2010 for your reply.

My version Iterates over each pixel and replace colors within a certain tolerance.

A little update: Make a Semi-Transparent Background

[Boleeman]

When working with jpg, the selected point color is not always consistent so...

I set up a Color Tolerance Level TSpinedit

The higher the tolerance the more variation of the selected point color.
The lower the tolerance the less variation there is of the selected point color.

As seen in the attached png, the loaded jpg is not quite white at the roof edges so that is when to use the TSpinedit Color Tolerance.

Also attached: A few of my square fractals with the backgrounds made transparent.