FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour problema de pintado del xBrowse
MOISES
Posts: 838
Joined: Wed Aug 22, 2007 10:09 AM
problema de pintado del xBrowse
Posted: Fri May 22, 2020 07:20 AM
Hola:

Hay un problema de pintado. No pinta toda la anchura de una vez, sino que primero pinta el xBrowse hasta mitad de la pantalla, y luego lo ensancha. El efecto es bastante feo, pues parece que la app va a trompicones.

Aquí pongo un ejemplo:

Code (fw): Select all Collapse
#include "fivewin.ch"
#include "xbrowse.ch"



function main()

local oWnd
local oGrid
local oBtn, oGet1, oGet2




   USE C:\FWH\SAMPLES\CUSTOMER ALIAS "BASE" NEW

   DEFINE WINDOW oWnd
   oWnd:nHeight := ScreenHeight()

 

   @ 10, 151 XBROWSE oGrid ;
      SIZE -1, -1 PIXEL ;
      OF oWnd ;
      DATASOURCE "BASE" ;
      AUTOSORT ;
      AUTOCOLS ;
      CELL LINES NOBORDER





    oGrid:CreateFromCode()


     @ 10, 10 BUTTON oBtn PROMPT "Filtro" OF oPanel ;
              SIZE 80, 20 PIXEL                   ;
              ACTION ( alert(oGrid:Refresh()) )


ACTIVATE WINDOW oWnd MAXIMIZED


Return nil


Muchas gracias.
Saludos / Regards,



FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
Cgallegoa
Posts: 514
Joined: Sun Oct 16, 2005 03:32 AM
Re: problema de pintado del xBrowse
Posted: Fri May 22, 2020 09:30 PM
Moises, así pinta bien:

Code (fw): Select all Collapse
#include "fivewin.ch"
#include "xbrowse.ch"


function main()
local oWnd
local oGrid
local oBtn, oGet1, oGet2

   USE C:\FWH\SAMPLES\CUSTOMER ALIAS "BASE" NEW

   DEFINE WINDOW oWnd
   oWnd:nHeight := ScreenHeight()

ACTIVATE WINDOW oWnd MAXIMIZED ON INIT PintaBrw(oWnd)

Return nil
//**************************************************************************//

Function PintaBrw(oWnd)
LOCAL oGrid, oBtn
   @ 10, 151 XBROWSE oGrid ;
      SIZE -1, -1 PIXEL ;
      OF oWnd ;
      DATASOURCE "BASE" ;
      AUTOSORT ;
      AUTOCOLS ;
      CELL LINES NOBORDER

   oGrid:CreateFromCode()

   @ 10, 10 BUTTON oBtn PROMPT "Filtro" OF oWnd ;
            SIZE 80, 20 PIXEL                   ;
            ACTION ( alert(oGrid:Refresh()) )
Return(NIL)
//**************************************************************************//

Saludos,

Saludos,



Carlos Gallego



*** FWH-25.12, xHarbour 1.3.1 Build 20241008, Borland C++7.70, PellesC, ADS 11.1***

MOISES
Posts: 838
Joined: Wed Aug 22, 2007 10:09 AM
Re: problema de pintado del xBrowse
Posted: Mon May 25, 2020 09:07 AM

Muchas gracias Carlos.

Saludos / Regards,



FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
pacotre
Posts: 40
Joined: Fri Jan 10, 2014 10:38 AM
Re: problema de pintado del xBrowse
Posted: Fri May 29, 2020 01:05 PM

A vueltas con XBrowse.

Deseo que toda la linea que tiene el Focus aparezca con fondo azul, y no sólo la celda sobre la que está el cursor.

Lo he intentado con

oBrw:bClrSel := {|| { CLR_BLACK,fondo}}
oBrw:bClrSelFocus := {|| { CLR_BLACK,CRED}}
oBrw:bClrRowFocus := {|| { CLR_BLACK,letradialog}}

