FiveTech Support Forums

// Using Windows 7 row selection colors in xbrowse

#include 'fivewin.ch'
#include 'xbrowse.ch'

function Main()

   local oDlg, oBrw, oFont
   local nSelectedRow

   SET DATE ITALIAN
   SET CENTURY ON

   FwNumFormat( 'E', .t. )

   USE CUSTOMER ALIAS CUST

   DEFINE FONT oFont NAME 'Tahoma' SIZE 0, -14

   DEFINE DIALOG oDlg SIZE 640,440 PIXEL ;
      FONT oFont TITLE 'XBrowse Windows 7 Bars' ;
      COLOR CLR_BLACK,RGB(250,250,250)

   @ 10,20 XBROWSE oBrw OF oDlg SIZE -10,-20 PIXEL ;
      COLUMNS "First", "State", "Age", "HireDate", "Salary" ;
      ALIAS 'CUST' NOBORDER

   oBrw:lRecordSelector := .f.
   oBrw:nMarqueeStyle   := MARQSTYLE_HIGHLWIN7
   oBrw:lMultiSelect    := .f.

   WITH OBJECT oBrw:InsCol( 1 )

  :cHeader       := " "
  :bEditValue    := { || If( oBrw:BookMark == nSelectedRow, .t., nil ) }
  :SetCheck()
  :nHeadBmpNo    := { || If( Empty( nSelectedRow ), 2, 1 ) }

   END

   oBrw:bLClicked     := { |r,c,f,oBrw| If( oBrw:MouseColPos( c ) == 1 , ;
                           If( nSelectedRow != oBrw:BookMark, nSelectedRow := oBrw:BookMark, nSelectedRow := nil ), nil ), ;
                           oBrw:RefreshCurrent() }


   oBrw:CreateFromCode()

   ACTIVATE DIALOG oDlg CENTERED

   RELEASE FONT oFont

return nil

@@ -5058,15 +5058,17 @@ METHOD LButtonDown( nRow, nCol, nFlags, lTouch ) CLASS TXBrowse
    return 0
    endif

+   // Fire bLClicked once AFTER the row/col change so BookMark is already
+   // the clicked record (Nov 2025 contract). Nil it during the recursive
+   // call so TControl/TWindow do not evaluate it a second time.
    if ( bClick := ::bLClicked ) != nil
       ::bLClicked := nil
+      uRet := ::LButtonDown( nRow, nCol, nFlags, lTouch )
+      ::bLClicked := bClick
       uResult := Eval( bClick, nRow, nCol, nFlags, Self )
       if ValType( uResult ) == "L" .and. uResult
-         ::bLClicked := bClick
          return 0
       endif
-      uRet := ::LButtonDown( nRow, nCol, nFlags, lTouch )
-      ::bLClicked := bClick
       return uRet
    endif