FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour Input screen
Jeff Barnes
Posts: 933
Joined: Sun Oct 09, 2005 01:05 PM

Input screen

Posted: Thu Nov 12, 2015 01:17 PM
How would I go about creating a selection screen like the image below?

Thanks,

Jeff Barnes



(FWH 16.11, xHarbour 1.2.3, Bcc730)
MarcoBoschi
Posts: 1091
Joined: Thu Nov 17, 2005 11:08 AM

Re: Input screen

Posted: Thu Nov 12, 2015 03:22 PM
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
Marco Boschi
info@marcoboschi.it
Jeff Barnes
Posts: 933
Joined: Sun Oct 09, 2005 01:05 PM

Re: Input screen

Posted: Thu Nov 12, 2015 03:50 PM

Hi Marco,

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

Thanks,

Jeff Barnes



(FWH 16.11, xHarbour 1.2.3, Bcc730)
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM

Re: Input screen

Posted: Thu Nov 12, 2015 04:18 PM
MarcoBoschi wrote: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... :-)
Dios no est谩 muerto...



Gracias a mi Dios ante todo!
RAMESHBABU
Posts: 654
Joined: Fri Oct 21, 2005 05:54 AM

Re: Input screen

Posted: Fri Nov 13, 2015 12:39 AM

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
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM

Re: Input screen

Posted: Fri Nov 13, 2015 03:18 AM

Hi, repeat in english

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

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

Regards... :shock:

Dios no est谩 muerto...



Gracias a mi Dios ante todo!
Silvio.Falconi
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM

Re: Input screen

Posted: Fri Nov 13, 2015 11:38 AM

Can you please the share the code with me,

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

thank you

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
horacio
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM

Re: Input screen

Posted: Fri Nov 13, 2015 11:13 PM
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 (fw): Select all Collapse
#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
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM

Re: Input screen

Posted: Fri Nov 13, 2015 11:41 PM
Horacio
Try add file .rc

Code (fw): Select all Collapse
#ifdef __FLAT__
  1 24 "WinXP\WindowsXP.Manifest" 
#endif

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

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
horacio
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM

Re: Input screen

Posted: Sat Nov 14, 2015 12:21 AM

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

Saludos

ACC69
Posts: 632
Joined: Tue Dec 12, 2006 07:34 PM

Re: Input screen

Posted: Wed Jan 06, 2016 03:06 PM
MarcoBoschi wrote: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
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM

Re: Input screen

Posted: Fri Jan 08, 2016 02:35 PM

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

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

Thanks

Francisco J. Alegr铆a P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions