FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Cambiar el tamaño de una ventana
Posts: 505
Joined: Sat Apr 22, 2006 09:09 AM
Cambiar el tamaño de una ventana
Posted: Thu Dec 13, 2007 07:42 AM

Hola amigos:

Tengo un atasco y no se como solucionarlo, tengo una ventana que la creao de la siguiente manera:

do case
case tipo = "C"
Walto = 350
case tipo = "D"
Walto = 350
case tipo = "E"
Walto = 660
case tipo = "F"
Walto = 350
endcase
store 1 to tipsal
DEFINE WINDOW oDlgw MDICHILD OF oVentPrinc PIXEL FROM 0, 0 TO walto,720 TITLE "Modelos Trimestrales/Mensuales del I.V.A." COLOR escri01, fondo01 MENU menuivas() STYLE nOr(WS_DLGFRAME)

pintivas()

ACTIVATE WINDOW oDlgw NORMAL

Pero despues tengo que cambiarla de tamaño segun sea el campo tipo y estoy intentandolo con lo siguiente:

oDlgw:ReSize(0,350,680)
oDlgw:Refresh()
SysRefresh()

Pero no me hace nada, me podeis ayudar, Gracias

Un saludo

Carlos

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.
Posts: 682
Joined: Tue Feb 14, 2006 09:48 AM
Cambiar el tamaño de una ventana
Posted: Thu Dec 13, 2007 08:47 AM
WndWidth( oDlgw:hWnd, 350)
WndHeight( oDlgw:hWnd,680)
Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Cambiar el tamaño de una ventana
Posted: Thu Dec 13, 2007 10:25 AM

Carlos,

Puedes hacerlo como Biel te indica ó así:

oDlgw:nWidth = 350
oDlgw:nHeight = 680

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 505
Joined: Sat Apr 22, 2006 09:09 AM
Cambiar el tamaño de una ventana
Posted: Thu Dec 13, 2007 12:29 PM

Gracias por vuestras aportaciones ya me funciona perfectamente.

Un saludo

carlos

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.

Continue the discussion