Diferencia en la calidad del BMP

[Armando]

Amigos:

En la imágen que adjunto vemos dos GETs, uno creado con la clase TGET nativa de FW
y el otro (a la derecha) creado con BTNGET. Se puede apreciar una diferencia en la
calidad del BMP, ambos usan el mismo recurso, ¿qué debo hacer para que la calidad del
BMP usado en la clase nativa de FW sea igual a la calidad del BMP en el BTNGET ??

Saludos

[QAZWSX2K]

SALUDOS, Como hicistes para poner el boton en la get nativa de fw, si puedes colocar el codigo de ambos gets, a mi me huele a que los tiros van por el color que toman transparente, creo el nativo usar el primer pixel, solo es una idea mia claro

[Daniel Garcia-Gil]

Saludos QAZWSX2K,

Esta es una caracteristica que funciona desde la version 8.10

http://forums.fivetechsupport.com/viewtopic.php?p=61834#p61834

* New: New clauses ACTION ... [ BITMAP ... ] for GETs. FiveWin automatically creates a themed button on the GET which fires an ACTION, and you can change the GET contents from it too. Please review samples\getbtn.prg and getbtnr.prg. No need to change your current resources files!

[Daniel Garcia-Gil]

Armando...

realmente la calidad es la misma, el problema esta en la dimencion,

La clase BtnGet:
1.- usa una clase distinta para generar el boton (tbtnbmp), esta clase no usa themes
2.- usa un metodo diferente para la dimencion del mismo

La clase Get
1.- usa la clase TButtonBmp para generar el boton, esta clase si usa themes
2.- el metodo de dimencion radica en mantener siempre el boton de forma cuadrada y no rectangular para crear una concordancia con el espacio del get, si aumentas las dimenciones del get te daras cuenta que tambien aumenta el ancho del boton, de esa forma el ancho ( nWidth ) del boton simpre sera igual al alto (nHeight )

te puedo proponer que hagas los siguientes cambios a la clase TGET para que tengas el efecto que tu quieras y esperaremos a ver que prefieren el resto de los usuarios

si quieres probar primero te dejo un ejemplo, has la prueba con/sin los cambios con/sin themes

http://www.sitasoft.com/fivewin/test/testget2.rar

abre TGET.prg

BUSCA EN METHOD CreateButton() CLASS TGet

Code: Select all  Expand view

   local oThis := Self

AGREGA DESPUES

Code: Select all  Expand view

   local hBitmap
   local nBmpWidth

BUSCA

Code: Select all  Expand view

         @ 0, ::nWidth - ::nHeight BUTTONBMP ::oBtn OF Self ;
            ACTION ( Eval( oThis:bAction, oThis ), oThis:SetFocus() ) ;
            SIZE ::nHeight - 4, ::nHeight - 4 PIXEL BITMAP ::cBmpName
 

REEMPLAZA CON

Code: Select all  Expand view

         hBitmap   = If( File( ::cBmpName ), ReadBitmap( 0, ::cBmpName ),;
                     LoadBitmap( GetResources(), ::cBmpName ) )
         nBmpWidth := nBmpWidth( hBitmap ) + 5
         DeleteObject( hBitmap )
         @ 0, ::nWidth - nBmpWidth - 4 BUTTONBMP  ::oBtn OF Self ;
            ACTION ( Eval( oThis:bAction, oThis ), oThis:SetFocus() ) ;
            SIZE nBmpWidth, ::nHeight - 4 PIXEL BITMAP ::cBmpName
         ::SetMargins( 1, nBmpWidth )  

pienso que eso debe ser suficiente, has las pruebas que quieras, si deseas hacer el cambio y nos comentas por favor

[Armando]

Daniel:

Muchas gracias por tu tiempo.

Los mantendré informados de los resultados.

Saludos