Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Looking for a sizeable frame
Message
General information
Forum:
Visual FoxPro
Category:
Troubleshooting
Miscellaneous
Thread ID:
00850196
Message ID:
00852701
Views:
13
>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
Previous
Reply
Map
View

Click here to load this message in the networking platform