diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/corelib/gdi/gfx_gdi.pas | 3 | ||||
-rw-r--r-- | src/corelib/gfxbase.pas | 3 | ||||
-rw-r--r-- | src/corelib/x11/gfx_x11.pas | 1 |
3 files changed, 6 insertions, 1 deletions
diff --git a/src/corelib/gdi/gfx_gdi.pas b/src/corelib/gdi/gfx_gdi.pas index cd926cb0..09802c57 100644 --- a/src/corelib/gdi/gfx_gdi.pas +++ b/src/corelib/gdi/gfx_gdi.pas @@ -182,6 +182,7 @@ type hcr_move: HCURSOR; hcr_crosshair: HCURSOR; hcr_wait: HCURSOR; + hcr_hand: HCURSOR; FFocusedWindow: THANDLE; LastClickWindow: TfpgWinHandle; // double click generation LastWinClickTime: longword; @@ -926,6 +927,7 @@ begin hcr_move := LoadCursor(0, IDC_SIZEALL); hcr_crosshair := LoadCursor(0, IDC_CROSS); hcr_wait := LoadCursor(0, IDC_WAIT); + hcr_hand := LoadCursor(0, IDC_HAND); FIsInitialized := True; wapplication := TfpgApplication(self); @@ -1269,6 +1271,7 @@ begin mcMove: hc := wapplication.hcr_move; mcCross: hc := wapplication.hcr_crosshair; mcHourGlass: hc := wapplication.hcr_wait; + mcHand: hc := wapplication.hcr_hand; else hc := wapplication.hcr_default; end; diff --git a/src/corelib/gfxbase.pas b/src/corelib/gfxbase.pas index ed8aeb43..ffba04bb 100644 --- a/src/corelib/gfxbase.pas +++ b/src/corelib/gfxbase.pas @@ -28,7 +28,8 @@ type TWindowAttributes = set of TWindowAttribute; TMouseCursor = (mcDefault, mcArrow, mcCross, mcIBeam, mcSizeEW, mcSizeNS, - mcSizeNWSE, mcSizeNESW, mcSizeSWNE, mcSizeSENW, mcMove, mcHourGlass); + mcSizeNWSE, mcSizeNESW, mcSizeSWNE, mcSizeSENW, mcMove, mcHourGlass, + mcHand); TGradientDirection = (gdVertical, // Fill vertical gdHorizontal); // Fill Horizontal diff --git a/src/corelib/x11/gfx_x11.pas b/src/corelib/x11/gfx_x11.pas index de987f0b..c41d873c 100644 --- a/src/corelib/x11/gfx_x11.pas +++ b/src/corelib/x11/gfx_x11.pas @@ -1391,6 +1391,7 @@ begin mcMove: shape := XC_fleur; mcCross: shape := XC_crosshair; mcHourGlass: shape := XC_watch; + mcHand: shape := XC_hand2; else shape := XC_left_ptr; //XC_arrow; end; |