Relleno personalizado

[MAXIUM]

Hola, aquí les traigo un nuevo reto, ojalas puedan ayudarme. El asunto es como logro este tipo de relleno. Sino existe, como crear uno personalizado. De antemano, gracias.

[[coso]]

Hola, si lo quieres implementar tu mismo seria algo asi

Código Delphi [-]
procedure Form1.OnPaint(sender : TObject);
const 
          Colors : array [boolean] of TColor = (clBlack,clWhite)
begin
         for i := 0 to clientwidth do
         for j := 0 to clientheight do 
                Canvas.Pixels[i,j] := Colors[(i + j) mod 2 = 0];
end;

por otra banda, quiza te sea mas practico usar el FloodFill del canvas, previamente habiendo cargado un bitmap sencillo con los cuadros (de 2x2, cuadro negro, cuadro blanco y en la siguiente linea cuadro blanco, cuadro negro) en el brush. Para cargar al brush, de la ayuda de delphi:

Código Delphi [-]
var
  Bitmap: TBitmap;
begin
  Bitmap := TBitmap.Create;
  try
    Bitmap.LoadFromFile('MyBitmap.bmp');
    Form1.Canvas.Brush.Bitmap := Bitmap;
    Form1.Canvas.FillRect(Rect(0,0,100,100));
  finally
    Form1.Canvas.Brush.Bitmap := nil;
    Bitmap.Free;
  end;

end;

[MAXIUM]

Exclentisimo, te lo agradesco enormemente.