Всё наоборот. Ты повторно рисуешь элемент на старом месте (стирая его) (повторно - потому что ты его уже нарисовал на этом самом месте в предыдущем кадре), потом меняешь положение, потом рисуешь на новом. Но код вроде правильный.
Поразмыслив придумал как из эллипса сделать окружность:
Код
if (Button=mbLeft) // Если нажата левая клавиша мыши... then Circle:=true // то рисуем окружность else Circle:=false; // иначе ничего не рисуем. ...
if (MouseButtonDown) and (Circle) then // Если нажата клавиша мыши, и Circle=true, то... begin Canvas.Ellipse(StartX, StartY, EndX, EndY); EndX:=X; EndY:=Y; // Фиксируем конечные координаты... if ((X<StartX) and (Y<StartY)) // Если X и Y меньше точки откуда рисуем... or ((X>StartX) and (Y>StartY)) // или X и Y больше точки откуда рисуем,... then EndX:=EndY-StartY+StartX // тогда рисуем окружность влево вверх и вправо вниз. else EndY:=StartX+StartY-EndX; // Иначе рисуем окружность влево вниз и вправо верх. Canvas.Ellipse(StartX, StartY, EndX, EndY); // и фигуру. end;
Why not settling on games that is fun and at the same time your earning. Well it'll make suspense because the game is well but dude just try it and it gave me hope while pandemic is real rn. The Best 5 Gambling Dens In The World