btnbmp desde recursos
Posted: Thu Jul 09, 2009 11:18 pm
by 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
Re: btnbmp desde recursos
Posted: Sat Jul 11, 2009 12:24 am
by Francis
ups...
no se molesten, sigo esperando...
Salu2
Francis
Re: btnbmp desde recursos
Posted: Mon Jul 13, 2009 5:34 pm
by Francis
mmm...
creo que nadie lo ha reportado como bug...
Salu2
francis
Re: btnbmp desde recursos
Posted: Tue Jul 14, 2009 2:31 pm
by 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
Re: btnbmp desde recursos
Posted: Tue Jul 14, 2009 4:29 pm
by Adolfo
Francis....
Adjunta pedazo de codigo llamado al BtnBmp, imagen, version de FW y veremos que pasa..
Desde Chile
Adolfo
Re: btnbmp desde recursos
Posted: Tue Jul 14, 2009 5:16 pm
by 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
Re: btnbmp desde recursos
Posted: Sun Jul 19, 2009 4:27 am
by Francis
hola señores
Ya envie el codigo y no obtengo respuestas...
Uso fwh8.10 ..
Salu2
Francis