Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
VFP 5.0 vs VFP 6.0
Message
 
 
À
17/02/2002 10:10:47
Information générale
Forum:
Visual FoxPro
Catégorie:
Problèmes
Divers
Thread ID:
00621280
Message ID:
00621294
Vues:
10
Try your original code with ALWAYSONTOP = .T.

>The complete explain of this problem is:
>I my application i have a lot of forms.
>I have an only as top level form, the first form in the application.
>The other forms have the properties:
>always on top = .T.
>desktop = .t.
>showwindow = 1
>windowstate = 0
>windowtype = 1
>
>with this propierties i have the forms ( except the first , in it i have
>showwindow = 2)
>The previous form of the report have the same propierties:
>always on top = .T.
>desktop = .t.
>showwindow = 1
>windowstate = 0
>windowtype = 1
>and two command botton in the first in the valid i have :
>REPORT FORM &_ZINFORME ENVIRONMENT NOCONSOLE TO PRINT PROMPT
>in the second botton of this form, in the valid i have :
>_SCREEN.CONTROLBOX = .F.
>loForm = CREATEOBJECT("Form")
>WITH loForm
>.WINDOWSTATE = 1
>.CAPTION = "Listado por Pantalla"
>.MINBUTTON = .F.
>.MAXBUTTON = .T.
>.CLOSABLE = .T.
>.MOVABLE = .T.
>.HALFHEIGHTCAPTION = .T.
>.BORDERSTYLE = 3
>.BACKCOLOR = RGB(255,255,255)
>.ALWAYSONTOP = .T.
>ENDWITH
>lcFormName = loForm.Name
>KEYBOARD '{CTRL+F10}'
>REPORT FORM &ZINFORME PREV WINDOW &lcFormName
>_SCREEN.CONTROLBOX = .T.
>
>RELEASE loForm
>
>ZINFORME is the variable withe the name of the report.
>With this code the report appear behind all the forms of my application.
>Behind the principal form too in VFP 6.0.
>With VFP 5.0 this report not appear forward all the screen correctly how i need.
>The code i have work correctly in VFP 5.0 is:
>SHOW WINDOW SCREEN
>ZOOM WINDOW SCREEN MAX
>
>loForm = CREATEOBJECT("Form")
>WITH loForm
>.WINDOWSTATE = 1
>.CAPTION = "Reporte en pantalla"
>.MINBUTTON = .F.
>.MAXBUTTON = .T.
>.CLOSABLE = .T.
>.MOVABLE = .T.
>.HALFHEIGHTCAPTION = .T.
>.BORDERSTYLE = 3
>.BACKCOLOR = RGB(255,255,255)
>ENDWITH
>lcFormName =loForm.Name
>ZOOM WINDOW &lcFormName MAX
>REPORT FORM FAMILI PREV WINDOW &lcFormName
>HIDE WINDOW SCREEN
>ZOOM WINDOW SCREEN MIN
>RELEASE loForm
>RELEASE WINDOW &lcFormName
>But in VFP 6.0 this report appear behidn of my first Form.
>Many Thanks.
--sb--
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform