topic-42438

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Problema pintado xbrowse FWH2210 - SOLUCIONADO
Posted: Tue Nov 08, 2022 10:46 PM

Hola buenas tardes

Hicimos la actualización a la versión de fw2210, de momento no hemos notado muchos problemas, lo mas visible es un error de pintado con el xbrowse.

El problema es que en las líneas que están en blanco hacia abajo, las colorea con el color que tenga la ultima celda.

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Problema pintado xbrowse FWH2210
Posted: Wed Nov 09, 2022 12:52 PM

Exemplo para pruebas?

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

leandro

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Re: Problema pintado xbrowse FWH2210
Posted: Thu Nov 10, 2022 02:22 AM

Amigo gracias por responder

Code (fw): Select all Collapse

#include "fivewin.ch"
#include "xbrowse.ch"

function Main()

local oWnd, oBar, oBrw, oFont
Local aLlena := {}

DEFINE FONT oFont NAME 'TAHOMA' SIZE 0,-12
DEFINE WINDOW oWnd TITLE "Prueba xbrowse 2210"


    AAdd( aLlena, { "primera", "segunda", "tercera", "cuarta" } )
    AAdd( aLlena, { "quinta", "laseis", "septima", "octava" } )
    AAdd( aLlena, { "novena", "decima", "undécima", "doceava" } )

    SET MESSAGE OF oWnd TO "" 2007

    @ 0,0 XBROWSE oBrw OF oWnd               ;
    COLUMNS 1, 2, 3, 4                    ;
    HEADERS "uno","dos","tres","cuatro"   ;
    COLSIZES 100, 100, 100, 100           ;
    DATASOURCE aLlena LINES STYLE FLAT NOBORDER 

    WITH OBJECT oBrw
        :CreateFromCode()
    
        :l2007              := .F.
        :lFitGridHeight         := .T.  
        :nMarqueeStyle          := MARQSTYLE_HIGHLROW
        :lColDividerComplete    := .t.
        :nColorPen          := CLR_HGRAY
        :lFullGrid          := .T.
        :nStretchCol            := STRETCHCOL_LAST
        :bClrHeader         := { || { CLR_WHITE, CLR_WHITE, CLR_HGRAY } }
        
        :aCols[2]:oFooterFont := oFont
        :aCols[2]:bClrStd      = {|| {Rgb(55,55,55),if(aLlena[oBrw:nArrayAt][2]=="decima",nRGB(212,0,212),nRGB(212,212,212)) }  }
        :aCols[2]:bClrSelFocus = {|| {CLR_WHITE,nRGB(139,139,139) }  }          
        
    END

    oWnd:oClient := oBrw

ACTIVATE WINDOW oWnd

return nil

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Problema pintado xbrowse FWH2210
Posted: Thu Nov 10, 2022 01:26 PM

Leandro, aqui funciona bién con FWH1905. Tú ejemplo és perfecto. Gracias.

Code (fw): Select all Collapse

// C:\FWH..\SAMPLES\LEANDRO6.PRG

#include "fivewin.ch"
#include "xbrowse.ch"

FUNCTION Main()

   LOCAL oWnd, oBar, oBrw, oFont
   LOCAL aLlena := {}

   DEFINE FONT oFont NAME 'TAHOMA' SIZE 0, - 12

   DEFINE WINDOW oWnd TITLE "Prueba xbrowse 2210"

   AAdd( aLlena, { "primera", "segunda", "tercera", "cuarta" } )
   AAdd( aLlena, { "quinta", "laseis", "septima", "octava" } )
   AAdd( aLlena, { "novena", "decima", "undécima", "doceava" } )

   SET MESSAGE OF oWnd TO "" 2007

   @ 0, 0 XBROWSE oBrw OF oWnd               ;
      COLUMNS 1, 2, 3, 4                     ;
      HEADERS "uno", "dos", "tres", "cuatro" ;
      COLSIZES 100, 100, 100, 100            ;
      DATASOURCE aLlena LINES STYLE FLAT NOBORDER

   WITH OBJECT oBrw

      :l2007               := .F.
      :lFitGridHeight      := .T.
      :nMarqueeStyle       := MARQSTYLE_HIGHLROW
      :lColDividerComplete := .T.
      :nColorPen           := CLR_HGRAY
      :lFullGrid           := .T.
      :nStretchCol         := STRETCHCOL_LAST
      :bClrHeader          := {|| { CLR_WHITE, CLR_WHITE, CLR_HGRAY } }

      :aCols[ 2 ]:oFooterFont  := oFont

      // Ejemplo Leandro. Funciona bien con FWH1905...
      // :aCols[ 2 ]:bClrStd      := {|| { Rgb( 55, 55, 55 ), if( aLlena[ oBrw:nArrayAt ][ 2 ] == "decima", nRGB( 212, 0, 212 ), nRGB( 212, 212, 212 ) ) }  }

      // Asi, tambien funciona.
      :aCols[ 2 ]:bClrStd := { || { IF( aLlena[ oBrw:nArrayAt ][ 2 ] == "decima", CLR_GREEN, CLR_WHITE ), CLR_BLACK, CLR_GRAY } }

      :bClrHeader        := { || { CLR_GREEN, CLR_WHITE, CLR_WHITE } }

      :aCols[ 2 ]:bClrSelFocus := {|| { CLR_WHITE, nRGB( 139, 139, 139 ) }  }

      :CreateFromCode()

   END

   oWnd:oClient := oBrw

   ACTIVATE WINDOW oWnd

