Nueva posible clase : BoxDisclosure
Posted: Mon Aug 02, 2010 6:15 pm
Se trata de un control que tiene una flecha con un texto y al clickar sob re la flecha se produce un agrandamiento del dialogo con animacion y nos muestra un Tgroup con los controles que queramos colocar .Al volver a clickar el dialogo se vuelve a plegar .
El codigo de lo que veis :
El codigo de lo que veis :
Code: Select all
#include "FiveMac.ch"
//----------------------------------------------------------------------------//
function Main()
local oWnd, oSay
local obtn2,obtn3
local obox, osay2
local cTest:="YOYOYO"
DEFINE WINDOW oWnd TITLE "Tutor02" ;
FROM 400, 400 TO 560, 810
DEFINE MSGBAR OF oWnd
@100,40 DISCLOBOX obox PROMPT "Hola ->" OF ownd SIZE 300,200 // o cualquier otro nombre que se nos ocurra que sea mejor
@ 30,30 BUTTON obtn3 PROMPT "hola" OF obox SIZE 100,24
@ 60, 90 GET cTest OF oWnd
@ 10, 10 SAY "Para Pevisualizar DLBclick en la imagen" OF obox SIZE 350, 20 RAISED
@ 0, 10 SAY "Para Pevisualizar DLBclick en la imagen" OF oWnd SIZE 350, 20 RAISED
@ 60, 40 SAY "Name:" OF oWn
@ 30,30 BUTTON obtn2 PROMPT "hola" OF oWnd SIZE 100,24
ACTIVATE WINDOW oWnd ;
VALID MsgYesNo( "Want to end ?" )
return nil