FiveTech Software tech support forums

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

nageswaragunupudi wrote:ContrastClr( nClrBack )

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 )

Excelente Mr Rao.
Muchas gracias por el codigo

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

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

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

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

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 [at] gmail [dot] com

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