PureBasic Forums - English

Trond wrote:@akie: 50% transparent window can easily be achieved by an entirely different technique:

Sparkie wrote:Nice one Trond

NoahPhense wrote:btw - i tried the trick.. nice.. now make it not jumpy...

This seems to work pretty good...

Code: Select all

; --> Original "Desktop Window" inspired Trond
Procedure myCallback(hwnd, msg, wparam, lparam) 
  Result = #PB_ProcessPureBasicEvents 
  Select msg
    Case #WM_PAINT
      hdc = BeginPaint_(hwnd, @ps.PAINTSTRUCT) 
      PaintDesktop_(hdc)
      EndPaint_(hwnd,@ps) 
      Result = 0
    Case #WM_MOVING
      InvalidateRect_(WindowID(), 0, 0)
    Case #WM_SIZE
      InvalidateRect_(WindowID(), 0, 0)
  EndSelect 
  ProcedureReturn Result 
EndProcedure 
If OpenWindow(0, 0, 0, 300, 300,  #PB_Window_SizeGadget | #PB_Window_MaximizeGadget | #PB_Window_MinimizeGadget, "Desktop Window")
  SetClassLong_(WindowID(), #GCL_HBRBACKGROUND, 0)
  SetWindowCallback(@myCallback()) 
  Repeat 
    event = WaitWindowEvent() 
  Until event = #PB_EventCloseWindow 
EndIf
End

* Edited to remove un-needed line *

NoahPhense wrote:Wow Sparkie.. very nice.. that sh!t is tight..

PB wrote:Sparkie, how about adapting it to show whatever's under the window, instead
of just the Desktop?

borderW = GetSystemMetrics_(#SM_CXSIZEFRAME)
borderH = GetSystemMetrics_(#SM_CYSIZEFRAME)
captionH = GetSystemMetrics_(#SM_CYCAPTION)
If OpenWindow(0, 0, 0, 300, 300,  #PB_Window_SizeGadget | #PB_Window_MaximizeGadget | #PB_Window_MinimizeGadget, "See-Through Window")
  outterRgn  = CreateRectRgn_(0, 0, WindowWidth() + (borderW * 2), WindowHeight() + captionH + (borderH * 2))
  innerRgn = CreateRectRgn_(borderW, captionH + borderH, WindowWidth() + borderW, WindowHeight() + captionH + borderH)
  winRgn = outterRgn
  CombineRgn_(winRgn, outterRgn, innerRgn, #RGN_XOR)
  SetWindowRgn_(WindowID(), winRgn, 1)
  DeleteObject_(outterRgn)
  DeleteObject_(innerRgn)
  Repeat 
    event = WaitWindowEvent() 
    Select event
      Case #PB_Event_SizeWindow
        outterRgn  = CreateRectRgn_(0, 0, WindowWidth() + (borderW * 2), WindowHeight() + captionH + (borderH * 2))
        innerRgn = CreateRectRgn_(borderW, captionH + borderH, WindowWidth() + borderW, WindowHeight() + captionH + borderH)
        winRgn = outterRgn
        CombineRgn_(winRgn, outterRgn, innerRgn, #RGN_XOR)
        SetWindowRgn_(WindowID(), winRgn, 1)
        DeleteObject_(outterRgn)
        DeleteObject_(innerRgn)
    EndSelect
  Until event = #PB_EventCloseWindow 
EndIf 
End

Sparkie wrote:

NoahPhense wrote:Wow Sparkie.. very nice.. that sh!t is tight..

Thanks np.
... but are you saying I'm a tight a$$

Sparkie wrote:I got that np, I was being sarcastic.

Back in the 60's, when I was a wee little boy, the highest praise was... boss-or-what. :roll:

traumatic wrote: OT: fsw, glad you decided _not_ to shut up