FiveTech Software tech support forums

... := 2 :nStretchCol := 3 :lAllowColHiding := .F. :lAllowColSwapping := .F. :lDisplayZeros := .F. :lRecordSelector := .F. :lHScroll := .F. :l2007 := .F. :lFooter := .T. :lDrawBorder := .T. :lAllowColReGroup := .T. :lColDividerComplete := .T. :lIncrFilter := .F. :nStretchCol := STRETCHCOL_WIDEST ...

... } } oBrw:bClrSel := {|| { nRGB(000,000,000), nRGB(128,255,128) } } // para barra de linea selecc cuando el control 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 ...

... } } oBrw:bClrSel := {|| { nRGB(000,000,000), nRGB(128,255,128) } } // para barra de linea selecc cuando el control 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 ...

... Realizado","Detalle/Observaciones"; COLSIZES 150,150,250; ARRAY acDatos UPDATE FOOTERS LINES AUTOCOLS CELL olbx1:l2007:=.t. olbx1:gotop() olbx1:bClrStd:={|| aClrCol [ olbx1:keyno%2+1]} olbx1:bClrSel:={|| { nRGB( 0, 0,255), aGradBarSel } } olbx1:bClrSelFocus := ...

... 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 := LINESTYLE_LIGHTGRAY ...

... oBrw :nRowHeight := 22 :nClrBorder := CLR_GRAY :lDrawBorder := .t. :nColorBox := CLR_HRED :nMarqueeStyle := MARQSTYLE_HIGHLWIN7 :lHscroll := .f. :l2007 := .F. :l2015 := .f. :nStretchCol := STRETCHCOL_WIDEST :lAllowRowSizing := .F. :lAllowColSwapping := .F. :lAllowColHiding := .F. :lRecordSelector ...

... oBrw :nRowHeight := 22 :nClrBorder := CLR_GRAY :lDrawBorder := .t. :nColorBox := CLR_HRED :nMarqueeStyle := MARQSTYLE_HIGHLWIN7 :lHscroll := .f. :l2007 := .F. :l2015 := .f. :nStretchCol := STRETCHCOL_WIDEST :lAllowRowSizing := .F. :lAllowColSwapping := .F. :lAllowColHiding := .F. :lRecordSelector ...

... oCol:cHeader := "DESCRIÇÃO" oCol:= Lista10:AddCol() oCol:bStrData := { || PLANO->DC} oCol:cHeader := "D/C" Lista10:l2007:=.t. Lista10:cAlias := "PLANO" Lista10:nStretchCol := STRETCHCOL_LAST Lista10:lSeekBar := .T. Lista10:lIncrFilter := .T. Lista10:lSeekWild ...

... := 2 :nStretchCol := 6 :lAllowColHiding := .F. :lAllowColSwapping := .F. :lDisplayZeros := .F. :lRecordSelector := .F. :lHScroll := .F. :l2007 := .F. :lFooter := .T. :lDrawBorder := .t. :lAllowColReGroup := .T. :lColDividerComplete := .T. :nRowDividerStyle :=LINESTYLE_BLACK :bClrHeader ...

It could be interesting to insert the possibility to change the style, I mean l2007 l2013 l2015 l2016 and the style of the tab if rounded or square like office 2013/2019 and use the method METHOD SetStyles( l2010, l2013, l2015, nTopMargin, nClrPaneRB, nClrBoxOut, ...

... 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. oBrw:lColChangeNotify ...

... 99",NIL,"@Z 999,999.99"; 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 ...

... si en la clase menú tienes un valor que diga el estilo concreto, o hay que ir estilo por estilo. Si no, quizás podría quedar algo así: oImageT:l2007 := if (hb_isnil(oImageT:oWnd:oMenu:l2007),, oImageT:oWnd:oMenu:l2007) En todo caso, lo que veas mejor y te ayudo a testearlo para evitar errores ...

... aFSize[1] ; PICTURE aPict[1] ; JUSTIFY aJust[1] ; FONT oFntX7A ; ALIAS cAlias ; FASTEDIT ; LINES ; CELL ; FOOTERS ; AUTOCOLS ; AUTOSORT oBrw:l2007 := .T. oBrw:nRowHeight := 20 oBrw:nColDividerStyle := 3 //LINESTYLE_BLACK oBrw:nRowDividerStyle := 3 //LINESTYLE_BLACK oBrw:lColDividerComplete ...

... } } oBrw:bClrSel := {|| { nRGB(000,000,000), nRGB(128,255,128) } } // para barra de linea selecc cuando el control no tiene el foco oBrw:l2007:=.T. oBrw:lAutoSort:=.T. oBrw:nStretchCol := STRETCHCOL_WIDEST oBrw:oFont := oFont2 oBrw:bLDblClick := {|| Ing_Inv_Gral(oBrw, cTab_Art, cTab_Art:cod_art ...