Mouse position: Difference between revisions

{{omit from|ACL2}}

{{omit from|AWK|Does not have an active window concept}}

{{omit from|PostScript}}

{{omit from|R}}

{{omit from|TI-83 BASIC|Does not have a pointing device.}}

{{omit from|TI-89 BASIC|Does not have a pointing device.}}

{{omit from|ZX Spectrum Basic|Does not have a pointing device interface or windowing engine}}

 

Get the current location of the mouse cursor relative to the active window.

Please specify if the window may be externally created.

 

=={{header|ActionScript}}==

This shows the mouse position in a text field at the bottom-right corner

and updates when the mouse is moved.

package {

 

}

 

=={{header|Ada}}==

It returns mouse coordinates relatively to a window (internally created).

The following program shows a button, which when pressed indicates coordinates of the mouse pointer relatively to the main window:

with Gtk.Button; use Gtk.Button;

with Gtk.Label; use Gtk.Label;

Gtk.Main.Main;

 

=={{header|AutoHotkey}}==

The window may be an externally created window.

MouseGetPos, x, y ; Gets x/y pos relative to active window

WinGetActiveTitle, WinTitle ; Gets active window title

Traytip, Mouse position, x: %x%`ny: %y%`rWindow: %WinTitle%, 4 ; Displays the info as a Traytip for 4 seconds

 

===with DllCall===

Source: [https://github.com/jNizM/AHK_DllCall_WinAPI/ GetCursorPos @github] by jNizM

{

static POINT, init := VarSetCapacity(POINT, 8, 0) && NumPut(8, POINT, "Int")

. "POINT structure`n`n"

. "x-coordinate:`t`t" GetCursorPos[0] "`n"

Source: [https://github.com/jNizM/AHK_DllCall_WinAPI/ GetPhysicalCursorPos @github] by jNizM

{

static POINT, init := VarSetCapacity(POINT, 8, 0) && NumPut(8, POINT, "Int")

. "POINT structure`n`n"

. "x-coordinate:`t`t" GetPhysicalCursorPos[0] "`n"

 

=={{header|BBC BASIC}}==

The mouse coordinates are relative to the bottom-left corner

of the BBC BASIC main output window:

 

=={{header|C}}==

{{libheader|Xlib}}

#include <X11/Xlib.h>

 

(void)XCloseDisplay(d); /* and close the display */

return 0;

=={{header|c_sharp|C#}}==

Writes the absolute Mouse Position of the Screen into the Console

using System;

using System.Windows.Forms;

}

}

=={{header|Clojure}}==

 

=={{header|Delphi}}==

Shows mouse-position on a label on the form.

 

Y: Integer);

begin

lblMousePosition.Caption := ('X:' + IntToStr(X) + ', Y:' + IntToStr(Y));

 

 

with the help of Windows and classes units.

 

{$APPTYPE CONSOLE}

uses

sleep(300);

end

 

=={{header|EchoLisp}}==

When the '''plot''' library is loaded, the mouse position - relative to the plotting area coordinates, is displayed inside the info panel.

(lib 'plot)

(plot-x-minmax 10) ; set logical dimensions of plotting area

;; the mouse position is displayed as , for example, [ x: 5.6 y : 88.7]

;; 0 <= x <= 10, 0 <= y <= 100

 

--[[User:Neo.abhinav|Neo.abhinav]] 17:00, 6 May 2011 (UTC)

 

=={{header|Elm}}==

import Mouse

 

main : Signal Element

main =

 

=={{header|Emacs Lisp}}==

the frame the mouse is over and where the mouse is within that frame can be obtained with

 

 

Or <code>mouse-position</code> for characters instead of pixels.

=={{header|ERRE}}==

This example program, taken from distribution disk, shows the mouse position in a text field at the bottom-right corner and updates when the mouse is moved.

!

! MOUSE WITH 'MOUSE.LIB' LIBRARY

CLS

END PROGRAM

 

=={{header|F_Sharp|F#}}==

If the question was for the point relative to the current window,

life would be much simpler.

open System.Runtime.InteropServices

 

ScreenToClient(hwnd, &ptFs) |> ignore

ptFs

 

=={{header|Gambas}}==

this is the only widget that can track pointer movement within gambas.

 

PUBLIC SUB Form1_MouseMove()

PRINT mouse.X

PRINT Mouse.Y

END

 

=={{header|Groovy}}==

Based on Java solution:

Thread.sleep(1000)

def p = java.awt.MouseInfo.pointerInfo.location

println "${it}: x=${p.@x} y=${p.@y}"

 

Sample output:

Mouse click positions for windows created internally.

X and Y are in units of current xy axes (optional: invisible).

AXIS(WINdowhandle=handle, MouSeCall=Mouse_Callback, MouSeX=X, MouSeY=Y)

END

SUBROUTINE Mouse_Callback()

WRITE(Messagebox, Name) X, Y

 

=={{header|Icon}} and {{header|Unicon}}==

In Icon/Unicon the mouse position may be tracked between button presses for any window created by the program.

The following code snippet taken from the Icon Graphics Book on page 197-198 shows how to track the mouse.

px := WAttrib("pointerx")

py := WAttrib("pointery")

WDelay(5) # wait and share processor

}

 

=={{header|Java}}==

{{works with|Java|1.5+}}

The mouse position can be checked at any time by calling

This returns a point on the entire screen, rather than relative to a particular window. This call can be combined with <code>getLocation()</code> from any <code>Component</code> (including a <code>Frame</code>, which is a window) to get the location relative to that <code>Component</code>.

 

One of many ways to add an event listener:

 

var position = { x: e.clientX, y: e.clientY }

 

In the above example, the window may not be external.

It must in fact be a web browser window, which runs the script.

 

=={{header|Liberty BASIC}}==

This example gets the mouse position based on the active window.

Click on other windows to get relative mouse position based on those windows.

 

UpperLeftX = DisplayWidth-WindowWidth

y = point.y.struct

CursorPos$=x; ",";y

 

=={{header|Lingo}}==

 

=={{header|Logo}}==

 

=={{header|MAXScript}}==

Creates a window on the screen and shows mouse position as it moves.

 

try destroydialog mousePos catch ()

 

 

createdialog mousepos

 

 

=={{header|OCaml}}==

 

let () =

 

xCloseDisplay d;

 

=={{header|Octave}}==

To get the X,Y coordinates of N mouse clicks in the current figure,

one can use this:

Example:

<pre>>> [X, Y, BUTTONS] = ginput(4)

2

</pre>

 

=={{header|Oz}}==

Repeatedly shows the mouse coordinates relative to the foremost window of the application.

[QTk] = {Module.link ['x-oz://system/wp/QTk.ozf']}

WindowClosed = {NewCell false}

#", y: "#(Winfo.pointery - Winfo.rooty))}

{Delay 250}

 

=={{header|Perl}}==

When you move the mouse over the created window,

the mouse position get printed and the program terminates.

use SDL::Events;

use SDLx::App;

} );

$app->run;

{{out}}

<pre>x=15 y=304</pre>

 

 

 

=={{header|PicoLisp}}==

The returned value is (X . Y), where X is the

column and Y the line number.

(prog2

(prin "^[[?9h") # Mouse reporting on

(- (char (key)) 32)

(- (char (key)) 32) ) )

{{out}}

<pre>: (mousePosition)

=={{header|PureBasic}}==

The mouse position can be obtained by these two commands:

This example repeatedly shows the mouse coordinates

relative to the window created in the application.

#Label_txt = 0

#MousePos_txt = 1

SetGadgetText(#MousePos_txt,"(" + Str(x) + "," + Str(y) + ")")

ForEver

 

=={{header|Python}}==

 

Code is based on post in Daniweb: http://www.daniweb.com/forums/post616327.html#post616327 by ZZucker

import Tkinter as tk

 

 

root.mainloop()

----------------

#simple way of ,get cursor xy data

from Tkinter import *

win=Tk()

win.bind("<Motion>",xy)

mainloop()

 

=={{header|Racket}}==

The mouse position can be queried at any time with a function in a GUI context.

 

#lang racket/gui

(define-values [point _] (get-current-mouse-state))

(send point get-x)

(send point get-y)

 

 

 

=={{header|Ring}}==

The movement procedure uses the mouse position information

 

Load "guilib.ring"

 

}

ok

=={{header|Ruby}}==

 

{{libheader|Shoes}}

 

@position = para "Position : ?, ?", :size => 12, :margin => 10

@position.text = "Position : #{x}, #{y}"

end

 

=={{header|Rust}}==

Prints current location of the mouse cursor relative to any active window.

This example relies on the Windows API.

 

use std::libc::{BOOL, HANDLE, LONG};

}

}

