Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Фон. Ну хотя бы на канве [D7, WinXP]

parovoZZ © (2006-06-01 21:04:00)
Как сделать сабж? Ручками? (как в настройках известного аквариума). Я имею ввиду мощённый рисунок маленького размера.

tButton (2006-06-08 09:53:00) [1]

> http://webfile.ru/974581-

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

XiAndr (2006-06-08 09:40:00) [2]

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

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

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

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

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

antonn (2006-06-02 14:57:00) [4]
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:00) [5]
ну лишнее можно повыкидывать, думаю догадаешься, как:)

Подземный барабан (2006-06-02 01:20:00) [6]
[2] + FillRect

parovoZZ (2006-06-01 23:32:00) [7]
Не. Есть маленький рисунок (\). И этим рисунком надо замостить всю канву. Примерно так:

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

Мефисто (2006-06-01 21:33:00) [8]
TBrush.Bitmap

vrem (2006-06-01 21:24:00) [9]
copyrect

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »