lineas Horizontales y verticales en una rutina
-
- Mensajes: 5
- Registrado: Lun Oct 27, 2014 9:19 pm
- Contactar:
lineas Horizontales y verticales en una rutina
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
-
- Mensajes: 4
- Registrado: Jue Oct 13, 2016 10:18 pm
- Contactar:
Re: lineas Horizontales y verticales en una rutina
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)
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)
-
- Al nivel de RZ
- Mensajes: 306
- Registrado: Dom Feb 06, 2011 10:02 pm
- Ubicación: Trelew, Chubut, Argentina
- Contactar:
Re: lineas Horizontales y verticales en una rutina
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
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
¿Quién está conectado?
Usuarios navegando por este Foro: Bing [Bot] y 5 invitados