{{out}}

<pre>x: 550, y: 614

x: 0, y: 0

^C</pre>

 

=={{header|Seed7}}==

and [http://seed7.sourceforge.net/libraries/graph.htm#pointerYPos%28in_PRIMITIVE_WINDOW%29 pointerYPos] from the

[http://seed7.sourceforge.net/libraries/graph.htm graph.s7i] library determine the actual X and Y position of the mouse pointer, relative to the given window:

 

=={{header|Smalltalk}}==

Sending the message <tt>position</tt> to the <tt>activeHand</tt> of the <tt>World</tt> returns a <tt>Point</tt> object:

 

World activeHand position. " (394@649.0)"

 

=={{header|Tcl}}==

{{libheader|Tk}}

set curWindow [lindex [wm stackorder .] end]

# Everything below will work with anything from Tk 8.0 onwards

set x [expr {[winfo pointerx .] - [winfo rootx $curWindow]}]

set y [expr {[winfo pointery .] - [winfo rooty $curWindow]}]

 

=={{header|Visual Basic}}==

(so if the pointer is over a button on the current form,

the event will only fire for the button, ''not'' the form).

'X and Y are in "twips" -- 15 twips per pixel

Me.Print "X:" & X

Me.Print "Y:" & Y

 

The second method uses the [[wp:Windows API|Windows API]],

and can be easily translated to any language that can make API calls.

This example uses a <code>Timer</code> control to check the mouse position.

 

Private Type POINTAPI

Me.Print "X:" & Pt.X

Me.Print "Y:" & Pt.Y

 

=={{header|XPL0}}==

does not make Windows applications (however see "Simple windowed application").

 

if not OpenMouse then Text(0, "A mouse is required")

else [ShowMouse(true);

IntOut(0, GetMousePosition(0)); ChOut(0, ^,);

IntOut(0, GetMousePosition(1)); CrLf(0);

 

{{out|Example output}}