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
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
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
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
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
>> #