Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Looking for a sizeable frame
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Problèmes
Divers
Thread ID:
00850196
Message ID:
00852701
Vues:
14
>I need to be able to manipulate a sizeable transparent frame on a VFP form during runtime (move it, size it) and then obtain from the frame its position and dimensions. Something with handles on the corners would be nice. Anybody???? Thank you.

Not sure what you are asking for, but this might get you started:
loForm = CREATEOBJECT([ParentForm])
loForm.Show()
loForm.Frame()
READ EVENTS 

DEFINE CLASS ParentForm AS Form
#IF .F.
   LOCAL This AS ParentForm OF SizableFrame.prg
#ENDIF

Height = 300
Left = 0
Top = 0
Width = 300
*MDIForm = .T.
oFrame = null

PROCEDURE init
   This.oFrame = CREATEOBJECT([ChildForm])
ENDPROC
PROCEDURE Frame
   WITH This.oFrame
*      .Visible = .T.
      SHOW WINDOW (.Name) IN (This.Caption) 
   ENDWITH   
ENDPROC
PROCEDURE Destroy
   This.oFrame = NULL
   CLEAR EVENTS 
ENDPROC

ENDDEFINE

DEFINE CLASS ChildForm as Form

Height = 200
Left = 6
Top = 6
Width = 200
ControlBox = .F.
Caption = []
HalfHeightCaption = .t.
MaxButton = .F.
Minbutton = .F.
*Movable = .F.
*MDIForm = .T.
ENDDEFINE
Tracy
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform