SR.MANUEL MERCADO TSBROWSE - lNoVScroll

SR.MANUEL MERCADO TSBROWSE - lNoVScroll

Postby MGA » Fri Jul 04, 2008 2:40 pm

Sr. Manuel, utilizo lNoVScroll, para não aparecer a barra vertical de ralagem:

obRW2:lNoVScroll := .T. //Tem que estar aqui
obRW2:setArray(subgrupos)
obRW2:Refresh()
obRW2:nHeightCell := 55
obRW2:lMChange := .F.
obRW2:lDrawHeaders:= .F.
obRW2:lFooting := .F.
obRW2:lNoMoveCols := .T.
obRW2:bchange := {|| carregaprodutos(If( Len(subgrupos)<1 .or. obRW2:nAt>Len(subgrupos),0,subgrupos[obRW2:nat,2]),@aprodsubs,@npg,@nto,tchbtn[17],tipo,fwdeabrtc,cDigProdvd,@VoBtc,@ToBti,@ToBtc,24) }
obRW2:bKeyDown := {|nKey| if(FWTECLASEDITAVEIS(nkey),(oprod:setfocus(),keybd_event(nKey,,,0)),Nil)}
oBrw2:bOnEscape := {|| oWndChild:end() }
bColor := {|| If(oBrw2:nLogicPos() % 2 = 0,CLRT1,CLRT2) }
obRW2:SetColor( { 1, 3, 4, 5, 6, 9, 10, 13, 15, 11, 12 }, ;
{ CLR_BLACK,;
CLR_BLACK,;
nRGB(211, 227, 247),;
CLR_WHITE,;
CLR_HBLUE,;
CLR_BLACK,;
nRGB(211, 227, 247),;
CLR_WHITE,;
CLR_BLACK,;
CLR_WHITE,;
CLR_HBBLUE } )

ADD COLUMN TO BROWSE obRW2 DATA ARRAY ELEMENT 1;
SIZE 142 ;
COLORS CLRT, bColor;
3DLOOK TRUE;
ALIGN DT_CENTER



Funciona muito bem, porém ao mudar a resolução do video para 800x600, a barra aparece e ao tentar mover a barra, me da o seguinte erro:

Application
===========
Path and name: C:\BASE\sgr.exe (32 bits)
Size: 13,095,424 bytes
Time from start: 0 hours 0 mins 37 secs
Error occurred at: 04/07/08, 11:31:45
Error description: Error BASE/1004 Class: 'NIL' has no exported method: NPGSTEP
Args:
[ 1] = U

Stack Calls
===========
Called from: => NPGSTEP(0)
Called from: TSBROWSE.PRG => TSBROWSE:VSCROLL(10525)
Called from: TSBROWSE.PRG => TSBROWSE:HANDLEEVENT(6126)



ERRO na TSBROWSE na seguinte linha 10525:

nBottomPos := nLParam + ::oVScroll:nPgStep - 1


Como fazer para que barra não me apareça nunca?

Muito obrigado Maestro.
ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
MGA
 
Posts: 1252
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá

Postby MGA » Sat Jul 05, 2008 1:35 pm

UP!!!
ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
MGA
 
Posts: 1252
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá

Postby MGA » Wed Jul 09, 2008 1:36 pm

UP!!!
ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
MGA
 
Posts: 1252
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá

Re: SR.MANUEL MERCADO TSBROWSE - lNoVScroll

Postby mmercado » Wed Jul 09, 2008 5:32 pm

SGS wrote:Como fazer para que barra não me apareça nunca?

Estoy trabajando en cambios importantes para TSBrowse, muy pronto publicaré dichos cambios y te aseguro que lo que mencionas estará resuelto, un poco de paciencia por favor.

Saludos

Manue Mercado
User avatar
mmercado
 
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot], jvtecheto and 46 guests