[Solved] Transparent CanvasGadget

[ZX80]

Thanks, Bernd.

I'm writing a user interface that consists of a frame only. I found your code handy and easy to select a region (for making screenshot). I hope the technical part is over. You may have seen the progress in my previous topics. I was just taking a little break. And now I need to take care of interactivity. And now I want to get this over with. I just wanted to add a bit more visibility for end user (to be able to see the overlap area). So, we know how far we can scroll down the page.


added.

Thank you very much
This is not exactly what I was talking about. But I can already work with this.

I see it like this:

Code: Select all

If OpenWindow(0, 0, 0, 400, 200, "Select your area", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_ScreenCentered|#PB_Window_Tool)
  SetWindowColor(0, #Blue)
  SetWindowLong_(WindowID(0), #GWL_EXSTYLE, #WS_EX_LAYERED|#WS_EX_TOPMOST)
  SetLayeredWindowAttributes_(WindowID(0), #Blue, 0, #LWA_COLORKEY)
  
  StripHeight = 20
  StripBorder = 3
  
  Repeat
    Event = WaitWindowEvent()
    Select Event
      Case #PB_Event_CloseWindow
        End
      Case #PB_Event_Repaint
        If StartDrawing(WindowOutput(0))
          Box(0, WindowHeight(0) - StripHeight - StripBorder, WindowWidth(0), StripBorder, #Red)
          StopDrawing()
        EndIf
        
    EndSelect
    
  ForEver
EndIf

Attention! Do not resize the window. I haven't added a reaction for this event yet (well, I guess I could do that). Just move it.
Thanks again.

[ZX80]

In the simplest case like this:

Code: Select all

If OpenWindow(0, 0, 0, 400, 200, "Select your area", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_ScreenCentered|#PB_Window_Tool)
  SetWindowColor(0, #Blue)
  SetWindowLong_(WindowID(0), #GWL_EXSTYLE, #WS_EX_LAYERED|#WS_EX_TOPMOST)
  SetLayeredWindowAttributes_(WindowID(0), #Blue, 0, #LWA_COLORKEY)
  
  StripHeight = 20
  StripBorder = 2
  
  Repeat
    Event = WaitWindowEvent()
    Select Event
      Case #PB_Event_CloseWindow
        End
        
      Case #PB_Event_SizeWindow
        InvalidateRect_(WindowID(0), 0, 1)
        
      Case #PB_Event_Repaint
        If StartDrawing(WindowOutput(0))
          Box(0, WindowHeight(0) - StripHeight - StripBorder, WindowWidth(0), StripBorder, #Red)
          StopDrawing()
        EndIf
        
    EndSelect
    
  ForEver
EndIf

But I think I'll change that again to smoothly change size of the strip.

[RASHAD]

If I understood you correctly
Maybe
It may need more calculations for borders and so

Code: Select all

Procedure sizeCB()
  ResizeWindow(1,WindowX(0)+2, WindowY(0)+WindowHeight(0)+11, WindowWidth(0), 20)
EndProcedure

If OpenWindow(0, 0, 0, 400, 200, "Select your area", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_ScreenCentered|#PB_Window_Tool)
  SetWindowColor(0, #Blue)
  SetWindowLong_(WindowID(0), #GWL_EXSTYLE, #WS_EX_LAYERED|#WS_EX_TOPMOST)
  SetLayeredWindowAttributes_(WindowID(0), #Blue, 0, #LWA_COLORKEY)
  
  OpenWindow(1, WindowX(0)+2, WindowY(0)+211, 400, 20, "Select your area", #PB_Window_BorderLess,WindowID(0))
  SetWindowColor(1, #Green)
  SetWindowLong_(WindowID(1), #GWL_EXSTYLE, #WS_EX_LAYERED|#WS_EX_TOPMOST)
  SetLayeredWindowAttributes_(WindowID(1), #Green, 100, #LWA_ALPHA)
  
  StripHeight = 20
  StripBorder = 2
  
  BindEvent(#PB_Event_SizeWindow,@sizeCB())
  BindEvent(#PB_Event_MoveWindow,@sizeCB())
  SetActiveWindow(0)
  Repeat
    Event = WaitWindowEvent()
    Select Event
      Case #PB_Event_CloseWindow
        End       
       
        
    EndSelect
    
  ForEver
EndIf

[ZX80]

Good day, master RASHAD.

YES ........ YES ........ YES
You absolutely correctly understood the task. And you did/resolved it very cool.
I assumed that a second window would be required here.

Thank you very much
Perfect/great solution
Virtuoso as usual/always

You once again showed me how to make a quality program
My applause for you

[RASHAD]

You are very welcome

[DSPread]

Hello.

In my search for how to create a window with a transparent background (to overly subtitles on a video) I've I've just come across your code items SetWindowLong_(), SetLayeredWindowAttributes_(), and constants like #GWL_EXSTYLE, #WS_EX_LAYERED, #WS_EX_TOPMOST, and #LWA_COLORKEY.

Your transparency example runs OK on my Win 11 system, but I can't find any reference where these items are defined/explained, which I would like read before using them in my own program.

Could you direct me, please?

Kind regards,

David

[infratec]

All procedures with an underscore at the end are OS API functions.
You have to look at them at the microsoft help:

https://learn.microsoft.com/en-us/windo ... indowlonga

https://learn.microsoft.com/en-us/windo ... attributes

Also the constants are from MS.

[DSPread]

After a signicant delay (previous post August 2024) I have discovered that PlayMovie automatically renders subtitle files (at least the WEBVTT one I had handy)! I cannot find any documentation, however, and I may find this behaviour unnaceptable (some text I may use will be ready-formatted with one or more specific fonts and font size and are likely to contain a shape or two). Is there a comprehensive reference document for PlayMovie that will cover this, please?

As a follow-up I was originally going to ask about adding subtitles as text or grapohics by overlaying the main material with opaque text and semi-transparent background, so that, unlike chroma keying, white text over a white image region is avoided by a partially transparent black background which reduces the image brightness. This may have already been solved but as a hardware engineer my ability to read non-obvious code is limited...

Kind regards,

David