FiveTech Software tech support forums

... must be made in the presence of Horizontal scrolling but I not found the part where draw the box when there ::lHscroll is true better can be oBrw:lVScroll := .t. oBrw:lhScroll := .t.  if ::lDrawBorder     If ::lVScroll         ::Box( 0, 0, ::nHeight - 1, ::BrwWidth(), IfNil( ::nClrBorder, ...

...              :nClrBorder := CLR_BLACK                     END but the border is drawed only on left and up and down of the xbrowse If I make oBrw:lVScroll := .f. oBrw:lhScroll := .f. the border is painted good but I need to use Vscroll https://i.postimg.cc/1zwPXZ0g/lll.png I think ...

... no tiene el foco oBrw:l2007:=.T. oBrw:lFooter := (.T.) // Sí queremos línea de footer oBrw:lHScroll := (.T.) // Quitamos el scroll horizontal oBrw:lVScroll := (.T.) // Quitamos el scroll horizontal oBrw:nStretchCol := STRETCHCOL_WIDEST oBrw:bLDblClick := {|| Opcion_Producto(oBrw, cTab_Art, cEmpresa), ...

... no tiene el foco oBrw:l2007:=.T. oBrw:lFooter := (.T.) // Sí queremos línea de footer oBrw:lHScroll := (.T.) // Quitamos el scroll horizontal oBrw:lVScroll := (.T.) // Quitamos el scroll horizontal oBrw:nStretchCol := STRETCHCOL_WIDEST oBrw:bLDblClick := {|| Opcion_Producto(oBrw, cTab_Art, cEmpresa), ...

... "CUSTOMER" COLUMNS "STATE", "AGE", "MARRIED", "SALARY" SETUP ( ; oBrw:lHScroll := .f.,; oBrw:lVScroll := .f.,; oBrw:lToolbar := .f.,; // not ok oBrw:lFullGridClr := .t.,; oBrw:lIncrFilter := .t.,; oBrw:lSeekWild := .t.,; oBrw:lTabLikeExcel := ...

When you do not want scrollbars, you may disable lHScroll or lVScroll No sorry, I meant that the scrollbar in this case the vertical one should be activated only when the lines exceed the height of the xbrowse control, as happens in the texplorer class ...

When you do not want scrollbars, you may disable lHScroll or lVScroll

... config I have allready WITH OBJECT oBrw :nRowHeight := 27 :nClrBorder := CLR_GRAY :lDrawBorder := .t. * :nColorBox := CLR_HRED :lHscroll := .f. :lVscroll := .f. :l2007 := .f. :l2015 := .f. :lAllowRowSizing := .f. :lAllowColSwapping := .f. :lAllowColHiding := .f. :lRecordSelector := .f. :nRowDividerStyle ...

... := MARQSTYLE_HIGHLCELL oBrw[I]:lFastEdit := .T. oBrw[I]:nFreeze := 4 oBrw[I]:nHeaderLines := 2 oBrw[I]:lHScroll := .f. oBrw[I]:lVScroll := .F. oBrw[I]:bPastEof := {|| NewReg(aData,oBrw,oFld:nOption) } oBrw[I]:lFooter := .t. oBrw[I]:nFooterHeight := 35 // Altura del footer oBrw[I]:lIncrFilter ...

... oLbx:Refresh() Si se mueven los registros en el Listbox, pero con toda la "Imagen", es posible hacer lo mismo que hace el lVScroll ? me refiero como brinca el puntero al hacer click en los simbolos de arriba o abajo. Espero haberme explicado bien, gracias

... HEADERS "Cliente", "Atendido"; COLSIZES 500, 70 NOBORDER FASTEDIT FOOTERS // oBrw:lHScroll:= .F. // oBrwm:lVScroll:= .T. oBrw:l2007 := .T. oBrw:lTransparent := .f. oBrw:lDesign := .f. oBrw:lRecordSelector := .T. oBrw:lVScroll := .t. oBrw:lHScroll := .f. ...

... JUSTIFY {AL_RIGHT,AL_RIGHT,AL_RIGHT}; FOOTERS AUTOSORT BACKGROUND oApp:cBrush WITH OBJECT oBry :l2007 := (.F.) :lHScroll := (.F.) :lVScroll := (.F.) :lFooter := (.T.) :nMarqueeStyle := MARQSTYLE_HIGHLROWMS :nColDividerStyle := LINESTYLE_LIGHTGRAY :nRowDividerStyle := LINESTYLE_LIGHTGRAY ...

Enrico Maria Giordano wrote:I want to hide the vertical scrollbar of an XBrowse but I need to do it in the ON INIT clause. oBrw:lVScroll = .F. doesn't work.

Thank you for any help.

EMG

strange, do you have a small test to try ?

I want to hide the vertical scrollbar of an XBrowse but I need to do it in the ON INIT clause. oBrw:lVScroll = .F. doesn't work.

Thank you for any help.

EMG

... := 3 //LINESTYLE_BLACK oBrw:nRowDividerStyle := 3 //LINESTYLE_BLACK oBrw:lColDividerComplete := .T. oBrw:lHScroll := .T. oBrw:lVScroll := .T. oBrw:lAllowColSwapping := .T. oBrw:nFreeze := 2 oBrw:lFastEdit := .T. AEval( oBrw:aCols, { |o| o:nHeadStrAlign := AL_CENTER } ) oBrw:bPopUp ...