browse fivewin

[JoséQuintas]

Acho que desaprendi.
O que tem de errado nisto?

Código: Selecionar todos

#include "frm_class.ch"
#include "fivewin.ch"
#include "colors.ch"

FUNCTION fwBrowseADO( cnSQL, oTBrowse )

   LOCAL xDlg, xControl, aItem, oCol

   DEFINE DIALOG xDlg FROM 0, 0 TO 700, 1024 PIXEL ;
      TITLE "browse" COLOR COLOR_LIGHTGRAY

   @ 40, 10 XBROWSE xControl ;
      ARRAY Array(10) ;
      SIZE 900, 600 PIXEL ;
      OF xDlg ;
      ON DBLCLICK ( (nRow), (nCol), (nFlags), FWBrowseENTER( xControl, cnSQL ) )

   WITH OBJECT xControl
      :xUserData := cnSQL
      :xUserValue := xControl:xUserData:RecordCount()
      :nArrayAt := 1
      FOR EACH aItem IN oTBrowse
         ADD oCol TO xControl ;
            DATA aItem[ 2 ] ;
            HEADER aItem[ 1 ]
      NEXT
      :bOnSkip := { || xControl:xUserData:Move( xControl:nArrayAt - 1, 1 ) }
      :SetArray( Array( xControl:xUserData:RecordCount() ) )
      :bClrStd := { || { CLR_BLACK, iif( Mod( xControl:xUserData:AbsolutePosition, 2 ) == 0, CLR_WHITE, RGB(179,207,231) ) } }
   ENDWITH

   ACTIVATE DIALOG xDlg CENTERED

   (oCol)

   RETURN Nil

FUNCTION FWBrowseEnter( xControl, cnSQL )

   (xControl); (cnSQL)

   RETURN Nil

Só aparece a janela em branco.

[JoséQuintas]

Ok.
Faltou inicializar, e o CreateFromCode()
Agora falta o conteúdo.

[JoséQuintas]

Error BASE/1004 Message not found: TXBROWSE:DATE
Called from _CLSSETERROR(0)
Called from TXBROWSE:DATE(12165)
Called from (b)JPTABHORARIOCLASS_GRIDSELECTION(51)
Called from FWBROWSEADO(28)
Called from (b)BROWSEADO(170)
Called from (b)RUNMODULE(105)

Aff....
fivewin está alterando os codeblocks, como isso é possível?

[JoséQuintas]

Sei não....

Já vi isso acontecer com minigui também.

Posso ter descoberto um bug grave no harbour, mesmo que tenha sido causado por algum CH de fivewin/minigui.

[JoséQuintas]

Após resolver o comportamento indesejado do harbour... tudo certo.
Pra mim considero bug, mas disseram que é comportamento normal.