ButtonBmp without border

[jose_murugosa]

Is it possible to create a ButtonBmp without border?

How would be the code?

I've been working on it and I didn´t find a way to do it.

Thanks in advance.

[jose_murugosa]

Is it possible to create a ButtonBmp without border?

How would be the code?

I've been working on it and I didn´t find a way to do it.

Thanks in advance.

What I want is to change the get.... bitmap... action.... to this look

[Antonio Linares]

Jose,

clause ... GET ... ACTION ... creates a TButtonBmp control as a child control of the GET. Class TButtonBmp is inherited from Class TButton, based on the standard Windows buttons.

Though some resources editors, as MS VSX, shows an optional "flat" style for a button, when we test such style, the button still shows its border.

A possible solution would be to modify Class TGet and use a TBtnBmp instead of a TButtonBmp, but then you would not have themes support in the TBtnBmp button.

[jose_murugosa]

Jose,

clause ... GET ... ACTION ... creates a TButtonBmp control as a child control of the GET. Class TButtonBmp is inherited from Class TButton, based on the standard Windows buttons.

Though some resoures editors, as MS VSX, shows an optional "flat" style for a button, when we test such style, the button still shows its border.

A possible solution would be to modify Class TGet and use a TBtnBmp instead of a TButtonBmp, but then you would not have themes support in the TBtnBmp button.

Thanks for your answer, I suspect that this would be the only solution (sorry for my terrible english).

[Antonio Linares]

José,

Another possibility is to replace the TButtonBmp used in Class TGet with a TBitmap control. This way there will be no button borders at all.

[jose_murugosa]

I add a variable lNoBorderBtn and I create a ButtonBmp when it is .f. and a BtnBmp with it is .t., now it works ok in both cases.

Thanks for your help Antono!!

For those who could need this I leave the code:

After defining a variable lNoBorderBtn in method New and Redefine.....

Code: Select all  Expand view

METHOD CreateButton() CLASS TGet

   local oThis := Self
   
   if ValType( ::bAction ) == "B" .and. Upper( ::ClassName() ) == "TGET"
          //JSe modifica para que al indicar que no se desee borde en botón cambie a objeto btnbmp sin borde
         
      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
                        ENDIF   
   
return nil   

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