|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
повторение в image
как сделать, чтобы картинка в image, заполняя форму, не растягивалась, а повторялась?
и ещё, там есть ...если нажата влево, то... как это сделать? Жизнь - это игра... Сюжет не очень, зато графика - отпад. Последний раз редактировалось IllVDG, 07.09.2007 в 18:20. |
#2
|
||||
|
||||
Код:
if key=VK_LEFT then ... Последний раз редактировалось Winny, 07.09.2007 в 19:45. |
#3
|
||||
|
||||
Попробуй импользовать метод Canvas.CopyRect().
Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |
#4
|
||||
|
||||
Код:
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; Картинка будет рисоваться прямо на канве формы. Не профи, но и не чайник . D6 - лучше не придумали. Пока. |
#5
|
||||
|
||||
thank you!
Жизнь - это игра... Сюжет не очень, зато графика - отпад. |