SENSITIVE SAY

[Silvio]

Where I can download this class for the 32 bit (xharbour borland)?
Because I have this source class but when I Redefine this control from a resource it not show the control
sample code

Code: Select all  Expand view  RUN

REDEFINE SENSITIVE SAY oSay PROMPT cSyst  ;
                                        COLOR CLR_WHITE COLOROVER CLR_RED      ;
                                        ON MOUSEOVER SndPlaySound("Click.Wav") ID 211 OF oDlg  ;
                                        ACTION ShellExecute(oWnd:hWnd,"Open","Registro.Doc",Nil,Nil,1);
                                        TRANSPARENT FONT oFnt
                                        oSay:cToolTip:="Aprire la pagine della registrazione"
                               REDEFINE SENSITIVE SAY oSay PROMPT cMail  ;
                                        COLOR CLR_HBLUE COLOROVER CLR_RED      ;
                                        ON MOUSEOVER SndPlaySound("Select.Wav") ID 212 OF oDlg ;
                                        ACTION ShellExecute(oWnd:hWnd,"Open","MailTo:"+cMail,Nil,Nil,1);
                                        TRANSPARENT FONT oFnt
                                        oSay:cToolTip:="..."

I see two white rectagules with a ".F." on each

[JC]

Silvio,

In the Brazilian forum of fivewin, I can find this, for 32bits!

http://www.fivewin.com.br/Dicas/830SSAY.rar

[Silvio]

I allready try it ....
I download these files from this website :

http://www.fivewin.com.br/exibedicas.asp?id=830

http://www.fivewin.com.br/exibedicas.asp?id=609

http://www.fivewin.com.br/exibedicas.asp?id=570

BUT there is also this error



the sound run,the tooltip also but I cannot see the prompt and it not is transparent

instead dsay and sayref classes of the same author run ok

[JC]

Silvio,

At long time ago, I used this class... I will send to you this class... it worked very fine, for time

[JC]

Silvio,

Is there, please download this:
http://rapidshare.com/files/186672098/TSsay.rar.html

[Silvio]

in this archive I see tsbuttons's class and only ssay.ch

[JC]

Silvio,

Sorry
Take the correct file:
http://rapidshare.com/files/186688299/TSsay.rar.html

[Rick Lipkin]

Silvo

When Antonio changed the TRANSPARENT ability in FWH .. Sensative Say quit working for me .. The 'mouse-over' would work .. but the Transparent part quit working ..

I gave up on Ssay .. if you get it working .. let me know.

Rick Lipkin

[Silvio]

I making ...an sample test

[Silvio]

TRY IT PLEASE

TEST.PRG

Code: Select all  Expand view  RUN



#Include "FiveWin.Ch"
#Include "SSay.Ch"


Function main()
   LOCAL oDlg, lCont:=.F.
   LOCAL cPas:=Space(8), cIni, oSay, cEmp, oFnb,oSay2
   LOCAL cCve:="", oCve, oPas, nFil, oFnt, cName, cSerie
   LOCAL oBmp1,oBmp2,oBmp3,oBmpLogo,oPags,oFontBmp,oButCancel
 
   cName :="associazione demo"
   cSerie:="0000-0000"
   cText1:="VdsWin"
   cText2:="ver.1.0 24/00/99"
   
   DEFINE FONT oFontBmp NAME "Verdana" SIZE 0,-32 BOLD

   DEFINE FONT oFnt NAME "MS Sans Serif" SIZE 0,-10 UNDERLINE

   MsgBeep()

   DEFINE DIALOG oDlg RESOURCE "Acceso"

                                  REDEFINE PAGES oPags ID 200 OF oDlg ;
                                  DIALOGS "ACCESO_US"

                                  REDEFINE BUTTON ID 110 OF oPags:aDialogs[ 1 ] ACTION oDlg:End()

                                  REDEFINE IMAGE  oBmp2 ID 100  OF oPags:aDialogs[ 1] RESOURCE "SALUDO"

                                  REDEFINE IMAGE  oBmp3 ID 150  OF oDlg RESOURCE "ICON1"


                                  REDEFINE IMAGE oBMPLogo ID 100  OF oDlg RESOURCE "ACCESSO"
                                  oBmp2:ltransparent:=.t.
                                  oBmp3:ltransparent:=.t.

         oBMPLogo:bPainted = { ||;
           DrawText2(oBMPLogo:hDC, oFontBmp:hFont, 1, cText1 , oBMPLogo:nHeight/2-( oFontBmp:nHeight  ), 5 , 400 , 400, CLR_HGRAY ),;
           DrawText2(oBMPLogo:hDC, oFnt:hFont, 1, cText2 , 55, 250 , 400 , 400, CLR_WHITE )   }
       

REDEFINE SENSITIVE SAY oSay PROMPT "THIS NOT SHOWED"  ;
           COLOR CLR_WHITE COLOROVER CLR_RED      ;
           ON MOUSEOVER SndPlaySound("Click.Wav") ID 211 OF oDlg;
           ACTION ShellExecute(oWnd:hWnd,"Open","Registro.Doc",Nil,Nil,1);
           TRANSPARENT FONT oFnt
           oSay:cToolTip:="WHERE IS THE TRANSPARENT?"



REDEFINE SENSITIVE SAY oSay2 PROMPT "THIS IS SHOWED"  ;
           COLOR CLR_HBLUE COLOROVER CLR_RED      ;
           ON MOUSEOVER SndPlaySound("Select.Wav") ID 212 OF oDlg ;
           ACTION ShellExecute(oWnd:hWnd,"Open","MailTo:"+cMail,Nil,Nil,1);
           TRANSPARENT FONT oFnt

            oSay2:cToolTip:="WHERE IS THE TRANSPARENT?"




        ACTIVATE DIALOG oDlg CENTERED


RETURN NIL



  FUNCTION DrawText2( hDC, hFont, nBkMode, cText, nTop, nLeft, nWidth, nHeight,color )
     LOCAL hFontOld:= SelectObject( hDC, hFont )
     LOCAL nBkOld  := SetBkMode( hDC, nBkMode )
    SetTextColor( hDC, color )
    DrawText( hDC, cText, { nTop, nLeft, nTop+nWidth, nLeft+nHeight } )
    SelectObject( hDC, hFontOld )
    SetBkMode( hDC, nBkOld )
    RETURN( NIL

YOU MUST ADD WindowsXP.Manifest FILE


problems :

YOU SEE TWO SENSITIVE SAY

THE FIRST IS NOT SHOWED ANDONLY THE SECOND IS SHOWED ..WHY ?

ALL SAYS ARE NOT TRANSPARENT



THANKS

[Silvio]

rICK WHERE i CAN SEND THE TEST.RC ?

[Antonio Linares]

We have placed a copy of it here:

www.fivetechsoft.com/files/utilities/tssay.rar

[Antonio Linares]

Silvio,

Please make this change in Class TControl and try your example again:

Code: Select all  Expand view  RUN

METHOD Colors( hDC ) CLASS TControl

   ...
            if Upper( ::ClassName() ) $ "TCHECKBOX;TRADIO;TGROUP;TSSAY"  // modified !!!
               // DrawPBack( ::hWnd,  hDC )
               ParentImage( ::hWnd, hDC )
               ...


[Silvio]

I wanted SAY sensistive control of Ramon RAvendano and not of Mercado

[Antonio Linares]

Silvio,

Just include the right classname here:

if Upper( ::ClassName() ) $ "TCHECKBOX;TRADIO;TGROUP;TSSAY"