FiveTech Software tech support forums

... vertically. Is there a way to turn off the horizontal scroll. I think it is pretty neat, but my customer is not so enthusiastic. Tried oBrw:lNoHScroll := True, or False doesn't seem to make any difference. Thanks, Byron ...

::lNoHScroll is an enhancement of tcbrowse, it does not exist in wbrowse. The problem is the HScroll() method of wbrowse, which is not overwritten in tcbrowse. As a workaround you can try to define your own method hscroll() ...

... case nScrollCode == SB_PAGEDOWN while nCol < Len( ::GetColSizes() ) .and. ; (::IsColVisible( nCol ) .or. ::nColPos == nCol) nCol++ end IF ::lNoHScroll <> .T. ::nColPos := nCol ::nColAct := nCol ::oHScroll:SetPos( nCol ) ::Refresh( .f. ) ENDIF

Ok, oBrw:nFreeze := 2 this line it's ok Other solution oBrw:lNoHScroll := .t. creates this problem Application =========== Path and name: C:\Fwh\samples\test.exe (32 bits) Size: 1,997,312 bytes Time from start: 0 hours 0 mins 5 secs Error occurred at: ...

... := 28 obRW2:lMChange := .f. obRW2:lDrawHeaders:= .t. obRW2:lNoChangeOrd:= .t. obRW2:lFooting := .t. obRW2:lNoMoveCols := .t. obRW2:lNoHScroll := .t. obRW2:nFreeze := 2 bColor := {|| If(oBrw2:nLogicPos() % 2 = 0,CLR_LGRAY,CLR_LGREEN) } obRW2:SetColor( { 1, 3, 4, 5, 6, 9, 10, 13, ...

... WIDTH 213 pixels ; 3dLook TRUE, TRUE oBrw:cAlias := "CODPOST" oBrw:lSeek := .T. oBrw:nColOrder := 3 oBrw:cOrderType:= "C" oBrw:lNoHScroll:=.T. oBrw:lNoVScroll:=.F. oBrw:nHeightCell += 5 oBrw:nHeightHead += 9 oBrw:lNoResetPos := .F. oBrw:SetIndexCols( 1, 2, 3 ) oBrw:aColumns[1]:cOrder:= ...

... 27 obRW2:lMChange := .t. obRW2:lDrawHeaders:= .t. obRW2:lNoChangeOrd:= .t. obRW2:lFooting := .f. obRW2:lNoMoveCols := .f. obRW2:lNoHScroll := .t. obRW2:nFreeze := 4 bColor := {|| If(oBrw2:nLogicPos() % 2 = 0,CLR_LGRAY,CLR_LGREEN) } obRW2:bKeyDown := {|nKey| if(nKey==VK_INSERT,fwhtradicmanut(.t.,oBrw2),; ...

... column to oLbxin Header "Location" data oInv:invloc ALIGN 0,1 size 90 oLbxin:nLineStyle:=0 oLbxin:nHeightCell += 4 oLbxin:nHeightHead += 6 oLbxin:lNoHScroll := .T. oLbxin:setColor( {1}, {CLR_BROWSETEXT} ) // cell text color oLbxin:setColor( {4}, {{ CLR_HEADERTOP, CLR_HEADERBOT }} ) // degraded ...

... ofonte_por CELLED obRW2:setArray(aDadoscli) obRW2:nHeightCell := 33 obRW2:lMChange := .T. obRW2:lDrawHeaders:= .F. obRW2:lNoMoveCols := .T. obRW2:lNoHScroll := .T. oBrw2:nFreeze := 1 oBrw2:lLockFreeze := .T. obRW2:refresh() ADD COLUMN TO BROWSE obRW2 DATA ARRAY ELEMENT 1 ; SIZE 190 ; 3DLOOK TRUE; ...

... } ; EDITABLE MOVE DT_MOVE_NEXT // Activate continuous edit mode oBrw1:lAutoEdit := pTRUE oBrw1:lNoGrayBar := pTRUE oBrw1:lNoHScroll := pTRUE oBrw1:lFixCaret := pFALSE // True for blocky cursor //oBrw1:l2007 := pTRUE oBrw1:nAdjColumn := 2 oBrw1:nLineStyle := 1 oBrw1:nHeightHead ...

... ::exchange()) DATA lNoExit AS LOGICAL INIT .F. // prevents edit exit with arrow keys DATA lNoGrayBar AS LOGICAL // don't show inactive cursor DATA lNoHScroll AS LOGICAL // disables horizontal scroll bar DATA lNoLiteBar AS LOGICAL // no cursor DATA lNoMoveCols AS LOGICAL INIT .F. // avoids resize ...

... Using MS Visual Dev to generate the resource and have already set there to use no scrollbars. Yet they appear. I managed to eliminate one with obj:lNoHScroll:=.T., alas there appears to be no obj:lnoVscroll. Who knows how to fully eliminate them? Try: oBrowse:oHScroll:setRange( 0,0 ) oBrowse:oHScroll ...

... := CLR_BLUE * oBrw:nClrBackFocus := CLR_YELLOW //RGB(22,245,84) * oBrw:nClrForeFocus := CLR_BLACK * oBrw:lNoHScroll := .f. // don't use that pesky horiz scroll bar * oBrw:lNoGrayBar := .f. * // oBrw:bLDblClick := {| nRow, nCol | ...

... FONT ownd:ofont ICON OICO REDEFINE BROWSE oBrw2 ID 4016 OF oDlg COLOR CLR_BLACK,CLR_LGREEN obRW2:lNoVScroll := .F. //Tem que estar aqui obRW2:lNoHScroll := .T. //Tem que estar aqui obRW2:setArray(acaixas) obRW2:Refresh() obRW2:nHeightCell := 24 obRW2:nHeightHead := 24 obRW2:nHeightFoot := ...

... on headers SIZE 200; 3DLOOK FALSE, TRUE, TRUE; // 3D look only for header and footer ALIGN DT_LEFT, DT_LEFT, DT_RIGHT oBrw:nFreeze := 1 oBrw:lNoHScroll := .T. oBrw:SetColor( { 4},{{RGB(255,255,255), RGB(130, 99, 53)}}) // Color de Titulos oBrw:SetColor( { 1, 2,15 }, ; { CLR_BLACK, CLR_NBLUE, ...