Search found 48 matches: btnface

Return to advanced search

Re: Perdida recurso en Preview

El problema viene del método Define() de la Clase TBitmap, que al derivar de TControl y al llamarse al método SetColor() desde él pues crea un brush. Lo primero a arreglar es quitar esta llamada en el método Detault() de la clase TBitmap: // ::SetColor( GetSysColor( COLOR_WINDOWTEXT ), GetSysColor( ...
by Antonio Linares
Tue Dec 16, 2014 6:31 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Perdida recurso en Preview
Replies: 18
Views: 3433

GET xHarbour 1.2.1 FW 11.07 Borland C++ 5.82

Con el siguiente código compilado con -xHarbour 1.2.1 FWHX 11.07 Borland C++ 5.82- no me salta de un GET al siguiente ni con <Intro> ni tampoco con <Tab>, solo accedo a escribir en los GET pinchando en él con el ratón. Si lo compilo con -xHarbour 0.99.61 FWXH 2.8 September 2006 Borland C...
by Julio Cepeda
Fri Feb 08, 2013 12:44 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: GET xHarbour 1.2.1 FW 11.07 Borland C++ 5.82
Replies: 3
Views: 819

Re: Color For Listbox

Thanks For Your Help ::nClrBackHead := GetSysColor( COLOR_BTNFACE ) ::nClrForeHead := GetSysColor( COLOR_BTNTEXT ) ::nClrBackFocus := GetSysColor( COLOR_HIGHLIGHT ) ::nClrForeFocus := GetSysColor( COLOR_HIGHLIGHTTEXT) // CeSoTech CLR_WHITE ::nClrFBack := ::nClrBackHead // by CeSoTech ::nClrFFore := ...
by acwoo1
Thu Mar 15, 2012 4:02 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: Color For Listbox
Replies: 12
Views: 3349

Re: new and important bug in FW 11.11

Antonio, Thanks. It works now. Also, it´s pending the other bug in clause NO MODIFY. In method initiate() you could also comment out SetColor( GetSysColor(COLOR_GRAYTEXT) , GetSysColor( COLOR_BTNFACE )): if ::lReadOnly .and. ::nClrText == GetSysColor( COLOR_WINDOWTEXT ) ; .and. ::nClrPane == GetSysC...
by ukservice
Thu Dec 22, 2011 9:53 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: new and important bug in FW 11.11
Replies: 7
Views: 2537

Re: Un tercer color en efecto pijama de Listbox

Pedro, sorry me falto una mas CASO 2 http://img15.imageshack.us/img15/9201/brw2.jpg he aqui el codigo oBCmp:nClrPane := {|| IIF((oBCmp:cAlias)->(OrdKeyNo())%2==0,nRGB(248,248,248),nRGB(220,255,220))} //236,255,236 oBCmp:bTextColor:={|nRow,nCol,nStyleLine| IF(nCol>1 .AND. nStyl...
by ACC69
Fri Nov 18, 2011 10:13 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Un tercer color en efecto pijama de Listbox
Replies: 18
Views: 5300

Re: como hago esto: window get say

Goosfancito, aquí tienes un ejemplo probado: (Entorno MDI) //----------------------------// Function Prueba() local oChild, oBrw, oFont1, oBotModi local dFechemis := cTod(" / / "), oFechemis Local oConceptG, cConceptG:="ESTO ES UNA PRUEBA" LOCAL oRect, oRectClr1, oRectClr2, nRect...
by FranciscoA
Thu Aug 18, 2011 4:33 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: como hago esto: window get say
Replies: 6
Views: 1510

Re: BorderEdit Release 1.2 => DOWNLOAD

Uwe, Many thanks for this function! Just a question: is it correct to remove border in this way? FUNCTION MAKESHADOW( nBorda , oDlg , oGet ) LOCAL nColor := GetSysColor( COLOR_BTNFACE ) IF nBorda = 1 // make the shadow Draw_Box( oDlg, oGet, CLR_HRED, 1 , 3, 0 , 2 , 1 ) ELSE // remove the shadow Draw...
by MarcoBoschi
Thu May 26, 2011 3:35 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: BorderEdit Release 1.2 => DOWNLOAD
Replies: 6
Views: 1350

MACRO EN ON INIT DE UNA VENTANA

