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: