Скачать: CL | DM;

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

← →
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]

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

---

← →
Cash ©   (2006-06-02 15:25) [7]

А можно через 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, ни Пуск, ни все другое не работало?

---

← →
tButton ©   (2006-06-08 09:53) [9]

> http://webfile.ru/974581 -

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: -0.973 c