dsay and sayref trasparent

[Silvio]

Wherei can download dsay and sayref trasparent :
i want use it on a dialog ...brush obrush...trasparent

Regards

[StefanHaupt]

Silvio,

I have sent some files to your private email, they may be helpful for you

Stefan

[Silvio]

thank but I have these files...
I made a dialog :

Code: Select all  Expand view

FUNCTION Info()
   local oDlg, aGet[9], cPrompt, oTmr,obr
   local oMs10Under := TFont():New("Ms Sans Serif",0,-12,,.f.,,,,,.t.)

   DEFINE BRUSH oBr FILE "d48.BMP"

   define dialog oDlg title 'Authors ' BRUSH oBr TRANSPARENT   ;
      FROM  0, 0 TO 240, 330 PIXEL

   @ 00,08 BITMAP aGet[1] FILE 'ACERCADE2.BMP' ;
      SIZE 34, 54 OF oDlg PIXEL NOBORDER  TRANSPAREN

   @ 10,44 BITMAP aGet[2] FILE 'ACERCADE1.BMP' ;
      SIZE 94, 20 OF oDlg PIXEL NOBORDER  TRANSPAREN
   @ 32,10 SAYREF aGet[4] PROMPT "http://www." ;
      SIZE 142,10 PIXEL CENTERED OF oDlg                 ;
      HREF "http://www."                         ;
     FONT oMs10Under
   aGet[4]:cTooltip  := xxxxxxxxx

   @ 54,10 DYNAMIC SAY oSay ;
      PROMPT CRLF+CRLF+CRLF+;
             " This application is distribuited on  "+CRLF+;
             "Creative Commons 2.0 Licence "+CRLF+;
             "http://creativecommons.org/licenses/by-nc-nd/"+CRLF+CRLF+;
             "This software is created with the cooperation with "+CRLF+"xxxxxxxx"+CRLF+;
             "Made in xharbour and fivewin"+CRLF+CRLF+CRLF+CRLF;
      SIZE 140, 46 PIXEL CENTERED   ;
      VERTICAL SCROLL SPEED 40;
      WRAP

   activate dialog oDlg CENTERED
   oMs10Under:End()
return nil


it make dsay scroll in a white box
WHY ?????? it is not trasparent !!!!!!!!!!!!!!!!!!!!!

REGARDS,

[StefanHaupt]

Sorry, I don´t know. I´ve never use used the class TDSay.

Compare the this class with the others working in transparent mode and look how the output is implemented.

Stefan