Hi Claudio,
In addition... Did you try to put a "Refresh()" to the form?
>>>Hi...
>>>
>>>Inside a loop *scan.. endscan* I'd like to show a form with an animated gif.. But, no visible picture couldn't show even with visible property set to .t.
>>>
>>>We only see an empty form..
>>>
>>>I already tried to insert a "doevents" inside a loop but nothing work as wished.. As well I tried to call a inkey(0.3, "H").. No result at all..
>>>
>>>TIA
>>
>>Can you run this form while the scan loop is running, e.g.
>>>>do form myAnimatedGif form
>>
>>scan
>> processing logic
>>endscan
>
>yes.. the form (object form) comes up.. but doesn't display the picture & label object on it..
>
>I do.. on init's main form of the app..
>
>>This.AddProperty("oFrm_wait", Newobject("waitform", lclib))
>This.oFrm_wait.AddProperty("oCaller", Thisform)
>>
>And starting a loop
>
>>With Thisform.pf1.Page1.OleList
> LockWindowUpdate(.object.HWnd)
> loTopNode = .Nodes.Item["rec"]
> lnsecs = Seconds()
> Scan Rest
> lnsecsrun = Seconds()
> If This.oCaller.oFrm_wait.Visible
> DOEVENTS
> Else
> If (lnsecsrun - lnsecs) > 2
> This.oCaller.oFrm_wait.Caption = "Searching the information... Wait!"
> This.oCaller.oFrm_wait.label1.Caption = "Searching"
> This.oCaller.oFrm_wait.Show()
> DOEVENTS
> Endif
> Endif
>
Erick
Força Sempre!
Strength Always!
