Xbrowse Browsing Information Orbital Change Color

[richard-service]

Dear Antonio,

FWH 32bit and 64bit XBrowse data box or line color some change look gif

FWH Old version - no problem


FWH New version - problem

[nageswaragunupudi]

1) We did not make any changes to the painting logic for a long time.
2) May we know which old version are you comparing with?
3) Anyway, please add this setting and see if the problem is fixed:

Code: Select all  Expand view  RUN

oBrw:lContrastClr := .F.

4) If the problem still persists, please let us see your codeblocks: bClrStd, bClrSelFocus

[richard-service]

1) We did not make any changes to the painting logic for a long time.
2) May we know which old version are you comparing with?
3) Anyway, please add this setting and see if the problem is fixed:

Code: Select all  Expand view  RUN

oBrw:lContrastClr := .F.

4) If the problem still persists, please let us see your codeblocks: bClrStd, bClrSelFocus

Dear Rao,

I add

Code: Select all  Expand view  RUN

oBrw:lContrastClr := .F.

Still got problem.

Look my codeblocks: bClrStd, bClrSelFocus below:

Code: Select all  Expand view  RUN

oListBox:bClrStd = {||If(oListBox:KeyNo() % 2 == 0, ;
                            {If((oListBox:cAlias )->(Deleted()),CLR_HRED,CLR_BLACK),mLGREEN0},;
                            {If((oListBox:cAlias )->(Deleted()),CLR_HRED,CLR_BLACK),mLGRAY})}
 
       aSelGrad2:={{.5,RGB(255,255,251),RGB(255,237,178)},{.5,RGB(255,218,103),RGB(255,233,162)}}
   
       :bClrSelFocus     := { || {RGB(187,0,0),aSelGrad2}}
 

[nageswaragunupudi]

1. What is the old version working correctly?
2. Please give values of mLGREEN0 and mLGRAY

I propose to build browse with the same settings and test with both versions.

[richard-service]

1. What is the old version working correctly?
2. Please give values of mLGREEN0 and mLGRAY

I propose to build browse with the same settings and test with both versions.

Dear Rao,

FWH64_1712 and FWH64_2206 Both versions same settings
FWH32_2101 and FWH32_2206 Both versions same settings

Code: Select all  Expand view  RUN

mLGREEN0:=nRGB(251,242,225)
   mGRAY   :=nRGB(233,233,233)

oListBox:nMarqueeStyle   := MARQSTYLE_HIGHLROWRC
oListBox:nColDividerStyle:= LINESTYLE_LIGHTGRAY
oListBox:nRowDividerStyle:= LINESTYLE_LIGHTGRAY
 

[richard-service]

Dear Rao,

Look it. You will be know it.

[richard-service]

Dear Mr.Rao

Visit your post below:
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=42124&sid=4600ce7db796ff53ee25efc9d13be187

Not solved!

[richard-service]

Dear Rao, Antonio

FWH 32bit and 64bit same problem.
Any solution for it?

[richard-service]

Dear Antonio, Rao

Any news for it?

[nageswaragunupudi]

In our tests here we did not experience this issue on any browse either with FWH2101 or the latest version.

This is a small test.

Code: Select all  Expand view  RUN

#include "fivewin.ch"

REQUEST DBFCDX

function Main()

   USE CUSTOMER NEW VIA "DBFCDX"
   XBROWSER ALIAS() COLUMNS "STATE", "CITY", "AGE" ;
      TITLE FWVERSION SHOW RECID ;
      SETUP ( oBrw:lVThumbTrack := .t. )

return nil
 

This GIF is showing:
1. Scroll with UP and DOWN arrow keys
2. Scroll with PgUP and PgDn keys
3. Scroll with ThumbTrack on Vertical Scroll Bar.

[nageswaragunupudi]

Gradients:

Code: Select all  Expand view  RUN

#include "fivewin.ch"

