Problemas con TWBrowse

[veranito]

Tengo un Twbrowse que compilado con fivewin funciona bien: puede editar las celdillas,etc; pero cuando el programa está compilado con Harbour no puedo editar las celdillas. ¿Alguien sabe por qué sucede esto?
Gracias.

[Raymundo Islas M.]

Hola

A mi me paso al similar, y la solucion fue esta en mi caso :

En fw tenia este codigo :

REDEFINE LISTBOX lbActCst ;
FIELDS aActCst[pAC,1],aActCst[pAC,2],aActCst[pAC,3],aActCst[pAC,4] ;
HEAD "No. PARTE","DESCRIPCION","ACTUAL","NUEVO" ;
ID 101 ;
ON DBLCLICK ( SetItmXSld( @aActCst, pAC ), lbActCst:ReFresh() ) ;
FONT oFntBrw ;
FIELDSIZES 120,310,80,80 ;
OF dbActCst

lbActCst:nLineStyle := 2
lbActCst:lDrawFocusRect := .F.
lbActCst:nClrLine := CLR_WHITE
lbActCst:nClrBackHead := 13425898
lbActCst:BGOTOP := { || pAC :=1}
lbActCst:BGOBOTTOM := { || pAC := eval( lbActCst:bLogicLen ) }
lbActCst:BSKIP := { | nwant, nold | nold := pAC , pAC += nwant,;
pAC := max( 1, min( pAC, eval( lbActCst:bLogicLen ) ) ), pAC - nOld }
lbActCst:BLOGICLEN := { || Len( aActCst ) }
lbActCst:CALIAS := "ARRAY"
lbActCst:AJUSTIFY := { .F.,.F.,.T.,.T. }
lbActCst:nClrPane := { || IIF( aActCst[pAC,5] < 2, CLR_A, CLR_B ) }
lbActCst:nClrText := { || IIF( aActCst[pAC,6] == 1, CLR_HRED, CLR_BLACK ) }

Y al querer usarlo en fwh, me tronaba, cuando en 16 trabajaba correctamente, la solucion ?

Quitar la linea : lbActCst:CALIAS := "ARRAY"

y cambiarla por : lbActCst:SetArray( aActCst )

y ya no tuve ningun problema.

Espero te sirva.


Saludos

[veranito]

Raymundo, muchas gracias por responder. Te voy a poner parte del código fuente a ver si tú o alguien me puede echar una mano. De que es lo que está mal para que en Fivewin funcione bien y pueda editar las celdillas y sin embargo en Harbour no pueda hacerlo. Gracias:

Code: Select all

DEFINE DIALOG oDlgBrowse RESOURCE "DBEDIT3";
       TITLE OA(cTitulo)+" ("+cPosSer+")"+OA(" Zona: ")+STRZERO(NZZONA,2)

       REDEFINE BROWSE oBrw ID 999 OF oDlgBrowse GRID;
                MESSAGE "Tarifas de Carga (F6 para copia zonas F7 para borrarlas)";
                SELECT PROD2006->POSSERV + ;
                       STRZERO(PROD2006->TARIFA,5)+STRZERO(PROD2006->ZONA,2)+STRZERO(PROD2006->KGS);
                       FOR cSelect

       oBrw:oFont         := TFont():New("MS Sans Serif",0,-11,,.T.)
       oBrw:cargo         := {nSum,0,0}
       #ifndef _FWH
       oBrw:nClrBFoot     := RGB(101,100,155)
       #endif
       oBrw:nFreeze       := 1
       oBrw:nClrBackFocus := RGB(22,245,84)
       oBrw:nClrForeFocus := CLR_BLACK

     cPicture:="99999.9999"
     ADD COLUMN TO BROWSE oBrw DATA FieldWBlock("KGS",Select("PROD2006")) ;
              HEAD "Kgs";
              EDITABLE ;
              MESSAGE "F6 para copia zonas F7 para borrar";
              SHIFT DT_MOVE_DOWN ;      // DOWN = Abajo
              ALIGN RIGHT;
              PICTURE "999999";
              VALID actkg(oBrw);
              POST EDIT CreoBrowse(oBrw)

              //PRE EDIT oBrw:cargo[2] := "KGS" ;

     ADD COLUMN TO BROWSE oBrw DATA FieldWBlock("FAC",Select("PROD2006")) ;
              HEAD "Fac.";
              PICTURE "999";
              EDITABLE ;
              MESSAGE "F6 para copia zonas F7 para borrar";
              SHIFT DT_MOVE_DOWN ;      // DOWN = Abajo
              ALIGN RIGHT;
              POST EDIT CreoBrowse(oBrw)

             // PRE EDIT oBrw:cargo[2] := "FAC"  ;


     ADD COLUMN TO BROWSE oBrw DATA FieldWBlock("PORTES",Select("PROD2006")) ;
              HEAD "Portes";
              SIZE 80;
              PICTURE cPicture;
              EDITABLE ;
              MESSAGE "F6 para copia zonas F7 para borrar";
              SHIFT DT_MOVE_DOWN ;      // DOWN = Abajo
              ALIGN RIGHT;
              POST EDIT CreoBrowse(oBrw)

              //PRE EDIT oBrw:cargo[2] := "PORTES" ;

     ADD COLUMN TO BROWSE oBrw DATA FieldWBlock("REX",Select("PROD2006")) ;
              HEAD "Reex";
              PICTURE cPicture;
              EDITABLE ;
              MESSAGE "F6 para copia zonas F7 para borrar";
              SHIFT DT_MOVE_DOWN ;      // DOWN = Abajo
              ALIGN RIGHT;
              POST EDIT CreoBrowse(oBrw)

              //PRE EDIT oBrw:cargo[2] := "REX"  ;


ACTIVATE DIALOG oDlgBrowse CENTERED

[Raymundo Islas M.]

Hola Veranito

Una pequeña pregunta : Que libreria estas usando para el Browse ?
Al parecer por ahi pueden estar los tiros.....


Saludos