Hi Naomi/Stefan
I tracked down 'jump-up' moment exactly on creation of new session object. Very funny but this is what is happening.
However issue is not critical at all, since (again funny) it is happening only first time that task is called.
After minimising it manually it is no longer happening.
So 'issue' is now reduced to only me not understanding why this is happening :)
Will try to play a bit more to see if I can catch some clue.
Thank you guys both.
>>Dear All
>>
>>I have small app (single form) which gets minimised on startup.
>>Then at some point timer starts data operation. As soon as this happens, application window appears in it's normal size
>>whereas I want it to stay minimised.
>>
>>What causes this to happen, and how to prevent it.
>>
>>I tried
>>
>>
>>modify window screen nozoom
>>
>>
>>But no luck
>>
>>Single form that runs within app stays minimised all the time, whereas parenting application window is what 'jumps up'
>>
>>Any help is greatly appreciated.
>
>Hi Sergio,
>
>I have also no idea yet. But the symptom sounds interesting, tried to reproduce it with the for-what-its-worth.prg pasted below (that I used as "main" in a test.PJX), but no cigar yet - perhaps you can modify the code to reproduce the effect?
>
>> modify window screen nozoom
>
>As long as the cause is unknown, I'd suggest to use BindEvent(_screen,'Resize', yourObject, 'yourMethod') as a work-around.
>Do you need the _screen for some print output or would _screen.Visible=.F. work for you together with a (minimized) top-level form?
>Or perhaps even _screen.Visible=.F. with no form at all, until a form gets shown() on demand triggered by certain timer() events/conditions?
>
>
>Regards
>-Stefan
>
>
>
>ON SHUTDOWN quit
>
>_screen.WindowState = 1
>_screen.AddObject('TestTimer','TestTimer')
>_screen.Visible = .T.
>
>LOCAL loForm as Form
>loForm = CREATEOBJECT('TestForm')
>loForm.WindowState = 1
>loForm.Show(1)
>
>RETURN
>
>
>DEFINE CLASS TestTimer as Timer
> Interval = 1000 * 10
> PROCEDURE Timer
> This.Enabled = .F.
>
> ? LOWER(PROGRAM()), DATETIME()
>* Activate Screen
>
>
>
> This.Enabled = .T.
> ENDPROC
>ENDDEFINE
>
>DEFINE CLASS TestForm as Form
> AutoCenter = .T.
> AllowOutput = .F.
> WindowState = 1
> ADD OBJECT cmdClose as CommandButton WITH ;
> Left = 100, Top = 100, Height = 24, Caption = "\<Close"
> PROCEDURE cmdClose.Click
> Thisform.Release()
> ENDPROC
>ENDDEFINE
>