Page 1 of 1

Sobre TRbtn y BtnBmp (solucionado)

PostPosted: Wed Jun 19, 2019 10:11 am
by AngelSalom
Hola! Estoy sustituyendo en mis aplicaciones los TRbtn por TBtnBmp y observo una pequeña diferencia en el pintado del botón con imagen (layout "LEFT")
En este caso el botón de la izquierda es un TbtnBmp y el de la derecha un TRbtn, ¿posibilidad de que TBtnBmp quede como el TRbtn?

Image

Gracias!

Re: Sobre TRbtn y BtnBmp

PostPosted: Wed Jun 19, 2019 3:27 pm
by nageswaragunupudi
Please give your code for creating the BtnBmp.

Re: Sobre TRbtn y BtnBmp

PostPosted: Wed Jun 19, 2019 7:03 pm
by AngelSalom
Of course, here's a self-contained example

Code: Select all  Expand view
#include "fivewin.ch"
#include "ribbon.ch"

Function Main()
    Local oDlg, oBtn, oFont
    Local bGradColors:= { | lInvert | If( lInvert, ;
                                        {  { 1, nRgb (255,225,131), nRgb (255,225,131) }, }, ;
                                        {  { 1, CLR_WHITE, CLR_WHITE  }, };
                                      );
                      }
 
    DEFINE FONT oFont NAME GetSysFont() SIZE 0,12 POINTS                  
    DEFINE DIALOG oDlg FROM 0,0 TO 24,79 TITLE "Prueba TBtnBmp" FONT oFont

    @ 5,5 BTNBMP oBtn FILE "..\bitmaps\alphabmp\windows.bmp" SIZE 150,40 ACTION oDlg:End() PROMPT "Prueba TBtnBmp";
                      LEFT GRADIENT bGradColors 2007 FONT oFont

    @ 50,5 RBBTN oBtn BITMAP "..\bitmaps\alphabmp\windows.bmp" SIZE 150,40 ACTION oDlg:End() PROMPT "Prueba TRbtn";
                      LEFT BORDER FONT oFont
   
    ACTIVATE DIALOG oDlg CENTERED
    RELEASE FONT oFont

Return (nil)    

Re: Sobre TRbtn y BtnBmp

PostPosted: Thu Jun 20, 2019 12:14 am
by nageswaragunupudi
Not exactly like RBBtn, but these are the possible configurations. Optionally, you can specify the position of the bitmap with oBtn:aBmpRect := { t, l, b, r }

Image

Code: Select all  Expand view
#include "fivewin.ch"

Function Main()

    Local oDlg, oBtn, oFont
    Local bGradColors:= { | lInvert | If( lInvert, ;
                                        {  { 1, nRgb (255,225,131), nRgb (255,225,131) }, }, ;
                                        {  { 1, CLR_WHITE, CLR_WHITE  }, };
                                      );
                      }

    DEFINE FONT oFont NAME GetSysFont() SIZE 0,12 POINTS
    DEFINE DIALOG oDlg SIZE 400,500 PIXEL TITLE "Prueba TBtnBmp" FONT oFont TRUEPIXEL

    @  10,10 RBBTN oBtn BITMAP "..\bitmaps\alphabmp\windows.bmp" SIZE 300,80 ACTION oDlg:End() PROMPT "Prueba TRbtn";
                      LEFT BORDER FONT oFont

    @ 100,10 BTNBMP oBtn FILE "..\bitmaps\alphabmp\windows.bmp" SIZE 300,80 ACTION oDlg:End() PROMPT "Prueba TBtnBmp";
                      LEFT GRADIENT bGradColors 2007 FONT oFont

    @ 190,10 BTNBMP oBtn FILE "..\bitmaps\alphabmp\windows.bmp" SIZE 300,80 ACTION oDlg:End() PROMPT "Prueba TBtnBmp ";
                      LEFT GRADIENT bGradColors 2007 FONT oFont

    @ 280,10 BTNBMP oBtn FILE "..\bitmaps\alphabmp\windows.bmp" SIZE 300,80 ACTION oDlg:End() PROMPT " Prueba TBtnBmp ";
                      LEFT GRADIENT bGradColors 2007 FONT oFont

    @ 370,10 BTNBMP oBtn FILE "..\bitmaps\alphabmp\windows.bmp" SIZE 300,80 ACTION oDlg:End() PROMPT " Prueba TBtnBmp ";
                      LEFT GRADIENT bGradColors 2007 FONT oFont

    oBtn:aBmpRect    := { 0, 50, 80, 80 }

    ACTIVATE DIALOG oDlg CENTERED
    RELEASE FONT oFont

Return (nil)

Re: Sobre TRbtn y BtnBmp

PostPosted: Thu Jun 20, 2019 6:28 am
by AngelSalom
Solved, thanks.

Re: Sobre TRbtn y BtnBmp (solucionado)

PostPosted: Thu Jun 20, 2019 6:50 am
by jvtecheto
Mr. Rao.

From Resources , not work .....

Code: Select all  Expand view

REDEFINE BTNBMP oBtn ID 110 OF oDlg RESOURCE "Edit" ACTION MsgInfo("Editando Ficha") LEFT
oBtn:aBmpRect    := { 0, 50, 80, 80 }
 


