xBrowse color (Solved)

xBrowse color (Solved)

Postby ctoas » Wed Jan 13, 2021 8:59 pm

Good afternoon.

How to set the xBrowse cell / line color when it is out of focus?

Thanks
Last edited by ctoas on Thu Jan 14, 2021 5:47 pm, edited 1 time in total.
Christiano Augusto Silveira
christiano.silveira@gmail.com

MaxxTech Soluções em TI
http://www.maxxtech.com.br
User avatar
ctoas
 
Posts: 115
Joined: Wed Oct 26, 2005 2:38 pm
Location: São Paulo - Brasil

Re: xBrowse color

Postby FranciscoA » Wed Jan 13, 2021 11:41 pm

bClrSel,; // default color pair for selected row
bClrSelFocus,; // default color pair for selected row when control has focus
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh-MySql-TMySql
User avatar
FranciscoA
 
Posts: 2159
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: xBrowse color

Postby FranciscoA » Wed Jan 13, 2021 11:43 pm

Code: Select all  Expand view  RUN
local aGradBarSel:= { { 1, RGB(252,252,195)   , RGB(248,195, 134) } }
local aGradRowSel:= {{1, RGB(108,125, 184), RGB(241,222,088)}}

WITH OBJECT oBrw
      :bClrSel          := {|| { nRGB(  0,  0,  0), aGradRowSel } }  // para barra de linea selecc cuando el control no tiene el foco
      :bClrSelFocus    := { || { CLR_BLACK, aGradBarSel } }     // para barra de linea selecc cuando el control tiene el foco
 END
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh-MySql-TMySql
User avatar
FranciscoA
 
Posts: 2159
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: xBrowse color

Postby ctoas » Thu Jan 14, 2021 12:56 am

Hello Francisco.

Mine is already like this, the question I want to solve is when it loses focus.

See the images.

with focus
Image

without focus
Image
Christiano Augusto Silveira
christiano.silveira@gmail.com

MaxxTech Soluções em TI
http://www.maxxtech.com.br
User avatar
ctoas
 
Posts: 115
Joined: Wed Oct 26, 2005 2:38 pm
Location: São Paulo - Brasil

Re: xBrowse color

Postby Otto » Thu Jan 14, 2021 5:24 am

Hello Christiano,
I like your design.
Best regards,
Otto
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
User avatar
Otto
 
Posts: 6343
Joined: Fri Oct 07, 2005 7:07 pm

Re: xBrowse color

Postby ctoas » Thu Jan 14, 2021 4:27 pm

Thanks Otto

See the full image for viewing

Image
Christiano Augusto Silveira
christiano.silveira@gmail.com

MaxxTech Soluções em TI
http://www.maxxtech.com.br
User avatar
ctoas
 
Posts: 115
Joined: Wed Oct 26, 2005 2:38 pm
Location: São Paulo - Brasil

Re: xBrowse color

Postby nageswaragunupudi » Thu Jan 14, 2021 4:59 pm

I am not sure what exactly you are looking for.
Is this what you want?
Code: Select all  Expand view  RUN
oBrw:bClrStd    := { || { CLR_BLACK, If( GetFocus() == oBrw:hWnd, CLR_WHITE, CLR_HGRAY ) } }
 
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10648
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: xBrowse color

Postby ctoas » Thu Jan 14, 2021 5:31 pm

Nages, the idea is this, but it would be in the color of the cell. He had already tried it, but without success.

Thanks
Christiano Augusto Silveira
christiano.silveira@gmail.com

MaxxTech Soluções em TI
http://www.maxxtech.com.br
User avatar
ctoas
 
Posts: 115
Joined: Wed Oct 26, 2005 2:38 pm
Location: São Paulo - Brasil

Re: xBrowse color

Postby ctoas » Thu Jan 14, 2021 5:46 pm

Question resolved!

The answer was in my face and I didn't see ...

Thank you all!

Code: Select all  Expand view  RUN
oBrw:bClrSel := {||{nRGB(255,255,255), nRGB(060,072,251)}}
Christiano Augusto Silveira
christiano.silveira@gmail.com

MaxxTech Soluções em TI
http://www.maxxtech.com.br
User avatar
ctoas
 
Posts: 115
Joined: Wed Oct 26, 2005 2:38 pm
Location: São Paulo - Brasil


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Surasak and 63 guests