anchor.diff:  
     if (not FDragging) or ((btnstate and MOUSE_LEFT) = 0) then
       Exit;
  -    
  +
     dx := x - FDragPosX;
     dy := y - FDragPosY;
   
  
positive.code:     constructor Create(ACompDesigner: TObject; adirection: integer); reintroduce;
      procedure   Show;
    end;
    
  
  implementation
  
  
negative.code:   FDragging := True;
    FDragPosX := x;
    FDragPosy := y;
    CaptureMouse;
  end;
  
  procedure TwgResizer.HandleLMouseUp(x, y: integer; shiftstate: TShiftState);
  begin
    inherited HandleLMouseUp(x, y, shiftstate);
    FDragging := False;
    ReleaseMouse;
  end;
  
  procedure TwgResizer.HandleMouseMove(x, y: integer; btnstate: word;
  