FoxPro/Visual FoxPro - Resize

Una pregunta a la comunidad, tengo un problema con el resize pues tengo un formulario de tipo superior, el cual tiene un statusbar y una imagen, pero al activar el formulario la imagen no se coloca en el centro y el statusbar tampoco se coloca al final del formulario, alguna ayuda

Que tal..
Si andas con VFP9 puedes usar la propiedad ANCHOR.
Cheka el link: http://www.portalfox.com/index.php?name=News&file=article&sid=1569&mode=nested&order=0&thold=0

C-ya

Amigo, gracias por tu información pero estoy en vfp 7, y lo que quiero ver si me pueden ayudar es como hago para que una imagen este en el centro de un formulario que es de tipo nivel superio y que se maximisa automaticamente, lo mismo con un estatusbar, pues las dos al activarse se quedan en el mismo sitio y una quiero que este en el centro y la otra al final del formulario. alguna ayuda, gracias de antemano

Bueno con VFP eso estubiera resuelto con la propiedad ANCHOR, ya que te hace un AUTORESIZE del objeto ya sea del lado izquierdo,derecho,abajo,arriba; con relacion con el tamaño del formulario.
Como andas con VFP7 aqui te dejo un programa de ejemplo de como hacerlo:
Puedes copiar y pegarlo y correrlo.En este ejemplo se usa un objeto LIST pero puedes usarlo para cualquier objeto.

*==============================================================================
* Program: RESIZE.PRG
* Purpose: Demonstrate one approach to resizing
* From: Hacker's Guide to Visual FoxPro 7
* Copyright: (c) 2002 Tamar E. Granor, Ted Roche, Doug Hennig and Della Martin
* Last revision: 02/26/02
*==============================================================================

frmResizeDemo = CREATEOBJECT("ResizeForm")
frmResizeDemo.Show()
read events

DEFINE CLASS ResizeForm as Form
Add Object edtNote as Speech
Add Object btnQuit as QuitButton
ScaleMode = 0
MinHeight = 10

* Custom Properties
nQuitBtnMargin = 3
nEdtBoxMargin = 5
PROCEDURE Init
THIS.ReSize()
ENDPROC

Procedure ReSize &&Este es el procedimiento que hace el resize del objeto
THISFORM.btnQuit.Top = THISFORM.Height - THIS.nQuitBtnMargin
THISFORM.btnQuit.Left = (THISFORM.Width - ;
THISFORM.btnQuit.Width ) / 2
THISFORM.edtNote.Height = THISFORM.Height - THISFORM.nEdtBoxMargin
THISFORM.edtNote.Width = THISFORM.Width - ;
2*THISFORM.edtNote.Left
ENDPROC

PROCEDURE Destroy
CLEAR EVENTS
ENDPROC
ENDDEFINE

DEFINE CLASS QuitButton AS CommandButton
Caption="Quit"
HEIGHT = 20
PROCEDURE Click
CLEAR EVENTS
ENDPROC
ENDDEFINE

DEFINE CLASS Speech AS EditBox
Left = 3
Value = "Four score and seven years ago, " + ;
"our forefathers brought forth upon " + ;
"this continent a new nation, conceived " + ;
"in liberty and dedicated to the proposition " + ;
"that all men were created equal."
ENDDEFINE