PureBasic

MouseLocate()

Синтаксис

MouseLocate(x , y)

Описание


Изменяет абсолютную позицию (в пикселях) Мыши на текущем экране. Это полезно при использовании функций MouseX() и MouseY().

Параметры

x, y Новая абсолютная позиция (в пикселях) Мыши на текущем экране.

Возвращаемое значение

Ничего.

Пример (фран.)

; Инициализация мира 2D
InitSprite()
InitKeyboard()
InitMouse()

; Курсор мыши
CreateImage(0, 20, 20)
StartDrawing(ImageOutput(0))
Circle(10, 10, 10, RGB(255, 255, 0))
StopDrawing()

; Открытие окна
OpenWindow(0, 0, 0, 800, 600, "Мышь - MouseLocate", #PB_Window_ScreenCentered|#PB_Window_SystemMenu)
OpenWindowedScreen(WindowID(0), 0, 0, 800, 600, 1, 0, 0)

; Управление окнами и экранами
Repeat
    Repeat        ; Управление окнами
        Event  = WindowEvent()
    Until Event = 0

    ExamineMouse() ; Состояние мыши

    ; Просмотр состояния кнопок мыши
    StartDrawing(ScreenOutput())
    DrawText(10, 10, "Нажмите клавишу на клавиатуре, чтобы выйти.", RGB(255, 255, 0))
    DrawText(100, 180, "Переместите мышь и нажмите, чтобы вернуть курсор в центр экрана.", RGB(255, 0, 0), RGB(255, 255, 0))

    DrawText(MouseX(), MouseY(), "["+Chr(164)+"]", RGB(255, 255, 0))

    If MouseButton(#PB_MouseButton_Left)
        MouseLocate(400, 300)
        DrawText(MouseX(), MouseY(), "["+Chr(164)+"]", RGB(255, 255, 0))
    EndIf

    StopDrawing()

    FlipBuffers()
    ClearScreen(RGB(0, 0, 0))

    ExamineKeyboard()
Until KeyboardPushed(#PB_Key_All)
End

См. также

ExamineMouse(), MouseX(), MouseY()

Поддерживаемые OS

Все

<- MouseDeltaY() - Оглавление Mouse - MouseWheel() ->