FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour SAY with background-color
Posts: 1048
Joined: Mon Oct 24, 2005 09:54 AM

SAY with background-color

Posted: Mon Sep 23, 2013 03:18 PM

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

Regards,
Günther
---------------------------------
office@byte-one.com
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: SAY with background-color

Posted: Mon Sep 23, 2013 06:19 PM
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 (fw): Select all Collapse
#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
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1048
Joined: Mon Oct 24, 2005 09:54 AM

Re: SAY with background-color

Posted: Tue Sep 24, 2013 08:10 AM

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).

Regards,
Günther
---------------------------------
office@byte-one.com
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: SAY with background-color

Posted: Tue Sep 24, 2013 01:51 PM
Günther,

Do it this way:

Code (fw): Select all Collapse
#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


regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion