FiveTech Software tech support forums

... 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 ...

... 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 ...

... other problems in this way

wbrowse.prg

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

... 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 ...

... aSem[nSem][5],aSem[nSem][6],aSem[nSem][7] ;
HEADERS " D"," 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 ...

... 9","10" ;
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 ...

... 3","4","5","6","7","8","9","10" ;
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 ...

... 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 ...

... 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 ...

Como se cual el la columna actual en xbrowse

en el wbrowse es ncolact

En este browse cual es

Gracias

... 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 ...

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 ) ) )

... 18","19","20","21","22","23","24","25","26","27","28","29","30","31" 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 ...

... 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 ...

... ValidKeyClientes1(nKey,oDlg,oBrow,oGet)
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 ...