Color en Radio y Checkbox

[FranciscoA]

Amigos del foro, ¿es posible cambiar el color a Radio o Checkboxs?
Lo he intentado durante 2 horas y no lo logro. He revisado en el foro varios ejemplos pero están definidos desde codigo.
Los míos son desde recursos y no funciona el cambio de color, con brush o degradado (SetDlgGradient()). Uso FWH 1204

Este es el codigo que estoy usando:

Code: Select all  Expand view  RUN

REDEFINE RADIO oRadioB VAR nRadioB ID 101,102,103 OF oDlg COLOR 128, 16642248   //NO FUNCIONA
 

Este tampoco me funciona:

Code: Select all  Expand view  RUN

     For n := 1 to nLen
        if oDlg:aControls[n]:CLASSNAME == "TSAY"    //funciona
           oDlg:aControls[n]:SetColor( RGB(252,232,171),0 )
        elseif oDlg:aControls[n]:CLASSNAME == "TGET"     //funciona
           oDlg:aControls[n]:SetColor( 0,RGB( 199, 216, 237 ) )
        elseif oDlg:aControls[n]:CLASSNAME == "TRADIO" // NO FUNCIONA
           oDlg:aControls[n]:SetColor( RGB( 199, 216, 237 ),0 )
        endif
     Next
     oDlg:Refresh()
 

Agradezco cualquier sugerencia.

Saludos.

[FranciscoA]

[karinha]

// Intenta modificar CONTROL.PRG talbéz funcione...

Code: Select all  Expand view  RUN

METHOD Colors( hDC ) CLASS TControl

   DEFAULT ::nClrText := GetTextColor( hDC ),;
           ::nClrPane := GetBkColor( hDC ),;
           ::oBrush   := TBrush():New( , ::nClrPane ),;
           ::lTransparent := .F.

   SetTextColor( hDC, ::nClrText )
   SetBkColor( hDC, ::nClrPane )
   
   if ::lTransparent
      SetBkMode( hDC, 1 ) // TRANSPARENT
      if ! Empty( ::oBrush:hBitmap )
         SetBrushOrgEx( hDC, nBmpWidth( ::oBrush:hBitmap ) - ::nLeft, nBmpHeight( ::oBrush:hBitmap ) - ::nTop )
         FillRect( hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush )
      endif
   else
      if IsAppThemed() .and. Upper( ::ClassName() ) $ "TCHECKBOX;TRADIO;TGROUP"
         DrawPBack( ::hWnd,  hDC )
      endif
   endif

return ::oBrush:hBrush
 

[FranciscoA]

Hola, aqui, de nuevo.

Omitiendo esto en el RC no funciona
1 24 ThemesXp.Manifest

Usando IsAppThemed() return .f. //no funciona
Usando IsAppThemed() return .t. //no funciona

Con este codigo:
REDEFINE CHECKBOX oCkBoxProf VAR lCkBoxProf ID 239 OF oDlg COLOR 123123,0 //no Funciona
oCkBoxProf:SETCOLOR( 123123, ) //No funciona

AEval( oDlg:aControls, {|o| ;
if(UPPER(o:CLASSNAME) == "TSAY", o:SetColor( RGB(252,232,171),0 ) ,; //funciona
if(UPPER(o:CLASSNAME) == "TGET", o:SetColor( 0,RGB(199,216,237) ) ,; //funciona
if(UPPER(o:CLASSNAME) == "TCHECKBOX" .or. UPPER(o:CLASSNAME) == "TRADIO", o:SetColor( RGB(199,216,237),0 ),))) } ) //NO FUNCIONA


Quizas la imagen anterior no dice nada.


Saludos.

[FranciscoA]

Gracias por contestar, Karinha. Voy a probar y te digo.
Saludos.

[FranciscoA]

Karinha, agregue Control.prg a mi compilacion, modificado con lo que sugeriste.
Desafortunadamente, persiste el comportamiento. (No cambia colores de Radio o CheckBox).
Saludos.

[karinha]

http://www.fivewin.com.br/forum/topic.a ... C_ID=20937

[karinha]

http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=9567

[FranciscoA]

Gracias Karinha, por tu interés. Ya he probado de muchas maneras, en XP SP2 y W7 ULTIMATE, y nada.
Lo raro es que si desactivo los Radios, si los presenta desactivados. (tanto XP como W7).
"Sigo de frente" (como decimos aqui).
Saludos.

[FranciscoA]

Hola, por favor ejecuten este ejemplo y me dicen. ( compilado con FWH 1204 - XHARBOUR Compiler build 1.2.1 (SimpLex) (Rev. 9445) - BORLAND 582)

Code: Select all  Expand view  RUN

//------------------
Function Prueba()
local oDlg,oRad,nVar:=2,oCheck, lCkbox:=.f.

Define Dialog oDlg from 1,1 to 200,400 PIXEL
oDlg:SetColor(0,0)

@2,10  CHECKBOX oCheck  VAR lCkBox OF oDlg PIXEL ; //COLOR 16777215
   ON CHANGE if(lCkbox,oRad:Disable(),oRad:Enable())
oCheck:cCaption := " Prueba de Color"
oCheck:nClrText := 16777215

@20,10 RADIO oRad VAR nVar ITEMS "UNO","DOS","TRES" OF oDlg PIXEL
AEval( oRad:aItems,{|o| o:nClrText := 16777215} )

Activate Dialog odlg centered
return nil
 

Me he visto obligado a hacerlo de la manera "mas chapucera" que se conoce: agregando controles say a cada Radio y CheckBox.

Saludos.

[Antonio Linares]

Francisco,

Estas usando un degradado en el diálogo y quieres que esos controles tengan un color distinto, si ?

[FranciscoA]

Antonio, gracias por tu tiempo.
Efectivamente, tengo un dialogo degradado con SetDlgGradient(), y su color es negro puro. Lo que quiero es poner el texto de los CheckBox y Radio en un color diferente (celeste, por ejemplo), ya que siempre se toman con su color original (negro) y no se visualizan. Si los pongo :disabled() si se reflejan, apenas, con su color plomo bajo. Inluso, en pruebas sin degradado, no cambian de color.

Aprovecho para preguntarte ¿donde te puedo subir una carpeta que contiene 20 ficheros de musica? (55MB)


Nuevamente gracias.

Saludos.

[Bayron]

Francisco,
Encontraste alguna forma de resolver esto???
Mi problema es con el color de fondo...
Yo tambien ya había probado colocando Say's junto a los checkboxes, pero hay que encontrar la forma de resolver el problema...

Por ahora tengo estos dos problemas:

Check Boxes y Group Boxes:


MsgSiNo()

Code: Select all  Expand view  RUN

FUNCTION MsgSiNo(cCaption, cTitle)
   
    SiNo := { " Sí " , " No " }
    nOK := ALERT(cCaption, SiNo, cTitle, 1, 32516 ) // 32512 al 32516
   
    If( nOK == 1 , nOK := .T. , nOK := .F. )
   
RETURN nOK
 

[FranciscoA]

Bayron, aun tengo los mismos problemas.
Saludos.

[Bayron]

Alguna sugerencia Antonio...!!!!


Gracias...