Добрый день, форумчани. Есть скриншотер, написанный на основе урока из интернета.
Хочу дополнить возможности. В исходнике можно было делать скриншот, путём выделения
слева направо(вниз)
Поэкспериментировал, получилось еще и
Справа налево(вверх)
Но никак понять не могу, как можно реализовать выделение
справа налево(вниз) и
слева направо(вверх)
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
Каждый раз получаю ошибку
Запутался безвозвратно)))))))) помогите, будьте так добры))