btnbmp desde recursos

[Francis]

hola a todos del foro

tengo fwh 8.10 y el problema es que los btnbmp desde codigo aceptan el gradiente con los botones
hay un ejemplo en samples testbtnl, el problema es que en mi sistema uso el btnbmp con recursos
y no logro ese efecto que existe con btnbmp en codigo...

alguna solucion señores por favor...

Salu2

Francis

[Francis]

ups...

no se molesten, sigo esperando...

Salu2
Francis

[Francis]

mmm...

creo que nadie lo ha reportado como bug...

Salu2

francis

[Francis]

hola a todos...

Por favor, hay alguna solucion a esto...
es que los botones con degradados se ven muy esteticos, pero solo creo que funcionan con codigo, mas no con recursos...

Salu2

Francis

[Adolfo]

Francis....

Adjunta pedazo de codigo llamado al BtnBmp, imagen, version de FW y veremos que pasa..

Desde Chile
Adolfo

[Francis]

hola, aqui el codigo... esto funciona, pero si lo hago con recursos los botones no funcionan...

#include "Fivewin.ch"


PROCEDURE MAIN()

Local oFont, oWnd, oBar, b1, b2, b3, b4, b5
LOCAL b := Array( 05 )

DEFINE FONT oFont NAME "MS Sans Serif" SIZE 0,-10

DEFINE WINDOW oWnd FROM 0,0 TO 474,639 PIXEL TITLE "Test"

oWnd:SetFont(oFont)

DEFINE BUTTONBAR oBar TOP _3D SIZE 80,80 OF oWnd 2007

DEFINE BUTTON RESOURCE "TOP" TOP PROMPT "Top" NOBORDER OF oBar
DEFINE BUTTON RESOURCE "LEFT" LEFT PROMPT "Left" NOBORDER OF oBar
DEFINE BUTTON RESOURCE "BOTTOM" BOTTOM PROMPT "Bottom" NOBORDER OF oBar
DEFINE BUTTON RESOURCE "RIGHT" RIGHT PROMPT "Right" NOBORDER OF oBar
DEFINE BUTTON RESOURCE "CENTER" CENTER PROMPT "Center" NOBORDER OF oBar

@100,100 BTNBMP RESOURCE "TOP" TOP PROMPT "Top" SIZE 80,80 OF oWnd 2007
@180, 20 BTNBMP RESOURCE "LEFT" LEFT PROMPT "Left" SIZE 80,80 OF oWnd
@260,100 BTNBMP RESOURCE "BOTTOM" BOTTOM PROMPT "Bottom" SIZE 80,80 OF oWnd
@180,180 BTNBMP RESOURCE "RIGHT" RIGHT PROMPT "Right" SIZE 80,80 OF oWnd
@180,100 BTNBMP RESOURCE "CENTER" CENTER PROMPT "Center" SIZE 80,80 OF oWnd

@100,400 BTNBMP b[1] RESOURCE "TOP","","TOP0" TOP PROMPT "Top" SIZE 80,80 OF oWnd 2007
@180,320 BTNBMP b[2] RESOURCE "LEFT","","LEFT0" LEFT PROMPT "Left" SIZE 80,80 OF oWnd 2007
@260,400 BTNBMP b[3] RESOURCE "BOTTOM","","BOTTOM0" BOTTOM PROMPT "Bottom" SIZE 80,80 OF oWnd 2007
@180,480 BTNBMP b[4] RESOURCE "RIGHT","","RIGHT0" RIGHT PROMPT "Right" SIZE 80,80 OF oWnd 2007
@180,400 BTNBMP b[5] RESOURCE "CENTER","","CENTER0" CENTER PROMPT "Center" SIZE 80,80 OF oWnd 2007

AEval( b, { |b| b:bClrGrad := { | lInvert | If( ! lInvert,;
{ { 0.50, nRGB( 178, 187, 202 ), nRGB( 137, 155, 179 ) },;
{ 0.50, nRGB( 129, 149, 174 ), nRGB( 114, 132, 156 ) } },;
{ { 0.50, nRGB( 139, 166, 193 ), nRGB( 69, 119, 170 ) },;
{ 0.50, nRGB( 52, 104, 152 ), nRGB( 50, 107, 162 ) } } ) } } )

* b1:bClrGrad = { | lInvert | If( ! lInvert,;
* { { 0.50, nRGB( 178, 187, 202 ), nRGB( 137, 155, 179 ) },;
* { 0.50, nRGB( 129, 149, 174 ), nRGB( 114, 132, 156 ) } },;
* { { 0.50, nRGB( 139, 166, 193 ), nRGB( 69, 119, 170 ) },;
* { 0.50, nRGB( 52, 104, 152 ), nRGB( 50, 107, 162 ) } } ) }
*b1:Disable()
*b2:Disable()
*b3:Disable()
*b4:Disable()
*b5:Disable()

DEFINE MSGBAR OF oWnd PROMPT "Testing bitmaped buttons with captions" ;
TIME DATE NOINSET

ACTIVATE WINDOW oWnd

RETURN

procedure AppSys // Xbase++ requirement

return

Salu2

Francis

[Francis]

hola señores

Ya envie el codigo y no obtengo respuestas...
Uso fwh8.10 ..

Salu2

Francis