bug en Fivewin Abril 2015.2

[MOISES]

Hola Antonio,

Al actualizar de FWH 14.12 a la de este mes, los BTNBMPS se pintan fatal:



Por favor, ¿qué ha pasado?.

Un saludo muy cordial,

[Antonio Linares]

Moisés,

Puedes poner un ejemplo completo para probarlo aqui ? gracias

[MOISES]

Hola Antonio:

Así es como se debe ver OK y funciona bien en FWH 14.12:



No se si con esto te sirve. Gracias.

[Antonio Linares]

Moisés,

FivEdit, FiveDBU, el preview de FWH, estan funcionando bien.

Por eso te he pedido un PRG que reproduzca el error.

[MOISES]

Antonio,

Es muy raro, fuera de mi aplicación, con un ejemplo autocontenido, no falla.

¿Qué es lo último que se ha tocado en BTNBMP por favor?.

Muchas gracias de antemano.

[russimicro]

Buen dia... Antonio

Tengo la misma situación con este tipo de boton :


@ 561, 05 BTNBMP oBotF01 PROMPT "ESC Salir" FILE "IMAGENES\16x16\exit2.BMP" 2007 TOP OF oCapInv ;
ACTION ( lPerEsc := .F., oCapInv:END() ) ;
TOOLTIP "Sale del proceso de registro de inventarios" ;
SIZE 77,42 ;
PIXEL


Anexo imagen con la versión 14.12 y 15.01(cambio)
img]
https://www.russoftltda.com/publico/fwh_14.12.png
https://www.russoftltda.com/publico/fwh_15.01.png
[/img]

Johnson Russi

[nageswaragunupudi]

May we know the compiler you are using please?

[MOISES]

Harbour.

Thank you.

[nageswaragunupudi]

I meant bcc or msvc or mingw .... ?
There is no issue with xharbour or harbour with bcc

[MOISES]

I am having trouble to build with MSVC 2010, either 32 or 64.

Maybe it´s related. I am waiting for Antonio to send me the proper fix.

Thank you.

[russimicro]

XHARBOUR.COM - 12.3 + FIVEWIN 14.12 / 15.01

[Antonio Linares]

Johnson,

Lo estamos comprobando.

FWH\samples\fivedit.prg muestra los bitmaps correctamente pero entiendo que debe ser al mostrarlos de otro modo.

[russimicro]

EJEMPLO : samples\btntrans.prg

funcional igual(marco o fondo negra) a las imágenes anteriores

#include "FiveWin.ch"

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

function Main()

local oBru, oDlg, oBtn

DEFINE BRUSH oBru FILENAME "../bitmaps/Backgrnd/beach.bmp"

DEFINE DIALOG oDlg SIZE 400, 200 BRUSH oBru TRANSPARENT

@ 2, 2 SAY "Hello" OF oDlg
oDlg:aControls[ 1 ]:lTransparent = .t.

@ 70, 80 BTNBMP oBtn FILENAME "\FWH\bitmaps\16x16\exit2.BMP";
SIZE 50, 30 OF oDlg NOBORDER ACTION MsgInfo( "click" )

oBtn:lTransparent = .T.

ACTIVATE DIALOG oDlg CENTERED

return nil

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

[Antonio Linares]

Here it looks like this:



How does it look there for you ?

[russimicro]

Antonio ...
Cambie la imagen del ejemplo por exit2.bmp

https://www.russoftltda.com/publico/exit2.png