RETURN NIL

// FIN / END

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Problema pintado xbrowse FWH2210
Posted: Thu Nov 10, 2022 08:19 PM

Joao, creo que Leandro se refiere a que en la versión 21.05, no pintaba toda la columna, sólo hasta donde hay datos. En la versión actual pinta toda la columna, y dependiendo del valor que tenga esa columna en la última fila, el resto ( que ya está vacío ) lo pinta de ese mismo color, no del color de fondo del xbrowse

Que Leandro comente si estoy en lo cierto.

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Problema pintado xbrowse FWH2210
Posted: Thu Nov 10, 2022 08:36 PM

Estimado Leandro,

el Sr. Rao ya lo está revisando para ofrecer un nuevo build, cuanto antes, que lo corrija

Muchas gracias por el excelente feedback :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

leandro

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Re: Problema pintado xbrowse FWH2210
Posted: Thu Nov 10, 2022 10:17 PM

Gracias a todos por responder

Que Leandro comente si estoy en lo cierto.

Estas en lo cierto amigo :D

Vale Antonio, muchas gracias

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

leandro

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Re: Problema pintado xbrowse FWH2210
Posted: Wed Dec 14, 2022 12:27 AM

Antonio que pena molestar :oops:

Sabes si este problemilla ya fue corregido?

De antemano gracias

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Problema pintado xbrowse FWH2210
Posted: Wed Dec 14, 2022 09:00 AM

Estimado Leandro,

Lo acabo de probar y sigue fallando asi que me estoy poniendo en contacto con Rao para saber como va

Muchas gracias por el recordatorio :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Problema pintado xbrowse FWH2210
Posted: Wed Dec 14, 2022 10:27 AM

This is not an error. Quite a few users wanted that fullgrid browse should look like Excel and since Excel extends a column's color till bottom, fullgrid also extend the color till the bottom.
Considering their proposal, we made this change.

Different users have different tastes.
Now that we see you prefer the older look, we will make this feature optional from the next version.

For now, if you want to revert to the old look, please make a small change to xbrowse.prg

Method EraseData(...) CLASS TXBrwColumn.
At line 15327, you see:

Code (fw): Select all Collapse

   if hBrush == nil .or. ::oBrw:lFullGrid

Please change it as:

Code (fw): Select all Collapse

   if hBrush == nil    //.or. ::oBrw:lFullGrid

Regards

G. N. Rao.

Hyderabad, India

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Problema pintado xbrowse FWH2210
Posted: Wed Dec 14, 2022 03:12 PM

Creo que puede haber otra posibilidad utilizando las DATAS lColDividerComplete y lRowDividerComplete con valor .T., y lFullGrid a .F., haciendo estos pequeños cambios en el Method Paint de la clase XBrowse, así podremos seguir utilizando ambas posibilidades ( lFullGrid en .T. )

Code (fw): Select all Collapse

.../...
   if nColStyle > 0
      // CNL - 14/12/2022
      // if ::lColDividerComplete
      if ::lColDividerComplete .or. ::lFullGrid
         nHeight := nLastRow
      else
         nHeight := ( ::nRowHeight * ( nRowPos - 1 ) ) + nFirstRow
      endif

.../...

   if nRowStyle > 0
      nRow   := ::FirstRow() - 1
      // CNL -  14/12/2022
      // nTemp2 := if( ::lFullGrid, nMaxRows, ::nDataRows )
      nTemp2 := if( ::lFullGrid .or. ::lRowDividerComplete, nMaxRows, ::nDataRows )

.../...

Incluso ofrece la posibilidad de poder dibujar solo las lineas de division horizontales ( lColDividerComplete := .F. y lRowDividerComplete := .T., o solo las verticales )
Si alguien lo prueba y me confirma .....

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

