"PROBLEMILLA" CON TCBROWSE FWH

[pacotre]

Con la nueva versión de FWH empecé a ver de vez en cuando que al seleccionar una columna para cambiar el índice activo, la cabecera con los títulos de columnas eran tapadas por los datos del registro que supuestamente ocupan ese lugar.
No lo relacionaba más que con un error mío en la posición de los datos y /o refresh() del listbox, pero, no. He descubierto que con esta nueva versión, si pulsas y mantienes el botón izquierdo, puedes arrastrar (cursor hand) parte del listbox. y si lo haces sobre una cabecera, ésta es ocupada por un registro. Así si al seleccionar un índice tardas un pelín más de la cuenta en soltar se reproduce este "error". Es fácil recuperarlo seleccionando cualquier registro, pero es un efecto muy feo.

Quiero deshabilitar esta opción y que lo haga como en versiones antiguas de FiveWin, donde ese "arrastre" no se producía.
Alguien sabe como hacerlo?
Gracias

[nageswaragunupudi]

We will investigate this and get back to you.
-------------------------------------------------

At the same time, we would like to inform you that we did not modify twbrowse or tcbrowse in the last many years.

May we also know which older version of FWH are you referring to?

[pacotre]

2.3

No obstante, la cuestión no es que sea versión nueva o vieja. La cuestion es que no deseo que exista ese arrastre con botón izquierdo, ya que al ser el que se utiliza para cambiar de índice en el browse se produce el efecto indeseado de que los datos tapen los títulos.

Gracias

[pacotre]

En este primer gráfico se ven perfectamente las cabeceras:


En este otro, una vez arrastrado con botón izquierdo se aprecia como los datos suben y tapan esas cabeceras

[karinha]

Como haces, asi? By: kapiabafwh@gmail.com

Code: Select all

#include "FiveWin.Ch"
#include "TCBrowse.ch"

MEMVAR cPesq
STATIC oWnd

FUNCTION TCBCADET( oDbf )

   LOCAL oBrw, nI, aTestData, uVar, oBtn, oFont, oFnt, oIco
   LOCAL oWnd, oDlg, oBar, oMsg, oBrush, oBmpBrush
   LOCAL cName := "Testando...", oSay
   LOCAL nLinhaDialog   := 5    // Linha Que Come‡a a Dialog
   LOCAL nColunaDialog  := 5    // Coluna Que Come‡a a Dialog
   LOCAL nAlturaDialog  := 390  // Altura da Dialog
   LOCAL nLarguraDialog := 745  // Largura da Dialog
   LOCAL nLinhaBrowse   := 38   // Linha que Come‡a a Browse
   LOCAL nColunaBrowse  := 10   // Coluna que Come‡a a Browse
   LOCAL cTitle         := "Browse Para Pesquisa " + ;
                           "Incremental dos Clientes!"

   LOCAL acIndices := {}
   LOCAL cIndice   := ""

   PUBLIC cPesq

   cPesq := ""

   IF NetUse( "CADETIQ", .T. )
      OrdListAdd( "CADETIQ", "RAZ_MATRIC", "DEST_NOME", "END" )
      DATABASE oDbf
      oDbf:Load()
      oDbf:SetBuffer( .T. ) // Assim, .T. a Op‡Æo (Cancelar) Funciona.
      acIndices := GetIndices()
      cIndice   := acIndices[ 2 ]
   ELSE
      MsgStop( "Banco de Dados Bloqueado", "Cuidado!" )
      RETURN NIL
   ENDIF

   SET ORDER TO 2

   DBGOTOP()

   DEFINE FONT oFnt  NAME "Arial" SIZE 0, 14 BOLD
   DEFINE FONT oFont NAME "Arial" SIZE 0, 15 BOLD

   DEFINE ICON OICO FILE ".\BRASIL__.BMP"

   DEFINE BITMAP oBmpBrush FILE "MARMORE.BMP"

   DEFINE DIALOG oDlg FROM nLinhaDialog, nColunaDialog ;
      TO nAlturaDialog, nLarguraDialog OF oWnd         ;
      TITLE cTitle                                     ;
      PIXEL                                            ;
      FONT oFnt                                        ;
      ICON oIco                                        ;
      STYLE nOR( DS_MODALFRAME )

   oDlg:lHelpIcon := .F.

   @ nLinhaBrowse, nColunaBrowse COLUMN BROWSE oBrw  OF oDlg ;
      SIZE 350, 135                                      ; // On Left
      ON LEFT DBLCLICK Cadetiq( oDbf )                   ;
      MESSAGE "Digite Nome Para Fazer a Pesquisa"        ;
      Alias ( oDbf:cAlias )                              ;
      COLOR CLR_BLACK, CLR_HGRAY                         ;
      PIXEL

   oBrw:bLDblClick := { || Cadetiq( oDbf ), oBrw, oSay }

   oBrw:bKeyChar = { | nKey, nFlags |             ;
      If( nKey # 13,             ;
          ( oBrw:Refresh(),      ;
            oBrw:SetFocus(),     ;
            oBrw:DrawSelect() ), ;
            Cadetiq( oDbf ) ), oBrw, oSay }

   obrw:bKeyDown := { | nKey, nFlags | Incremental( nKey, ;
      ( oDbf:cAlias ), oBrw, oSay ) }

   oBrw:nColOrder  := 20
   oBrw:cOrderType := "C"
   oBrw:cSeek      := ""

   oBrw:nClrBackHead := CLR_LGREEN
   oBrw:nClrForeHead := CLR_HRED
   oBrw:aJustify     := { .F. , .F. }

   oBrw:lLogicDrop := .T.
   oBrw:lNoHScroll := .F.
   oBrw:nAdjColumn :=  3
   oBrw:nFreeze    :=  1
   oBrw:lMChange   := .F.

   ADD COLUMN TO BROWSE oBrw      ;   // O Browse
      DATA Recno()               ;   // array element number
      SIZE 60                    ;   // Tamanho da Fonte/DimensÆo
      NOBAR                      ;   // Sem barra luminosa(Cursor)
      CENTER                     ;   // Centraliza
      COLOR CLR_BLACK, CLR_HGRAY ;   // As Cores
      HEADER OemToAnsi( "Registro" ) // O Cabe‡alho...

   ADD COLUMN TO BROWSE oBrw            ;
      DATA ( oDbf:cAlias )->Raz_Matric ;
      HEADER OemToAnsi( "Matr¡cula " ) ;
      SIZE 100 PICTURE "99999"         ;
      COLOR CLR_BLACK, CLR_HRED        ;
      CENTER                           ;

      ADD TO BROWSE oBrw                                     ;
      DATA PadR( Trim( ( oDbf:cAlias )->Dest_Nome ), 50 ) ;
      HEADER OemToAnsi( "Nome do Cliente" )              ;
      COLOR CLR_BLACK, CLR_HCYAN                         ;
      EDIT MESSAGE "Nome do Cliente no Banco de Dados"   ;
      SIZE 400 PICTURE "@S50"

   ADD COLUMN TO oBrw                            ;
      DATA ( oDbf:cAlias )->End                 ;
      HEADER OemToAnsi( "Endere‡o do Cliente" ) ;
      COLOR CLR_BLACK, CLR_LGREEN               ;
      SIZE 400

   ADD COLUMN TO oBrw                          ;
      DATA ( oDbf:cAlias )->Bai               ;
      HEADER OemToAnsi( "Bairro do Cliente" ) ;
      COLOR CLR_BLACK, CLR_HRED               ;
      SIZE 200

   ADD COLUMN TO oBrw                      ;
      DATA ( oDbf:cAlias )->Cid           ;
      HEADER OemToAnsi( "Cidade/Estado" ) ;
      COLOR CLR_BLACK, CLR_HGREEN         ;
      SIZE 200

   ADD COLUMN TO oBrw                      ;
      DATA ( oDbf:cAlias )->Cep           ;
      HEADER OemToAnsi( "C¢digo Postal" ) ;
      COLOR CLR_BLACK, CLR_HGREEN         ;
      SIZE 200

   @ 03.2, 1 BUTTON "&Saida" OF oDlg     ;
      SIZE 30, 12 ACTION oDlg:End() ;
      MESSAGE "Sair do Programa"   ;
      PIXEL

   @ 17.2, 1 BUTTON "&Editar" OF oDlg  ;
      SIZE 30, 12                 ;
      ACTION Cadetiq( oDbf )     ;
      MESSAGE "Editar os Clientes Para Modificar" ;
      PIXEL

   @ 0.2, 50 SAY "Digite Letras Iniciais Para Pesquisa " + ;
      "Incremental do Nome Com No "           + ;
      "Maximo de 20 Digitos." + CRLF           + ;
      "<Click> Duplo Para Editar, <ESC> Para Abortar, " + ;
      "Use BackSpace Para Apagar Letras." ;
      OF oDlg SIZE 260, 15 ;
      FONT oFont          ;
      PIXEL               ;
      CENTER              ;
      COLOR CLR_CHOCOLATE, CLR_YELLOW

   @ 20, 50 SAY "Digite Nome: " Size 100, 08 OF oDlg ;
      PIXEL                                   ;
      FONT oFont                              ;
      COLOR CLR_HBLUE, CLR_CHOCOLATE

   @ 20, 112 SAY oSay PROMPT cPesq Size 100, 08 OF oDlg ;
      PIXEL                                     ;
      COLOR CLR_HRED, CLR_VERDEAGUA             ;
      CENTERED

   @ 20, 212 SAY OemToAnsi( "  Suporta No M ximo 20 D¡gitos." ) ;
      OF oDlg SIZE 100, 08 ;
      FONT oFont          ;
      PIXEL               ;
      CENTER              ;
      COLOR CLR_RED, CLR_CHOCOLATE

   oBrw:bChange := {|| cPesq := "" , oSay:Refresh() }

   oBrw:ResetBarPos()
   oBrw:DrawSelect() // showit

   SET FONT OF oBrw TO oFont // ListBox
   SET FONT OF oDlg TO oFnt  // Dialog

   ACTIVATE DIALOG oDlg CENTERED ;
      ON PAINT MEUBRUSH( oDlg, oBmpBrush )

   DbCloseAll()

   oFont:End()
   oFnt :End()

   RELEASE BITMAP oBmpBrush

RETURN nil

FUNCTION Incremental( nKey, Alias, oBrw, oSay, oLbx )

   LOCAL nOldPos := ( Alias )->( Recno() )

   IF nKey = VK_ESCAPE

      oBrw:oWnd:End()

   ENDIF

   IF nKey == VK_BACK

      IF Len( cPesq ) > 0
         cPesq := Left( cPesq, Len( cPesq ) - 1 )
      ELSE
         Tone( 500, 1 )
         RETURN( .F. )
      ENDIF

   ENDIF
   IF ( nKey >= 32 .AND. nKey <= 255 ) .OR. ;
         nKey = VK_BACK

      IF nKey != VK_BACK

         cPesq += UPPER( Chr( nKey ) )

      ENDIF

      IF !( Alias )->( DbSeek( cPesq ) )

         cPesq := Left( cPesq, Len( cPesq ) - 1 )

         MsgStop( "Atenção: Esta Combinação de Letras" + CRLF + ;
                  "Não Existe, Tente Outra." )

         DbGoto( nOldPos )
         Tone( 500, 1 )
         oBrw:Refresh()
         RETURN( .F. )

      ENDIF

      oBrw:Refresh()

   ENDIF

   IF oSay != Nil

      oSay:cTitle( cPesq ) // Mostra o que foi digitado

   ENDIF

RETURN( .T. )

// FIM DO PROGRAMA
 

Saludos.

[pacotre]

REDEFINE LISTBOX OBRW ;
FIELDS ;
COMPANIA,CODIGO,CIF ID 4003 ;
HEADERS "NOMBRE", "CGO","C.I.F" ;
ON CHANGE(COGE_COMPANIA(),REFRESCA_COMPANIA(),capturalogo(odl,ologo,"COMPANIA")) ;
ON RIGHT CLICK (MENUCIA(NROW,NCOL,obRW,"COMPANIA",OLOGO)) ;
OF odl FONT OFONT10 COLOR LETRAS,FONDO
OBRW:BKEYDOWN:={ | NKEY | IF(NKEY#13, ;
(BUSCA_TIPO("COMPANIA", NKEY, OBRW),COGE_COMPANIA(),REFRESCA_COMPANIA(),CAPTURALOGO(odl,oLOGO,"COMPANIA"),osayc:Refresh()),) }

Este es el código que tenía antes con la versión 2.3 y el mismo que tengo ahora con la última versión FWH. En la 2.3 la opción de arrastrar con botón izquierdo no se ejecutaba y ahora sí.

[nageswaragunupudi]

Mr. Karinha

For providing a solution to Mr. Pacotre, we first need to reproduce the problem pointed out by him.
For this purpose, such a very long program is not necessary.

The following two-line program is enough.

Code: Select all

#include "fivewin.ch"
function Main()
   USE CUSTOMER
   BROWSE()
return nil

This is the problem.

[nageswaragunupudi]

Mr Pacotre

Thanks for pointing out this problem.

FWH introduced Kinetic scrolling to TWBrowse in August 2009. TCBrowse is derived from TWBrowse and so, this applies to TCBrowse also.

This problem is because of a bug in the implementation of kinetic scrolling. This existed from that time itself, but was never noticed by us and reported.

Our advice to you is to include this line of code in the top of the Main() function of your program:

Code: Select all

   TWBrowse():lKinetic := .f.
 

With this, the kinietic scrolling is disabled and your program functions like before.
You will not see this problem in your application.

[pacotre]

Exactamente, ese es el problema. Como se puede resolver?

[pacotre]

TWBrowse():lKinetic := .f.

Ok. Lo probaré.

Gracias a todos.

[pacotre]

Perfecto!!!! el fallo ha desaparecido.

Muchísimas gracias por vuestra atención.

[pacotre]

Buenas tardes:

Por aquí ando otra vez incordiando.

Necesito ayuda.
Estoy trabajando con XBROWSE, y necesito saber como puedo guardar la última configuración para que la próxima vez que arranque lo haga de la misma forma. Las columnas que he movido, las que he quitado, etc. que permanezcan tal como las dejo.

Como puedo hacerlo?

Gracias

[nageswaragunupudi]

Buenas tardes:

Por aquí ando otra vez incordiando.

Necesito ayuda.
Estoy trabajando con XBROWSE, y necesito saber como puedo guardar la última configuración para que la próxima vez que arranque lo haga de la misma forma. Las columnas que he movido, las que he quitado, etc. que permanezcan tal como las dejo.

Como puedo hacerlo?

Gracias

Code: Select all

cState := oBrw:SaveState()
 

Save cState in any text file

Next time after creating browse

Code: Select all

oBrw:RestoreState( cState )
 

[pacotre]

Muchas gracias:
Ya me has alegrado el dia

[pacotre]

Otra duda:
Hay forma de condicionar con xbrowse las columnas?.
Me explico. Hasta ahora lo que he visto es que me muestra todos _ completos con uData. He visto que puedo cambiar las cabeceras de columnas con Header.
Necesito indicarle, como lo hacía con Listbox, que un determinado campo me lo muestre en dos columnas distintas:
LEFT(Field1,10) y RIGHT(Field1,10) como si fueran _,y en otros que solo muestre los primeros 25 caracteres, LEFT(Field2,25), etc.

Esto no sé hacerlo con xBrowse. Como puedo condicionar los datos a mostrar en el Browse?.

Teneis que disculparme, pero me he pasado directamente de la prehistoria de FW con la V 2.3 a ésta nueva y me he perdido mucho en el camino.