[ApplicatiOn]

добрый день.. как всегда нужна ваша помощь

нужно продублировать изображение в TImage. При загрузке одного изображения, оно копирует себя в компоненте до тех пор, пока не дойдет до границ компонента..

Например в Visual Basic у свойства image есть double, и при значении true, изображение как-бы бесконечное. Т.е. что-то вроде слепления нескольких одинаковых маленьких текстур в одну большую..

заранее спасибо

[M.A.D.M.A.N.]

ты хочеш сказать "Как размостить изображение?"

[san-46]

Для примера, так:

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  BM : TBitMap;
  X, Y : Integer;
begin
  BM := TBitMap.Create;
  try
    BM.LoadFromFile('clip0215.bmp');
    Y := 0;
    while Y < Image1.Height do begin
      X := 0;
      while X < Image1.Width do begin
        Image1.Canvas.Draw(X, Y, BM);
        Inc(X, BM.Width);
      end;
      Inc(Y, BM.Height);
    end;
  finally
    BM.Free;
  end;
end;