FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour TXBrowse() -> ::SetCheck()
Carles
Posts: 1283
Joined: Fri Feb 10, 2006 02:34 PM

TXBrowse() -> ::SetCheck()

Posted: Mon Jun 08, 2009 09:37 AM
Hola,

Me estoy liando demasiado creo. Quiero q una columna definida con un ::SetCheck()

Code (fw): Select all Collapse
oCol:SetCheck( { "16NoCheck", "16Check" }, {|o, v | ... := v })


Cuando pulse RETURN se comporte simplemente como si hiciera un DblClick, sin entrar en edicion.


Gracias
Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix
anserkk
Posts: 1335
Joined: Fri Jun 13, 2008 11:04 AM

Re: TXBrowse() -> ::SetCheck()

Posted: Tue Jun 09, 2009 04:34 AM

Dear Mr.Carles,

viewtopic.php?f=3t=13979

viewtopic.php?f=3t=13972

Anser

&&

Carles
Posts: 1283
Joined: Fri Feb 10, 2006 02:34 PM

Re: TXBrowse() -> ::SetCheck()

Posted: Wed Jun 10, 2009 06:06 AM
Anser,

finally i solved it, manually but it's solved...

Code (fw): Select all Collapse
# INCLUDE "FiveWin.ch"
# INCLUDE "XBrowse.ch"

FUNCTION Main()
*--------------

   local oWnd, aLin := {}, i, oBrw

   for i := 1 TO 6
      AAdd( aLin, { .t., "Description " + Str( i ) } )
   next

   DEFINE WINDOW oWnd

     oBrw := TxBrowse():New( oWnd )
     oBrw:SetArray( aLin )

     oBrw:aCols[1]:cHeader      := 'Cod'
     oBrw:aCols[1]:AddBmpFile( '16Green.bmp' )
     oBrw:aCols[1]:AddBmpFile( '16Red.bmp' )
     oBrw:aCols[1]:bBmpData     := {|| IF( oBrw:aArrayData[ oBrw:nArrayAt ][1], 1, 2) }
     oBrw:aCols[1]:bStrData     := {|| IF( oBrw:aArrayData[ oBrw:nArrayAt ][1], 'Si', 'No') }
     oBrw:aCols[1]:blDClickData := {|o, v| ( oBrw:aArrayData[ oBrw:nArrayAt ][1] := !oBrw:aArrayData[ oBrw:nArrayAt ][1], oBrw:DrawSelect() ) }

     oBrw:aCols[2]:cHeader      := 'Description'
     oBrw:aCols[2]:bOnPostEdit  := { | oCol, xVal, nKey | If( nKey == VK_RETURN, aLin[ oBrw:nArrayAt,2] := xVal,) }
     oBrw:aCols[2]:nEditType    := EDIT_GET

     oBrw:bKeyDown              := {|nKey| CheckKey( nKey, oBrw ) }

     oBrw:CreateFromCode()

     oWnd:oClient := oBrw

   ACTIVATE WINDOW oWnd

RETU NIL


STATIC FUNCTION CheckKey( nKey, oBrw )
*-------------------------------------

    DO CASE
       CASE nKey == VK_RETURN

            IF oBrw:SelectedCol():cHeader == 'Cod'
               Eval( oBrw:aCols[1]:blDClickData )
            ENDIF

    ENDCASE

RETU NIL


Gracies.
Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix
anserkk
Posts: 1335
Joined: Fri Jun 13, 2008 11:04 AM

Re: TXBrowse() -> ::SetCheck()

Posted: Wed Jun 10, 2009 08:52 AM

Hi Carles,

Nice to hear that you solved.

Regards

Anser

acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM

Re: TXBrowse() -> ::SetCheck()

Posted: Wed Jun 10, 2009 01:13 PM

Carles

Algo similar con campo lógico.

oCol:= oBrw:AddCol()
oCol:AddResource("TIQUEA-NO")
oCol:AddResource("TIQUEA-SI")
oCol:bBmpData:= { || iif( TRAB->SEL, 1, 2) } // SEL es campo lógico
oCol:nWidth:=15
oCol:bLDClickData:={|| ELIGE(oDBF) } //Doble click Izquierdo
oCol:bRClickData :={|| ELIGE(oDBF) } //Boton Derecho
// No he logrado hacer con un solo click izquierdo
.
.
.
Static Function Elige(oDBF)
( oDBF:Load(),oDBF:SEL:=!oDBF:SEL,oDBF:Save(), oBrw:DrawSelect() )
Return Nil

Quizas te sirva

Saludos

Adhemar

Saludos,



Adhemar C.
Carles
Posts: 1283
Joined: Fri Feb 10, 2006 02:34 PM

Re: TXBrowse() -> ::SetCheck()

Posted: Thu Jun 11, 2009 08:20 AM

Adhemar,

Gracias, el problema q tenia es que cuando le diera al Intro se comportara igual que el dblclick, y no q entrara en modo edicion...

Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix

Continue the discussion

Static archive · New replies & topics via GitHub Discussions