Фон. Ну хотя бы на канве

← →
parovoZZ © (2006-06-01 21:04) [0]

Как сделать сабж? Ручками? (как в настройках известного аквариума). Я имею ввиду мощённый рисунок маленького размера.

← →
vrem (2006-06-01 21:24) [1]

copyrect

← →
Мефисто (2006-06-01 21:33) [2]

TBrush.Bitmap

← →
parovoZZ © (2006-06-01 23:32) [3]

Не. Есть маленький рисунок (\). И этим рисунком надо замостить всю канву. Примерно так:

\\\\\\\
\\\\\\\
\\\\\\\

← →
Подземный барабан (2006-06-02 01:20) [4]

[2] + FillRect

← →
antonn © (2006-06-02 14:57) [5]

procedure FillTextrutka2canvas( Acanvas:Tcanvas; _Texturka:Tbitmap; _R:Trect; _x,_y:integer); var i,ii,xtmp,ytmp:integer; begin xtmp:=(_x-(_x div _Texturka.Width)*_Texturka.Width); ytmp:=(_y-(_y div _Texturka.Height)*_Texturka.Height); for i:=-1 to ((_R.Right-_R.Left) div _Texturka.Width) do for ii:=-1 to ((_R.Bottom-_R.top) div _Texturka.Height) do Acanvas.CopyRect(rect(i*_Texturka.Width+xtmp,ii*_Texturka.Height+ytmp,(i+1)*_Texturka.Width+xtmp,(ii+1)*_Texturka.Height+ytmp), _Texturka.Canvas ,rect(0,0,_Texturka.Width,_Texturka.Height)); end;

← →
antonn © (2006-06-02 14:57) [6]

ну лишнее можно повыкидывать, думаю догадаешься, как:)

А можно через BitBlt, постоянно изменяя рамку копируемого изображения.
Сперва на носитель с источника (т. е. с источника [3] на канву формы),
а все остальное - с носителя на носитель через srccopy с постоянным
изменением рамки копирования. Т. е. сперва по горизонтали можно пройти,
1 копия -> 2 копии -> 4 копии -> 16 копий и т. д.
А после этого так же но по вертикали: 1 линия -> 2 линии -> 4 лини и т. д.

Трудоемкость этого метода очень маленькая, по сравнению с for.

ЗЫ: про фон, вспомнил, что шутилку сделал :)))
http://webfile.ru/974581 - запускать осторожно, это обманка. для выхода на
клаве набрать 1985, если не выходит, то пошарить по клаве и набрать еще
раз. :)
Я так комп в универе зарезервировал, всегда прихожу, он пустой :)))

← →
XiAndr (2006-06-08 09:40) [8]

> Ы: про фон, вспомнил, что шутилку сделал :)))
> http://webfile.ru/974581 - запускать осторожно, это обманка.
> для выхода на
> клаве набрать 1985, если не выходит, то пошарить по клаве
> и набрать еще
> раз. :)
> Я так комп в универе зарезервировал, всегда прихожу, он
> пустой :)))

А каким образом сделано, чтобы ни Ctrl-Alt-Del, ни Alt-TAB, ни Пуск, ни все другое не работало?

> http://webfile.ru/974581 -

сурц в студию! =)

Фон. Ну хотя бы на канве Найти похожие ветки