Как размножить картинку на форме

[Problem]

Как размножить картинку на форме, для создания бэкграунда?

[fate]

бэкграунд

это что такое?

[Скандербег]

type
  TForm1 = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    BM : TBitmap;
    procedure WMEraseBkGnd(var Msg: TWMEraseBkGnd); message WM_ERASEBKGND;
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  BM.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  BM := TBitmap.Create;
  BM.LoadFromFile(<Файл картинки>);
end;

procedure TForm1.WMEraseBkGnd(var Msg: TWMEraseBkGnd);
var
  r, c: Integer;
begin
  if BM = nil then inherited
  else begin
    for R := 0 to ClientHeight div BM.Height do
       for C := 0 to ClientWidth div BM.Width do
         BitBlt(Msg.Dc, C * BM.Width, R * BM.Height, BM.Width,
           BM.Height, BM.Canvas.Handle, 0, 0, SRCCOPY);
     Msg.Result := 1;
   end;
end;

end.

[CoderHex]

var
  backBmp: TBitmap;
begin
  backBmp:= TBitmap.Create;
  backBmp.LoadFromFile('c:\back.bmp');

  Canvas.Brush.Bitmap:= backBmp;
  Canvas.FillRect(Rect(0, 0, ClientWidth, ClientHeight));
end;

[Скандербег]

Этот код из области "вредные советы".
- В процедуре какого события код должен быть?
- Где освобождается память от Bitmap?
- Чтение из файла каждый раз когда винде нужно рендерить форму?
Но рациональное зерно есть - оптимизация вывода рисунка на форму.
Окончательный релиз заполнения формы фоновым рисунком представляется таким (проверено):

type
  TForm1 = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    BM : TBitmap;
    procedure WMEraseBkGnd(var Msg: TWMEraseBkGnd); message WM_ERASEBKGND;
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  BM.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  BM := TBitmap.Create;
  BM.LoadFromFile(<Файл картинки>);
  Canvas.Brush.Bitmap:= backBmp;
end;

procedure TForm1.WMEraseBkGnd(var Msg: TWMEraseBkGnd);
begin
  if BM = nil then 
    inherited
  else begin
    Canvas.FillRect(Rect(0, 0, ClientWidth, ClientHeight));
    Msg.Result := 1;
  end;
end;

end.

[Problem]

Не помогло. Картинка не копируется по всей форме

Но за код спасибо.

Мне же принцип как в HTML нужен, берётся фрагмент картинки и он копируется по всей странице заливая её, образуя фон.

Просто я не хочу просто взять большую картинку и поместить её на форму.

[Stilet]

Картинка не копируется по всей форме

http://www.programmersforum.ru/showthread.php?t=163089
Сойдеть?

[Скандербег]

У меня копируется, у автора темы не копируется. Значит не все сделано так как показано в приведенном коде.
Еще раз проверено, вот результат:

[Problem]

Canvas.Brush.Bitmap:= backBmp;
[Error]Unit1.pas(35): Undeclared identifier: 'backBmp'

Всё в точности скопировал

[Скандербег]

Упражнение на внимательность (и умение работать с ошибками).

procedure TForm1.FormCreate(Sender: TObject);
begin
  BM := TBitmap.Create;
  BM.LoadFromFile(<Файл картинки>);
  Canvas.Brush.Bitmap:= BM;   //<-----
end;