Re: MediaView

[Johny Provoost <johny.provoost@xxxxxxxxx>]

Ok, Many thanks, I try it that way.

Op 21/01/2026 om 19:01 schreef Bruce Steers:
> On Wed, 21 Jan 2026 at 17:12, Johny Provoost 
> <johny.provoost@xxxxxxxxx> wrote:
>
>     Hallo,
>
>     Is it possible to change the colour of the progress bar and the
>     text colour of MediaView?
>     I tried change the background and the foreground colours but
>     nothing changed.
>
>     Working with Gambas 3.21.2 on Mint 21.1 Cinnamon.
>     -- 
>
>
>
>     *Vriendelijke Groeten*
>
>     *Johny Provoost*
>
>     *mailto: johny.provoost@xxxxxxxxx*
>
>     *mailto: johny.provoost@xxxxxxxx <mailto:johny.provoost@xxxxxxxxx>*
>
>
>
> Hi you can navigate manually through it's children to get the part you 
> want.
> you can hack your way into a lot of gambas controls and do things they 
> were not designed to do.
>
> He is an example i just made that lets you set background for either 
> video, time or control zones
> for example to change the color of the time slider to red use this..
>
> The program below gives a MediaView like the attached picture.
>
> ChangeMediaViewColor(MediaView1, "time", Color.Red)
>
> -----------------
> Public Sub Form_Open()
>
>   ChangeMediaViewColor(MediaView1, "video", Color.Red)
>   ChangeMediaViewColor(MediaView1, "time", Color.Green)
>   ChangeMediaViewColor(MediaView1, "control", Color.Yellow)
>
> End
>
> '' Change Background of a "zone" , zone can be video (video screen), 
> time (position slider) or control (control panel)
> Public Sub ChangeMediaViewColor(View As MediaView, Zone As String, 
> Background As Integer)
>
>   Dim aZone As String[] = ["video", "", "time", "control"]
>   Dim iZone As Integer
>
>   iZone = aZone.Find(Zone, gb.IgnoreCase)
>   If Not Zone Or If iZone = -1 Then Error.Raise("bad zone")
>
>   Dim o As Object = View.Children[0]
>
>   o = o.Children[0]
>   o = o.Children[iZone]
>   o.Background = Background
>   If o.Name = "panVideo" Then  ' also set the drawingarea inside this 
> panel
>     o = o.Children[0]
>     o.Background = Background
>   Endif
>
> End
>
> -----------------
>
> Hope that helps.
> BruceS

--



*Vriendelijke Groeten*

*Johny Provoost*

*mailto: johny.provoost@xxxxxxxxx*

*mailto: johny.provoost@xxxxxxxxx*