leandro

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Re: Problema pintado xbrowse FWH2210
Posted: Wed Dec 14, 2022 10:01 PM

Amigo como vas?

Siguiendo tus instrucciones, agregue el prg al proyecto y compilo, pero cuando debe cargar el primer xbrowse, al inicio de la app, para seleccionar el usuario, sale el siguiente error:

Code (fw): Select all Collapse

Application
===========
   Path and name: C:\DLYMA\hymlyma.exe (32 bits)
   Size: 8,177,664 bytes
   Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20221118)
   FiveWin  version: FWH 22.10
   C compiler version: Borland/Embarcadero C++ 7.4 (32-bit)
   Windows 11 64 Bits, version: 6.2, Build 9200 

   Time from start: 0 hours 0 mins 1 secs 
   Error occurred at: 14/12/2022, 16:55:17
   Error description: Error BASE/1003  No existe la variable: BXBROWSE

Stack Calls
===========
   Called from: z:\prg\Xbrowse.prg => TXBROWS( 18060 )
   Called from: z:\prg\Xbrowse.prg => XBROWSENEW( 17583 )
   Called from: z:\prg\R32_menu.prg => MUESTRASESION( 1761 )
   Called from: z:\prg\R32_menu.prg => (b)INICIONUEVO( 1409 )
   Called from: .\source\internal\TDOCKPNEL.PRG => TDOCKPNEL:PAINTPNELH( 814 )
   Called from: .\source\internal\TDOCKPNEL.PRG => TDOCKPNEL:PAINTCTRLSPNELP( 739 )
   Called from: .\source\internal\TDOCKPNEL.PRG => (b)TDOCKPNEL:CREATEPNELP( 660 )
   Called from: .\source\classes\TPANEL.PRG => TPANEL:PAINT( 168 )
   Called from: .\source\classes\TPANEL.PRG => (b)TPANEL:TPANEL( 24 )
   Called from:  => TPANEL:DISPLAY( 0 )
   Called from: .\source\classes\CONTROL.PRG => TPANEL:HANDLEEVENT( 1823 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3689 )
   Called from:  => WEBVIEW_CREATE( 0 )
   Called from: .\source\classes\TWEBVIEW.PRG => (b)TWEBVIEW:TWEBVIEW( 21 )
   Called from:  => TWEBVIEW:NEW( 0 )
   Called from: z:\prg\R32_menu.prg => MUETRAINFOWEB( 1473 )
   Called from: z:\prg\R32_menu.prg => (b)INICIONUEVO( 1391 )
   Called from: .\source\internal\TDOCKPNEL.PRG => TDOCKPNEL:PAINTPNELH( 814 )
   Called from: .\source\internal\TDOCKPNEL.PRG => TDOCKPNEL:PAINTCTRLSPNELP( 739 )
   Called from: .\source\internal\TDOCKPNEL.PRG => (b)TDOCKPNEL:CREATEPNELP( 660 )
   Called from: .\source\classes\TPANEL.PRG => TPANEL:PAINT( 168 )
   Called from: .\source\classes\TPANEL.PRG => (b)TPANEL:TPANEL( 24 )
   Called from:  => TPANEL:DISPLAY( 0 )
   Called from: .\source\classes\CONTROL.PRG => TPANEL:HANDLEEVENT( 1823 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3689 )
   Called from:  => UPDATEWINDOW( 0 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1091 )
   Called from: z:\prg\R32_menu.prg => INICIONUEVO( 1414 )
   Called from: z:\prg\R32_menu.prg => MAIN( 107 )

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Problema pintado xbrowse FWH2210
Posted: Wed Dec 14, 2022 10:03 PM

Leandro, según parece es una variable de tu código, fijate en las llamadas de la pila

Called from: z:\prg\R32_menu.prg => MUESTRASESION( 1761 )
Called from: z:\prg\R32_menu.prg => (b)INICIONUEVO( 1409 )

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

leandro

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Re: Problema pintado xbrowse FWH2210
Posted: Mon Dec 19, 2022 03:08 PM

Gracias por responder amigo, pero no tengo nada en esa linea con esa variable, es mas busque en todos los prg y no tengo definida esa variable en ningun lado. Sin incluir ese xbrowse.prg, con la modificación que indicar carga bien la info, por que no creo que tenga nada que ver con nuestro código.

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

leandro

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Re: Problema pintado xbrowse FWH2210
Posted: Mon Dec 19, 2022 03:09 PM

Antonio, te puedo molestar con algo :oops:

Serias tan amable de incluir ese modificación en las libs y enviármelas. De antemano gracias.

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

FiveTech Support Forums