Color dialogo con letras blancas, Radio tambien

[D.Fernandez]

Hola amigos, siempre con preguntas raras que no me doy cuenta.

if tipocolor = 1 (este valor lo saco de un archivo .ini que leo primero, e indicaría que quiero el fondo del dialogo en negro y los say, radio, etc. esten en blanco)
colorsay := CLR_WHITE
else
colorsay := CLR_BLACK
endif

Todo esta casi bien porque el tipocolor me muestra 1 al ingresar en la aplicación (que es el numero que esta x default.


Tengo un REDEFINE RADIO oRadio VAR nRadiocolor ID 126,127 OF oDlgUsuario COLOR ??????????????????? (debe mostrarse en blanco o negro)
Deseo que el color del Radio sea el color que esta en la variable colorsay

Muy amables gracias
Saludos

Ruben Dario Fernandez

[karinha]

mira se ayuda:

Code: Select all | Expand

// C:\FWH\SAMPLES\CORCHK.PRG

// Button< Reset > uses TESTCOLOR( oDlg, nBColor1, nTxtColor1 ) // RED = 255, WHITE = 16777215
// Button< Color > uses TESTCOLOR( oDlg, nBColor2, nTxtColor2 ) // BLUE = 16711680, YELLOW = 65535

#include "fivewin.ch"

FUNCTION Main()

   LOCAL oDlg, oBrush, oFont[3], oBtn[3], oGet[3], aX[3], c_Path, c_Path1
//   LOCAL nBColor1 := 255, nTxtColor1  := 16777215
   LOCAL nBColor1 := CLR_BLACK, nTxtColor1  := CLR_WHITE
//   LOCAL nBColor2 := 16711680, nTxtColor2  := 65535
   LOCAL nBColor2 := CLR_WHITE, nTxtColor2  := CLR_BLACK
   LOCAL oSay1, cSay1 := "Test SAY-color", oRadio1, nRadio1 := 1, oCheck1, lCheck1 := .T.

   c_path := cFilePath( GetModuleFileName( GetInstance() ) )
   c_path1 := c_path + "BITMAPS\"

   aX[1] := 1
   aX[2] := 2
   aX[3] := 3

   DEFINE FONT oFont[1] NAME "Tahoma" SIZE 0, - 12 BOLD
   DEFINE FONT oFont[2] NAME "Tahoma" SIZE 0, - 14 BOLD
   DEFINE FONT oFont[3] NAME "Tahoma" SIZE 0, - 16 BOLD

   DEFINE BRUSH oBrush COLOR 16765090

   DEFINE DIALOG oDlg SIZE 300, 220 ;
      FONT  oFont[1] TITLE "Set colors from class-name"

   @ 10, 10 GET oGet[1]  VAR aX[1] SIZE 10, 12 OF oDlg  PICT "9" PIXEL RIGHT ;
      FONT oFont[1] UPDATE

   @ 28, 10 GET oGet[2]  VAR aX[2] SIZE 12, 14 OF oDlg  PICT "9" PIXEL RIGHT ;
      FONT oFont[2] UPDATE

   @ 48, 10 GET oGet[3]  VAR aX[3] SIZE 14, 16 OF oDlg  PICT "9" PIXEL RIGHT ;
      FONT oFont[3] UPDATE

   @ 70, 10 SAY oSay1    VAR cSay1 SIZE 80, 12 OF oDlg  PIXEL FONT oFont[3]  ;
      UPDATE

   @ 10, 40 RADIO oRadio1 VAR nRadio1 ITEMS "One", "Two", "Three" _3D        ;
      SIZE 40, 15 PIXEL UPDATE HELPID 100, 101, 102

   oRadio1:SetFont( oFont[2] )

   @ 10, 90 CHECKBOX oCheck1 VAR lCheck1 PROMPT "&Checkbox" SIZE 50, 12 OF oDlg PIXEL FONT oFont[3] UPDATE

   @ 90, 10 BTNBMP oBtn[1] OF oDlg ;
      SIZE 40, 15 PIXEL 2007 ;
      NOBORDER ;
      PROMPT "&Reset" ;
      FILENAME c_path1 + "Reset.Bmp" ;
      ACTION TESTCOLOR( oDlg, nBColor1, nTxtColor1 ) ;
      FONT oFont[1]  ;
      LEFT

   oBtn[1]:lTransparent := .T.
   oBtn[1]:cToolTip =  { "Set old color", "RESET", 1, CLR_BLACK, 14089979 }
   oBtn[1]:SetColor( 0, )

   @ 90, 55 BTNBMP oBtn[2] OF oDlg ;
      SIZE 40, 15 PIXEL 2007 ;
      NOBORDER ;
      PROMPT "&Color" ;
      FILENAME c_path1 + "Colors.Bmp" ;
      ACTION  TESTCOLOR( oDlg, nBColor2, nTxtColor2 ) ;
      FONT oFont[1]  ;
      LEFT

   oBtn[2]:lTransparent := .T.
   oBtn[2]:cToolTip =  { "Change color", "SET COLOR", 1, CLR_BLACK, 14089979 }
   oBtn[2]:SetColor( 0, )

   @ 90, 105 BTNBMP oBtn[3] OF oDlg ;
      SIZE 40, 15 PIXEL 2007 ;
      NOBORDER ;
      PROMPT "&Exit" ;
      FILENAME c_path1 + "Exit.Bmp" ;
      ACTION oDlg:End() ;
      FONT oFont[1]  ;
      LEFT

   oBtn[3]:lCancel := .T.
   oBtn[3]:lTransparent := .T.
   oBtn[3]:cToolTip =  { "Exit color-test", "EXIT", 1, CLR_BLACK, 14089979 }
   oBtn[3]:SetColor( 0, )

   TESTCOLOR( oDlg, nBColor1, nTxtColor1 )

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT oDlg:SetBrush( oBrush )

   oFont[1]:End()
   oFont[2]:End()
   oFont[3]:End()

   RELEASE BRUSH oBrush

RETURN NIL
// COLORES
FUNCTION TESTCOLOR( oDlg, nBColor, nTxtColor )

   LOCAL Y, TXT, X := 1, cClassname, aItems := {}

   // Get control-types and create array
   // -----------------------------------------------
   FOR X = 1 TO LEN( oDlg:aControls )
      cClassname := oDlg:aControls[X]:Classname()
   DEFAULT cClassname := "\\"

      IF cClassname <> "\\"
         // define Control-classes ( add needed controls )
         // ----------------------------------------------------------------
         IF cClassname = "TGET"
            //                            Class-name                                 ID          Pos
            AADD( aItems, { cClassname, oDlg:aControls[X]:nid, " ", X } )
         ELSEIF cClassname = "TSAY"
            //                            Class-name                                 ID          Pos
            AADD( aItems, { cClassname, oDlg:aControls[X]:nid, " ", X } )
         ELSEIF cClassname = "TRADIO"
            //                            Class-name                                 ID          Pos
            AADD( aItems, { cClassname, oDlg:aControls[X]:nid, " ", X } )
         ELSEIF cClassname = "TCHECKBOX"
            //                            Class-name                                 ID          Pos
            AADD( aItems, { cClassname, oDlg:aControls[X]:nid, " ", X } )
         ELSEIF cClassname = "TBTNBMP"
            //                            Class-name                                  ID   Button-text                               Pos
            AADD( aItems, { cClassname, oDlg:aControls[X]:nId, oDlg:aControls[X]:cCaption, X } )
         ELSEIF cClassname = "TXBROWSE"
            FOR Y = 1 TO LEN( oDlg:aControls[X]:aHeaders )
               TXT := TXT + RTRIM( oDlg:aControls[X]:aHeaders[Y] ) + "|"
            NEXT
            //                            Class-name                                  ID    Col-text  Pos
            AADD( aItems, { cClassname, oDlg:aControls[X]:nId, TXT,        X } )
         ENDIF
      ENDIF

      IF aItems[X][1] = "TGET" .OR. aItems[X][1] = "TSAY"
         //MsgAlert( nBCoColor, "Get and Say" )
         oDlg:aControls[X]:Setcolor( nTxtColor, nBColor )
         oDlg:aControls[X]:Refresh()
      ENDIF

      IF aItems[X][1] = "TRADIO"

         //MsgAlert( nBColor, ' classname "TRADIO" ' )

         oDlg:aControls[X]:SetColor( nTxtColor, nBColor )
         oDlg:aControls[X]:Refresh()

      ENDIF

      IF aItems[X][1] = "TCHECKBOX"

         // MsgAlert( nBColor, ' classname "TCHECKBOX" ' )

         oDlg:aControls[X]:Setcolor( nTxtColor, nBColor )
         oDlg:aControls[X]:Refresh()

      ENDIF

   NEXT

RETURN NIL

/*
oDlg:aControls[X]:oBrush:End()
oDlg:aControls[X]:SetColor( nTxtColor, nBColor )
*/

Regards, saludos.