Input screen

[Jeff Barnes]

How would I go about creating a selection screen like the image below?

[MarcoBoschi]

Jeff this is a tree selection for anatomical regions

All regions are in a dbf table



If you want I can send you source code

[Jeff Barnes]

Hi Marco,

Yes please. You can send to Jeff (at) Can-Soft (dot) net

[joseluisysturiz]

Jeff this is a tree selection for anatomical regions

All regions are in a dbf table



If you want I can send you source code

Saludos, podria comparit el codigo.?

joseluisysturiz@yahoo.com

Gracias, saludos...

[RAMESHBABU]

Hi Mr.Marco,

Can you please the share the code with me also.

My email : (aksharasoft) (at) (gmail) (dot) (com)

Regards,

-Ramesh Babu P

[joseluisysturiz]

Hi, repeat in english

Can you please the share the code with me, thank you

My email : (joseluisysturiz) (at) (yahoo) (dot) (com)

Regards...

[Silvio.Falconi]

Can you please the share the code with me,

My email : (silvio) (dot) (falconi) (at) (gmail) (dot) (com)

thank you

[horacio]

Este ejemplo está en samples en un dialogo y se ve bastante mal, pero no así en una ventana. Bastante parecido a lo que muestra Marco. ( Solo el tree )

Code: Select all  Expand view

#include "FiveWin.ch"

//----------------------------------------------------------------------------//
Function Main()

   Local oWnd
    Local oTree

   Define Window oWnd

    @ 0, 0 Treeview oTree Of oWnd SIZE oWnd : nWidth, oWnd : nHeight CHECKBOXES

   Activate Window oWnd Centered On Init BuildTree( oTree )
   MsgInfo( oTree : aItems[ 1 ] : GetCheck() )
    Return Nil

//----------------------------------------------------------------------------//
Function BuildTree( oTree )

    Local oMenu       := Array( 2 )
    Local oSubMenu := Array( 10 )

   oMenu[ 1 ] := oTree : Add( "Principal" )
      oSubMenu[ 1 ] := oMenu[ 1 ] : Add( "Imprimir..." )
      oSubMenu[ 1 ] : SetCheck( .t. )

   oMenu[ 2 ] := oTree : Add( "Proyectos" )
      oSubMenu[ 2 ] := oMenu[ 2 ] : Add( "Definir Proyectos" )
      oSubmenu[ 3 ] := oMenu[ 2 ] : Add( "Actualización datos" )
      oSubmenu[ 4 ] := oMenu[ 2 ] : Add( "Actualización datos" )
      oSubmenu[ 5 ] := oMenu[ 2 ] : Add( "Actualización datos" )
      oSubmenu[ 6 ] := oMenu[ 2 ] : Add( "Actualización datos" )
      oSubmenu[ 7 ] := oMenu[ 2 ] : Add( "Actualización datos" )

   oTree : Expand()

return nil
 

Saludos

[cnavarro]

Horacio
Try add file .rc

Code: Select all  Expand view

#ifdef __FLAT__
  1 24 "WinXP\WindowsXP.Manifest"
#endif

#ifdef __64__
  1 24 "WinXP\WindowsXP.Manifest64"
#endif

 

[horacio]

Cristobal, es lo primero que se ocurrió pero no cambiaba su aspecto. Posiblemente habré hecho algo mal.

Saludos

[ACC69]

Jeff this is a tree selection for anatomical regions

All regions are in a dbf table



If you want I can send you source code

Hola Ing. Marco Boschi, seria posible compartir su codigo,si es tan amable??

Saludos y buen dia.!

Hello Ing. Marco Boschi, it would be possible to share your code, if you please ??

Greetings and good day.!

Atte: Adrian C. C.
acc69@hotmail.com

[FranciscoA]

Hi, Marco.
I hope I'm not later. Can you share the code with me?

My email : (falegria230349) (at) (yahoo) (dot) (es)

Thanks