lineas Horizontales y verticales en una rutina

[JFRANCO]

Buenos dias, me gustaria saber como puedo hacer una rutina para hacer lineas horizontales y verticales al mismo tiempo, como una cuadricula, puedo hacer las lineas o solo verticales o solo horizontales pero cuando uno las dos se me minimiza la window, quien me pueda ayudar le agradecere, trabajo en clarion 10 y 6.3

[fealderete]

Fijate el comando CREATE, te paso un código no probado (lo adapte de algo que tengo implementado), espero te sirva.

CrearLineas ROUTINE
DATA
LOCR:ControlI LONG
LOCR:ControlF LONG
CODE
LOCR:ControlI = LASTFIELD() +1
LOCR:ControlF = LASTFIELD()
LOOP X# = 1 TO Cantidad#
LOCR:ControlF += 1
CREATE(LOCR:ControlF,CREATE:Line)
if error() then stop(error()).
!------------------------------------------------------------------------------
! con SETPOSITION() XPos#, YPos#, W#, H# manejas la ubicación del control en la ventana
!------------------------------------------------------------------------------
SETPOSITION(LOCR:ControlF,Xpos#,Ypos#,W#,H#)
END!LOOP
UNHIDE(Locr:ControlI,Locr:ControlF)

[HDMadeira]

Hola, fíjate si mejora usando el comando settarget (ver la ayuda) antes del segmento de código
donde creas las líneas...
En vez de dibujar la línea como create() podes hacerlo con line(x,y,deltax,deltay)

Por otra parte la desaparición o cierre de la ventana puede ser porque estas intentando cambiar
la posición o algún atributo de un control y el numero que estas usando como Id del control es 0


Saludos

Daniel