Problema ao copilar programa

[AVInfo Sistemas]

Estou tendo problemas em um trecho de codigo no xDev. Estou convertendo uma aplicação de 16 bits para 32 e ao tentar compilar acusa o seguinte erro :

"syntax error at 'SENSITIVE'"

segue o trecho de código

REDEFINE SAY oSay ID 50 PROMPT Clien01i->CodClie1 OF oDlg FONT oSayFnt COLORS CLR_BLUE UPDATE

REDEFINE SAY oSay1 ID 51 PROMPT Clien01i->NomClie1 OF oDlg FONT oSayFnt COLORS CLR_BLUE UPDATE

REDEFINE SAY oSay2 ID 52 PROMPT Clien01i->EndClie1 OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE SAY oSay3 ID 53 PROMPT Clien01i->BaiClie1 OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE SAY oSay4 ID 54 PROMPT Clien01i->CidClie1 OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE SAY oSay5 ID 55 PROMPT Clien01i->EstClie1 OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE SAY oSay6 ID 56 PROMPT LEFT(Clien01i->CepClie1,5)+"-"+RIGHT(Clien01i->CepClie1,3) OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE SAY oSay9 ID 59 PROMPT TRANS(Clien01i->CgcClie1,CpfCgcPic(Clien01i->PesClie1)) OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE SAY oSay0 ID 61 PROMPT Clien01i->IesClie1 OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE SAY oSay7 ID 57 PROMPT VerAtivo(@clAti) OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE SAY oSay8 ID 58 PROMPT RIGHT(Clien01i->DcdClie1,2)+"/"+SUBS(Clien01i->DcdClie1,5,2)+"/"+LEFT(Clien01i->DcdClie1,4) OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE CHECKBOX oObs VAR llObs ID 49 OF oDlg UPDATE

REDEFINE SENSITIVE SAY PROMPT OemToAnsi(">> observa‡Æo <<") ID 60 OF oDlg;

COLOR CLR_RED COLOROVER CLR_HRED ;

ACTION VerMemo(Clien01i->ObsClie1),TemObs(@llObs),oObs:Refresh() ;

ON MOUSEOVER SndPlaySound("Click.Wav") ;

RIGHT TRANSPARENT

id=code>id=code>

A linha com problema é a ultima do código.

[AVInfo Sistemas]

Estou tendo problemas em um trecho de codigo no xDev. Estou convertendo uma aplicação de 16 bits para 32 e ao tentar compilar acusa o seguinte erro :

"syntax error at 'SENSITIVE'"

segue o trecho de código

REDEFINE SAY oSay ID 50 PROMPT Clien01i->CodClie1 OF oDlg FONT oSayFnt COLORS CLR_BLUE UPDATE

REDEFINE SAY oSay1 ID 51 PROMPT Clien01i->NomClie1 OF oDlg FONT oSayFnt COLORS CLR_BLUE UPDATE

REDEFINE SAY oSay2 ID 52 PROMPT Clien01i->EndClie1 OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE SAY oSay3 ID 53 PROMPT Clien01i->BaiClie1 OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE SAY oSay4 ID 54 PROMPT Clien01i->CidClie1 OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE SAY oSay5 ID 55 PROMPT Clien01i->EstClie1 OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE SAY oSay6 ID 56 PROMPT LEFT(Clien01i->CepClie1,5)+"-"+RIGHT(Clien01i->CepClie1,3) OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE SAY oSay9 ID 59 PROMPT TRANS(Clien01i->CgcClie1,CpfCgcPic(Clien01i->PesClie1)) OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE SAY oSay0 ID 61 PROMPT Clien01i->IesClie1 OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE SAY oSay7 ID 57 PROMPT VerAtivo(@clAti) OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE SAY oSay8 ID 58 PROMPT RIGHT(Clien01i->DcdClie1,2)+"/"+SUBS(Clien01i->DcdClie1,5,2)+"/"+LEFT(Clien01i->DcdClie1,4) OF oDlg FONT oSayyFnt COLORS CLR_RED UPDATE

REDEFINE CHECKBOX oObs VAR llObs ID 49 OF oDlg UPDATE

REDEFINE SENSITIVE SAY PROMPT OemToAnsi(">> observa‡Æo <<") ID 60 OF oDlg;

COLOR CLR_RED COLOROVER CLR_HRED ;

ACTION VerMemo(Clien01i->ObsClie1),TemObs(@llObs),oObs:Refresh() ;

ON MOUSEOVER SndPlaySound("Click.Wav") ;

RIGHT TRANSPARENT

id=code>id=code>

A linha com problema é a ultima do código.

[kapiaba]

REDEFINE SENSITIVE SAY PROMPT OemToAnsi(">> observa‡Æo <<") ID 60 OF oDlg;

COLOR CLR_RED COLOROVER CLR_HRED ;

ACTION VerMemo(Clien01i->ObsClie1),TemObs(@llObs),oObs:Refresh() ;

ON MOUSEOVER SndPlaySound("Click.Wav") ;

RIGHT TRANSPARENT

id=code>id=code>

PARA USAR SENSITIVE SAY, VOCE PRECISA INCORPORAR A CLASSE: SSAY.PRG Y SSAY.CH AO PROJETO.

O XDEV.EXE NÃO TEM NADA A VER COM ISTO, ELE É APENAS UM LEITOR DE SCRIPT.

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632

FWH 2.7 - xHARBOUR WorkShop.Exe

[AVInfo Sistemas]

os arquivos que vc citou já estão incorporados ao projeto. O q pode ser esse erro ?

[kapiaba]

citação:

os arquivos que vc citou já estão incorporados ao projeto. O q pode ser esse erro ?

---

id=quote>id=quote>

VERIFIQUE NA PASTA C:\FWH..\INCLUDE

SE O ARQUIVO: SSAY.CH ESTA NO LOCAL, TODOS OS INCLUDES DE CLASSES DE TERCEIROS, VOCE PRECISA ´JOGAR´ Là RAPAZ!!

E LÓGICO O PROGAMA SSAY.PRG PRECISA ESTA NA PASTA DO PROJETO.

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632

FWH 2.7 - xHARBOUR WorkShop.Exe

[AVInfo Sistemas]

fiz isso mas o erro persiste .... O q pode ser ?

[Luisão]

E no início do programa tem que ter o

#include "ssay.ch"

Luis Fernando Jr. (Luisão)

Leme/SP

--

FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

juninho.luisao@gmail.com

juninho_luisao@hotmail.com

Skype luis.fernando.jr

[kapiaba]

citação:

fiz isso mas o erro persiste .... O q pode ser ?

---

id=quote>id=quote>

#Include "Fivewin.Ch"

#Include "BtnGet.Ch"

#Include "CorGet.Ch"

#Include "DSay.Ch" // Say Dinamico Com Pisca Pisca(Blinking)

#Include "SSay.Ch" // Sensitive SAY

#Define CLR_LGRAY nRGB( 230, 230, 230 )

#Define CLR_LGREEN nRGB( 190, 215, 190 )

#Define CLR_VERMELHO nRGB( 255, 000, 000 ) //--> Vermelho Para a Letra

#Define CLR_AMARELO nRgb( 255, 255, 000 ) //--> Amarelo Para o Fundo

#Define CLR_BOMBOM nRGB( 165, 42, 42 ) //--> Marrom BomBom

#Define CLR_MARROM nRGB( 235, 202, 171 ) //--> Marrom Normal

REQUEST OrdKeyNo, OrdKeyCount, OrdKeyGoto

FUNCTION...

id=code>id=code>

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632

FWH 2.7 - xHARBOUR WorkShop.Exe

[AVInfo Sistemas]

ja está declarado .....

[kapiaba]

citação:

ja está declarado .....

---

id=quote>id=quote>

ENTÃO VERIFIQUE NO SCRIPT SE VOCE ESTà CHAMANDO O PROGRAMA SSAY.PRG

AH, E SE É O DE 32 BITS, VEJA SE NÃO ESTA CHAMANDO O DE 16 BITS POR ENGANO.

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632

FWH 2.7 - xHARBOUR WorkShop.Exe

Editado por - kapiaba on 27/10/2010 09:50:05

[AVInfo Sistemas]

#include "FiveWin.ch"

#include "tsbutton.ch"

#include "Fileio.ch"

#Include "VGet.Ch"

#Include "SSay.Ch"

#Include "Image.Ch"

#include "Folder.ch"

#Define CLR_LGRAY nRGB( 230, 230, 230 )

#Define CLR_LGREEN nRGB( 190, 215, 190 )

#Define CLR_LBLUE nRGB( 150, 150, 255 )

#Define CLR_LRED nRGB( 255, 200, 145 )

#Define CLR_CREME nRGB( 255, 255, 200 )

#Define CLR_ROXO nRGB( 150, 000, 255 )

#xcommand @ , SAY OF => :Say(, , )

id=code>id=code>

[AVInfo Sistemas]

como eu vejo se esse meu arquivo é d 16 bits?

[kapiaba]

// Sensitive Say control by Ramón Avendaño

// 23-02-00

#include "FiveWin.ch"

#include "Constant.ch"

#define SS_CENTER 1

#define SS_RIGHT 2

#define SS_GRAYRECT 5 // BOXRECT

#define TA_LEFT 0

#define TA_RIGHT 2

#define TA_CENTER 6

#define TA_TOP 0

#define TA_BOTTOM 8

#define COLOR_ACTIVECAPTION 2

#define COLOR_WINDOW 5

#define COLOR_WINDOWTEXT 8

#define COLOR_BTNSHADOW 16

#define COLOR_BTNHIGHLIGHT 20

#define WM_SYSCOMMAND 274 // 0x112

#define WM_NCHITTEST 132 // 0x84

#define WM_NCMOUSEMOVE 160 // 0xA0

#define GWL_STYLE -16

#define GWL_EXSTYLE -20

#define WS_EX_TRANSPARENT 32

#ifdef __XPP__

#define Super ::TControl

#define New _New

#endif

Static oSSayOver

Static oWndMMovedParent, bMMovedParent

//----------------------------------------------------------------------------//

CLASS TSSay FROM TControl

CLASSDATA lRegistered AS LOGICAL

DATA l3D

DATA cPicture

DATA aCaption

DATA bGet

DATA lTransparent, lLight

DATA lShaded, lBox, lRaised

DATA lOver

DATA nClrOver

DATA bAction

DATA bMOver, bNonMOver

DATA lDrawBox

DATA nSTop, nSLeft

DATA aRect

DATA nTxtWidth, nTxtHeight

DATA nAlign

DATA nClrLight

METHOD New( nRow, nCol, bText, oWnd, cPicture, oFont, oCursor,;

bAction, lCentered, lRight, lBottom, lBorder, lPixels,;

nClrText, nClrBack, nClrOver, nWidth, nHeight,;

lDesign, lUpdate, lShaded, lBox, lRaised,;

lTransparent, bMOver, lLight ) CONSTRUCTOR

METHOD ReDefine( nId, bText, oWnd, cPicture,;

bAction, lCentered, lRight, lBottom,;

nClrText, nClrBack, nClrOver, lUpdate, oFont, oCursor,;

lShaded, lBox, lRaised, lTransparent, bMOver, lLight ) CONSTRUCTOR

METHOD Default()

METHOD Initiate( hDlg ) INLINE Super:Initiate( hDlg ), ::Default()

METHOD HandleEvent( nMsg, nWParam, nLParam )

METHOD Display() INLINE ::BeginPaint(), ::Paint(), ::EndPaint()

METHOD Paint()

METHOD Refresh() INLINE If( ::bGet != nil, ::SetText( Eval( ::bGet ) ),)

METHOD ReSize( nType, nWidth, nHeight );

INLINE ::Default(), Super:ReSize( nType, nWidth, nHeight )

METHOD SetText( cText ) INLINE ;

::cCaption := If( ::cPicture != nil,;

Transform( cText, ::cPicture ),;

cValToChar( cText ) ),;

::Default(), ::Paint()

METHOD DrawBox( lOnOff )

METHOD LButtonDown( nRow, nCol, nFlags )

METHOD LButtonUp( nRow, nCol, nFlags )

METHOD MouseMove( nRow, nCol, nKeyFlags )

METHOD NcMouseMove( nHitTestCode, nRow, nCol )

METHOD VarPut( cValue )

ENDCLASS

//----------------------------------------------------------------------------//

METHOD New( nRow, nCol, bText, oWnd, cPicture, oFont, oCursor,;

bAction, lCentered, lRight, lBottom, lBorder, lPixels,;

nClrText, nClrBack, nClrOver, nWidth, nHeight,;

lDesign, lUpdate, lShaded, lBox, lRaised,;

lTransparent, bMOver, lLight ) CLASS TSSay

DEFAULT nRow := 0, nCol := 0,;

lTransparent := .F., lLight:= .F., ;

lBorder := .F., lCentered := .F., lRight := .F., lBottom := .F., lPixels := .F.,;

oWnd := GetWndDefault(),;

nClrText := oWnd:nClrText, nClrBack := oWnd:nClrPane,;

nClrOver := GetSysColor( COLOR_ACTIVECAPTION ),;

nHeight := If( oFont != nil, Abs( oFont:nHeight ), SAY_CHARPIX_H ),;

lDesign := .F., bText := { || "" },;

lUpdate := .F., lShaded := .F., lBox := .F., lRaised := .F.

::l3D = lShaded .or. lBox .or. lRaised

::nAlign = nOr( If( lBottom, TA_BOTTOM, TA_TOP ),;

If( lCentered, TA_CENTER, If( lRight, TA_RIGHT, TA_LEFT ) ) )

::bGet = bText

::bSetGet = bText

::cPicture = cPicture

::cCaption = If( Empty( cPicture ), cValToChar( Eval( bText ) ),;

Transform( Eval( bText ), cPicture ) )

DEFAULT nWidth := ( If( oFont != nil, Abs( oFont:nWidth ), SAY_CHARPIX_W ) * Len( ::cCaption ) ) - 4 // 8

if ! lPixels

::nTop = nRow * If( oFont != nil, Abs( oFont:nHeight ), SAY_CHARPIX_H ) + 2 // 13

::nLeft = nCol * If( oFont != nil, Abs( oFont:nWidth ), SAY_CHARPIX_W ) // 8

else

::nTop = nRow

::nLeft = nCol

endif

::nBottom = ::nTop + nHeight - 1

::nRight = ::nLeft + nWidth - 1

::oWnd = oWnd

::oFont = oFont

::oCursor = oCursor

::bAction = bAction

::nId = ::GetNewId()

::nStyle = nOR( WS_CHILD, WS_VISIBLE,;

If( lDesign, nOr( WS_CLIPSIBLINGS, WS_TABSTOP ), 0 ),;

If( lBorder, WS_BORDER, 0 ) )

::lShaded = lShaded

::lBox = lBox

::lRaised = lRaised

::lOver = .F.

::nClrOver = nClrOver

::bMOver = bMOver

::lDrag = lDesign

::lCaptured = .F.

::lUpdate = lUpdate

::lTransparent = lTransparent

::lLight = lLight

::SetColor( nClrText, if( lTransparent,, nClrBack ) )

::Register( nOR( CS_VREDRAW, CS_HREDRAW ) )

if ! Empty( oWnd:hWnd )

::Create()

::Default()

if ::l3D

::Set3DLook()

endif

oWnd:AddControl( Self )

else

oWnd:DefControl( Self )

endif

if ::lDrag

::CheckDots()

endif

return Self

//----------------------------------------------------------------------------//

METHOD ReDefine( nId, bText, oWnd, cPicture,;

bAction, lCentered, lRight, lBottom,;

nClrText, nClrBack, nClrOver, lUpdate, oFont, oCursor,;

lShaded, lBox, lRaised, lTransparent, bMOver, lLight ) CLASS TSSay

DEFAULT lTransparent := .F., lLight:= .F. ,;

lCentered := .F., lRight := .F., lBottom := .F.,; // nClrText := oWnd:nClrText, nClrBack := oWnd:nClrPane,;

nClrOver := GetSysColor( COLOR_ACTIVECAPTION ),;

oWnd := GetWndDefault(),;

lUpdate := .F., lShaded := .F., lBox := .F., lRaised := .F.

::l3D = lShaded .or. lBox .or. lRaised

::nId = nId

::nAlign = nOr( If( lBottom, TA_BOTTOM, TA_TOP ),;

If( lCentered, TA_CENTER, If( lRight, TA_RIGHT, TA_LEFT ) ) )

::bGet = bText

::bSetGet = bText

::cPicture = cPicture

::oFont = oFont

if bText != nil

::cCaption = If( Empty( cPicture ), cValToChar( Eval( bText ) ),;

Transform( Eval( bText ), cPicture ) )

endif

::oWnd = oWnd

::hWnd = 0

::oCursor = oCursor

::bAction = bAction

::lShaded = lShaded

::lBox = lBox

::lRaised = lRaised

::lOver = .F.

::nClrOver = nClrOver

::bMOver = bMOver

::lDrag = .F.

::lCaptured = .F.

::lUpdate = lUpdate

::lTransparent = lTransparent

::lLight = lLight

::SetColor( nClrText, if( lTransparent,, nClrBack ) )

::Register( nOR( CS_VREDRAW, CS_HREDRAW ) )

if oWnd != nil

oWnd:DefControl( Self )

endif

return Self

//----------------------------------------------------------------------------//

METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TSSay

if ::lDrag .and. nMsg == WM_NCHITTEST

return DefWindowProc( ::hWnd, nMsg, nWParam, nLParam )

elseif nMsg == WM_NCMOUSEMOVE

return DefWindowProc( ::hWnd, nMsg, nWParam, nLParam )

endif

return Super:HandleEvent( nMsg, nWParam, nLParam )

//----------------------------------------------------------------------------//

METHOD Default() CLASS TSSay

local lCentered := nAnd( ::nAlign, TA_CENTER ) == TA_CENTER

local lRight := nAnd( ::nAlign, TA_RIGHT ) == TA_RIGHT

local lBottom := nAnd( ::nAlign, TA_BOTTOM ) == TA_BOTTOM

DEFAULT ::lDrawBox := .F.

if ::oFont != nil

::SetFont( ::oFont )

else

::SetFont( ::oWnd:oFont )

endif

::nTxtWidth = 0

::nTxtHeight = GetTextHeight( ::hWnd, 0 )

if ! Empty( ::cCaption )

SetWindowText( ::hWnd, ::cCaption )

else

::cCaption = GetWindowText( ::hWnd )

endif

::aCaption = Array( MLCount( ::cCaption, 254 ) )

AEval( ::aCaption, {|c, n| ::aCaption[ n ] := Trim( MemoLine( ::cCaption, 252, n ) ),;

::nTxtWidth := Max( ::nTxtWidth, GetTextWidth( 0, ::aCaption[ n ],;

if( ::oFont != nil, ::oFont:hFont, 0 ) ) ) } )

::aRect := GetClientRect( ::hWnd )

::nSTop := if( lBottom, ::aRect[ 3 ], 0 )

::nSLeft := if( lCentered, int( ::aRect[ 4 ] / 2 ), if( lRight, ::aRect[ 4 ], 0 ) )

// Edn: Inicio

if ::lShaded

if !lBottom

::nSTop += 3

endif

if !lRight .and. !lCentered

::nSLeft += 4

endif

if lRight

::nSLeft -= 4

endif

endif

// Edn: Fim

if ::lBox

::aRect := { 2, 2, ::aRect[ 3 ] - 2, ::aRect[ 4 ] - 2 }

elseif ::lShaded .or. ::lRaised

::aRect := { 1, 1, ::aRect[ 3 ] - 1, ::aRect[ 4 ] - 1 }

endif

if ::lTransparent

SetWindowLong( ::hWnd, GWL_EXSTYLE,;

nOr( GetWindowLong( ::hWnd, GWL_EXSTYLE ), WS_EX_TRANSPARENT ) )

endif

if oWndMMovedParent = nil .and. bMMovedParent = nil .and. ::oWnd:bMMoved != nil

bMMovedParent := ::oWnd:bMMoved

endif

oWndMMovedParent := ::oWnd

::oWnd:bMMoved := {| nRow, nCol, nKeyFlags | NcSSayOver( nRow, nCol, nKeyFlags ) }

if !::ltransparent

InvalidateRect( ::hWnd, ::aRect, .t. )

else

InvalidateRect( ::oWnd:hWnd, { ::nTop + ::aRect[1], ::nLeft + ::aRect[2],;

::nTop + ::aRect[3], ::nLeft + ::aRect[4] }, .F. )

SysRefresh()

endif

return nil

//----------------------------------------------------------------------------//

METHOD Paint() CLASS TSSay

local n

local nColorShadow, nColorLight

if ::nClrLight = Nil

nColorLight := GetSysColor( COLOR_BTNHIGHLIGHT )

else

nColorLight := ::nClrLight

endif

::GetDC()

if ::lActive

for n := 1 to len( ::aCaption )

if ::lLight

WSay( ::hWnd, ::hDC, ::nSTop + ( n - 1 ) * ::nTxtHeight + 1, ::nSLeft + 1, ::aCaption[ n ],;

nColorLight,, If( ::oFont != nil, ::oFont:hFont, 0 ), .T., .T., ::nAlign )

endif

WSay( ::hWnd, ::hDC, ::nSTop + ( n - 1 ) * ::nTxtHeight, ::nSLeft, ::aCaption[ n ],;

If( ::lOver, ::nClrOver, ::nClrText ),,;

If( ::oFont != nil, ::oFont:hFont, 0 ), .T., .T., ::nAlign )

next

if ::lDrawBox

::DrawBox( ::lOver )

endif

else

nColorShadow := GetSysColor( COLOR_BTNSHADOW )

for n := 1 to len( ::aCaption )

WSay( ::hWnd, ::hDC, ::nSTop + ( n - 1 ) * ::nTxtHeight + 1, ::nSLeft + 1, ::aCaption[ n ], nColorLight,,;

If( ::oFont != nil, ::oFont:hFont, 0 ), .T., .T., ::nAlign )

WSay( ::hWnd, ::hDC, ::nSTop + ( n - 1 ) * ::nTxtHeight, ::nSLeft, ::aCaption[ n ], nColorShadow,,;

If( ::oFont != nil, ::oFont:hFont, 0 ), .T., .T., ::nAlign )

next

endif

// 3D

if ::lShaded

WndInset( ::hWnd, ::hDC ) // SHADED, SHADOW

endif

if ::lRaised

WndRaised( ::hWnd, ::hDC ) // RAISED

endif

if ::lBox

WndBoxIn( ::hDC, 0, 0, ::nBottom-::nTop, ::nRight-::nLeft )

WndBoxRaised( ::hDC, 1, 1, ::nBottom-::nTop-1, ::nRight-::nLeft-1 )

endif

::ReleaseDC()

if ::lTransparent

SysRefresh()

endif

return nil

//----------------------------------------------------------------------------//

METHOD DrawBox( lOnOff ) CLASS TSSay

local hPen := CreatePen( PS_SOLID, 1, if( lOnOff, ::oWnd:nClrText, ::oWnd:nClrPane ) )

MoveTo( ::hDC, ::aRect[2], ::aRect[1] )

LineTo( ::hDC, ::aRect[4] - 1, ::aRect[1], hPen )

LineTo( ::hDC, ::aRect[4] - 1, ::aRect[3] - 1, hPen )

LineTo( ::hDC, ::aRect[2], ::aRect[3] - 1, hPen )

LineTo( ::hDC, ::aRect[2], ::aRect[1], hPen )

DeleteObject( hPen )

return nil

//----------------------------------------------------------------------------//

METHOD LButtonDown( nRow, nCol, nFlags ) CLASS TSSay

local nPos, aRect

if !::lActive .or. ::lDrag

return Super:LButtonDown( nRow, nCol, nFlags )

endif

Super:LButtonDown( nRow, nCol, nFlags )

return nil

//----------------------------------------------------------------------------//

METHOD LButtonUp( nRow, nCol, nFlags ) CLASS TSSay

if !::lActive .or. ::lDrag

return Super:LButtonUp( nRow, nCol, nFlags )

endif

if ::bAction != nil

Eval( ::bAction, Self )

endif

Super:LButtonUp( nRow, nCol, nFlags )

return nil

//----------------------------------------------------------------------------//

METHOD MouseMove( nRow, nCol, nKeyFlags ) CLASS TSSay

::SetMsg( ::cMsg )

::CheckToolTip()

if !::lActive .or. ::lDrag

return Super:MouseMove( nRow, nCol, nKeyFlags )

endif

if !::lOver

if oSSayOver != nil

NcSSayOver( nRow, nCol, nKeyFlags )

endif

::lOver := .t.

oSSayOver := Self

::Paint()

if ::bMOver != nil

Eval( ::bMOver )

endif

endif

if ::oCursor != nil

SetCursor( ::oCursor:hCursor )

else

CursorHAND()

endif

return 0

//----------------------------------------------------------------------------//

METHOD NcMouseMove( nHitTestCode, nRow, nCol ) CLASS TSSay

if !::lActive .or. ::lDrag

return Super:NcMouseMove( nHitTestCode, nRow, nCol )

endif

if ::lOver

::lOver := .F.

oSSayOver := nil

::Paint()

if ::bNonMOver != nil

Eval( ::bNonMOver )

endif

endif

return 0

//----------------------------------------------------------------------------//

METHOD VarPut( cValue ) CLASS TSSay

if ! Empty( ::cPicture )

cValue = Transform( cValue, ::cPicture )

else

cValue = cValToChar( cValue )

endif

::bGet = { || cValue }

return nil

// Public functions

//----------------------------------------------------------------------------//

function NcSSayOver( nRow, nCol, nKeyFlags )

if oSSayOver != nil

oSSayOver:NcMouseMove( 0, nRow, nCol )

endif

if bMMovedParent != nil

Eval( bMMovedParent, nRow, nCol, nKeyFlags )

endif

return nil

//----------------------------------------------------------------------------//

// R.Avendaño. 1998

id=code>id=code>

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632

FWH 2.7 - xHARBOUR WorkShop.Exe

[Luisão]

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=14335&start=0

Luis Fernando Jr. (Luisão)

Leme/SP

--

FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

juninho.luisao@gmail.com

juninho_luisao@hotmail.com

Skype luis.fernando.jr

[kapiaba]

#define _SSAY_CH

/*----------------------------------------------------------------------------//

!short: SENSITIVE SAY */

#xcommand REDEFINE SENSITIVE SAY [] ;

[ ] ;

[ PICTURE ] ;

[ ID ] ;

[ ] ;

[ ACTION ] ;

[ ] ;

[ ] ;

[ ];

[ [, ] ] ;

[ COLOROVER ] ;

[ ] ;

[ FONT ] ;

[ CURSOR ] ;

[ ] ;

[ ] ;

[ ] ;

[ ] ;

[ ] ;

[ ON MOUSEOVER ] ;

=> ;

[ := ] TSSay():ReDefine( , <{cText}>, , , ;

[\{|Self|\}], <.lCenter.>, <.lRight.>, <.lBottom.>, ;

, , , <.update.>, , , ;

<.lShaded.>, <.lBox.>, <.lRaised.>, <.lTransparent.>, [{||}], <.lLight.> )

#xcommand @ , SENSITIVE SAY [ ] ;

[ PICTURE ] ;

[ ] ;

[ FONT ] ;

[ CURSOR ] ;

[ ] ;

[ ] ;

[ ];

[ ] ;

[ ] ;

[ [, ] ] ;

[ COLOROVER ] ;

[ SIZE , ] ;

[ ACTION ] ;

[ ] ;

[ ] ;

[ ] ;

[ ] ;

[ ] ;

[ ] ;

[ ] ;

[ ON MOUSEOVER ] ;

=> ;

[ := ] TSSay():New( , , <{cText}>,;

[], [], , , ;

[\{|Self|\}], <.lCenter.>, <.lRight.>, <.lBottom.>, <.lBorder.>,;

<.lPixel.>, , , , , ,;

<.design.>, <.update.>, <.lShaded.>, <.lBox.>, <.lRaised.>,;

<.lTransparent.>, [{||}], <.lLight.> )

id=code>id=code>

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632

FWH 2.7 - xHARBOUR WorkShop.Exe

[Luisão]

ACTION (VerMemo(Clien01i->ObsClie1),TemObs(@llObs),oObs:Refresh() ) ;

Luis Fernando Jr. (Luisão)

Leme/SP

--

FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

juninho.luisao@gmail.com

juninho_luisao@hotmail.com

Skype luis.fernando.jr

[kapiaba]

cMail := "joao@pleno.com."

cMail2 := "kmt_karinha@pop.com.br"

cPagina := "http://www.fivewin.com.br"

REDEFINE SENSITIVE SAY oSay PROMPT cMail ;

COLOR CLR_HBLUE LIGHT ;

COLOROVER CLR_HRED UPDATE RAISED ;

ON MOUSEOVER SndPlaySound("Select.Wav") ; // Win

ACTION Click(), MeuWinExec("Start MailTo:" + cMail, 0 ) ; // todos

CENTER TRANSPARENT ID 110 OF oDlgd

//ACTION Click(), WinExec( "C:\ARQUIV~1\OUTLOO~1\MSIMN.EXE" ) ; // 2000

oSay:cToolTip = "Chama o OutLook Express..." +CRLF+ ;

"Para o E-Mail em Destaque." +CRLF+ ;

"Caixa Postal. "

oSay:cCaption := cMail

REDEFINE SENSITIVE SAY oSay PROMPT cMail2 ;

COLOR CLR_HBLUE LIGHT ;

COLOROVER CLR_HRED UPDATE RAISED ;

ON MOUSEOVER SndPlaySound("Select.Wav") ;

ACTION Click(), MeuWinExec("Start MailTo:" + cMail2, 0 ) ; // win98

CENTER TRANSPARENT ID 111 OF oDlgd

oSay:cToolTip = "Chama o OutLook Express... " +CRLF+ ;

"Para o E-Mail em Destaque. " +CRLF+ ;

"Caixa Postal. "

oSay:cCaption := cMail2

REDEFINE SENSITIVE SAY oSay PROMPT cPagina ;

COLOR CLR_HBLUE LIGHT ;

COLOROVER CLR_HRED UPDATE RAISED ;

ON MOUSEOVER SndPlaySound("Select.Wav") ;

ACTION Click(), MeuWinExec( "Start Iexplore.Exe www.automacaofiscal.com.br", 0 ) ;

CENTER TRANSPARENT ID 112 OF oDlgd

// Lanzo conexion a Internet |-----------> Nombre Conexion

// Winexec("rundll rnaui.dll,RnaDial Uni2",0);

oSay:cToolTip = ( OemToAnsi( "Acionar o Internet Explorer" ) ) +CRLF+ ;

( OemToAnsi( "Para a P gina em Destaque " ) ) +CRLF+ ;

( OemToAnsi( "Endere‡o da Minha Home Page" ) ) +CRLF+ ;

( OemToAnsi( "Dˆ Uma Olhadinha Por Favor!" ) )

oSay:cCaption := cPagina

id=code>id=code>

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632

FWH 2.7 - xHARBOUR WorkShop.Exe

[AVInfo Sistemas]

deu certo ... era o arquivo q estava em 16 bits

[AVInfo Sistemas]

vc não teriam o link pra eu fazer o download da dsay por favor ? .... agora cai em outro erro ...

[kapiaba]

citação:

deu certo ... era o arquivo q estava em 16 bits

---

id=quote>id=quote>

EU SOU...

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632

FWH 2.7 - xHARBOUR WorkShop.Exe

[kapiaba]

citação:

vc não teriam o link pra eu fazer o download da dsay por favor ? .... agora cai em outro erro ...

---

id=quote>id=quote>

EU CONTINUO...

http://www.fivewin.com.br/Dicas/484DSAY.ZIP

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632

FWH 2.7 - xHARBOUR WorkShop.Exe

[AVInfo Sistemas]

Obrigado .... deu certo ....

Valew

[AVInfo Sistemas]

agora to com mais problemas rss....

sabem me dizer o pq dos erros abaixo no xDev ???

[kapiaba]

VOCE NÃO ESTà USANDO UMA WBROWSE.PRG DE TERCEIROS NÃO??

A DO HERNAN CECARELLI E NÃO INCOPOROU AO PROJETO??

HEIM?? HEIM?? HEIM???

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632

FWH 2.7 - xHARBOUR WorkShop.Exe

[AVInfo Sistemas]

me desculpe kra ... deixa eu esclarecer algumas coisas ...

O código fonte não é meu é do meu chefe .... sou novo na linguagem fivewin ... to começando a dar os primeiros passos .. e a minha primeira tarefa é converter esse fonte de 16 para 32 bits ... Eu programo somente em Java e ainda não estou mto por dentro dessa nova linguagem (pra mim). Então pra eu incorporar no meu projeto essa WBROWSE.PRG não é simplesmente adicioná-la no projeto juntamente com os .prgs ?