PureBoard

Code: Alles auswählen

GetCursorPos_(@MousePos.POINT)
Debug MousePos\X
Debug MousePos\Y

Code: Alles auswählen

*MousePos.POINT = AllocateMemory(SizeOf(POINT))
GetCursorPos_(*MousePos)
Debug PeekL(*MousePos)
Debug PeekL(*MousePos+4)

Code: Alles auswählen

*MousePos.POINT = AllocateMemory(SizeOf(POINT))
GetCursorPos_(*MousePos)
Debug *MousePos\X
Debug *MousePos\Y

Code: Alles auswählen

*MousePos.POINT = HeapAlloc_(GetProcessHeap_(),0,SizeOf(POINT))
GetCursorPos_(*MousePos)
Debug *MousePos\X
Debug *MousePos\Y

Code: Alles auswählen

If OpenWindow(0, 100, 150, 300, 100, #PB_Window_SystemMenu | #PB_Window_Invisible, "PureBasic - SysTray Example")
  
  AddSysTrayIcon(1, WindowID(), LoadImage(0, "icon.ico"))
  
  If CreatePopupMenu(0)   
    MenuItem(1, "Open")   
    MenuItem(2, "Save")
    MenuItem(3, "Save as")
    MenuItem(4, "Quit")
  EndIf
  
  Repeat
    Event = WaitWindowEvent()
    Select Event
      Case #PB_Event_SysTray
        Select EventType() 
          Case #PB_EventType_RightClick
            DisplayPopupMenu(0,WindowID())  
        EndSelect
      Case #PB_Event_Menu
        Select EventMenuID()
          Case 4 ; Quit 
            Quit =1
        EndSelect
    EndSelect
  Until Quit = 1
EndIf