Фоновый рисунок формы

[nalex]

Как наложить на форму фоновый рисунок?

[Logo]

На событие OnPaint

Код: Выделить всё

procedure TForm1.FormPaint(Sender: TObject);
begin
     Canvas.Draw(0,0, Image1.Picture.Graphic);
end;


[Vadim]

nalex
При создании формы:

Код: Выделить всё

procedure TForm1.Form1Create(Sender: TObject);
Var
  gr: TGraphic;
Begin
  gr:=TGraphic.Create;
  gr.LoadFromFile('Название_файла');
  form1.Canvas.Draw(0,0, gr);
  gr.Free;
End;

[wavebvg]

А мона ещё и растянуть...

[Andreich]

to Vadim
У меня это вариан почему-то не захотел работать... ругается 'SIGSEGV' на строчку gr.Create.

И еще, предложенные варианты насколько я понимаю "наклеивают" рисунок на форму как есть, если изображение меньше, то на форме останутся непрокрашенные места. Можно поступить немного по другому, для случая когда необходимо затекстурировать форму (например под камень или метал).

Код: Выделить всё

procedure TForm1.FormPaint(Sender: TObject);
var bitmap: TBitmap;
begin
  bitmap:=TBitmap.Create;
  bitmap.LoadFromFile('image.bmp');
  Form1.Canvas.Brush.Bitmap:=bitmap;
  Form1.Canvas.Rectangle(0,0,Width,Height);
  bitmap.Free;
end;   

[Vadim]

У меня это вариан почему-то не захотел работать...

Ой, я немного неправильно написал. Нужно так:

Код: Выделить всё

gr:=TGraphic.Create;

[Logo]

Vadim, а если сделать немножко ресайз формы, - картинка не пропадает?

[Vadim]

Logo
Пропадёт. Потому что всего один раз рисуется. Если форма предполагает изменение размеров, тогда в OnPaint надо засовывать Draw(). Правда это отчётливо замедляет процесс перерисовки формы при ресайзе. Даже на глаз становится видно, как сначала отрисовывается форма, а потом, с некоторой задержкой, сверху накладывается рисунок. Я, поэтому, фоновые рисунки не применяю. Их можно, в принципе, накладывать на форму с фиксированными размерами, тогда этот "дефект" не заметен.

[Slavikk]

храните рисунок в памяти и перерисовывайте при каждом OnPaint:
Form1.Canvas.Brush.Bitmap:=bitmap;
Form1.Canvas.Rectangle(0,0,Width,Height);