FWH13.08 - Change in wBrowse.prg [SOLVED]

[ORibeiro]

Linares,

I changed the class wbrowse.prg, wbrwline() function, because it was giving error.

if aJustify != nil .and. n<=Len(aJustify) .and. aJustify[ n ]=.T. // changed because it was giving error in the price list electronics. Was: if aJustify != nil .and. aJustify[ n ]

In addition, I include a 3d effect in ListBox very attractive.

Code: Select all  Expand view

   METHOD KeyChar( nKey, nFlags )   // OASyS 28/02/2007 - Inclui isso
   METHOD Set3dStyle()              // OASyS 28/02/2007 - Inclui isso para dar o efeito 3D

ENDCLASS

//----------------------------------------------------------------------------//
METHOD Set3dStyle() CLASS TWbrowse  // OASyS 28/02/2007 - Inclui isso para dar o efeito 3D
   ::nLineStyle    := LINES_3D
   ::nClrBackHead  := GetSysColor( COLOR_ACTIVECAPTION )
   ::nClrForeHead  := GetSysColor( COLOR_CAPTIONTEXT )
   ::nClrBackFocus := CLR_CYAN
   ::nClrForeFocus := CLR_WHITE
   ::lCellStyle    := .F.
   ::SetColor(CLR_BLACK, GetSysColor( COLOR_BTNFACE ))
   ::Refresh()
RETURN NIL
//----------------------------------------------------------------------------//
METHOD KeyChar( nKey, nFlags ) CLASS TWBrowse // OASyS
   do case
      case nKey == K_PGUP
           ::oVScroll:PageUp()
      case nKey == K_PGDN
           ::oVScroll:PageDown()
      otherwise
           return Super:KeyChar( nKey, nFlags )
   endcase
return 0
 

Thanks,

Oscar Ribeiro
fwh13.08 Rev. 1

[Antonio Linares]

Oscar,

Have you checked that the length of aJustify and the number of columns is the same ?

thanks

[ORibeiro]

Very good conductor, you hit on the fly.

However, if you want to change the original class (wBrowse) will not error when the programmer does not count the columns of the listbox and aJustify.

Thanks.