Xbrowse Browsing Information Orbital Change Color

richard-service

Posts: 866

Joined: Tue Oct 16, 2007 08:57 AM

Xbrowse Browsing Information Orbital Change Color
Posted: Wed Jul 20, 2022 10:23 AM

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

Best Regards,

Richard

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Xbrowse Browsing Information Orbital Change Color
Posted: Wed Jul 20, 2022 03:07 PM

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 (fw): Select all Collapse

oBrw:lContrastClr := .F.

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

Regards

G. N. Rao.

Hyderabad, India

richard-service

Posts: 866

Joined: Tue Oct 16, 2007 08:57 AM

Re: Xbrowse Browsing Information Orbital Change Color
Posted: Thu Jul 21, 2022 01:52 AM

nageswaragunupudi wrote: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 (fw): Select all Collapse
oBrw:lContrastClr := .F.
4) If the problem still persists, please let us see your codeblocks: bClrStd, bClrSelFocus

Dear Rao,

I add

Code (fw): Select all Collapse

oBrw:lContrastClr := .F.

Still got problem.

Look my codeblocks: bClrStd, bClrSelFocus below:

Code (fw): Select all Collapse

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}}

Best Regards,

Richard

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Xbrowse Browsing Information Orbital Change Color
Posted: Thu Jul 21, 2022 03:29 PM

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

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

Regards

G. N. Rao.

Hyderabad, India

richard-service

Posts: 866

Joined: Tue Oct 16, 2007 08:57 AM

Re: Xbrowse Browsing Information Orbital Change Color
Posted: Fri Jul 22, 2022 12:39 AM

nageswaragunupudi wrote: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 (fw): Select all Collapse

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

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

Best Regards,

Richard

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit

richard-service

Posts: 866

Joined: Tue Oct 16, 2007 08:57 AM

Re: Xbrowse Browsing Information Orbital Change Color
Posted: Fri Jul 22, 2022 04:24 PM

Dear Rao,

Look it. You will be know it.

Best Regards,

Richard

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit

richard-service

Posts: 866

Joined: Tue Oct 16, 2007 08:57 AM

Re: Xbrowse Browsing Information Orbital Change Color
Posted: Sun Sep 04, 2022 03:31 AM

Dear Mr.Rao

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

Not solved!

Best Regards,

Richard

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit

richard-service

Posts: 866

Joined: Tue Oct 16, 2007 08:57 AM

Re: Xbrowse Browsing Information Orbital Change Color
Posted: Wed Sep 07, 2022 07:00 AM

Dear Rao, Antonio

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

Best Regards,

Richard

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit

richard-service

Posts: 866

Joined: Tue Oct 16, 2007 08:57 AM

Re: Xbrowse Browsing Information Orbital Change Color
Posted: Thu Sep 22, 2022 06:13 PM

Dear Antonio, Rao

Any news for it?

Best Regards,

Richard

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Xbrowse Browsing Information Orbital Change Color
Posted: Sat Sep 24, 2022 03:36 AM

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 (fw): Select all Collapse

#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.

Regards

G. N. Rao.

Hyderabad, India

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Xbrowse Browsing Information Orbital Change Color
Posted: Sun Sep 25, 2022 11:46 AM

Gradients:

Code (fw): Select all Collapse

#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.

Regards

G. N. Rao.

Hyderabad, India

richard-service

Posts: 866

Joined: Tue Oct 16, 2007 08:57 AM

Re: Xbrowse Browsing Information Orbital Change Color
Posted: Mon Sep 26, 2022 02:15 AM

nageswaragunupudi wrote:Gradients:

Code (fw): Select all Collapse

#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.

Best Regards,

Richard

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Xbrowse Browsing Information Orbital Change Color
Posted: Mon Sep 26, 2022 03:21 AM

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

Regards

G. N. Rao.

Hyderabad, India

richard-service

Posts: 866

Joined: Tue Oct 16, 2007 08:57 AM

Re: Xbrowse Browsing Information Orbital Change Color
Posted: Mon Sep 26, 2022 03:35 AM

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

Yes, I add it and not work.

Best Regards,

Richard

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit

FiveTech Support Forums

Continue the discussion