topic-33154

Posts: 400

Joined: Fri May 11, 2007 08:20 PM

colores por default del xbrowse
Posted: Mon Nov 07, 2016 02:53 PM

Hola foro:

Cada vez que el xbrowse pierde el foco me aparece una linea de color negro en el browse

:bClrSel := { || { <nForeColor>, <nBackColor> } } puedo solucionar eso
pero quiero saber que funcion me devuelve los valores por default de una ventana window.?

fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql

joseluisysturiz

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: colores por default del xbrowse
Posted: Mon Nov 07, 2016 03:29 PM

Prueba esto, creo es el para el color cuando no tiene el focus, es tipo cebra...saludos...

Code (fw): Select all Collapse

      :bClrStd = {|| IF( oBrw:KeyNo()%2==0, { CLR_BLACK, RGB(198, 255, 198) } , { CLR_BLACK, RGB(232, 255, 232) } ) } // STANDAR

      :bClrSelFocus = {|| { CLR_WHITE, RGB(0, 128, 128) } } // CUANDO TIENE EL FOCUS

      :bClrSel = {|| { CLR_WHITE, RGB(51, 102, 204) } } // REGISTRO SELECCIONADO

Dios no está muerto...

Gracias a mi Dios ante todo!

AngelSalom

Posts: 728

Joined: Fri Oct 07, 2005 07:38 AM

Re: colores por default del xbrowse
Posted: Mon Nov 07, 2016 04:04 PM

Para obtener los colores del sistema :

Code (fw): Select all Collapse

#define COLOR_SCROLLBAR         0
#define COLOR_BACKGROUND        1
#define COLOR_ACTIVECAPTION     2
#define COLOR_INACTIVECAPTION   3
#define COLOR_MENU              4
#define COLOR_WINDOW            5
#define COLOR_WINDOWFRAME       6
#define COLOR_MENUTEXT          7
#define COLOR_WINDOWTEXT        8
#define COLOR_CAPTIONTEXT       9
#define COLOR_ACTIVEBORDER      10
#define COLOR_INACTIVEBORDER    11
#define COLOR_APPWORKSPACE      12
#define COLOR_HIGHLIGHT         13
#define COLOR_HIGHLIGHTTEXT     14
#define COLOR_BTNFACE           15
#define COLOR_BTNSHADOW         16
#define COLOR_GRAYTEXT          17
#define COLOR_BTNTEXT           18
#define COLOR_INACTIVECAPTIONTEXT 19
#define COLOR_BTNHIGHLIGHT      20

GetSysColor( COLOR_WINDOW )

Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4

artu01

Posts: 400

Joined: Fri May 11, 2007 08:20 PM

Re: colores por default del xbrowse
Posted: Mon Nov 07, 2016 06:50 PM

Gracias gente!
asi me funciono:

Code (fw): Select all Collapse

oBrwDet:bClrSel := {|| {  CLR_WHITE, GetSysColor(13 ) } }

fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql

FiveTech Support Forums

Continue the discussion