diff options
| -rw-r--r-- | src/corelib/fpg_base.pas | 2 | ||||
| -rw-r--r-- | src/corelib/x11/fpg_x11.pas | 4 |
2 files changed, 5 insertions, 1 deletions
diff --git a/src/corelib/fpg_base.pas b/src/corelib/fpg_base.pas index ce9e3727..988c9c8d 100644 --- a/src/corelib/fpg_base.pas +++ b/src/corelib/fpg_base.pas @@ -60,7 +60,7 @@ type TMouseCursor = (mcDefault, mcArrow, mcCross, mcIBeam, mcSizeEW, mcSizeNS, mcSizeNWSE, mcSizeNESW, mcSizeSWNE, mcSizeSENW, mcMove, mcHourGlass, - mcHand); + mcHand, mcDrag, mcNoDrop); TGradientDirection = (gdVertical, // Fill vertical gdHorizontal); // Fill Horizontal diff --git a/src/corelib/x11/fpg_x11.pas b/src/corelib/x11/fpg_x11.pas index f6e33236..549c6a80 100644 --- a/src/corelib/x11/fpg_x11.pas +++ b/src/corelib/x11/fpg_x11.pas @@ -2283,6 +2283,8 @@ begin mcCross: shape := XC_crosshair; mcHourGlass: shape := XC_watch; mcHand: shape := XC_hand2; + mcDrag: shape := XC_target; + mcNoDrop: shape := XC_pirate; else shape := XC_left_ptr; //XC_arrow; end; @@ -3292,12 +3294,14 @@ begin FDropAccepted := True; FAcceptedAction := AAction; { TODO: Change mouse cursor to show drop accepted/valid } + FSource.MouseCursor := mcDrag; end else begin FDropAccepted := False; FAcceptedAction := X.None; { TODO: change mouse cursor to show drop not valid } + FSource.MouseCursor := mcNoDrop; end; end; { TODO: If we waited to long, we have a timeout } |