How calc de positions oBtn:aBmpRect := { xx?, xx??, xx??, xx?? } ?

Regards

Jose

Re: Sobre TRbtn y BtnBmp (solucionado)

PostPosted: Thu Jun 20, 2019 7:00 am
by nageswaragunupudi
oBtn:aBmpRect := { nTop, nLeft, nBottom, nRight }
in pixels relative to the BtnBmp's rect.

Should work with resources also.

Re: Sobre TRbtn y BtnBmp (solucionado)

PostPosted: Thu Jun 20, 2019 7:06 am
by AngelSalom
nageswaragunupudi wrote:oBtn:aBmpRect := { nTop, nLeft, nBottom, nRight }
in pixels relative to the BtnBmp's rect.

Should work with resources also.


Yes, it works with resources.

Re: Sobre TRbtn y BtnBmp (solucionado)

PostPosted: Thu Jun 20, 2019 10:42 am
by jvtecheto
AngelSalom wrote:
nageswaragunupudi wrote:oBtn:aBmpRect := { nTop, nLeft, nBottom, nRight }
in pixels relative to the BtnBmp's rect.

Should work with resources also.


Yes, it works with resources.


Hola lo siento pero no entiendo como lo haceis.
a ver yo tengo en recursos un BtnBmp situado en
X Position : 180
Y Position : 100
width: 80
Height: 15

Entonces hago:

Code: Select all  Expand view

oBtn:aBmpRect := { 105, 185, 120, 265 }
 


Y no aparece el boton.

¿Como lo calculais ?

Gracias y perdon por la confusion.

Off Totip : Por cierto, Angel estamos muy cerca.... (Estoy en Santa Magdalena de Pulpis) Perdon

Saludos.

Re: Sobre TRbtn y BtnBmp (solucionado)

PostPosted: Thu Jun 20, 2019 12:44 pm
by cnavarro
Jose, las coordenadas son respecto al propio boton : { 2, 2 , 40, 40 }, por ejemplo, y no a las coordenadas del contenedor donde está ubicado el botón

Re: Sobre TRbtn y BtnBmp (solucionado)

PostPosted: Thu Jun 20, 2019 1:25 pm
by AngelSalom
brakaman wrote:
AngelSalom wrote:
nageswaragunupudi wrote:oBtn:aBmpRect := { nTop, nLeft, nBottom, nRight }
in pixels relative to the BtnBmp's rect.

Should work with resources also.


Yes, it works with resources.


Hola lo siento pero no entiendo como lo haceis.
a ver yo tengo en recursos un BtnBmp situado en
X Position : 180
Y Position : 100
width: 80
Height: 15

Entonces hago:

Code: Select all  Expand view

oBtn:aBmpRect := { 105, 185, 120, 265 }
 


Y no aparece el boton.

¿Como lo calculais ?

Gracias y perdon por la confusion.

Off Totip : Por cierto, Angel estamos muy cerca.... (Estoy en Santa Magdalena de Pulpis) Perdon

Saludos.


Es tal como te comenta Cristóbal. Si lo mandas a las posiciones que indicas la imagen se sale del botón.
Si lo necesitas cuelgo un ejemplo desde recursos.

Así que prácticamente somos vecinos, genial, está bien saberlo! :D

Re: Sobre TRbtn y BtnBmp (solucionado)

PostPosted: Thu Jun 20, 2019 3:24 pm
by jvtecheto
Es tal como te comenta Cristóbal. Si lo mandas a las posiciones que indicas la imagen se sale del botón.
Si lo necesitas cuelgo un ejemplo desde recursos.

Así que prácticamente somos vecinos, genial, está bien saberlo! :D[/quote]

:D

Parece ser que tengo el dia malo, ya comprendido lo de las coordenadas me pinta el boton pero las clausulas
LETF = Aparece a la derecha
RIGHT = Aparece en el borde izquierdo y se come el boton.
CENTER = Este si aparece bien OK.

O sea al reves.
Intento mostrar imagenes.
[img]
https://ibb.co/gWj9bYD
https://ibb.co/yPGV9J5
https://ibb.co/7Yw8FMX
[/img]

Saludos.

Re: Sobre TRbtn y BtnBmp (solucionado)

PostPosted: Thu Jun 20, 2019 3:48 pm
by AngelSalom
Si, hay que pillarle el concepto ... yo casi tiro la toalla hasta que ví la explicación de Mr. Rao

Suponiendo que se usa la cláusula LEFT , para ajustar el texto hay que fijarse en el PROMPT:
- "Prueba BtnBmp" pone el texto a la derecha
- "Prueba BtnBmp " (atento al espacio al final) pone el texto pegado a la imagen de la izquierda
- " Prueba BtnBmp " (espacios al principio y al final) deja el texto centrado y la imagen a la izquierda (esta es la opción que he usado yo, creo que la más elegante).

Re: Sobre TRbtn y BtnBmp (solucionado)

PostPosted: Thu Jun 20, 2019 4:05 pm
by jvtecheto
bUFFF.

Ahora si Angel. Muchisimasss gracias.

Tienes razon lo mas elegante es espacio inicial y final. OK.

Saludos.

Jose