Повтрение изображения в TImage (расположение плиткой).

← →
Cr@sh (2002-08-13 12:58) [0]

Добрый день. Уважаемые мастера, подскажите, пожалуйста, как расположить рисунок(20х20) в Image`e(400х400) плиткой, т.е. чтобы он повторялся и по вертикали и по горизонтали.
Заранее спасибо.

← →
Skier (2002-08-13 12:59) [1]

>Cr@sh
А зачем такой изврат ?

← →
Cr@sh (2002-08-13 13:07) [2]

Надо, значит надо...
Просто есть один оооочень большой имэйдж и в него надо вставлять ооочень большие куски штриховки из другого имэйджа с файлом штриховки.
А создавать картинку офигенно больших размеров не хочется.
Так кто-нибудь знает как это сделать?

← →
Ученик (2002-08-13 13:08) [3]

Добавь TStaticText 400x400

procedure TForm1.FormShow(Sender: TObject);
begin
StaticText1.Brush.Bitmap := Image1.Picture.Bitmap
end;

← →
MBo (2002-08-13 13:08) [4]

b:=tbitmap.create;
b.LoadFromFile("e:\5.bmp");
image1.Canvas.Brush.bitmap:=b;
image1.Canvas.FillRect(image1.clientrect);

← →
Cr@sh (2002-08-13 13:10) [5]

Ну все спасибо, спасли...

Повтрение изображения в TImage (расположение плиткой). Найти похожие ветки