Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
2 very serious BUGs
Message
De
27/10/2003 10:17:26
Nancy Folsom
Pixel Dust Industries
Washington, États-Unis
 
 
À
27/10/2003 08:40:30
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00842872
Message ID:
00842954
Vues:
27
Pablo

>Here are the exact steps to reproduce the BUG
>Create a pageframe
>put a label and a textbox inside the pageframe,
>select both controls,
>drag and drop them, and you will see that:
>Internally Fox stores the correct position of the controls on the container
>BUT
>Visually they reposition to incorrect places

I couldn't duplicate this with a simple example, however your instructions are incomplete. You don't say what settings your textbox and label have. My example is below.

I _have_ seen a problem with right-aligned controls, however, in 5, 6, and 7. I haven't run up against it in 8, yet, but I gather it's still a problem. So far as I've been able to figure out, it's a problem I have with labels, never textboxes, and it *seems* to be related to the label being set to Autosize = .T. and Alignment = 1. If I set Autosize = .F. and visually align the controls, the problem is corrected. It's an annoying problem and hard to duplicate reliably, IME.
PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.SHOW
RETURN

DEFINE CLASS form1 AS FORM

  CAPTION = "Form1"


  ADD OBJECT pageframe1 AS myPageFrame


ENDDEFINE

DEFINE CLASS myPageFrame AS PAGEFRAME
  PAGECOUNT = 0
  TOP = 12
  LEFT = 12
  WIDTH = 349
  HEIGHT = 233
  NAME = "Pageframe1"
  ADD OBJECT Page1 AS myPage
  ADD OBJECT Page2 AS PAGE

ENDDEFINE

DEFINE CLASS myPage AS PAGE
  ADD OBJECT label1 AS LABEL WITH ;
    AUTOSIZE = .F., ;
    ALIGNMENT = 1, ;
    CAPTION = "Label1", ;
    HEIGHT = 17, ;
    LEFT = 95, ;
    TOP = 32, ;
    WIDTH = 40
  NAME = "Label1"


  ADD OBJECT text1 AS TEXTBOX WITH ;
    ALIGNMENT = 1, ;
    HEIGHT = 23, ;
    LEFT = 136, ;
    TOP = 32, ;
    WIDTH = 100, ;
    NAME = "Text1"

ENDDEFINE
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform