Contraste de colores?

[cmsoft]

Cual es el efecto que deberia esperar? Porque no noto cambios ...

ContrastClr( nClrBack )

[nageswaragunupudi]

Code: Select all  Expand view

#include "fivewin.ch"

function Main()

   local aDlg[ 30 ], oFont, nClrText, nClrBack, n
   local nTop  := 0
   local nLeft := 1200

   DEFINE FONT oFont NAME "VERDANA" SIZE 0,-20

   for n := 1 to 30

      nClrBack := HB_RandomInt( 0, CLR_WHITE )
      nClrText := ContrastClr( nClrBack )

      DEFINE DIALOG aDlg[ n ] SIZE 150,100 PIXEL TRUEPIXEL ;
         COLOR nClrText, nClrBack

      @ 40,20 SAY "ANY TEXT" SIZE 110,20 PIXEL OF aDlg[ n ] CENTER VCENTER ;
         COLOR nClrText, nClrBack FONT oFont

      if nLeft >= 1100
         nTop     += 140
         nLeft    := 100
      else
         nLeft    += 200
      endif

      if n == 30
         ACTIVATE DIALOG aDlg[ n ]  ON INIT aDlg[ n ]:Move( nTop, nLeft ) ;
            VALID ( AEval( aDlg, { |oDlg| oDlg:End() }, 1, 29 ), .t. )
      else
         ACTIVATE DIALOG aDlg[ n ] NOMODAL ON INIT aDlg[ n ]:Move( nTop, nLeft )
      endif

   next

   RELEASE FONT oFont

return nil
 

Here we are showing 30 dialogs. For each dialog, we are choosing a random background color.
We are selecting the foreground color as ContrastClr( nClrBack )

[cmsoft]

Excelente Mr Rao.
Muchas gracias por el codigo

[Armando]

Mr. Rao:

It's an excellent sample, but I have several dialogs with several SAY (text) and I looking for
a global solution as Tget():nClrFocus := RGB( 168, 211, 255 ) for GET controls, if it's possible

With best regards

[cmsoft]

Armando, por lo que entiendo de lo que te propone Mr. Rao, en la misma funcion que determinas el color aleatorio de tu dialogo, deberias definir el color que de contraste a tus Say. Tal vez si muestras como los define encontremos una solucion

[Armando]

César:

Gracias por el interés en el tema, cierto y entiendo la propuesta de Mr. Rao, el problema es que
utilizo recursos y los SAYS los identifico como -1 por lo que en mi código (PRG) no necesito
definirlos pues no los utilizo.

Ahora para utilizar la sugerencia de Mr. Rao, necesito definir e identificar los SAYs en los
recursos con un número positivo y en mi PRG definirles el texto y color en contraste con
el fondo, tomando el ejemplo de Mr. Rao.

Y he ahí mi problema, son como 100 diálogos y cada dialogo tiene en promedio 20 Says
pensé que podría haber una solución global como se le da color a los GETS.

Si no hay otra alternativa, tendré que ponerme a talachar (Picar piedra)

Saludos

[nageswaragunupudi]

Please provide a small PRG and RC file with just 2 or 3 Says.

[Armando]

Mr. Rao:

Can I have your email address? To send you a small example,
I need to change the color of the texts in the dialog but not one by one

With best regards

[nageswaragunupudi]

nageswaragunupudi [at] gmail [dot] com

Please keep the program and rc file as simple as you can.