PureBoard

Code: Alles auswählen

; Written by Axolotl 

Procedure SetWindowTransparency(Window, Color)
  SetWindowLong_(WindowID(Window),#GWL_EXSTYLE,GetWindowLong_(WindowID(Window),#GWL_EXSTYLE) | $00080000) ; #WS_EX_LAYERED = $00080000
  SetLayeredWindowAttributes_(WindowID(Window), Color, 0, 1)
EndProcedure 


Procedure Main() 
  Protected xQuitLoop 
  Protected ww, wh, nbDesks, countdown 
  Protected FColor = #Blue ; GetSysColor_(#COLOR_CAPTIONTEXT) 
  Protected BColor = GetSysColor_(#COLOR_DESKTOP)

;   nbDesks = ExamineDesktops() ; simple as it can be 
;   If nbDesks 
;     ww = DesktopWidth(0)    ; the primary ? 
;     wh = DesktopHeight(0)   ; 
;   EndIf 

  ww = 400    ; window size 
  wh = 200    ; 

  If OpenWindow(0, 0, 0, ww, wh, "", #PB_Window_BorderLess|#PB_Window_Invisible) 
    SetWindowColor(0, BColor) 
    TextGadget(0, 0, 0, ww, wh, "Hello World") 

    SetGadgetColor(0, #PB_Gadget_BackColor, BColor) 
    SetGadgetColor(0, #PB_Gadget_FrontColor, FColor) 

    If LoadFont(0, "Arial", 24, #PB_Font_Bold|#PB_Font_HighQuality) 
      SetGadgetFont(0, FontID(0)) 
    EndIf 

    SetWindowLong_(WindowID(0), #GWL_EXSTYLE, #WS_EX_LAYERED | #WS_EX_TRANSPARENT) 
    SetWindowTransparency(0, BColor) 
    
    ; Z-Order 
;   SetWindowPos_(WindowID(0), #HWND_BOTTOM, 0, 0, 0, 0, #SWP_NOMOVE|#SWP_NOREPOSITION|#SWP_NOSIZE)
    SetWindowPos_(WindowID(0), #HWND_TOPMOST, 0, 0, 0, 0, #SWP_NOMOVE|#SWP_NOREPOSITION|#SWP_NOSIZE)

    HideWindow(0, 0, #PB_Window_ScreenCentered)    ;Fenster anzeigen
    AddWindowTimer(0, 1, 1000) 
    countdown = 5 
    Repeat  
      Select WaitWindowEvent()  
        Case #PB_Event_Timer 
          If EventTimer() = 1 
            SetGadgetText(0, FormatDate("%hh:%ii:%ss Uhr", Date())+#LF$+#LF$+"Countdown: " + countdown)
            countdown - 1
            If countdown < 0     ; <== Exit the App ater a short time. 
              xQuitLoop = 1 
            EndIf
          EndIf
  
        Case #WM_KEYDOWN
          Select EventwParam()
            Case #VK_F5                     : Debug "F5 is pressed"
            Case #VK_RETURN                 : Debug "Enter is pressed"
            Case #VK_ESCAPE 
              xQuitLoop = #True 
          EndSelect  

      EndSelect  
    Until xQuitLoop 
    RemoveWindowTimer(0, 1) ;; get rid of the timer...
  EndIf
EndProcedure

End Main()

Code: Alles auswählen

Global mx, my, dtx, dty, hwnd  

Procedure WriteTextToDesktop(hwnd, Text$) 
  Protected hdc, rc.RECT

  hdc = GetDCEx_(hwnd, 0, $403)   ; #DCX_WINDOW | #DCX_CACHE | #DCX_LOCKWINDOWUPDATE 
  If hdc 
    SetBkColor_(hdc, GetPixel_(hdc, mx, my)) ; use the background color from the pixel behind the mouse cursor. 
    TextOut_(hDC, dtx, dty, Text$, Len(Text$)) 
    ReleaseDC_(hwnd, hdc) 
  EndIf 
EndProcedure 

hwnd = GetDesktopWindow_()      : Debug "Desktop = " + hwnd 

If OpenWindow(0, 0, 0, 320, 80, "Position of the mouse on the desktop", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  StickyWindow(0, 1) 
  TextGadget(0, 10,  4, 300, 20, "")
  TextGadget(1, 10, 24, 300, 20, "Write Text direct on the Desktop at Mouse Position!")
  AddWindowTimer(0, 0, 25) 

  Repeat
    Event = WaitWindowEvent()
    If GetAsyncKeyState_(#VK_LBUTTON) & $8000 
      dtx = mx : dty = my 
    EndIf 
    If Event = #PB_Event_Timer ; Each 10 ms => Let's display the coordinates
      mx = DesktopMouseX()
      my = DesktopMouseY()
      text$ = "Coordinates: " + Str(mx) + "," + Str(my)
      SetGadgetText(0, text$)  
      WriteTextToDesktop(hwnd, text$)   ; only on mouse clicks 
    EndIf
  Until Event = #PB_Event_CloseWindow
EndIf

Code: Alles auswählen

 
;/===
;| File Header .... 
;| All texts, names, etc. in code files are written in english. 
;\=== 
EnableExplicit   ; use declared variables only 

; Use constants instead of direct numbers or text. 
#ProgramName$  = "Test"
#ProgramVersion$ = "0.0" 
#ProgramCaption$ = "Test Tool " 

Enumeration EWindow 1  ; <= Main Enum (leave the 0 for error checks) 
  #WND_Main 
  ; tbc.
EndEnumeration

Enumeration EGadget 1 
  #GDT_txtInfo 
  #GDT_strFilename 
  #GDT_btnStart
  #GDT_btnCancel 
  ; tbc.
EndEnumeration

Enumeration ETimer 1 
  #TMR_DelayedInit 
EndEnumeration

; .... 
Enumeration EWindow  ; continued 
  #WND_Trace 
EndEnumeration

Enumeration EGadget ; continued 
  #GDT_Trace_btnClear 
  #GDT_Trace_btnCopyToClip 
  #GDT_Trace_lstOutput 
EndEnumeration