FoxPro/Visual FoxPro - Resize

   
Vista:

Resize

Publicado por Juan Pablo (2 intervenciones) el 06/09/2007 17:24:24
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Resize

Publicado por Hector R. De los Santos (270 intervenciones) el 06/09/2007 19:42:01
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Resize

Publicado por Juan Pablo (2 intervenciones) el 06/09/2007 20:30:57
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Resize

Publicado por Hector R. De los Santos (270 intervenciones) el 06/09/2007 21:47:36
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar