Page 1 of 2
SENSITIVE SAY
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Tue Jan 20, 2009 4:00 pm
by 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
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
Re: SENSITIVE SAY
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Tue Jan 20, 2009 4:19 pm
by JC
Silvio,
In the Brazilian forum of fivewin, I can find this, for 32bits!
http://www.fivewin.com.br/Dicas/830SSAY.rar
Re: SENSITIVE SAY
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Tue Jan 20, 2009 4:25 pm
by 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
![Image](http://img102.imageshack.us/img102/3429/sensitiveerrorit0.png)
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
Re: SENSITIVE SAY
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Tue Jan 20, 2009 5:21 pm
by JC
Silvio,
At long time ago, I used this class... I will send to you this class... it worked very fine, for time
Re: SENSITIVE SAY
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Tue Jan 20, 2009 5:38 pm
by JC
Re: SENSITIVE SAY
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Tue Jan 20, 2009 5:47 pm
by Silvio
in this archive I see tsbuttons's class and only ssay.ch
Re: SENSITIVE SAY
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Tue Jan 20, 2009 6:08 pm
by JC
Re: SENSITIVE SAY
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Tue Jan 20, 2009 8:57 pm
by 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
Re: SENSITIVE SAY
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Wed Jan 21, 2009 8:57 am
by Silvio
I making ...an sample test
Re: SENSITIVE SAY
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Wed Jan 21, 2009 9:18 am
by Silvio
TRY IT PLEASE
TEST.PRG
- Code: Select all Expand view
#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
Re: SENSITIVE SAY
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Wed Jan 21, 2009 9:20 am
by Silvio
rICK WHERE i CAN SEND THE TEST.RC ?
Re: SENSITIVE SAY
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Thu Jan 22, 2009 7:20 pm
by Antonio Linares
Re: SENSITIVE SAY
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Thu Jan 22, 2009 7:30 pm
by Antonio Linares
Silvio,
Please make this change in Class TControl and try your example again:
- Code: Select all Expand view
METHOD Colors( hDC ) CLASS TControl
...
if Upper( ::ClassName() ) $ "TCHECKBOX;TRADIO;TGROUP;TSSAY" // modified !!!
// DrawPBack( ::hWnd, hDC )
ParentImage( ::hWnd, hDC )
...
Re: SENSITIVE SAY
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Mon Jan 26, 2009 7:13 pm
by Silvio
I wanted SAY sensistive control of Ramon RAvendano and not of Mercado
Re: SENSITIVE SAY
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Mon Jan 26, 2009 8:25 pm
by Antonio Linares
Silvio,
Just include the right classname here:
if Upper( ::ClassName() ) $ "TCHECKBOX;TRADIO;TGROUP;TSSAY"