Buenas tardes a todos: Estoy intentando mediante una macro pasarla por on init de una ventana , la macro es el nombre de una funcion y con un parametro dentro de la funcion, es tratado de algunas maneras pero no lo he logrado. no se si se pueda function BuildChild(mventana) local oChild mventana:= &...
by EASYSOFT
Thu Jul 15, 2010 9:45 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: MACRO EN ON INIT DE UNA VENTANA
Replies: 5
Views: 947

Re: Un tercer color en efecto pijama de Listbox

Pedro, sorry me falto una mas CASO 2 http://img15.imageshack.us/img15/9201/brw2.jpg he aqui el codigo oBCmp:nClrPane := {|| IIF((oBCmp:cAlias)->(OrdKeyNo())%2==0,nRGB(248,248,248),nRGB(220,255,220))} //236,255,236 oBCmp:bTextColor:={|nRow,nCol,nStyleLine| IF(nCol>1 .AND. nStyle...
by Francisco Horta
Thu Jan 28, 2010 4:26 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Un tercer color en efecto pijama de Listbox
Replies: 18
Views: 5300

Re: Un tercer color en efecto pijama de Listbox

Pedro, Si se puede hacer, yo lo hago usando wbrowse de hdc, te adjunto unas imagenes y omo usar los colores por texto, por columna, por linea, en encabezado, en celda activa, en footers, en browse normal... caso 1 http://img15.imageshack.us/img15/3006/brw1.jpg aqui el codigo: oBrw[x]...
by Francisco Horta
Thu Jan 28, 2010 4:21 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Un tercer color en efecto pijama de Listbox
Replies: 18
Views: 5300

Re: Problemas con TRichEdit

Antonio, Tan sólo ese cambio. De hecho he descomprimido de nuevo el directorio \Samples por si hubiese hecho algún cambio en testrtf.prg y no lo recordase y comentando esa línea me da el error. Pongo aquí el código de testrtf.prg que viene en \Samples por si hubiese algún cambio, pero vamos, está re...
by triumvirato
Fri Dec 11, 2009 7:17 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Problemas con TRichEdit
Replies: 13
Views: 4769

Pregunta esta clase dibuja la regla a cm

Amigos un favor me puedean ayudar a poner esta regla centimetros .Mil gracias #include "FiveWin.ch" #include "Constant.ch" #define COLOR_BTNFACE 15 #ifdef __XPP__ #define Super ::TControl #define New _New #endif //------------------------------------------------------------------...
by Vladimir Zorrilla
Fri Aug 21, 2009 5:40 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Pregunta esta clase dibuja la regla a cm
Replies: 0
Views: 1171

Re: Error in painting a Transparent say

Hello Rick, because Your background is transparent, You need only the Text-color to change : REDEFINE SAY oSay1 VAR cSAY1 ID 520 OF oFld:aDialogs[1] UPDATE oSAY1:lTransparent := .T. oSAY1:nClrText := 128 // ( red ) or any color-value You need // You can use also : oSAY1:SetColor( 128, 16777215 ) // ...
by ukoenig
Tue May 26, 2009 10:16 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Error in painting a Transparent say
Replies: 11
Views: 3783

Re: FWH/xHarbour Menus

* DIALOG.PRG (Modified for using a brush to standard window color dialogs) * The brush is called WPAPER2 and it should be included in the .RC file ! // Add this line to your .RC file // WPAPER2 BITMAP "./Bitmaps/WPAPER2.BMP" #include "FiveWin.ch" #include "Constant.ch" ...
by E. Bartzokas
Mon May 25, 2009 3:34 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: FWH/xHarbour Menus
Replies: 20
Views: 7583

Saludos mcfox... te anexo el codigo... //este es el browse que utilizo: TWBrowse():lHScroll:= .F. @ 6, 2 LISTBOX Brw1 ; FIELDS "" ; ALIAS (CALIAS) ; OF oWndChild ; UPDATE Brw1:SetCols( bro_campo, bro_subtit) Brw1:bDropOver = { | uDropInfo, nRow, nCol, nKeyFlags | ; Brw1:Add( uDropInfo ), MsgBeep() }...
by angstin
Thu Oct 30, 2008 2:34 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: ANTONIO AYUDA CON SETFOCUS A UN MDI
Replies: 9
Views: 1496
Next

Return to advanced search