PureBoard

Code: Alles auswählen

Define.l  timewin

   OpenWindow(1, 0, 0, 100, 20, "T=", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_TitleBar)
   timewin = WindowID(1)
   ShowWindow_(timewin, #SW_SHOWMINIMIZED)
   


   Repeat
      Beep_(1000,200)   ; Abbruch möglich
      ShowWindow_(timewin, #SW_RESTORE)
      SetWindowPos_(timewin, #HWND_TOPMOST | #HWND_TOP, DesktopMouseX()-30, DesktopMouseY()-50, 100, 100,#SWP_SHOWWINDOW)
   
      While WindowEvent() <> 0: Delay(1): Wend                  ; queue leeren
      SetTimer_(timewin, 1, 3000, 0)  

Debug "start timer"

      Delay(200)
      ; Zeit lassen um eventuell abzubrechen durch RightClick
      Repeat
          Event      = WaitWindowEvent()
          eventwin.l = EventWindow()
          eventtype.l  = EventType() 

Debug "lauf timer    Event="+Str(Event)+"    "+ "     " + Str(eventwin) + "   " + Str(eventtype) + "   " + Str(#PB_EventType_RightClick)

          If Event = #WM_RBUTTONDBLCLK  :  CallDebugger: : EndIf  ;#WM_RBUTTONDBLCLK = 518 
          Delay(1)
      Until Event = #WM_TIMER 

      KillTimer_(timewin, 1)  

Debug "stop timer"

      While WindowEvent() <> 0: Delay(1): Wend                  ; queue leeren
    ;  ShowWindow_(timewin, #SW_SHOWMINIMIZED)   ;[color=red]<<< HIER GUCKEN![/color]
   
    ForEver