[Delphi] Tekstyra w formie

Czy możliwe jest zrobienia tła w formie za pomocą tekstury? ;)

Oczywiscie :-)

var
  Bitmap : TBitmap;
  I, J: Integer;
begin
  Bitmap := TBitmap.Create;
  Bitmap.LoadFromFile('siabada.bmp');

  for I := 0 to Width div Bitmap.Width do
  begin
    for J := 0 to Height div Bitmap.Height do
       Canvas.Draw(i * Bitmap.Width, J * Bitmap.Height, Bitmap);
  end;
    
  Bitmap.Free;

albo stretchDraw() zależnie od chcianego efektu :d

CooBek, coś mi nie idzie, pod jaką procedurę ten kod podłączyć?

W OnPaint formy

Dzięki! ;)
Trochę przerobiłem żeby plik był wczytywany z zasobów pliku res. Oto kod:

procedure TForm1.FormPaint(Sender: TObject);
var
  Bitmap : TBitMap;
  I, J: Integer;
begin
  Bitmap := TBitMap.Create;
  try
    Bitmap.LoadFromResourceName(HInstance, 'TEKSTURA');
    for I := 0 to Width div Bitmap.Width do
      begin
        for J := 0 to Height div Bitmap.Height do
          Canvas.Draw(i * Bitmap.Width, J * Bitmap.Height, Bitmap);
      end;
  finally
    Bitmap.Free;
  end;
end;

Pozdrowienia! ;)