Nueva posible clase : BoxDisclosure

[mastintin]

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 :

Code: Select all  Expand view

#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