[Harbour] TBROWSE column heading

[Saulius Zrelskis]

Hello,

CA-Cl*pper will allow any types for the headings, but reserves row/rows
for heading only for nonzero length strings.

Code for Clipper/Harbour below shows this

----------------
#include "inkey.ch"
#include "box.ch"

proc main()

   static s_nPos   := 1
   static s_nSize  := 25

   local nTop, nLeft, nBottom, nRight
   local oBrw, oCol
   local nKey

   nTop    := 2
   nLeft   := 30
   nBottom := 18
   nRight  := 50

   cls
   dispBox( nTop, nLeft, nBottom, nRight, B_DOUBLE_SINGLE )
   oBrw := tbrowseNew( nTop + 1, nLeft + 1, nBottom - 1, nRight - 1 )

   oBrw:SkipBlock     := { | n | n := iif( n < 0, max( n, 1 - s_nPos ), ;
                                                  min( s_nSize - s_nPos, n )
), ;
                                 s_nPos += n, n }
   oBrw:GoTopBlock    := { || s_nPos := 1 }
   oBrw:GoBottomBlock := { || s_nPos := s_nSize }

   oCol := tbColumnNew( , {|| s_nPos } )
   oBrw:addColumn( oCol )

   while .T.
      while !oBrw:stabilize() .and. nextkey()==0
      enddo
      nKey := inkey( 0 )
      if nKey == K_ESC
         exit
      else
         oBrw:applyKey( nKey )
      endif
   enddo

return
----------------

Regards,
Saulius

_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour