FiveTech Software tech support forums

I use
oGrp[4]:nClrText := 0xC38B2B

nClrBorder not work !!!

... <{cText}>,; [<oWnd>], [<cPict>], <oFont>, <.lCenter.>, <.lRight.>, <.lBorder.>,; <.lPixel.>, <nClrText>, <nClrBack>, <nWidth>, <nHeight>,; <.design.>, <.update.>, <.lShaded.>, <.lBox.>, <.lRaised.>, ...

... BORDER > [CLR <nClrBorder>] ] ; [ [<relpix:RELATIVE>] <lPixel: PIXEL, PIXELS > ] ; [ <color: COLOR,COLORS > <nClrText> [,<nClrBack> ] ] ; [ SIZE <nWidth>, <nHeight> ] ; [ <design: DESIGN > ] ; [ <update: UPDATE > ] ; [ <lShaded: ...

Hola Joao!!! Gracias por interesarte. aca se para que es cada cosa oDlg:aControls[ n ]:nClrText = CLR_MAGENTA oDlg:aControls[ n ]:cToolTip = Feriados->Mensaje lo que no se es definir la sentencia para hacer referencia al nombre del BMP el bmp no es un recurso, es ...

... for n := nFirstButton TO nLastButton oDlg:aControls[ n ]:SetText( Str( Day( dWork ), 2 ) ) oDlg:aControls[ n ]:Cargo = dWork oDlg:aControls[ n ]:nClrText = if( n=13 .or. n=20 .or. n=27 .or. n=34 .or. n=41 .or. n=48,CLR_HRED,; If( dWork == Date(), CLR_BROWN,; If( dWork == dSelect, CLR_HBLUE, If( ...

Solucionado!!!! asi quedo: ATail( oDlg:aControls ):nClrText = if(nCol=1,CLR_HRED, ; If( dWork == Date(), CLR_YELLOW,; If( dWork == dDate, CLR_HBLUE, If( Month( dWork ) == nMonth,; if( feriados->(DbSeek(ATail( oDlg:aControls ):Cargo)), CLR_BROWN,CLR_BLACK ...

... FONT oFont4 ; //size 12,12 ACTION ( oDlg:Cargo := ::Cargo, oDlg:End( IDOK ) ) ATail( oDlg:aControls ):Cargo = dWork ATail( oDlg:aControls ):nClrText = if(nCol=1,CLR_HRED, ; If( dWork == Date(), CLR_YELLOW,; If( dWork == dDate, CLR_HBLUE, If( Month( dWork ) == nMonth,; if( feriados->(DbSeek(DToC(ATail( ...

... (tambien prove con dtos(fecha)) con el objeto de mostrar en otro color los dias feriados. lo hago de esta forma: .... ATail( oDlg:aControls ):nClrText = if(nCol=1,CLR_HRED, ; If( dWork == Date(), CLR_YELLOW,; If( dWork == dDate, CLR_HBLUE, If( Month( dWork ) == nMonth,; if( feriados->(DbSeek(DToC(ATail( ...

... pel MEMO. #xcommand IMPRIME ; MEMO <cText> ; [ COL <nCol> ] ; [ LINES <nLine> ]; [ FONT <oFont> ] ; [ COLOR <nClrText> ]; [ SEPARATOR <nSeparator> ] ; [ <lJump :JUMP> ]; [ <lJustify :JUSTIFY> ]; [ CM <nCm> ] ; =>; ::MEMO( <nCol>, ...

... Self ) )            if ::lFocused               RoundBox( ::hDC, 3, 3, ::nWidth - 4, ::nHeight - 3, nRound, nRound, XEval( ::nClrText, ::lMover, Self ) )            endif  Please change ::nClrText to ::nClrBorder I found the same solution last night and I talked about ...

...              RoundBox( ::hDC, 3, 3, ::nWidth - 4, ::nHeight - 3, nRound, nRound, XEval( ::nClrText, ::lMover, Self ) )            endif  Please change ::nClrText to ::nClrBorder

Nages, I think there is an error the btnbmp class takes the color of the text to create the internal box when it has focus for a sample I set the nClrText :nClrText := { |lOver,o| If( o:HasFocus(), RGB( 219, 230, 244), If( lOver, RGB( 219, 230, 244), RGB( 207, 221, 239) ) ) } and I have this result ...

It is possible to print normal text (not RichText) transparently over a background image using clause COLOR nClrText, NIL or COLOR nClrText, nAlphaColor Eg: @ nRow, nCol PRINT TO prn TEXT cTextRTF SIZE nWidth,nHeight MM FONT oFont COLOR CLR_BLACK, NIL// or COLOR CLR_BLACK, ARGB( ...

Dear Detlef,

Please modify this line in tget.prg this way:

FW_SayText( ::hDC, If( Empty( Eval( ::bSetGet ) ), "", Transform( Eval( ::bSetGet ), ::cPicture ) ), aRect, "R", ::oFont, ::nClrText )

now it works as you need

... only thing changed was the color of the text and the text color works fine .. REDEFINE GROUP oGrp1 ID 196 of oPark oGrp1:SetFont( oFontB ) oGrp1:nClrText := ( nRgb(7,7,224) ) Still unable to change the color of the Group Box frame :( Rick Lipkin