Re: [Gambas-user] Progressbar_mousedown() does not work [solved]

2014-11-18 Thread Fabien Bodard
if Object.Class(hControl).Name = sControlName then return hControl Can be replaced by if Object.Type(hControl) = sControlName then return hControl 2014-11-17 23:14 GMT+01:00 Fabien Bodard : > well this is another temporary soluce for this problem Tobias : > > > Private Function FindControl(hPare

Re: [Gambas-user] Progressbar_mousedown() does not work [solved]

2014-11-17 Thread Fabien Bodard
well this is another temporary soluce for this problem Tobias : Private Function FindControl(hParent as Container, sControlName as String) as Object dim hControl as Object For each hControl in hParent.Children if hControl is Container then hControl = FindControl(hControl, sControlName) if

Re: [Gambas-user] Progressbar_mousedown() does not work [solved]

2014-11-17 Thread Tobias Boege
On Mon, 17 Nov 2014, Fabien Bodard wrote: > Progressbar is just a drawingarea that dsplay a blue square so > putting a drawingarea on another is not really the soluce > > You can do : > > > ' Gambas class file > > Private OBS As Observer > > > Public Sub Form_Open() > > OBS = New Obse

Re: [Gambas-user] Progressbar_mousedown() does not work [solved]

2014-11-16 Thread Fabien Bodard
Progressbar is just a drawingarea that dsplay a blue square so putting a drawingarea on another is not really the soluce You can do : ' Gambas class file Private OBS As Observer Public Sub Form_Open() OBS = New Observer(ProgressBar1.Children[0]) As "OBS" End Public Sub OBS_MouseDow

Re: [Gambas-user] Progressbar_mousedown() does not work [solved]

2014-11-16 Thread Wolfgang
On 16. November 2014 17:14:35 MEZ, "Benoît Minisini" wrote: >Le 16/11/2014 15:31, Wolfgang, dl7nb a écrit : >> Hello all, >> I have tested with Gambas3.6.2. I placed a simple Progressbar and >tried: >> >> # >> Public Sub ProgressBar1_Enter() >> >> Debug "Here we are!" >> >> End >> #