topic-27293

Posts: 187

Joined: Mon Oct 20, 2008 06:33 PM

FWH13.08 - Change in wBrowse.prg [SOLVED]
Posted: Thu Sep 19, 2013 05:47 PM

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 (fw): Select all Collapse

   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

Oscar Ribeiro

OASyS Informática

Fwh18.02 + xHarbour 1.2.3 + Bcc72

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: FWH13.08 - Change in wBrowse.prg
Posted: Thu Sep 19, 2013 06:49 PM

Oscar,

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

thanks

regards, saludos

Antonio Linares
www.fivetechsoft.com

ORibeiro

Posts: 187

Joined: Mon Oct 20, 2008 06:33 PM

Re: FWH13.08 - Change in wBrowse.prg [SOLVED]
Posted: Thu Sep 19, 2013 07:05 PM

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.

Oscar Ribeiro

OASyS Informática

Fwh18.02 + xHarbour 1.2.3 + Bcc72

FiveTech Support Forums

Continue the discussion