Quitar barras de desplazamiento xBrowse

[softruz]

Muy buenas, estoy intentando quitar las barras de desplazamiento del xBrowse pero no lo consigo, este es mi código y en el resurso el Windows Sytle es: 0x50300000, el problema es que si pongo el Windows Style 0x50000000 quita las barras de desplazamiento pero no me funciona el degragado de las líneas seleccionadas,

¿que puedo hacer para conseguirlo todo ?


redefine XBROWSE DatasTMP:oTbr id 501 COLUMNS 2;
HEADERS "Hora";
OF DatasTMP:oDlg SIZES 80;
JUSTIFY AL_LEFT;
ARRAY DatasTMP:aTemplates LINES CELL
SetBitmapOnBrowse(DatasTMP:oTbr,1,DatasTMP:aTemplates)

DatasTMP:oTbr:lTransparent:=.t.
DatasTMP:oTbr:SetBackGround(oBrushXBrw)
DatasTMP:oTbr:bChange := { || nRecSel := DatasTMP:oTbr:nArrayAt}
AEval(DatasTMP:oTbr:aCols,{|oCol|oCol:bPaintText := { |oCol, hDC, cData, aRect | PaintCol( oCol, hDC, cData, aRect, nRecSel)}})
DatasTMP:oTbr:bLDblClick:={|| msginfo("Editar") }


function SetBitmapOnBrowse(oBrowse,nCol,aArray)
oBrowse:nMarqueeStyle:=5
oBrowse:nStretchCol:=STRETCHCOL_WIDEST
oBrowse:nColDividerStyle := LINESTYLE_NOLINES
oBrowse:nRowDividerStyle := LINESTYLE_NOLINES
oBrowse:lAllowRowSizing:=.f.
oBrowse:lAllowColSwapping:=.f.
oBrowse:lRecordSelector:=.f.
oBrowse:lHeader:=.f.
oBrowse:lFooter:=.f.
oBrowse:lHScroll := .f.
oBrowse:lVScroll := .f.
//oBrowse:oVScroll:SetRange(0,0)
//oBrowse:HSetRange(0,0)
oBrowse:oFont:=DatasTMP:oFont

//oBrowse:aCols[nCol]:SetCheck( { "BLOCK", "STATUS" } )
//oBrowse:aCols[nCol]:bStrData:={||NIL}
return

Un Saludo.

[nageswaragunupudi]

With FWH 10.1 ( should also work with 9.12 )

Code: Select all  Expand view  RUN

#include 'fivewin.ch'
#include 'xbrowse.ch'

function Main()

   local oDlg, oBrw, oFont, d, n
   local aData := {}
   local aGrad := { { .5, RGB( 193, 219, 252 ), RGB( 220, 235, 252 ) }, ;
                    { .5, RGB( 220, 235, 252 ), RGB( 193, 219, 252 ) }  }

   d := {^ 2000/01/01 }
   for n := 1 to 12
      AAdd( aData, { cMonth( d ) } )
      d  := AddMonth( d, 1 )
   next


   DEFINE FONT oFont NAME 'TAHOMA' SIZE 0,-14
   DEFINE DIALOG oDlg RESOURCE 'TEST' FONT oFont

   REDEFINE XBROWSE oBrw ID 101 OF oDlg ;
      COLUMNS 1 ;
      ARRAY aData CELL

   WITH OBJECT oBrw
      :bClrSelFocus     := { || { CLR_BLACK, aGrad } }
      :nStretchCol      := 1
      :lHeader          := ;
      :lRecordSelector  := .f.
   END

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

return nil
 

RC file

Code: Select all  Expand view  RUN

TEST DIALOG DISCARDABLE 6, 15, 134, 227
STYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "TXBrowse demo"
FONT 8, "MS Sans Serif"
{
  CONTROL "", 101, "TXBrowse", 0x50000000, 4, 5, 124, 215
}
 

Result: