[Обсуждение] Требуется ТОЛЬКО обьяснение

[=PaLeTiZaToR=]

var
dx,dy,i: integer; // понятно
point: Tpoint; // понятно

begin
getcursorpos(point); // понятно

Dx:=point.X-form1.Left; // не понятно
dx:=round(19*dx/20); // не понятно
Form1.Left:=point.X-dx; // не понятно

Dy:=point.y-form1.top; // не понятно
dy:=round(19*dy/20); // не понятно
Form1.top:=point.y-dy; // не понятно
end

Под обьяснением , я имею ввиду разьяснить , почему форма начинает двигаться плавно за мышкой , причем чем форма ближе к мышке , тем медленнее , соответственно чем дальше , тем быстрее.

Я как то одновременно и понимаю и нет ... немогу все по полочкам раpложить

[Skrillex3]

Цитата: Сообщение от =^PaLeTiZaToR^= var dx,dy,i: integer; // понятно point: Tpoint; // понятно begin getcursorpos(point); // понятно Dx:=point.X-form1.Left; // не понятно dx:=round(19*dx/20); // не понятно Form1.Left:=point.X-dx; // не понятно Dy:=point.y-form1.top; // не понятно dy:=round(19*dy/20); // не понятно Form1.top:=point.y-dy; // не понятно end

Цитата: //это я так понял движение формы по х координате дх:= от point.X отняли form1.Left;(координаты формы по х) dx:=round(19*dx/20); // преобразование в целое чётное число(19*(предыдущёе значение дх)/20) Form1.Left:=point.X-dx; // движение формы по ширине // а это по у координате Dy:=point.y-form1.top; // значение поинт.у - координату формы по у dy:=round(19*dy/20); // тоже самое что было с дх Form1.top:=point.y-dy; // движение формы по высоте

как то так

[=PaLeTiZaToR=]

Цитата: Сообщение от Skrillex3 как то так

Это я понимаю , но нужно обьяснение зачем то , зачем это ...
P.s все преобразования ( будь то округление или еще что то ) - это понятно непонятна мне логика

P.s.s не отрицаю что очень криво обьяснил что мне надо )

[J-Fobos]

Почему скорость движения разная?
Dx и Dy - одинарное смещение по оси X и Y.
Величина этих смещений зависит от разницы координат мышки и угла формы. Чем больше разница - тем больше смещение (и тем быстрее будет перемещаться форма), чем меньше разница - тем меньше смещение (и тем медленней будет перемещаться форма).
В этом суть вопроса была?

[R.A.Z.O.R.]

Какой-то кривой код движения формы на координаты мыши.

[=PaLeTiZaToR=]

Цитата: Сообщение от R.A.Z.O.R. Какой-то кривой код движения формы на координаты мыши.

Можно ваш глянуть ?