Hi all,
I've got a problem with the Top-value of my form which differs when _Screen is not visible.
In detail:
I have a main-form which is defined as 'AsTopLevelForm'. The Foxpro-Screen is not visible (_screen.visible = .F.). If the user clicks on a special button, just below this button appears a new 'modeless'-form.
Well, if _screen is visible and the main-form is 'InScreen' the new form appears at the correct place, but with _screen invisible and form as 'AsTopLevelForm' it generally appears roundabout 200 pixels above the clicked button. What suprises me most is, that the 'left'-offset seems to work fine.
This is the used code in the button for getting the offsets:
AMOUSEOBJ(laMouseObj,1)
ThisForm.calForm = CreateObject('frmcalender')
WITH ThisForm.calForm
.CFObjTop = ThisForm.Top + OBJTOCLIENT(laMouseObj(1),1) + 23
.CFObjLeft = ThisForm.Left + OBJTOCLIENT(laMouseObj(1),2) + 3
.Show
ENDWITH
Any help is appreciated
Best Regards
-Tom
Debugging is twice as hard as writing the code in the first place.
Therefore, if you write the code as cleverly as possible, you are,
by definition, not smart enough to debug it.
Oh, and BTW: 010101100100011001010000011110000101001001101111011000110110101101110011