FiveTech Software tech support forums

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

From Whatnew * TWindow Method SayText( cText, aRect, cAlign, oFont, nClrText, nClrBack, lBorder ) Applies to all derived classes like dialogs and controls To be used in o:bPainted. function FW_SayText( hDC or oWnd, cText, aRect, cAlign, oFont, nClrText, nClrBack, ...

...         If( oCol:oBrw:KeyNo % 2 == 0, aClr1, aClr2 ) ) }END  2) We know bClrStd returns a color pair { nClrText, nClrBack } If instead of returning a single color as nClrText, if we return an array of colors, those colors are used in the place of aClrText. ...

return color pair { nClrText, nClrBack } when your bClrFooter is evaluated.

... oSayActive}, {NID, 102}, {TWINDOW:NTOP, 864}, {TWINDOW:NLEFT, 10}, {NBOTTOM, 893}, {NRIGHT, 649.00}, {NSTYLE, 1342177280}, {NCLRPANE, 16777215}, {NCLRTEXT, 0}, {ACONTROLS, {}}, {OBRUSH, {{HBRUSH, 9437200}, {HBITMAP, 0}, {HBMPORGL, 0}, {NCOUNT, 6}, {NRGBCOLOR, 16777215}, {LSYSTEM, .T.}, {USOURCE, ...

... oBrw:Refresh(), oBrw:SetFocus(.T.), ; W_21AEU(oBrw,nItem,mMode,oDlg),oSay11:Refresh(),oSay21:Refresh(), ; oSay31:Refresh()),)))} oBrw:nClrText := {|| SelColor(1,nItem)} oBrw:nClrPane := {|| SelColor(2,nItem)} oBrw:nClrForeFocus := {|| SelColor(3,nItem)} On key press {Enter].. fuction ...

... de un MENUPOPUP Me ignora cualquier clausula que tenga que ver con los colores (COLORS, COLOR, COLORMENU etc,etc) he probado usando oItem:nClrText y otras maneras y nada! Alguien sabe por que ocurre esto o como solucionarlo ? Abrazo a todos

Creo que hay un malentendido

Estamos hablando de un GET con claúsula ACTION que hace que se muestre un botón al lado derecho del GET

En tal caso sería:

REDEFINE GET oGet ID ... OF oDlg ACTION ( oGet:SetColor( nClrText, nClrPane, oBrush ), otras cosas que necesites hacer )

ACTIVATE DIALOG oDlg ON INIT ( oBtnGet:SetColor( nClrText, nClrPane, oBrush ), .T. )

nClrPane and oBrush are optional

Dear Tim, This is the syntax for Class TPrinter Method SayText() METHOD SayText( nRow, nCol, cText, nWidth, nHeight, oFont, cAlign, nClrText, nClrBack, cUnits, ; nOutLineClr, nPenSize ) Please notice that you can use ANY font in oFont parameter, different colors, pensize... That is RTF power