[IllVDG]

как сделать, чтобы картинка в image, заполняя форму, не растягивалась, а повторялась?
и ещё, там есть ...если нажата влево, то... как это сделать?

[Winny]

Код:

if key=VK_LEFT then
...

Для повторения картинки по-моему надо использовать TImageList

[The Shadow]

Попробуй импользовать метод Canvas.CopyRect().

[zip000]

Код:

var
  bmp : TBitmap;

procedure TForm1.FormCreate(Sender: TObject);
begin
  bmp := TBitmap.Create;
  bmp.LoadFromFile('SomeBitmap.bmp');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  bmp.Free;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
  i, j : Integer;
begin
  for i := 0 to (Width div bmp.Width) do
    for j := 0 to (Height div bmp.Height) do
      Canvas.Draw(i * bmp.Width, j * bmp.Height, bmp);
end;

Картинка будет рисоваться прямо на канве формы.

[IllVDG]

thank you!