FiveTech Software tech support forums

... ; HFONT hFont ; // CeSoTech WORD wAlign ; // CeSoTech // CeSoTech LONG nClrLineC = ( nStyle == 2 || nStyle == 6 || nStyle == 8 || nStyle == 10 ) ? GetSysColor( COLOR_BTNSHADOW ) : 0 ; // CeSoTech if ( nClrLine >= 0 ) // Desde Clipper manda color especifico linea nClrLineC = nClrLine ; if ( ! ...

... .OR. LEFT(alltrim(ctesto),2)="26"; .OR. RIGHT(ctesto,2)="Do" nColor :=Color_Rosa else nColor := GetSysColor( 5 ) ENDIF .... and I wish found also Easter day to change the color...

... 104 OF oDlg UPDATE REDEFINE BUTTON ID 105 OF oDlg ACTION Consulta(cCEP1,cCEP2,cPESO,@cTotal) REDEFINE SAY oSay ID 106 OF oDlg COLOR nRGB(255,0,0),getsyscolor(15) ACTIVATE DIALOG oDlg CENTERED return nil //....................................................... Function Consulta(cCepOrigem,cCepDestino,cPeso,cTotal) ...

Thanks For Your Help ::nClrBackHead := GetSysColor( COLOR_BTNFACE ) ::nClrForeHead := GetSysColor( COLOR_BTNTEXT ) ::nClrBackFocus := GetSysColor( COLOR_HIGHLIGHT ) ::nClrForeFocus := GetSysColor( COLOR_HIGHLIGHTTEXT) // CeSoTech CLR_WHITE ::nClrFBack ...

METHOD New( oWnd ) CLASS TXBrowse

::bClrStd := {|| { CLR_BLACK, GetSysColor( COLOR_WINDOW )} }
::bClrSel := {|| { CLR_WHITE, GetSysColor( COLOR_INACTIVECAPTIONTEXT )} } // JR BLACK
::bClrSelFocus := {|| { CLR_WHITE, GetSysColor( COLOR_HIGHLIGHT )} }

... aO[_ChkFil] VAR lFiltra PROMPT "Usar Filtro" OF aO[_GrpBusca] PIXEL   aO[_ChkFil]:SetColor( CLR_GREEN, GetSysColor( aO[_GrpBusca]:nClrPane ) )   @ 37, 10 ADD BUTTON aO[_BBusca] PROMPT "Buscar" BITMAP "bmp_" ...

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

Asunto resuelto.

La clase get maneja la varible :lDisColors que por inicio tien el valor .T., entonces lo que hago es

oGet:lDisColor:=.f.

ello obliga al get a tomar sel setcolor() los colores que le defino, de lo contrario hace esto:

SetTextColor(:nHD, GetSysColor(COLOR_GRAYTEXT))

... .AND. nStyleLine=0 .AND. (oDCmp)->Status=="C",CLR_HRED,)} oBCmp:bBkColor := {|nRow,nCol,nStyle| If( nStyle==0 .and. nCol==1, ; GETSYSCOLOR(COLOR_BTNFACE), ; If( nCol==1 .AND. nStyle=3 .AND. !oBArt:lCellStyle, ; GETSYSCOLOR(COLOR_BTNFACE),))} oBCmp:bFont := {|nRow,nCol,nStyleLine| ...

... WS_VISIBLE, WS_CLIPCHILDREN ) ::oWnd = oWnd ::nTop = nRow ::nLeft = nCol ::nBottom = nHeight ::nRight = nWidth ::l3D = l3D ::nClrPane = If( l3D, GetSysColor( COLOR_BTNFACE ), CLR_GRAY ) ::nRGB1 = nRGB1 ::nRGB2 = nRGB2 ::oFont = oFont #ifdef __XPP__ DEFAULT ::lRegistered := .f. #endif ::SetColor( ...

you must set the color of xbox

@ 24, 05 VMENU oBar SIZE nSplit-10, 270 OF oApp():oDlg ;
COLOR CLR_BLACK, GetSysColor(15) ;
HEIGHT ITEM 35 XBOX


oBar:nCLRBox := MIN(GetSysColor(13), GetSysColor(14))

... ; HFONT hFont ; // CeSoTech WORD wAlign ; // CeSoTech // CeSoTech LONG nClrLineC = ( nStyle == 2 || nStyle == 6 || nStyle == 8 || nStyle == 10 ) ? GetSysColor( COLOR_BTNSHADOW ) : 0 ; // CeSoTech if ( nClrLine >= 0 ) // Desde Clipper manda color especifico linea nClrLineC = nClrLine ; if ( ! ...

... 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_Box( ...

... ,oBrowse:bClrStd := { || { CLR_BLACK, If(oBrowse:KeyNo % 2 == 0, RGB(193,221,255), RGB(221,245,255) ) } } ,; oBrowse:bClrStd := {|| { CLR_BLACK, GetSysColor( COLOR_WINDOW )} }),; oBrowse:refresh()) but when I clickthe checkbox it not change , I must close the oBrowse and reopen it ( I saved the ...

... TITLE cTitle; ICON oIcon; MDI Y las ventanas hijas: DEFINE WINDOW oWndPClie MDICHILD OF oWndChild; FROM 0,0 TO nWHeight, nWWidth; PIXEL COLOR GetSysColor(15), GetSysColor(15); TITLE "Tabla de Géneros"; NOSYSMENU Espero que te sirva: Un saludo Javi MSN: fwh-jll@hotmail.es