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

[Jimmy]

hi,

how can i use Keyboard ENTER instead of "DblClick"

[nageswaragunupudi]

Code: Select all | Expand

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

[Jimmy]

hi

thx for Answer

Code: Select all | Expand

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

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

Code: Select all | Expand

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

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

Code: Select all | Expand

      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 )

[cnavarro]

Dear Jimmy, use clause SELECT ( look .\include\xbrowse.ch )
https://forums.fivetechsupport.com/view ... 299#p63528

[Jimmy]

hi,

thx for Answaer

use clause SELECT ( look .\include\xbrowse.ch )

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

Code: Select all | Expand

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

[nageswaragunupudi]

This is what Mr. Cristobal advises:

Code: Select all | Expand

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

[Jimmy]

hi,

thx for Answer

This is what Mr. Cristobal advises:

ok, that Syntax work