Jump to content
Fivewin Brasil

Para Gilmer e Edvaldo:

kapiaba

By kapiaba
in Programação

 Share

Recommended Posts

kapiaba Enthusiast

kapiaba

Posted
Posted

Gilmer,

%hdir%\bin\harbour TGET /es2/m/n/a/w0 /i%fwhdir%\include;%hdir%\include /w /p TGET.C >> Erro.log

%hdir%\bin\harbour CONTROL /es2/m/n/a/w0 /i%fwhdir%\include;%hdir%\include /w /p CONTROL.C >> Erro.log

%hdir%\bin\harbour WINDOW /es2/m/n/a/w0 /i%fwhdir%\include;%hdir%\include /w /p WINDOW.C >> Erro.log

%hdir%\bin\harbour RPREVIEW /es2/m/n/a/w0 /i%fwhdir%\include;%hdir%\include /w /p RPREVIEW.C >> Erro.log

Trocar as classes pela da versao nova.

Verificar se o SENSITIVE SAY VAI FUNCIONAR A CONTENTO.

Se nao funcionar, tem que incorporar as mudancas que o LINARES fez na

CONTROL.PRG

Eu tenho aqui, mas estamos com queda de energia, devido as chuvas e ta dificil responder.



// SENSITIVE SAY:


// 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


"Burro Carregado de Açucar, Até o Fiofó é Doce"



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		kapiaba
	

				
				
					
						
Enthusiast
					
				
			

		

		

			

				


kapiaba
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Gilmer,


%hdir%\bin\harbour TGET     /es2/m/n/a/w0 /i%fwhdir%\include;%hdir%\include /w /p TGET.C        >> Erro.log


%hdir%\bin\harbour CONTROL  /es2/m/n/a/w0 /i%fwhdir%\include;%hdir%\include /w /p CONTROL.C     >> Erro.log


%hdir%\bin\harbour WINDOW   /es2/m/n/a/w0 /i%fwhdir%\include;%hdir%\include /w /p WINDOW.C      >> Erro.log


%hdir%\bin\harbour RPREVIEW /es2/m/n/a/w0 /i%fwhdir%\include;%hdir%\include /w /p RPREVIEW.C    >> Erro.log


Trocar as classes pela da versao nova.


Verificar se o SENSITIVE SAY VAI FUNCIONAR A CONTENTO.


Se nao funcionar, tem que incorporar as mudancas que o LINARES fez na


CONTROL.PRG


Eu tenho aqui, mas estamos com queda de energia, devido as chuvas  e ta dificil responder.






// SENSITIVE SAY:


// 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


"Burro Carregado de Açucar, Até o Fiofó é Doce"



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					





					
					
					
				

					

					
					






	

	

	

		

			

				


	
		kapiaba
	

				
				
					
						
Enthusiast
					
				
			

		

		

			

				


kapiaba
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Troque as classes velhas pelas novas. guarde as anteriores para checagem.


%hdir%\bin\harbour TGET /es2/m/n/a/w0 /i%fwhdir%\include;%hdir%\include /w /p TGET.C >> Erro.log


%hdir%\bin\harbour CONTROL /es2/m/n/a/w0 /i%fwhdir%\include;%hdir%\include /w /p CONTROL.C >> Erro.log


%hdir%\bin\harbour WINDOW /es2/m/n/a/w0 /i%fwhdir%\include;%hdir%\include /w /p WINDOW.C >> Erro.log


%hdir%\bin\harbour RPREVIEW /es2/m/n/a/w0 /i%fwhdir%\include;%hdir%\include /w /p RPREVIEW.C >> Erro.log


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


"Burro Carregado de Açucar, Até o Fiofó é Doce"


Editado por - kapiaba on 08/03/2010  16:20:12



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		kapiaba
	

				
				
					
						
Enthusiast
					
				
			

		

		

			

				


kapiaba
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:
Ok João.


não consegui compilar com os parâmetros /es2/m/n/a/w0, só consegui com /n/a, pois não chega a gerar o .exe


Mesmo após seu dasy.prg continuo com telas diferentes e a em agumas telas do workshop sem destaque nos get. mas tá rodando sem problemas.


Obrigado


Edvaldo




id=quote>id=quote>
SE MESMO DEPOIS DE TROCAR AS CLASSES, CONTINUAR COM PROBLEMAS, TALVEZ TENHA QUE TROCAR O CONTROLE DO DSAY NO DIALOGO, COISA SIMPLES QUE EU POSSO POSTAR AQUI E COLAr E COPIAr.


Abraços.


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


"Burro Carregado de Açucar, Até o Fiofó é Doce"



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					





					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Edvaldo1361303230
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


Edvaldo1361303230
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

João, lembra desta tela ? ela mostrava:


CODIGO:  789766551122


DESCRIÇÃO: FUBA DE MILHO


QUANT.   : 3,00


Agora só mostra:


CODIGO:


DESCRIÇÃO:


QUANT.


O get .f. ficou invisivel.


Já realizei as mudanças que vc solicitou.


Edvaldo


STATIC FUNCTION EXCLUIR( nKey, oDbfPedf, oDbfEstoque, oDbfVendedor, oDbfEnt, ;


                         oDbfAreceber, oLbx, aGet )


    FIELD DESCRICAO, QTD, COD, EMIS, VENCI, CGCCLI, NNF, TIPO, NOPE, CAIXA


    LOCAL cProduto, xqtdv, xtitemv, xCodap, xArqosa, oDbfOusa


    LOCAL oDlg, oConfirma, oSaida, oFont, oBrush, IDCor


    LOCAL lApagaItem:=.F., xLreg, xNitc, xNformula, xDtformu, xQtdformu, xCodFormu


    LOCAL xAutoriza, xRex, xSai:= 2, xCgcap:=" ", cVcCod, xDeAp, xCxaa


    MEMVAR nValorCompra, nTotCust, lItemSalvar, nValor_Pago, nValorTroco


    MEMVAR oImagem, XREPRES, XNNF, oDbfServidor, xOpe


    PUBLIC XTPV, XECF, XPECF, XCODVEND, xLoca, XULS, XDUE, XIAI, XDA, XUSR,;


           xCad, xScx, xUsd


    Select( oDbfPedf:cAlias )


    xRex   := Recno()


    xCodap := Cod


    IF xLoca = "1"


       MSgINFO(OEMTOANSI("Cancelamento de Ötens Imposs¡vel Deste Terminal"),oemtoansi("BalcÆo - Cancelamento de Ötens de Terminal de Lan‡amento"))


       RETURN(.T.)


    ElseIf xDue # "1"


       MSgINFO(OEMTOANSI("Tecla DELETE Desabilitada em Configura‡Æo do Sistema"),oemtoansi("BalcÆo - Cancelamento de Ötens Pela Tecla DELETE"))


       RETURN(.T.)


    ENDIF


    // Se a ListBox dos Produtos Tiver Ötens, Pode-se Deletar(Apagar)


    IF ! EOF()


            IF  ! XSMX


               IF VAL(XULS) > 0


                  FECHA_LEITOR()


               ENDIF


               XAUTORIZA := AUTORIZA("01","S",1, ODBFVENDEDOR)


               IF VAL(XULS) > 0


                  ABRE_LEITOR()


               ENDIF


               IF XAUTORIZA="NAO".OR. LEN(ALLTRIM(XAUTORIZA)) <= 0


                  RETURN( .F. )


               ENDIF


            ELSE


               XAUTORIZA:=LEFT(XCODVEND,2)


            ENDIF


            Select( oDbfPedf:cAlias )


            Go Top


            While XUSR # "1" .AND. NNF = XNNF .AND. RECNO() # xRex .OR. ;


                  XUSR = "1" .AND. NNF = XNCONTROLE .AND. RECNO() # xRex


               Sysrefresh()


               Skip


            Enddo


            If XUSR # "1" .AND. NNF # XNNF .OR. RECNO() # XREX .OR.;


               XUSR = "1" .AND. NNF # XNCONTROLE .OR.COD # xCodap


                mSgInfo(oemtoansi("Houve Um Erro na Checagem do Ötem do Produto a Ser Excluido.")+CRLF+;


                        oemtoansi("Tente Novamente a ExclusÆo do Produto e Caso NÆo Consiga, Ap¢s")+CRLF+;


                        oemtoansi("o T‚rmino da Venda, Execute a Op‡Æo de Indexa‡Æo de Dados."),;


                        oemtoansi("BalcÆo - Erro na ExclusÆo do Produto"))


                RETURN NIL


            Endif


            cProduto := Left( DESCRICAO, 30 )


            cVcCod   := COD


            xQtdv    := Qtd


            xTitemv  := TotItem


            //-> Religa Cursor do Mouse


            Religa_Rato()


            DEFINE FONT oFont    NAME "Times New Roman" SIZE 0, 18 BOLD


            DEFINE BRUSH  oBrush FILE "COMPAR.BMP"


            DEFINE DIALOG oDlg RESOURCE "DLG_EXCLUIR_ITEM_VENDAS"         ;


                       BRUSH oBrush TRANSPARENT


            ODLG:LHELPICON := .F.


            For iDcor=401 To 404


                    REDEFINE SENSITIVE SAY ID iDcor ;


                    COLOR CLR_BLACK                 ;


                    OF oDlg                         ;


                    UPDATE CENTER                   ;


                    RAISED TRANSPARENT              ;


                    FONT oFont


            Next iDcor


            //-> Cor no Group Box da Dialog


            REDEFINE GROUP oGroup ID 501                                  ;


                         COLOR CLR_VERMELHO, CLR_AMARELO OF oDlg              ;


                         FONT oFont TRANSPARENT


             //-> C¢digo do Produto


             REDEFINE GET cVcCod   PICTURE "@!"           ;


                         WHEN( .F. )                                          ;


                         ID 20 OF oDlg                                        ;


                         FONT oFont UPDATE                                    ;


                         COLOR CLR_HRED, CLR_HCYAN                            ;


                         MESSAGE ( OemToAnsi( "C¢digo do Produto" ) )


                //-> Descri‡Æo do Produto


                REDEFINE GET cProduto PICTURE "@!"           ;


                         WHEN( .F. )                                          ;


                         ID 21 OF oDlg                                        ;


                         FONT oFont UPDATE                                    ;


                         COLOR CLR_HRED, CLR_HCYAN                            ;


                         MESSAGE ( OemToAnsi( "Descri‡Æo do Produto" ) )


                //-> Quantidade Vendida - xQtdv, "@e 999,999.99"


                REDEFINE GET xQtdv   PICTURE "@E 999,999.99" ;


                         WHEN( .F. )                                          ;


                         ID 22 OF oDlg                                        ;


                         FONT oFont UPDATE                                    ;


                         COLOR CLR_HRED, CLR_HCYAN                            ;


                         MESSAGE ( OemToAnsi( "Quantidade Vendida" ) )


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


                // Botäes...


                REDEFINE BUTTON oConfirma       ID 301 OF oDlg                ;


                         ACTION( lApagaItem := .T., xSai:=1, oDlg:End() ) CANCEL


                oConfirma:cToolTip = ( OemToAnsi( "Apagar Ötem da Venda - Cuidado!!" ) )


                REDEFINE BUTTON oSaida          ID 302 OF oDlg                ;


                         ACTION( lApagaItem := .F., xSai:=0, oDlg:End() ) CANCEL


                oSaida:cToolTip = ( OemToAnsi( "Cancelar Sem Apagar Ötem da Venda" ) )


                SET FONT OF oDlg TO oFont


                ACTIVATE DIALOG oDlg CENTERED  RESIZE16                     ;


                         ON INIT( xFocus( oSaida ) )                          ;


                         VALID( xSai = 0 .or. xSai = 1 )



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		kapiaba
	

				
				
					
						
