xbrowse - fwh 11.5 - disable Horizontal Scroll Bar

xbrowse - fwh 11.5 - disable Horizontal Scroll Bar

Postby MGA » Fri Jun 24, 2011 7:31 pm

Sr.Antonio, Daniel,

oBrw:lVScroll :=.f. <-- Não funciona, como resolver?

ex:
fwh\samples\testxbrw.prg

STATIC FUNCTION NewDialog( oWnd )

local oDlg, oBrw

DEFINE DIALOG oDlg RESOURCE "TEST" OF oWnd title "opaaaaaaaa"

oBrw := TXBrowse():New( oWnd )

REDEFINE XBROWSE oBrw ID 101 ;
HEADERS "An array", "test" ;
OF oDlg ;
ARRAY { { "first", "row" }, { "second", "row" } } AUTOCOLS ;
COLORS CLR_WHITE, CLR_BLUE


oBrw:lHScroll :=.f. <---NAO FUNCIONA


ACTIVATE DIALOG oDlg ;
ON INIT ( oBrw:SetColor( CLR_WHITE, CLR_BLUE ) )

RETURN NIL
ubiratanmga@gmail.com

FWH18.02
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
MGA
 
Posts: 1234
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá

Re: xbrowse - fwh 11.5 - disable Horizontal Scroll Bar

Postby FranciscoA » Fri Jun 24, 2011 10:26 pm

Creo que lo puedes resolver (con PellesC), cambiando en Propiedades así:
Solo presentar Scroll vertical: Window Styles: 0x50A10000
Saludos.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh-MySql-TMySql
User avatar
FranciscoA
 
Posts: 2114
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: xbrowse - fwh 11.5 - disable Horizontal Scroll Bar

Postby MGA » Sat Jun 25, 2011 11:12 am

FranciscoA,

Funcionou, fantastico!!! :D :D :D

Muito Obrigado
ubiratanmga@gmail.com

FWH18.02
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
MGA
 
Posts: 1234
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 46 guests