Dicas - Como criar uma figura do tipo marca d' água

Veja nesta dica, como criar uma imagem, que fica no estilo marca d'água.

Como criar uma figura do tipo marca d' água

Veja nesta dica como transformar uma figura em marca d’água.

 

procedure TForm1.Button1Click(Sender: TObject);

var

  X, Y: Integer;

begin

  brush.style := bsClear;

  for y := 0 to image1.height - 1 do

for x := 0 to image1.width - 1 do

begin

if (x mod 2)=(y mod 2) then

image1.canvas.pixels[x, y] := clWhite;

end;

end;

Artigos relacionados