begin

  FPointRec.LeftTop.Visible:=Visibled;

  FPointRec.LeftBottom.Visible:=Visibled;

  FPointRec.RightTop.Visible:=Visibled;

  FPointRec.RightButton.Visible:=Visibled;

  FPointRec.LeftMid.Visible:=Visibled;

  FPointRec.TopMid.Visible:=Visibled;

  FPointRec.RightMid.Visible:=Visibled;

  FPointRec.ButtonMid.Visible:=Visibled;

end;

//设置小点事件

procedure TDragClass.SetPointEvent;

begin

  FPointRec.LeftTop.OnMouseDown:=PointMouseDown;

  FPointRec.LeftTop.OnMouseMove:=PointMouseMove;

  FPointRec.LeftTop.onMouseUp:=PointMouseUp;

  FPointRec.LeftBottom.OnMouseDown:=PointMouseDown;

  FPointRec.LeftBottom.OnMouseMove:=PointMouseMove;

  FPointRec.LeftBottom.onMouseUp:=PointMouseUp;

  FPointRec.RightTop.OnMouseDown:=PointMouseDown;

  FPointRec.RightTop.OnMouseMove:=PointMouseMove;

  FPointRec.RightTop.onMouseUp:=PointMouseUp;

  FPointRec.RightButton.OnMouseDown:=PointMouseDown;

  FPointRec.RightButton.OnMouseMove:=PointMouseMove;

  FPointRec.RightButton.onMouseUp:=PointMouseUp;

  FPointRec.LeftMid.OnMouseDown:=PointMouseDown;

  FPointRec.LeftMid.OnMouseMove:=PointMouseMove;

  FPointRec.LeftMid.onMouseUp:=PointMouseUp;

  FPointRec.TopMid.OnMouseDown:=PointMouseDown;

  FPointRec.TopMid.OnMouseMove:=PointMouseMove;

  FPointRec.TopMid.onMouseUp:=PointMouseUp;

  FPointRec.RightMid.OnMouseDown:=PointMouseDown;

  FPointRec.RightMid.OnMouseMove:=PointMouseMove;

  FPointRec.RightMid.onMouseUp:=PointMouseUp;

  FPointRec.ButtonMid.OnMouseDown:=PointMouseDown;

  FPointRec.ButtonMid.OnMouseMove:=PointMouseMove;

  FPointRec.ButtonMid.onMouseUp:=PointMouseUp;

end;

//确定控件边缘八个小点的位置

procedure TDragClass.SetPointPos(posRect: TRect);

begin

  FPointRec.LeftTop.Left:=posRect.Left-6;

  FPointRec.LeftTop.Top:=posRect.Top-6;

  FPointRec.LeftBottom.Left:=PosRect.Left-6;

  FPointRec.LeftBottom.Top:=PosRect.Bottom;

  FPointRec.RightTop.Left:=posRect.Right;

  FPointRec.RightTop.Top:=posRect.Top-6;

  FPointRec.RightButton.Left:=PosRect.Right;

  FPointRec.RightButton.Top:=PosRect.Bottom;

  FPointRec.LeftMid.Left:=posRect.Left-6;

  FPointRec.LeftMid.Top:=(posRect.Top+posRect.Bottom) div 2 - 3;

  FPointRec.TopMid.Left:=(posRect.Left+posRect.Right) div 2 -3;

  FPointRec.TopMid.Top:=PosRect.Top-6;

  FPointRec.RightMid.Left:=posRect.Right;

  FPointRec.RightMid.Top:=(posRect.Top+posRect.Bottom) div 2 - 3;

  FPointRec.ButtonMid.Left:=(posRect.Left+posRect.Right) div 2 -3;

  FPointRec.ButtonMid.Top:=PosRect.Bottom;

end;

//创建八个小点

procedure TDragClass.CreateDragPoint(PointParent:TWinControl);

begin

  FPointRec.LeftTop:=TDragPoint.Create(nil);

  FPointRec.LeftTop.Cursor:=crSizeNWSE;

  FPointRec.LeftBottom:=TDragPoint.Create(nil);

  FPointRec.LeftBottom.Cursor:=crSizeNESW;

  FPointRec.RightTop:=TDragPoint.Create(nil);

  FPointRec.RightTop.Cursor:=crSizeNESW;

  FPointRec.RightButton:=TDragPoint.Create(nil);

  FPointRec.RightButton.Cursor:=crSizeNWSE;

  FPointRec.LeftMid:=TDragPoint.Create(nil);

  FPointRec.LeftMid.Cursor:=crSizeWE;

  FPointRec.TopMid:=TDragPoint.Create(nil);

  FPointRec.TopMid.Cursor:=crSizeNS;

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ...  下一页 >>