Quitar barras de desplazamiento xBrowse

Posts: 485

Joined: Fri Feb 09, 2007 10:34 AM

Quitar barras de desplazamiento xBrowse
Posted: Fri Feb 12, 2010 08:42 AM

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(&quot;Editar&quot;) }

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( { &quot;BLOCK&quot;, &quot;STATUS&quot; } )
//oBrowse:aCols[nCol]:bStrData:={||NIL}

return

Un Saludo.

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Quitar barras de desplazamiento xBrowse
Posted: Fri Feb 12, 2010 05:34 PM

With FWH 10.1 ( should also work with 9.12 )

Code (fw): Select all Collapse

#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 (fw): Select all Collapse

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:

Regards

G. N. Rao.

Hyderabad, India

FiveTech Support Forums

Continue the discussion