Re: mute support in Win10

"brucexs-/[email protected] [power-pro]" <[email protected]> 08 Jun 2019 07:33:36 -0700
Newsgroups gmane.comp.windows.power-pro
Message-ID <[email protected]>
I think I already implemented this; it is a windows 7 requirement, not a unicode requirement. 
 I checked on my win10 machine unicode version and muting and volume control worked fine.
 

 It relies on pprovista.dll in standard install program which should be in your ppro exe folder and should be 51K or so (no version included, unfortunately).
 

 I tested with this volume bar that I keep hidden at top of my screen and which you should be able to import to test.  The test bar uses the exec.mute command, the muted keyword function, and the volume function and exec.volumeall commands.
 

 

 

 [volume:Properties]
 Format1 = IconSize: 16 Position: Floating Left: 990 Right: 1199 Top: -4 Bottom: 18 ShowIfBump: NearestEdge
 Format2 = HideAfter: 500 MaxText: 127 Transparent: 50 Gradient: 120 VerticalGradient
 Format3 = Flat Back: 128 219 249
 Format4 = TopMost AllVDesks AutoShowBar TextCenter BarSize BumpWithin Marker HoverClick ActiveOnlyThis
 

 [1]
 id = mute
 Label = *control button  AUTOCHECKBOX clientedge (muted) clientedge 
 Format = back: 33 245 235 Height: 22 Width: 18 HoverClickright HoverClickMiddle NoHoverClick
 LCmd1 = if
 LParam1 = (cl.getctrlvalue("volume","mute")!=muted) 
 LCmd2 = exec.mute
 MCmd1 = (none)
 RCmd1 = cl.setctrlvalue("volume",
 RParam1 = "mute", muted) 
 

 [2]
 Label = test
 Format = HideItem
 LCmd1 = Configure.commandlists("?"++cl.GetLastbar())
 MCmd1 = (none)
 RCmd1 = (none)
 

 [3]
 id = when_shown
 Label = *
 Format = HideItem
 LCmd1 = cl.setctrlvalue("volume",
 LParam1 = "mute", muted) 
 LCmd2 = cl.setctrlvalue("volume",
 LParam2 = "slider", volume)
 MCmd1 = (none)
 RCmd1 = (none)
 

 [4]
 Label = *info expr(muted)
 Format = HideItem
 LCmd1 = (none)
 MCmd1 = (none)
 RCmd1 = (none)
 

 [5]
 id = slider
 Label = *control slider (volume) 0 255 0 noticks clientedge
 Format = back: 18 224 241 Height: 22 Width: 100 HoverClickright HoverClickMiddle NoHoverClick
 LCmd1 = exec.volumeall(cl.getctrlvalue("volume",
 LParam1 = "slider")) 
 MCmd1 = (none)
 RCmd1 = cl.setctrlvalue("volume",
 RParam1 = "slider",volume) 
 

 [6]
 Label = *info expr(volume*100/255)%
 Format = Width: -7 Disable
 LCmd1 = format
 LParam1 = Drag
 MCmd1 = (none)
 RCmd1 = (none)
 

 [7]
 Icon =play.ico,0
 Format = HoverClickright HoverClickMiddle NoHoverClick
 LCmd1 = exec
 LParam1 = MoreCommandsAsScript
 LCmd2 = local
 LParam2 = hh = win.handle("active")
 LCmd3 = keys
 LParam3 = {to =*player}{media_play_pause}
 LCmd4 = wait.forinterval(250)
 LCmd5 = win.show(hh)
 MCmd1 = (none)
 RCmd1 = keys
 RParam1 = {vkb3}
 

 [8]
 Icon =next.ico,0
 Format = HoverClickright HoverClickMiddle NoHoverClick
 LCmd1 = exec
 LParam1 = MoreCommandsAsScript
 LCmd2 = local
 LParam2 = hh = win.handle("active")
 LCmd3 = keys
 LParam3 = {to =vlc}{media_next_track}
 LCmd4 = wait.forinterval(250)
 LCmd5 = win.show(hh)
 MCmd1 = (none)
 RCmd1 = (none)
 

 [9]
 Icon =prev.ico,0
 Format = HoverClickright HoverClickMiddle NoHoverClick
 LCmd1 = exec
 LParam1 = MoreCommandsAsScript
 LCmd2 = local
 LParam2 = hh = win.handle("active")
 LCmd3 = keys
 LParam3 = {to =vlc}{media_prev_track}
 LCmd4 = wait.forinterval(250)
 LCmd5 = win.show(hh)
 MCmd1 = (none)
 RCmd1 = (none)