mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-06-29 11:40:38 +00:00
104 lines
3.4 KiB
Plaintext
104 lines
3.4 KiB
Plaintext
{{DISPLAYTITLE: _MOUSEPIPEOPEN}}
|
|
|
|
The [[_MOUSEPIPEOPEN]] function creates a pipe handle value for a mouse when using a virtual keyboard.
|
|
|
|
|
|
{{PageSyntax}}
|
|
: vkMousePipe = [[_MOUSEPIPEOPEN]]
|
|
|
|
|
|
{{PageDescription}}
|
|
* The pipe handle value can be used optionally with [[_MOUSEINPUT]], [[_MOUSEX]], [[_MOUSEY]], and [[_MOUSEBUTTON]] when required.
|
|
|
|
|
|
{{PageExamples}}
|
|
''Snippet:'' The following snippet isn't runnable/compilable, but it showcases the use of the [[_MOUSEPIPEOPEN]] function.
|
|
{{CodeStart}}
|
|
mDown = 0
|
|
mUp = 0
|
|
mEvent = 0
|
|
|
|
{{Cl|IF...THEN|IF}} VkMousePipe = 0 {{Cl|THEN}}
|
|
VkMousePipe = {{Cl|_MOUSEPIPEOPEN}} 'create new pipe
|
|
{{Cl|END IF}}
|
|
|
|
{{Cl|DO...LOOP|DO}} {{Cl|WHILE}} {{Cl|_MOUSEINPUT}}(VkMousePipe)
|
|
mb = {{Cl|_MOUSEBUTTON}}(1, VkMousePipe)
|
|
|
|
mx = {{Cl|_MOUSEX}}(VkMousePipe)
|
|
my = {{Cl|_MOUSEY}}(VkMousePipe)
|
|
|
|
{{Cl|IF...THEN|IF}} {{Cl|_PIXELSIZE}} = 0 {{Cl|THEN}} 'screen 0 adjustment
|
|
mx = mx * 8 - 4
|
|
my = my * 16 - 8
|
|
{{Cl|END IF}}
|
|
{{Cl|IF...THEN|IF}} mb = -1 {{Cl|AND (boolean)|AND}} omb = 0 {{Cl|THEN}} mDown = -1: mEvent = 1: {{Cl|EXIT DO}}
|
|
|
|
if VkMousePipeCapture=0 then
|
|
{{Cl|_MOUSEINPUTPIPE}} VkMousePipe
|
|
end if
|
|
|
|
{{Cl|IF...THEN|IF}} mb = 0 {{Cl|AND (boolean)|AND}} omb = -1 {{Cl|THEN}}
|
|
VkMousePipeCapture=0
|
|
mUp = -1
|
|
mEvent = 1
|
|
{{Cl|EXIT DO}}
|
|
end if
|
|
|
|
{{Cl|LOOP}}
|
|
omb = mb
|
|
|
|
|
|
rootId = VkByRole("ROOT")
|
|
editMode = VK(rootId).locked
|
|
|
|
{{Cl|IF...THEN|IF}} mDown {{Cl|THEN}}
|
|
mDownX = mx
|
|
mDownY = my
|
|
i2 = 0
|
|
|
|
{{Cl|FOR...NEXT|FOR}} internal = 1 {{Cl|TO}} 0 {{Cl|STEP}} -1
|
|
{{Cl|FOR...NEXT|FOR}} i = VkLast {{Cl|TO}} 1 {{Cl|STEP}} -1
|
|
{{Cl|IF...THEN|IF}} VK(i).active {{Cl|THEN}}
|
|
{{Cl|IF...THEN|IF}} VK(i).internal = internal {{Cl|THEN}}
|
|
x = VK(i).x * VkUnitSize
|
|
y = VK(i).y * VkUnitSize
|
|
w = VK(i).w
|
|
h = VK(i).h
|
|
x1 = {{Cl|INT}}(x)
|
|
x2 = {{Cl|INT}}(x + VkUnitSize * w) - 1
|
|
y1 = sy - 1 - {{Cl|INT}}(y)
|
|
y2 = sy - 1 - {{Cl|INT}}(y + VkUnitSize * h) + 1
|
|
{{Cl|IF...THEN|IF}} mx >= x1 {{Cl|AND (boolean)|AND}} mx <= x2 {{Cl|AND (boolean)|AND}} my >= y2 {{Cl|AND (boolean)|AND}} my <= y1 {{Cl|THEN}}
|
|
i2 = i
|
|
{{Cl|EXIT}} {{Cl|FOR...NEXT|FOR}}
|
|
{{Cl|END IF}}
|
|
{{Cl|END IF}}
|
|
{{Cl|END IF}}
|
|
{{Cl|NEXT}}
|
|
{{Cl|IF...THEN|IF}} i2 {{Cl|THEN}} {{Cl|EXIT}} {{Cl|FOR...NEXT|FOR}}
|
|
{{Cl|NEXT}}
|
|
{{Cl|IF...THEN|IF}} i2 {{Cl|THEN}}
|
|
VkI = i2
|
|
VKoldX = VK(i2).x
|
|
VKoldY = VK(i2).y
|
|
VKdragging = 0
|
|
VKstart = {{Cl|TIMER (statement)|TIMER}}(0.001)
|
|
'VK(i2).held = -1
|
|
VkKeyDown i2
|
|
VkMousePipeCapture=1
|
|
{{Cl|END IF}}
|
|
IF VkMousePipeCapture = 0 THEN {{Cl|_MOUSEINPUTPIPE}} VkMousePipe
|
|
{{Cl|END}} I
|
|
|
|
{{TextEnd}}
|
|
: When using the [[$VIRTUALKEYBOARD|virtual keyboard]], the keyboard captures mouse input appropriately whilst selectively letting presses originating on non-key areas of the screen filter through to the default mouse queue.
|
|
|
|
|
|
{{PageSeeAlso}}
|
|
* [[$VIRTUALKEYBOARD]]
|
|
|
|
|
|
{{PageNavigation}}
|
|
<
|