Enthusiast
					
				
			

		

		

			

				


kapiaba
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

MOSTRE UMA TELA PARA EU ENTENDER MELHOR.


SALVE NO PAINT COMO BMP OU JPG 


COLOQUE EM UM PROVEDOR E PEGUE O LINK E COLE AQUI.


PODE SER EM:


http://www.4shared.com


ou se o seu site permitir, hospede nele e pegue link direto dele.


TUDO INDICA QUE FALTA UMA ALTERAÇÃO NA CONTROL.PRG


COMPARA A NOVA COM A VELHA, VEJA SE EU MODIFIQUEI ALGUMA COISA NA VELHA E SE SIM, VEJA NA NOVA SE O LINARES IMPLEMENTOU OU NAO.


SE NAO TIVER ALTERAÇAO, ENVIAREI A MINHA CONTROL.PRG, PARA VOCE COMPARAR COM A SUA NOVA.


ABS.


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


"Burro Carregado de Açucar, Até o Fiofó é Doce"



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					





					
					
					
				

					

					
					





					
					
					
				

					

					
					






	

	

	

		

			

				


	
		kapiaba
	

				
				
					
						
Enthusiast
					
				
			

		

		

			

				


kapiaba
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:
Ok João segue o link:


http://www.4shared.com/file/237835167/e4eae166/tela.html


Edvaldo




id=quote>id=quote>
BOM DIA, VEJA SEU EMAIL.


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


"Burro Carregado de Açucar, Até o Fiofó é Doce"



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					





					
					
					
				

					

					
					






	

	

	

		

			

				


	
		kapiaba
	

				
				
					
						
Enthusiast
					
				
			

		

		

			

				


kapiaba
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:
Ok João, parabéns pelo empenho e alto nível técnico a frente do fivewin.


Meu problema foi totalmente resolvido após o envio via email do seu programa control.prg


Obrigado


Edvaldo




id=quote>id=quote>
PARABÉNS PARA VOCÊ, QUE ENTENDEU O QUE EU FIZ!!


