VPF::выходит за пределы окна - Форум программистов

Гость_tonic

Дата 15.3.2005, 09:29 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Вобщем существует проблема, сделал подобие "пятнашек" на рабочем столе,
НО возникла кой-какая проблемка:
при движении влево и вверх квадратика(за границы экрана), он как бы отскакивает от границы экрана, а при перемещении вправо и вниз он просто переходит на другую сторону экрана
smile

Вот что-то я и не могу решить как от этого избавится.
Подскажите пожалуйста, кто знает как сделать чтобы квадратик так же отскакивал и от других сторон экрана, и наоборот чтобы он мог "выходить" за пределы дисплея слева и сверху.
Заранее благодарю!

Guest

Дата 15.3.2005, 09:32 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

для более визуального понимания сказанного сделаное мной можно скачать
пример можно скачть здесь: http://ktirc.x-3m.info/zip/Desktop_15.zip

Snowy

Дата 15.3.2005, 10:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484

Просто контролируй границы экрана, чтобы за них не выходило.
Так и должно быть, если ты указываешь отрисовку за пределами экрана, то такой перенос и будет.
Контролируй вручную. Размеры экрана известны.
Или не рисуй, если выходит за пределы, или обрезай изображение, чтобы рисовалась только та часть, которая влезает на экран.

eii111

Дата 12.4.2005, 18:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 12.4.2005

Репутация: нет
Всего: нет

Я делаю так

procedure SetClip;
var ClipRect: TRect;
begin
ClipRect.Left:=0;
ClipRect.Top:=0;
ClipRect.Right:=100;
ClipRect.Bottom:=100;
with ClipRect do
IntersectClipRect(Canvas.Handle,Left,Top,Right,Bottom);
end;

procedure ReSetClip;
begin
try
SelectClipRgn(Canvas.Handle,0);
except
end;
end;

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »