Procedure TimerMouse() ; Процедура вызывается по таймеру
  Temp.POINT
  GetCursorPos_(@Temp) ; Текузая позиция курсора мышки относительно экрана
  SetGadgetText(1,"Y = "+Str(Temp\y))
  SetGadgetText(2,"X = "+Str(Temp\x))
   
  If GetAsyncKeyState_(#VK_LBUTTON) ; Нажата левая кнопка мышки
  SetGadgetText(3,"Нажата ЛКМ")
  Else
  SetGadgetText(3,"")
  EndIf
EndProcedure

If OpenWindow(0,4,4,90,70,"Pos", #PB_Window_MinimizeGadget)
  StickyWindow(0,1)  

  TextGadget(1,10,10,70,16, "Y")
  TextGadget(2,10,28,70,16,"X")
  TextGadget(3,10,48,80,16,"")
   
  SetTimer_(WindowID(0), 2, 40, @TimerMouse() ) ; Запуск таймера
   
  Repeat
  Event=WaitWindowEvent()  
  Until Event=#PB_Event_CloseWindow
   
  KillTimer_(WindowID(0), 2)
   
EndIf
End