REQUEST DBFCDX

function Main()

   local mlGreen0  := RGB(251,242,225)
   local mLGRAY    := RGB(233,233,233)
   local aSelGrad1 := {{.5,RGB(100,255,100),RGB(237,255,178)},{.5,RGB(218,255,103),RGB(096,255,096)}}
   local aSelGrad2 := {{.5,RGB(255,255,251),RGB(255,237,178)},{.5,RGB(255,218,103),RGB(255,233,162)}}
   local oFont

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-20
   USE CUSTOMER NEW VIA "DBFCDX"
   XBROWSER ALIAS() COLUMNS "STATE", "CITY", "ZIP", "AGE" ;
      TITLE FWVERSION SHOW RECID ;
      SETUP ( ;
         oBrw:SetFont( oFont ), ;
         oBrw:aCols[ 2 ]:nWidth := 150, ;
         oBrw:nMarqueeStyle   := MARQSTYLE_HIGHLROWRC, ;
         oBrw:bClrStd := {|b|If(b:KeyNo() % 2 == 0, ;
                         {If((b:cAlias )->(Deleted()),CLR_HRED,CLR_BLACK),mLGREEN0},;
                         {If((b:cAlias )->(Deleted()),CLR_HRED,CLR_BLACK),mLGRAY} ) }, ;
         oBrw:bClrSelFocus := { || {RGB(187,0,0),aSelGrad2}}, ;
         oBrw:bClrRowFocus := { || {CLR_BLACK, aSelGrad1 }} ;
      )
   RELEASE FONT oFont

return nil
 

Please expain what is wrong with this please.

[richard-service]

Gradients:

Code: Select all  Expand view  RUN

#include "fivewin.ch"

REQUEST DBFCDX

function Main()

   local mlGreen0  := RGB(251,242,225)
   local mLGRAY    := RGB(233,233,233)
   local aSelGrad1 := {{.5,RGB(100,255,100),RGB(237,255,178)},{.5,RGB(218,255,103),RGB(096,255,096)}}
   local aSelGrad2 := {{.5,RGB(255,255,251),RGB(255,237,178)},{.5,RGB(255,218,103),RGB(255,233,162)}}
   local oFont

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-20
   USE CUSTOMER NEW VIA "DBFCDX"
   XBROWSER ALIAS() COLUMNS "STATE", "CITY", "ZIP", "AGE" ;
      TITLE FWVERSION SHOW RECID ;
      SETUP ( ;
         oBrw:SetFont( oFont ), ;
         oBrw:aCols[ 2 ]:nWidth := 150, ;
         oBrw:nMarqueeStyle   := MARQSTYLE_HIGHLROWRC, ;
         oBrw:bClrStd := {|b|If(b:KeyNo() % 2 == 0, ;
                         {If((b:cAlias )->(Deleted()),CLR_HRED,CLR_BLACK),mLGREEN0},;
                         {If((b:cAlias )->(Deleted()),CLR_HRED,CLR_BLACK),mLGRAY} ) }, ;
         oBrw:bClrSelFocus := { || {RGB(187,0,0),aSelGrad2}}, ;
         oBrw:bClrRowFocus := { || {CLR_BLACK, aSelGrad1 }} ;
      )
   RELEASE FONT oFont

return nil
 

Please expain what is wrong with this please.

Dear Mr.Rao

I think the same code was fine before the new version.
Add this oBrw:lFullPaint := .t.
Can solve my problem. But it's very slow. Slow to customer complaints.
I didn't use this feature before the new version.
Your example is normal on the first timeline. When going down and up, the Green line appears.
As my standard is a black line. But a light blue line appears up and down. But it immediately turns into a black line.

[nageswaragunupudi]

Please apply the fix to imgtxtio.prg I suggested in the Spanish post.

[richard-service]

Please apply the fix to imgtxtio.prg I suggested in the Spanish post.

Yes, I add it and not work.