La única que responde a los cambios de color, y solo sobre la celda es oBrw:bClrSelFocus , las demás no hacen nada. Como puedo hacerlo?. Quiero que destaque toda la linea, como sí responde oBrw:bClrStd en función al contenido del registro.

Alguna solución?

Solucionado con oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW

Gracias

leandro
Posts: 1818
Joined: Wed Oct 26, 2005 02:49 PM
Re: problema de pintado del xBrowse
Posted: Fri May 29, 2020 02:19 PM
Intenta así
Code (fw): Select all Collapse
oBrw:nMarqueeStyle      := MARQSTYLE_HIGHLCELL
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) ]
jvtecheto
Posts: 607
Joined: Mon Mar 04, 2013 04:32 PM
Re: problema de pintado del xBrowse
Posted: Fri May 29, 2020 06:58 PM
pacotre wrote:A vueltas con XBrowse.

Deseo que toda la linea que tiene el Focus aparezca con fondo azul, y no sólo la celda sobre la que está el cursor.

Lo he intentado con

oBrw:bClrSel := {|| { CLR_BLACK,fondo}}
oBrw:bClrSelFocus := {|| { CLR_BLACK,CRED}}
oBrw:bClrRowFocus := {|| { CLR_BLACK,letradialog}}

La única que responde a los cambios de color, y solo sobre la celda es oBrw:bClrSelFocus , las demás no hacen nada. Como puedo hacerlo?. Quiero que destaque toda la linea, como sí responde oBrw:bClrStd en función al contenido del registro.

Alguna solución?

Solucionado con oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW

Gracias


Hostias Pacotre, has preguntado y solucionado en el mismo post. No lo habia visto en mi vida. :-)

Perdon por el off-topic.

Saludos.

Jose.
Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64
pacotre
Posts: 40
Joined: Fri Jan 10, 2014 10:38 AM
Re: problema de pintado del xBrowse
Posted: Sat May 30, 2020 06:42 AM

para no meter otro edité el primero una hora después. :D :D :D y así evitar molestias de responde a algo ya resuelto.

:D:D:D

nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: problema de pintado del xBrowse
Posted: Mon Jun 01, 2020 02:59 AM
MOISES wrote:Hola:

Hay un problema de pintado. No pinta toda la anchura de una vez, sino que primero pinta el xBrowse hasta mitad de la pantalla, y luego lo ensancha. El efecto es bastante feo, pues parece que la app va a trompicones.

Aquí pongo un ejemplo:

Code (fw): Select all Collapse
#include "fivewin.ch"
#include "xbrowse.ch"



function main()

local oWnd
local oGrid
local oBtn, oGet1, oGet2




   USE C:\FWH\SAMPLES\CUSTOMER ALIAS "BASE" NEW

   DEFINE WINDOW oWnd
   oWnd:nHeight := ScreenHeight()

 

   @ 10, 151 XBROWSE oGrid ;
      SIZE -1, -1 PIXEL ;
      OF oWnd ;
      DATASOURCE "BASE" ;
      AUTOSORT ;
      AUTOCOLS ;
      CELL LINES NOBORDER





    oGrid:CreateFromCode()


     @ 10, 10 BUTTON oBtn PROMPT "Filtro" OF oPanel ;
              SIZE 80, 20 PIXEL                   ;
              ACTION ( alert(oGrid:Refresh()) )


ACTIVATE WINDOW oWnd MAXIMIZED


Return nil


Muchas gracias.


After
Code (fw): Select all Collapse
  DEFINE WINDOW oWnd
   oWnd: nHeight : = ScreenHeight ( )


Add the line
Code (fw): Select all Collapse
oWnd:nWidth := ScreenWidth()
Regards



G. N. Rao.

Hyderabad, India
MOISES
Posts: 838
Joined: Wed Aug 22, 2007 10:09 AM
Re: problema de pintado del xBrowse
Posted: Tue Jun 02, 2020 08:11 AM

With the change, the painting problem is transferred to the bottom of the xBrowse.

Saludos / Regards,



FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40

Continue the discussion

Static archive · New replies & topics via GitHub Discussions