I LOVE FIVEWIN!!! FOREVER!!id=size5>


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


"Burro Carregado de Açucar, Até o Fiofó é Doce"



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		Edvaldo1361303230
	

				
				
					
						
Newbie
					
				
			

		

		

			

				


Edvaldo1361303230
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Ok João, mais uma coisa pra fechar com chave de ouro.


REDEFINE GET AGET[4] VAR NVALORCOMPRA PICTURE "@KE 999,999.99" ID 101 OF ODLGV FONT OFONTSOMA UPDATE COLOR CLR_YELLOW, CLR_BLACK WHEN( .F. )


Esse get mostrava o total da compra com fundo preto e o valor em amarelo.


Agora mostra o fundo branco com o valor em cinza.


Obrigado


Edvaldo



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		kapiaba
	

				
				
					
						
Enthusiast
					
				
			

		

		

			

				


kapiaba
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
						
  • Author
    • 
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			




citação:
Ok João, mais uma coisa pra fechar com chave de ouro.


REDEFINE GET AGET[4] VAR NVALORCOMPRA PICTURE "@KE 999,999.99" ID 101 OF ODLGV FONT OFONTSOMA UPDATE COLOR CLR_YELLOW, CLR_BLACK WHEN( .F. )


Esse get mostrava o total da compra com fundo preto e o valor em amarelo.


Agora mostra o fundo branco com o valor em cinza.


Obrigado


Edvaldo




id=quote>id=quote>
BASTA ALTERAR A TGET.PRG PARA QUE OS WHEN( .F. ) PEGUEM CORES.


VEJA NA TGET.PRG ANTERIOR SE VOCE TEM.


SENÃO AVISE QUE EU ENVIO A MINHA.


Abs.


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


"Burro Carregado de Açucar, Até o Fiofó é Doce"



			
		


		
			

				
					
						

	
	
		

			
				
				

					
				

			
			
			
		

	


					
				
				
			

		

		
			

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					






	

	

	

		

			

				


	
		gilmer
	

				
				
				
				
					
						
Newbie
					
				
			

		

		

			

				


gilmer
			

			

				Posted 
				
			

		

	

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted 
			
			
				
				
			
		

	


	

    

	

		
		

			

Olá,


  Não precisa alterar a classe tget, veja o exemplo testget3.prg e veja as propriedades:


oGet:lDisColors := .f. // desativa a cor de desativado


oGet:nClrTextDis := CLR_WHITE // cor do texto quando estiver desativado o GET


oGet:nClrPaneDis := CLR_BLUE // cor do fundo quando estiver desativado o GET


Obs. isto é para as versões mais recentes do FiveWin


e-mail: gilmer@fivewin.com.br


msn: fivewinbrasil@hotmail.com



			
		


		
			

				
					
						

	
	
		

			
				
				

					
						

	
	

					
				

			
			
			
		

	


					
				
				
			

		

		
	


	

	





	
Link to comment

	
		
	
	
	

	
	
Share on other sites

	

	


	

	

	




	



					
					
					
				

					

					
					





					
					
					
				
			
			



		

	


	
	
	
	
	
		
	

			
				
				

	
		

			
Join the conversation

			

	
				
					You can post now and register later.
				
				If you have an account, sign in now to post with your account.
				
			

	
		

	




	
	
		
	
		
	
		
	
	
		
		
	
	

		

		


	
		Guest
	


		

			
				
					
				
					
						
    
							
  • 
								


	
	
	
	

								
							
    • 
						

					
				
					
				
			
			
				
					
						
							
						
						



    

		
		

			
		

		
			
 Reply to this topic...

		
		

			

				
					×
					  Pasted as rich text.   Paste as plain text instead
				
			

		

		

			

				  Only 75 emoji are allowed.
			

		

		

			

				×
				  Your link has been automatically embedded.   Display as a link instead
			

		

		

			

			

		

		

			

				×
				  Your previous content has been restored.   Clear editor
			

		

		

			

				×
				  You cannot paste images directly. Upload or insert images from URL.
			

		

		


	

		

			
			

				Loading...
			

		
		
	



	

	

		

			×
			
		

		

	



						
					
				
					
				
					
				
			
			
    
				
					
						
					
						
					
						
							
  • 
								

    
	

    
								
							
    • 
						
					
				
				
					
  • 

	

    • 
				
			

		

	



			
		

	

	
		

			

				
					


    
          Share
    

    

        
        
            

            
        
    


				
				
                

                




				
			

		

	







	

		
			
				Go to topic listing
			
		
	

	




						


					

					


					

				

			

			
		

		
		


	

		×
		

			
				

					
				

			

			

			

			
		

	






	

		×
		

			
    
				
  • Create New...
    •