Page 1 of 1

Cambiar el tamaño de una ventana

Posted: Thu Dec 13, 2007 7:42 am
by colthop
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

Posted: Thu Dec 13, 2007 8:47 am
by Biel EA6DD

Code: Select all

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

Posted: Thu Dec 13, 2007 10:25 am
by Antonio Linares
Carlos,

Puedes hacerlo como Biel te indica ó así:

oDlgw:nWidth = 350
oDlgw:nHeight = 680

Posted: Thu Dec 13, 2007 12:29 pm
by colthop
Gracias por vuestras aportaciones ya me funciona perfectamente.

Un saludo

carlos