xBrowse lVScroll .F. Francisco SOLUCIONADO

[RuFerSo]

Estimados amigos no he conseguido que no aparezcan las barras de
desplazamiento vertical y horizontal, no las quiero.

oBrSaldo:lHScroll := .F. no me funciona
oBrSaldo:lVScroll := .F. no me funciona

He leido que hay que declararlo el recurso...pero como se hace si el style de recurso es..
Con PellesC
Window Style 0x50310000
Extended window style 0x00000000

Alguien sabe que valores van para que no muestre los barra scroll?

Muchas gracias

Saludos

Ruben Fernandez

[joseluisysturiz]

Saludos, coloca en windows style 0x10210000, saludos...

[wmormar]

joseluisysturiz,

Como dice Ruferso se requiere de que via codigo en los recursos se pueda o no eliminar el scroll, y tambien comentar que antes con el mouse movias la barra del scroll y movia igual los registros, ahora no.

[FranciscoA]

Hola, en la ver. 1204 me funciona asi:

Con PellesC
Window Style 0x50010000

oBrSaldo:lHScroll := .F.
oBrSaldo:lVScroll := .F.

[joseluisysturiz]

joseluisysturiz,

Como dice Ruferso se requiere de que via codigo en los recursos se pueda o no eliminar el scroll, y tambien comentar que antes con el mouse movias la barra del scroll y movia igual los registros, ahora no.

Saludos Willian, respondi basado en su pregunta de como debe ir windows style si se usa pelles c, asi lo tengo y no da las barras y como dice francisco da las barras, saludos...

[RuFerSo]

Hola, gracias a todos por las sugerencias.
(La respuesta viene tarde porque recién llegue del trabajo)

Lo que necesitaba era que colocar en el Window Style del TxBrowse en un recurso editado con PellesC para poder
desde código decidir si quiero o no las barras de scroll.(vertical y horizontal)

La sugerencia de JoseLuis me quitó la barra horizontal, aunque la vertical me sigue apareciendo.
La sugerencia de Francisco, que es como lo tengo, no me quita las barras de scroll, por mas que desde código
ponga oBrw:lVScroll := .F. y oBrw:lHScroll := .F. .

Gracias, por ahora esta bien, ya que la barra horizontal se quito. Igualmente me gustaría saber que estilo va
para poner o no las barras desde código. Ya se verá.

Muchas gracias a todos.
Saludos
Ruben Fernandez

[pgfdz]

Hola

http://msdn.microsoft.com/en-us/library ... s.85).aspx

Un saludo

#pragma BEGINDUMP
#include "windows.h"
#include "hbapi.h"

HB_FUNC( SHOWSCROLLBAR )
{
hb_retl( ShowScrollBar( (HWND) hb_parnl( 1 ), hb_parni( 2 ), hb_parl( 3 ) ) );
}

#pragma ENDDUMP

[FranciscoA]

Ruferso, francamente no se que problema puedas tener, pero como te dije, incluso en la ver 1006 me funciona asi:

Con PellesC
Window Style 0x50010000 ( tú tienes puesto 0x50310000 )


Si omites lo siguiente, apararecen las barras:
oBrSaldo:lHScroll := .F.
oBrSaldo:lVScroll := .F.

//--------------
oLbx := TXBrowse():New( oDlg )
oLbx:cAlias:="MCONTAB"

//ESTILOS DE LINEAS
oLbx:nMarqueeStyle := MARQSTYLE_HIGHLROW //normal

oLbx:nColDividerStyle := LINESTYLE_DARKGRAY //LINESTYLE_INSET
oLbx:nRowDividerStyle := LINESTYLE_DARKGRAY //LINESTYLE_INSET
oLbx:lColDividerComplete := .t. //completa pintado hasta el footer cuando lineas no llenan todo el browse
oLbx:nStretchCol := STRETCHCOL_LAST //llenar espacio con ultima columna
oLbx:lTransparent := .t.
oLbx:lContrastClr := .f. //para que no cambie color de texto automaticamente segun intensidad del fondo

//HEADERS Y FOOTERS
oLbx:nHeaderHeight := 30 //Altura cabeceras de col
oLbx:lRecordSelector := .t. //poner o no, COL de la flechita de la izq
oLbx:lAllowRowSizing := .f. // If true horizontal row sizing is allowed
oLbx:lAllowColSwapping := .f. // If true col swapping is allowed

//COLORES (texto y fondo del texto)
oLbx:bClrHeader := {|| { nRGB(140, 0, 0), nRGB( 231, 242, 255 ), } }
oLbx:bClrFooter := oLbx:bClrHeader
oLbx:bClrStd := {|| { nRGB( 0, 0, 0), nRGB(255,248,220) } } // colores para lineas normales
oLbx:bClrSel := {|| { nRGB( 0, 0, 0), aGradRowSel } } // para barra de linea selecc cuando el control no tiene el foco
oLbx:bClrSelFocus := { || { CLR_BLACK, aGradBarSel } } // para barra de linea selecc cuando el control tiene el foco
oLbx:nRowHeight := 20 //altura entre lineas


oLbx:lHScroll := .F.
oLbx:lVScroll := .F.


//COLUMNAS DEL BROWSE

oCol = oLbx:AddCol()
oCol:bStrData = { || Mcontab->cuenta }
oCol:cHeader = "CtaM"
oCol:nWidth = 30

oCol = oLbx:AddCol()
oCol:bStrData = { || Mcontab->Nombre }
oCol:nDataStrAlign := 3
oCol:cHeader = "Nombre de la Cuenta"
oCol:nWidth = 300

oLbx:CreateFromResource(181)
oLbx:SetRDD()

oLbx:lKinetic := .f.
oLbx:SetBackGround(".\BrowBack.bmp" )

[RuFerSo]

Francisco: SI, SI, SI. Estas en lo cierto.
Mil disculpas, esta funcionando.

Muchisimas gracias, y disculpa mi torpeza. A veces me pasa. Serán los años?

Saludos
Ruben Fernandez

[FranciscoA]

Ruferso, no hay de que. Estamos para ayudarnos. A mi me ha pasado en varias ocasiones.
Saludos.