HatchBackground

procedure HatchBackground(img: TImage32; color1: TColor32 = clWhite32; color2: TColor32 = $FFE8E8E8; hatchSize: Integer); overload;

procedure HatchBackground(img: TImage32; const rec: TRect; color1: TColor32 = clWhite32; color2: TColor32 = $FFE8E8E8; hatchSize: Integer = 10); overload;

Hatching may be semi-opaque.

uses Img32, Img32.Extra, Img32.Fmt.PNG;
...
img := TImage32.Create;
img.LoadFromFile('star.png');
HatchBackground(img, clWhite32, clSilver32, 10);
img.SaveToFile('star_hatched.png');
img.Free;
    

Before:
After:

Copyright ©2010-2023 Angus Johnson  -  Image32 4.6  -  Help file built on 18 Sep 2024