FiveTech Software tech support forums

... mas modernos, no falla. Sino falla en todos. probando lo que me has enviado, he conseguido que: añadiendo el código en xbrowse  for nFor := 1 to Len( ::aBitmaps )      PalBmpFree( ::aBitmaps[ nFor, BITMAP_HANDLE ], ::aBitmaps[ nFor, BITMAP_PALETTE ...

... internally) l2007, ; // 2007 look lZebra, ; // zebra lFlatStyle ; // Flat Style AS LOGICAL En el METHOD ADJUST() del TXBROWSE Agregar esto: local nFor, nLen, nHeight, nStyle, nTemp, oCol, h // asigno valor al bclrstd para pintar el zebra // pueden usar los colores que mas les gusten if ::lZebra ...

... How we can make ? METHOD SetColumns( nRow, nCol, nFlags ) CLASS TXBrowse ... Menuitem "Default Columns" action -> ?? separator for nFor := 1 to nLen ... thanls

function OrderTagInfo( aStruct, nCol )   local nFor, nAt, i, nOrders, aTokens, lCond, aCond, aPos   DEFAULT aStruct      := DbStruct(), ;           nCol       ...

... CELL LINES NOBORDER ; COLUMNS " ", "P_NR" , "P_NOM", "P_UBI" mBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW for nFor := 1 to len(aCols) mBrw:aCols[ nFor ]:bRClickData := {|| (ESeleccionar(),mBrw:refresh() ) } mBrw:aCols[ nFor ]:bRClickHeader := {|r,c,f,o| NIL ...

... ), NIL ) } ENDIF END :aCols[ :nFreeze ]:bClrStd := {|| { RGB(191,51,4) ,RGB(234,234,234) } } // CLR_WHITE, CLR_BLUE NEXT nFor IF cTipCol <> NIL // :bClrStd := {|| { CLR_WHITE, IIF( MOD( (cAliTab)->( ORDKEYNO() ) , 2 ) == 0, RGB(234,234,234), RGB(255,255,242) ) ...

... use buttons. The 2. col includes all the functions I need. If You don't like it, we could click on the header of xBrowse 1, to pick a number. FOR nFor := 1 to 9 oSquare:aCols[ nFor ]:bRClickHeader := {|r,c,f,o| nNumber := o:cHeader } NEXT It all works using only the mouse !!!. On Cellclick FUNCTION ...

... ), NIL ) } ENDIF END :aCols[ :nFreeze ]:bClrStd := {|| { RGB(191,51,4) ,RGB(234,234,234) } } // CLR_WHITE, CLR_BLUE NEXT nFor IF cTipCol <> NIL IF ALLTRIM( buscaDriverTabla(cAliTab) ) == "SQLRDD" .OR. ALLTRIM( buscaDriverTabla(cAliTab)) == "SQLEX" ...

... // ESPECIFICA TIPO DE LETRA PARA TODA LA HOJA *** oHoja:Cells:Font:Size := 12 // ESPECIFICA TAMANO DE LETRA PARA TODA LA HOJA *** oHoja:Cells( 1, nFor ):Font:Size := 16 // DETERMINA TAMAÑO DE LETRA A USAR EN UNA CELDA *** oHoja:Cells( 1, 1 ):Font:Bold := .t. // PONE EN NEGRITAS VALOR DE UNA CELDA ...

...                  WINDOW.PRG      667   668   688  1785  1798  1812  3049  3053  3058  3062                   3097  3114  3120  3135  3139  3143 NFOR                    WINDOW.PRG     4020  4027 NGETBACKRGB()          (function  in ?)    WINDOW.PRG     2379  3028 NGETCHRHEIGHT()        (function ...

opps sorry but I wish show the seconds Hi Silvio, I use this to 5 seconds, but you can change to other value (nFor) MsgRun( " Aguardando resposta da entidade receptora em 5 segundos",; "Processando, aguarde...",; { | oDlgSef | UpdCaption( oDlgSef) } ) ... ...

... y también pongo unas imágenes Son: El METHOD SetColumns( nRow, nCol, nFlags ) CLASS TXBrowse y la funcion static function GenMenuBlock( aCols, nFor, oXbrw ) //----------------------------------------------------------------------------//METHOD SetColumns( nRow, nCol, nFlags ) CLASS ...

... oCol:nHeadBmpNo := 1 oCol:bLClickHeader := {|r,c,f,o| ::bas1205( r,c,o) } ... method bas1205(nrow,ncol,oCol) class bas12class local aCols,cOrder,nFor,nLen local nat,id1 aCols := oCol:oBrw:aCols cOrder := oCol:cOrder nAt := oCol:nCreationOrder nLen := LEN(aCols) for nFor := 1 to nLen aCols[ nFor ...

Esta funcion me la dio y publico Daniel hace tiempisimo, aca la comparto, saludos... :shock: FUNCION cronograma() . . . . FOR nFor = 6 to LEN( oBrw:aCols ) oBrw:aCols[ nFor ]:bClrStd := ChangeColor( oBrw, nFor ) NEXT . . . RETURN .T. FUNCTION ChangeColor( oBrw, n ) // *RETURN {|| { ColorCell( ...

... < LINESTYLE_INSET nTemp := 1 otherwise nTemp := 0 end case ... ... //---------------------- if nLast == Len( ::aDisplay ) nCol := acols[ nFor ] - nTemp nWidth := ::BrwWidth() - 4 if nRowStyle != LINESTYLE_RAISED DrawHorz( hDC, nRow, nCol, nWidth, hRowPen ) else DrawHorz( hDC, nRow, nCol, ...