Background у Formы

← →
PleaseHelpME (2004-05-13 08:56) [0]

Как сделать, чтобы у формы был загружен фон из файла jpg или bmp, т.е. чтобы он как в HTML <body backgroun=.........> был на всб форму

← →
tesseract © (2004-05-13 09:43) [1]

кинь image на форму и поставь stretch и align=alClient

← →
Думкин © (2004-05-13 10:12) [2]

Можно обрабатывать WM_Paint у формы и StretchBlt.

← →
Mim1 © (2004-05-13 10:21) [3]

Думкин © (13.05.04 10:12) [2]

WM_ERASEBACKGROUND

← →
Думкин © (2004-05-13 10:39) [4]

> Mim1 © (13.05.04 10:21) [3]

Или так, конечно.

← →
PleaseHelpME (2004-05-13 15:09) [5]

Я имею ввиду, например как в HTML, файл допустим меньше всей формы и он как-бы рзмножается несколько раз, чтобы покрыть всю форму

← →
Mihey © (2004-05-13 15:16) [6]

> PleaseHelpME (13.05.04 15:09) [5]

Рисуй в цикле много раз.

← →
PleaseHelpME (2004-05-14 08:23) [7]

> Mihey
Как я могу в один и тот же image несколько раз загружать картинку с разными координатами, чтобы они не накладывались друг на друга?

← →
Игорь Шевченко © (2004-05-14 13:45) [8]

begin Dc := TWMEraseBkGnd(Message).Dc; for Row := 0 to ClientHeight div Image1.Picture.Height do for Col := 0 to ClientWidth div Image1.Picture.Width do BitBlt(Dc, Col * Image1.Picture.Width, Row * Image1.Picture.Height, Image1.Picture.Width, Image1.Picture.Height, Image1.Picture.Bitmap.Canvas.Handle, 0,0,SRCCOPY); Result := 1; end;

>Как я могу в один и тот же image несколько раз загружать картинку с разными координатами, чтобы они не накладывались друг на друга?

Говорят же, рисуй, а не загружай.

procedure TForm1.WndProc(var Message: TMessage);
begin
if(Message.Msg = WM_ERASEBKGND) then
begin
Canvas.Brush.Bitmap := Image1.Picture.Bitmap;
Canvas.FillRect(Canvas.ClipRect);
end;
inherited WndProc(Msg);
end;

Сорри:
procedure TForm1.WndProc(var Message: TMessage); begin if(Message.Msg = WM_ERASEBKGND) then begin Canvas.Brush.Bitmap := Image1.Picture.Bitmap; Canvas.FillRect(Canvas.ClipRect); exit; end; Inherited; end;

← →
Pa5ha (2004-05-16 00:34) [12]

Размножается - это называется затайлить или замостить.

Background у Formы Найти похожие ветки