xBrowse lVScroll .F. Francisco SOLUCIONADO

Post Reply
RuFerSo
Posts: 55
Joined: Mon Feb 20, 2012 2:56 pm

xBrowse lVScroll .F. Francisco SOLUCIONADO

Post by 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
Last edited by RuFerSo on Thu Aug 23, 2012 3:26 pm, edited 1 time in total.
User avatar
joseluisysturiz
Posts: 2024
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela
Contact:

Re: xBrowse lVScroll .F.

Post by joseluisysturiz »

Saludos, coloca en windows style 0x10210000, saludos... :shock:
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
wmormar
Posts: 1050
Joined: Fri Oct 07, 2005 10:41 pm
Location: México
Contact:

Re: xBrowse lVScroll .F.

Post by 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.
William, Morales
Saludos

méxico.sureste
User avatar
FranciscoA
Posts: 1964
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: xBrowse lVScroll .F.

Post by FranciscoA »

Hola, en la ver. 1204 me funciona asi:

Con PellesC
Window Style 0x50010000

oBrSaldo:lHScroll := .F.
oBrSaldo:lVScroll := .F.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh1204-MySql-TMySql
User avatar
joseluisysturiz
Posts: 2024
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela
Contact:

Re: xBrowse lVScroll .F.

Post by joseluisysturiz »

wmormar wrote: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... :shock:
Dios no está muerto...

Gracias a mi Dios ante todo!
RuFerSo
Posts: 55
Joined: Mon Feb 20, 2012 2:56 pm

Re: xBrowse lVScroll .F.

Post by 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
Posts: 145
Joined: Wed Nov 03, 2010 9:16 am

Re: xBrowse lVScroll .F.

Post by 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
Paco García
User avatar
FranciscoA
Posts: 1964
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: xBrowse lVScroll .F.

Post by 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" )
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh1204-MySql-TMySql
RuFerSo
Posts: 55
Joined: Mon Feb 20, 2012 2:56 pm

Re: xBrowse lVScroll .F. Francisco SISISI,Solucionado

Post by 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
User avatar
FranciscoA
Posts: 1964
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: xBrowse lVScroll .F. Francisco SOLUCIONADO

Post by FranciscoA »

Ruferso, no hay de que. Estamos para ayudarnos. A mi me ha pasado en varias ocasiones.
Saludos.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh1204-MySql-TMySql
Post Reply