FiveTech Support Forums

......
CLASS TGet FROM TControl

   DATA   oGet, oBtn, bAction
   DATA   bMin, bMax
   DATA   nPos
   DATA   lReadOnly, lPassword
   DATA   cError, cBmpName
   DATA   hHeap
   DATA   cPicture
   DATA   lDisColors        // .t. Use standard disabled colors
   DATA   bPostKey
   DATA   lSpinner
   DATA   nOldClrPane      // Old background color, if color changed with focus
   DATA   lNoBorderBtn

.......

METHOD New( nRow, nCol, bSetGet, oWnd, nWidth, nHeight, cPict, bValid,;
               nClrFore, nClrBack, oFont, lDesign, oCursor, lPixel,;
               cMsg, lUpdate, bWhen, lCenter, lRight, bChanged,;
               lReadOnly, lPassword, lNoBorder, nHelpId,;
               lSpinner, bUp, bDown, bMin, bMax, bAction, cBmpName, lNoBorderBtn ) CONSTRUCTOR

.......

METHOD ReDefine( nId, bSetGet, oWnd, nHelpId, cPict, bValid,;
                    nClrFore, nClrBack, oFont, oCursor, cMsg,;
                    lUpdate, bWhen, bChanged, lReadOnly,;
                    lSpinner, bUp, bDown, bMin, bMax, bAction, cBmpName, lNoBorderBtn ) CONSTRUCTOR

........

METHOD New( nRow, nCol, bSetGet, oWnd, nWidth, nHeight, cPict, bValid,;
            nClrFore, nClrBack, oFont, lDesign, oCursor, lPixel, cMsg,;
            lUpdate, bWhen, lCenter, lRight, bChanged, lReadOnly,;
            lPassword, lNoBorder, nHelpId, lSpinner,;
            bUp, bDown, bMin, bMax, bAction, cBmpName, lNoBorderBtn ) CLASS TGet

 DEFAULT nClrFore  := GetSysColor( COLOR_WINDOWTEXT ),;
           nClrBack  := GetSysColor( COLOR_WINDOW ),;
           oWnd      := GetWndDefault(),;
           nHeight   := If( oFont != nil, oFont:nHeight, 12 ),;
           lDesign   := .f., lPixel := .f., lUpdate := .f.,;
           lCenter   := .f., lRight := .f.,;
           lReadOnly := .f., lPassword := .f.,;
           lSpinner  := .f.,;
           nRow      := 0, nCol := 0, lNoBorder := .f.,;
           bSetGet   := bSETGET( cText ),;
           lNoBorderBtn := .f.  

........

::hHeap     = 0
::bAction   = bAction
::cBmpName  = cBmpName
::lNoBorderBtn = lNoBorderBtn

........

Return Self

METHOD ReDefine( nId, bSetGet, oWnd, nHelpId, cPict, bValid, nClrFore,;
                 nClrBack, oFont, oCursor, cMsg, lUpdate, bWhen, bChanged,;
                 lReadOnly, lSpinner, bUp, bDown, bMin, bMax, bAction, cBmpName, lNoBorderBtn ) CLASS TGet

   DEFAULT oWnd     := GetWndDefault(),;
           nClrFore := GetSysColor( COLOR_WINDOWTEXT ),;
           nClrBack := GetSysColor( COLOR_WINDOW ),;
           lUpdate  := .f., lReadOnly := .f., lSpinner := .f.
           lNoBorderBtn:=.f. 

.........

 ::hHeap     = 0
 ::bAction   = bAction
 ::cBmpName  = cBmpName
 ::lNoBorderBtn = lNoBorderBtn 

.........

 ::hHeap     = 0
 ::bAction   = bAction
 ::cBmpName  = cBmpName
 ::lNoBorderBtn = lNoBorderBtn 

..........

Return Self

..........

METHOD CreateButton() CLASS TGet

   local oThis := Self
   
   if ValType( ::bAction ) == "B" .and. Upper( ::ClassName() ) == "TGET"
	 		//Se modifica para que al indicar que no se desee borde en botón cambie a objeto 
                                                //btnbmp  sin borde
			//previamente se agregó a la clase la variable lNoBorderBtn 
      IF ::lNoBorderBtn
         IF Empty( ::cBmpName )  	//no hay bmp
	@ 0, ::nWidth - ::nHeight BUTTONBMP ::oBtn OF Self ;
            	ACTION ( Eval( oThis:bAction, oThis ), oThis:SetFocus() ) ;
            	SIZE ::nHeight - 4, ::nHeight - 4 PIXEL TRANSPARENT
			     ::oBtn:SetText( "..." )
    	   ELSE 
				/*  
         @ 0, ::nWidth - ::nHeight BUTTONBMP ::oBtn OF Self ;
            ACTION ( Eval( oThis:bAction, oThis ), oThis:SetFocus() ) ;
            SIZE ::nHeight - 4, ::nHeight - 4 PIXEL BITMAP ::cBmpName
				*/
            IF At( ".", ::cBmpName)<>0  //si es .bmp 
         		   @0, ::nwidth - ::nHeight BTNBMP ::oBtn OF Self;
         		   ACTION ( Eval( oThis:bAction, oThis ), oThis:SetFocus() ) ;
         		   FILE ::cBmpName ;
         		   SIZE ::nHeight - 4, ::nHeight - 4 PIXEL NOBORDER TRANSPARENT
            ELSE   //si es un bmp
         	   	 @0, ::nwidth - ::nHeight BTNBMP ::oBtn OF Self;
         		   ACTION ( Eval( oThis:bAction, oThis ), oThis:SetFocus() ) ;
         		   RESOURCE ::cBmpName;
         		   SIZE ::nHeight - 4, ::nHeight - 4 PIXEL NOBORDER TRANSPARENT
            ENDIF
         ENDIF   
      ELSE
         if Empty( ::cBmpName )
            @ 0, ::nWidth - ::nHeight BUTTONBMP ::oBtn OF Self ;
               ACTION ( Eval( oThis:bAction, oThis ), oThis:SetFocus() ) ;
               SIZE ::nHeight - 4, ::nHeight - 4 PIXEL
            if Empty( ::oBtn:hBitmap )
               ::oBtn:SetText( "..." )
            endif      
         else   
            @ 0, ::nWidth - ::nHeight BUTTONBMP ::oBtn OF Self ;
               ACTION ( Eval( oThis:bAction, oThis ), oThis:SetFocus() ) ;
               SIZE ::nHeight - 4, ::nHeight - 4 PIXEL BITMAP ::cBmpName
         endif   
      ENDIF
			::oBtn:lCancel = .T. // so the GET VALID is not fired when the button is focused
			//JM
			   
      /*
      // We force a WM_NCCALCSIZE msg to be sent to the GET      
      SetWindowPos( ::hWnd, 0, 0, 0, 0, 0,;
                    nOr( SWP_NOMOVE, SWP_NOSIZE, SWP_NOZORDER, SWP_FRAMECHANGED ) )
      */              
   ENDIF   
   
return nil