[Andorra] kleine Rechenprobleme

[igel457]

Du verwendest nirgends in deinem Code das errechnete "p". Verwendest du also "p.x" und "p.y" anstatt "x" und "y" sollte es funktionieren.

Hier noch ein Codeausschnitt, wie das mit dem Verschieben normalerweise gemacht wird (ohne Umrechnung):

Delphi-Quellcode:

var
  lx, ly: integer;

procedure MouseDown(X, Y: integer);
begin
  lx := x;
  ly := y;
end;

procedure MouseMove(Shift: TShiftState; X, Y: integer);
begin
  if ssLeft in Shift then
  begin
    item.x := item.x + (x - lx);
    item.y := item.y + (y - ly);
    lx := x;
    ly := y;
  end;
end;