XBROWSER aList TITLE "Double-Click to Open" SETUP()

Jimmy

Posts: 1772

Joined: Thu Sep 05, 2019 05:32 AM

XBROWSER aList TITLE "Double-Click to Open" SETUP()
Posted: Fri Jul 21, 2023 06:54 AM

hi,

how can i use Keyboard ENTER instead of "DblClick" :?:

greeting,

Jimmy

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: XBROWSER aList TITLE "Double-Click to Open" SETUP()
Posted: Fri Jul 21, 2023 08:32 AM

Code (fw): Select all Collapse

SETUP ( oBrw:bKeyDown := { |k| If( k == 13, ( msginfo( "action" ) ), 0 ), nil)}

Regards

G. N. Rao.

Hyderabad, India

Jimmy

Posts: 1772

Joined: Thu Sep 05, 2019 05:32 AM

Re: XBROWSER aList TITLE "Double-Click to Open" SETUP()
Posted: Fri Jul 21, 2023 11:58 PM

hi

thx for Answer

nageswaragunupudi wrote:
Code (fw): Select all Collapse
SETUP ( oBrw:bKeyDown := { |k| If( k == 13, ( msginfo( "action" ) ), 0 ), nil)}

i think there is a ",0)" to much, or :?:

Code (fw): Select all Collapse

      SETUP( oBrw:bKeyDown := { |k| If( k == 13, (msginfo("action") ), nil ) } )

i want to use it for Sample c:\fwh\samples\testpgre.prg

Code (fw): Select all Collapse

      XBROWSER aList TITLE "Double-Click to Open" SETUP ( ;
         oBrw:cHeaders := { "TABLE" }, ;
         oBrw:aCols[ 1 ]:bLDClickData := { |r,c,f,o| ShowTable( o:Value ) } ,;
         oBrw:bKeyDown := {|k| If( k == 13, (msginfo("action") ), nil )  }

how do i get "select" line with "Tablename" ( o:Value ) :?:

greeting,

Jimmy

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: XBROWSER aList TITLE "Double-Click to Open" SETUP()
Posted: Sat Jul 22, 2023 05:36 AM

Dear Jimmy, use clause SELECT ( look .\include\xbrowse.ch )
https://forums.fivetechsupport.com/viewtopic.php?f=3&t=12590&p=63528&hilit=xbrowser+select&sid=c8edb246fdee7a812b113cee8a97b299#p63528

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

Jimmy

Posts: 1772

Joined: Thu Sep 05, 2019 05:32 AM

Re: XBROWSER aList TITLE "Double-Click to Open" SETUP()
Posted: Sat Jul 22, 2023 09:42 AM

hi,

thx for Answaer

cnavarro wrote:use clause SELECT ( look .\include\xbrowse.ch )

as i "just" want it when ENTER i have made this CODE

Code (fw): Select all Collapse

MEMVAR oValue
PRIVATE oValue

   XBROWSER aList TITLE "Double-Click to Open" ;
           SETUP( oBrw:lCanPaste := .t., ;
              oBrw:cHeaders := { "TABLE" }, ;
              oBrw:aCols[ 1 ] :bLDClickData := { | r, c, f, o | oPGU:UseTable( o:Value ) } ,;
           oValue := oBrw ,;
              oBrw:bKeyDown := { |k, nFlag| If( k == 13, ;
                ( xValue := oValue:aCols[ 1 ]:Value ,;
                SELECT ( oPGU:UseTable(xValue) ) ) ,;
              NIL) } )

but i need a PRIVATE to get it work ... is there a better Solution :?:

greeting,

Jimmy

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: XBROWSER aList TITLE "Double-Click to Open" SETUP()
Posted: Sat Jul 22, 2023 11:44 AM

This is what Mr. Cristobal advises:

Code (fw): Select all Collapse

XBROWSER aList TITLE "Tables" ;
   SETUP ( oBrw:cHeaders := { "TABLE" } ) ;
   SELECT oPgu:UseTable( oCol:Value )

Regards

G. N. Rao.

Hyderabad, India

Jimmy

Posts: 1772

Joined: Thu Sep 05, 2019 05:32 AM

Re: XBROWSER aList TITLE "Double-Click to Open" SETUP()
Posted: Sat Jul 22, 2023 10:42 PM

hi,

thx for Answer

nageswaragunupudi wrote:This is what Mr. Cristobal advises:

ok, that Syntax work

greeting,

Jimmy

FiveTech Support Forums

Continue the discussion