|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Не могу сообразить. Скриншот выделяемой области
Добрый день, форумчани. Есть скриншотер, написанный на основе урока из интернета.
Хочу дополнить возможности. В исходнике можно было делать скриншот, путём выделения слева направо(вниз) Поэкспериментировал, получилось еще и Справа налево(вверх) Но никак понять не могу, как можно реализовать выделение справа налево(вниз) и слева направо(вверх) FormMouseDown Код:
// флаг нажатия мыши isDown := true; // запоминаем текущие координаты downX := X; downY := Y; FormMouseUP Код:
var r: Trect; isDown := false; // Сбрасываем флаг // сохраняем координаты области if downX < X then // Слева направо(вниз) begin r.Left := downX; r.Top := downY; r.Right := X; r.Bottom := Y; end else begin // Справа налево(вверх) r.Left:=X; r.Top:=Y; r.Right:=downX; r.Bottom:=downY; end; Далее уже делается скриншот, по координатам Rect Мозг кипит. Как только не пробовал менять значения, проверять так же координаты Y Каждый раз получаю ошибку Запутался безвозвратно)))))))) помогите, будьте так добры)) |