Posts: 112
Joined: Thu Aug 17, 2006 04:13 PM
Re: btnbmp desde recursos
Posted: Tue Jul 14, 2009 05:16 PM
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
CiberSoft - Sistemas de Gestion
