Cambiar el tamaño de una ventana

colthop · Post by **colthop** » Thu Dec 13, 2007 7: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

Biel EA6DD · Post by **Biel EA6DD** » Thu Dec 13, 2007 8:47 am

Code: Select all

WndWidth( oDlgw:hWnd, 350)
WndHeight( oDlgw:hWnd,680)

Post by **Antonio Linares** » Thu Dec 13, 2007 10:25 am

Carlos,

Puedes hacerlo como Biel te indica ó así:

oDlgw:nWidth = 350
oDlgw:nHeight = 680

colthop · Post by **colthop** » Thu Dec 13, 2007 12:29 pm

Gracias por vuestras aportaciones ya me funciona perfectamente.

Un saludo

carlos