SAY with background-color

[byte-one]

I will use SAY with background-color but in a dialog not transparent with clausula GRADIENT is not functioning. Any suggestion please!

[Antonio Linares]

Günther,

When you use a GRADIENT or if you are using the function SetDlgGradient(), the dialog assumes that you want it to be transparent.

This way, you can tell the dialog not to be transparent even if there is a gradient:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg

   SetDlgGradient( { { 1, RGB( 199, 216, 237 ), RGB( 237, 242, 248 ) } } )
   
   DEFINE DIALOG oDlg

   oDlg:lTransparent = .F.

   @ 1, 2 SAY "Hello" COLOR "R+/B"

   ACTIVATE DIALOG oDlg CENTERED

return nil

[byte-one]

Antonio, thanks!
Now i have the Problem, all other says are also not transparent. The says with ID i can make transparent with the clausula TRANSPARENT but what is with the static says (only declared in the RC-file).

[Antonio Linares]

Günther,

Do it this way:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg

   SetDlgGradient( { { 1, RGB( 199, 216, 237 ), RGB( 237, 242, 248 ) } } )
   
   DEFINE DIALOG oDlg

   @ 1, 3 SAY "with gradient"

   ACTIVATE DIALOG oDlg CENTERED ;
     ON INIT BuildMyDifferentSay( oDlg )

return nil

function BuildMyDifferentSay( oDlg )

   @ 5, 4 SAY "without gradient" COLOR "R+/B"

return nil