|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Дублирование изображения
добрый день.. как всегда нужна ваша помощь
нужно продублировать изображение в TImage. При загрузке одного изображения, оно копирует себя в компоненте до тех пор, пока не дойдет до границ компонента.. Например в Visual Basic у свойства image есть double, и при значении true, изображение как-бы бесконечное. Т.е. что-то вроде слепления нескольких одинаковых маленьких текстур в одну большую.. заранее спасибо |
#2
|
||||
|
||||
ты хочеш сказать "Как размостить изображение?"
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#3
|
|||
|
|||
Для примера, так:
Код:
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; Не забывайте делать резервные копии |