FiveTech Software tech support forums

... If( oBrw:oFont != nil, oBrw:oFont:hFont, 0 ) ) aDim[1]:= aDim[ 1 ] + 1 lOk := .f. cHType := ValType( uVar ) IF oBrw:lCellStyle .And. nCol != oBrw:nColAct oBrw:nColAct := nCol If oBrw:oHScroll != nil oBrw:oHScroll:SetPos(nCol) Endif oBrw:Refresh(.F.) ENDIF DEFINE DIALOG oDlg FROM aDim[ 1 ], aDim[ ...

... HB_FUNC( WBRWLINE ) // ( hWnd, hDC, nRow, aText, aSizes, nFirstItem, ; // nClrFore, nClrBack, hFont, lTree, aJustify, nPressed, // nStyle, nColAct, lFocused ) // bTextColor, bBkColor, nClrLine, lFooter, lSelect, // bFont, lDrawFocusRect ) // New's by CesoTech { HWND hWnd = (HWND) hb_parnl( ...

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

... HB_FUNC( WBRWLINE ) // ( hWnd, hDC, nRow, aText, aSizes, nFirstItem, ; // nClrFore, nClrBack, hFont, lTree, aJustify, nPressed, // nStyle, nColAct, lFocused ) // bTextColor, bBkColor, nClrLine, lFooter, lSelect, // bFont, lDrawFocusRect ) // New's by CesoTech { HWND hWnd = (HWND) hb_parnl( ...

... L"," M"," M"," J"," V"," S" ; OF oDlf ; ON CLICK dSel:=GetDate(VAL(aSem[nSem][oBrf:nColact]),oMes:nAt,nAno); ON DBLCLICK IF(EMPTY(aSem[nSem][oBrf:nColAct]),; (nMes:=oMes:nAt,; IF(nSem=1,(--nMes,IF(nMes<1,(nMes:=12,--nAno),)),; (++nMes,IF(nMes>12,(nMes:=1,++nAno),))),; ...

... ; ID 300 OF oDlg UPDATE ; SIZES 60, 35, 35, 35,35,35,35,35,35,35,35 ; ON DBLCLICK IIF ( aData[oLbx:nAt,2] = 'S', aData[oLbx:nAt, oLbx:nColAct] := 'N',; ( IF ( aData[oLbx:nAt, oLbx:nColAct] = 'N',; aData[oLbx:nAt, oLbx:nColAct] := 'C',; aData[oLbx:nAt, oLbx:nColAct] := 'S')) ); oLbx:Drawselect() ...

... ; ID 300 OF oDlg UPDATE ; SIZES 60, 35, 35, 35,35,35,35,35,35,35,35 ; ON DBLCLICK ( (IF( aData[oLbx:nAt, oLbx:nColAct] = 'S', ; aData[oLbx:nAt, oLbx:nColAct] := 'N', ; aData[oLbx:nAt, oLbx:nColAct] := 'S'), ; IF ( aData[oLbx:nAt, oLbx:nColAct] = 'N' ,; aData[oLbx:nAt, ...

... ) ) ), ; Transform( uData, cPicture ) ), ; oColumn:nAlign, ; nClrFore, ; If( lFocused .or. lNoLite,; nClrBack,; If( ::lCellStyle, If( nJ == ::nColAct, CLR_GRAY, nClrBack ), CLR_GRAY ) ),; hFont, ; If(lBitMap, If(lNoLite, 1, 2), 0),, ::nLineStyle ) Change CLR_GRAY to CLR_LIGHTGRAY and compile/link. ...

... {|nRow,nCol,nStyle| ; if( nStyle==3 .OR. nStyle=0, if( nCol==1,RGB( 192,192,192 ),),) } Brw1:bKeyChar := {|nK| if( nK==VK_RETURN,Brw1:Edit(Brw1:nColAct,.t.),) } Brw1:bEdit:= {|nCol, cBuffer, lFirstEdit|; EDICION( Brw1, nCol, cBuffer, CALIAS, lFirstEdit, xCols, oWnd ) } //la funcion de edicion: ...

Como se cual el la columna actual en xbrowse

en el wbrowse es ncolact

En este browse cual es

Gracias

... DIALOG oDlg CENTERED return nil I thinked to insert oLbx:bEdit := { || Editar() } Function Editar( oLbx, aMat ) LOCAL xVar LOCAL lSeguir IF oLbx:nColAct == 1 RETURN .F. ENDIF xVar := aMat[ oLbx:nAt, oLbx:nColAct ] lSeguir := oLbx:lEditCol( oLbx:nColAct, @xVar, "@!" ) IF lSeguir aMat[ oLbx:nAt, ...

No lo hemos probado, pero intenta cambiando lo que aparece en verde:

SetBkColor( hDC, If( nColAct != nil, If( ValType( nClrBack ) == "B",;
Eval( nClrBack, n ), nClrBack ),;
If( ValType( nClrPane ) == "B", Eval( nClrPane, n ), nClrPane ) ) )

... ID 501 of odlg font oFontTahoma; on dblclick iif(empty(aId[oTbr:nAt,oTbr:nColAct]) .or. aId[oTbr:nAt,oTbr:nColAct]=0,msgalert("Debe seleccionar un día con un Servicio asignado.",oConfiguracion:Titulo_Aplicacion),(oDlg:end(),m_ServiciosDirDet(,aId[oTbr:nAt,oTbr:nColAct]))) ...

... If( ValType( nClrPane ) == "B",; // nClrPane := Eval( nClrPane ), nClrPane ) ) 2: Añade lo que está en rojo (línea 2282): SetBkColor( hDC, If( nColAct != nil, If( ValType( nClrBack ) == "B",; Eval( nClrBack ), nClrBack ),; If( ValType( nClrPane ) == "B", Eval( nClrPane, n ), nClrPane ) ) ) ...

... DO CASE CASE (nKey>=48 .AND. nKey<=57) .OR. (nKey>=65 .AND. nKey<=90) .OR. nKey=8 .OR. nKey=32 IF oBrow:nColAct=1 .OR. oBrow:nColAct=2 Select MAECLITE IF oBrow:nColAct = 1 OrdSetFocus(1) ELSEIF oBrow:nColAct = 2 OrdSetFocus(2) ENDIF DbGoTop() IF nKey = ...