Page 1 of 2
BTNBMP MenuPop
Posted: Tue Aug 27, 2024 2:45 pm
by EASYSOFT
Estimados compañeros buenos días.
Necesito usar en BTNBMP MenuPop pero no encuentro la manera, no quiero utilizar esta opción en la opción action necesito algo como lo siguiente
REDEFINE BTNBMP aBtn1[X] ID i FONT oFont5 PROMPT 'Salir' PIXEL 2007 FILE if(tmesas->tmestado = .T.,"\FWH\IMAGENES\mesa.BMP","\FWH\IMAGENES\mesa_vacia.BMP") LEFT TOOLTIP "Salir de la pantalla" NOBORDER ROUND ;
OF oDlgm GRADIENT { || {{ 1, RGB( 0, 128, 128 ), nRgb(0, 128, 128 ) }} } ;
ACTION aAct1
MENU ACTION MenuPop()
Muchas gracias
Re: BTNBMP MenuPop
Posted: Tue Aug 27, 2024 3:23 pm
by karinha
https://forums.fivetechsupport.com/~fiv ... =3&t=35769
https://www.fivetechsupport.com/forums/ ... 82&start=0
Code: Select all | Expand
#include "fivewin.ch"
FUNCTION test()
LOCAL oDlg, oBtn
LOCAL oFont, oBold
LOCAL pippo := "mmm"
LOCAL oGet
LOCAL oCursorBtn := TCursor():New(, 'HAND' )
LOCAL nWd := GetSysMetrics( 0 ) * .58
LOCAL nHt := ( GetSysMetrics( 1 ) / 2 ) - 20
oFont := TFont():New( "Tahoma", 0, 14,, )
oBold := TFont():New( "Tahoma", 0, 14,, .T. )
DEFINE DIALOG oDlg SIZE nWd, nHt PIXEL TRUEPIXEL;
FONT oFont COLOR CLR_BLACK, RGB( 245, 245, 235 ) ;
STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, ;
WS_MINIMIZEBOX )
@ 10, 450 BTNBMP oBtn ;
NAME "COMBOBMP" ;
SIZE 100, 25 PIXEL ;
PROMPT "testobutton" ;
FONT oFont FLAT RIGHT ;
COLOR CLR_BLACK, RGB( 245, 245, 235 );
ACTION ::ShowPopUp( {| oBtn, nRow, nCol | oBtnMenu( oBtn ) } )
/*
oBtn:bClrGrad := { | lInvert | If( ! lInvert, ;
{ { 1, nRGB( 255, 255, 255 ), nRGB( 207, 207, 207 ) } }, ;
{ { 1/3, nRGB( 255, 253, 222 ), nRGB( 255, 231, 151 ) }, ;
{ 2/3, nRGB( 255, 215, 84 ), nRGB( 255, 233, 162 ) } } ) }
*/
oBtn:bClrGrad = {| lInvert | If( ! lInvert, ;
{ { 0.25, RGB( 245, 245, 235 ), RGB( 250, 250, 245 ) }, ;
{ 0.75, RGB( 250, 250, 245 ), RGB( 245, 245, 235 ) } }, ;
{ { 0.25, RGB( 250, 250, 245 ), RGB( 245, 245, 235 ) }, ;
{ 0.75, RGB( 245, 245, 235 ), RGB( 250, 250, 245 ) } } ) }
oBtn:nClrBorder := iif( oBtn:lMOver, RGB( 219, 230, 244 ), RGB( 219, 230, 244 ) )
oBtn:oCursor := oCursorBtn
@ 5, 50 GET oget VAR pippo OF oDlg // ******************************
ACTIVATE DIALOG oDlg CENTERED ON INIT oGet:setfocus()
RETURN NIL
FUNCTION oBtnMenu( oBtn )
LOCAL oMenu
MENU oMenu POPUP
MenuItem "XXXXXXXXXXXXXXXXX"
MenuItem "XXXXXXXXXXXXXXXXX"
MenuItem "XXXXXXXXXXXXXXXXX"
ENDMENU
RETURN( oMenu )
// FIN / END
Regards, saludos.
Re: BTNBMP MenuPop SOLUCIONADO
Posted: Wed Aug 28, 2024 5:06 pm
by EASYSOFT
Joao muchas gracias
Funciona de esta manera
aBtn1[X]:oPopUp := { |oBtn| MenuPop( oBtn, oDlgm,aBtn1,aTestData,oBrw ) }
Gracias
Re: BTNBMP MenuPop
Posted: Wed Aug 28, 2024 5:15 pm
by EASYSOFT
Disculpen como puedo redoendear las esquinas del botón
Gracias
Re: BTNBMP MenuPop
Posted: Wed Aug 28, 2024 5:46 pm
by karinha
Re: BTNBMP MenuPop
Posted: Wed Aug 28, 2024 6:24 pm
by karinha
Code: Select all | Expand
// C:\FWH\SAMPLES\BTNREDON.PRG
#Include "FiveWin.ch"
STATIC oWnd
FUNCTION Main()
LOCAL oDlg, oBtn, oBtn2
LOCAL oCursorBtn := TCursor():New(, 'HAND' )
DEFINE DIALOG oDlg SIZE 250, 250 PIXEL TRUEPIXEL
oDlg:lHelpIcon := .F.
@ 20, 20 BTNBMP oBtn PROMPT "REDONDO1" SIZE 200, 100 PIXEL OF oDlg FLAT ;
2007 COLOR CLR_WHITE, CLR_GREEN NOBORDER
oBtn:nRound := 60
oBtn:oCursor := oCursorBtn
@ 160, 20 BTNBMP oBtn2 PROMPT "REDONDO2" SIZE 200, 60 PIXEL OF oDlg FLAT ;
COLOR CLR_WHITE, CLR_HRED NOBORDER ACTION( oDlg:End() ) // SIN 2007
oBtn2:nRound := 30
oBtn2:oCursor := oCursorBtn
oBtn2:lCancel := .T.
ACTIVATE DIALOG oDlg CENTERED
RETURN NIL
// FIN / END
Regards, saludos.
Re: BTNBMP MenuPop
Posted: Fri Aug 30, 2024 5:00 pm
by EASYSOFT
Estimado Joao muchas gracias.
El ejemplo no funciona con recursos, quiza puedas hacer una prueba
Saludos
Re: BTNBMP MenuPop
Posted: Fri Aug 30, 2024 6:53 pm
by karinha
Muestra como estás haciendo. És en uma Window?
Prueba con el clausula: 2007, creo que asi funciona bien.
Regards, saludos.
Re: BTNBMP MenuPop
Posted: Fri Aug 30, 2024 7:21 pm
by karinha
Look, mira, veja:
Code: Select all | Expand
// Toggling buttons - C:\FWH\SAMPLES\MANUEL.PRG / .RC
#include "FiveWin.ch"
FUNCTION Main()
LOCAL oDlg, oBtn, oBtn2, oBtn3, oSalida
LOCAL oCursorBtn := TCursor():New(, 'HAND' )
SkinButtons()
DEFINE DIALOG oDlg RESOURCE "Main" // COLOR "N/B"
REDEFINE BTNBMP oBtn ID 110 OF oDlg RESOURCE "Yes" NOBORDER 2007 ;
ACTION ( oBtn:Toggle(), MsgBeep() )
// oBtn:GoDown()
oBtn:nRound := 60
oBtn:oCursor := oCursorBtn
REDEFINE BTNBMP oBtn2 ID 120 OF oDlg RESOURCE "No" 2007
oBtn2:nRound := 60
oBtn2:oCursor := oCursorBtn
REDEFINE BTNBMP oSalida ID 130 OF oDlg RESOURCE "Cancel" 2007 ;
ACTION( oDlg:End() )
// oSalida:lEllipse = .T.
oSalida:nRound := 60
oSalida:oCursor := oCursorBtn
oSalida:lCancel := .T.
ACTIVATE DIALOG oDlg CENTERED
RETURN NIL
/* // MANUEL.RC
#include "..\include\WinApi.ch"
Yes BITMAP "../bitmaps/yes.bmp"
No BITMAP "../bitmaps/no.bmp"
Cancel BITMAP "../bitmaps/cancel.bmp"
main DIALOG 50, 67, 162, 76
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "FiveWin Class TBtnBmp"
FONT 12, "MS Sans Serif"
{
CONTROL "", 110, "TBtnBmp", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 9, 46, 43, 16
CONTROL "", 120, "TBtnBmp", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 60, 46, 43, 16
CONTROL "", 130, "TBtnBmp", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 110, 46, 42, 16
}
*/
// FIN / END - kapiabafwh@gmail.com - I am the best! hahahahahaha,
Regards, saludos.
Re: BTNBMP MenuPop
Posted: Fri Aug 30, 2024 8:41 pm
by karinha
Regards, saludos.
Re: BTNBMP MenuPop
Posted: Mon Sep 02, 2024 4:51 pm
by EASYSOFT
Joao por favor dime como subor imagenes al foro
para poder ser claro en lo que me está pasando
Gracias
Re: BTNBMP MenuPop
Posted: Mon Sep 02, 2024 4:57 pm
by karinha
_,
https://imgur.com/
Regards, saludos.
Re: BTNBMP MenuPop
Posted: Mon Sep 02, 2024 5:28 pm
by EASYSOFT
Estoy tratando de enviar la imagen
Utilizo fwh2310 bcc740, espero no sea problema de versiones
Muchas gracias
Re: BTNBMP MenuPop
Posted: Mon Sep 02, 2024 5:50 pm
by karinha
Ah, usas HARBOUR y yo [x]Harbour. Intenta con [x]Harbour primero, mira se tu BUILDX.BAT está asi:
Code: Select all | Expand
@ECHO OFF
CLS
if A%1 == A GOTO :SINTAX
if NOT EXIST %1.prg GOTO :NOEXIST
ECHO Compiling...
if "%FWDIR%" == "" set FWDIR=.\..\
if "%XHDIR%" == "" set XHDIR=c:\xHBBCC74
rem if "%2" == "/b" set GT=gtwin
rem if not "%2" == "/b" set GT=gtgui
set GT=gtgui
set hdir=%XHDIR%
set hdirl=%hdir%\lib
set bcdir=c:\BCC74
set fwh=%FWDIR%
%hdir%\bin\harbour %1 /m /n /i%fwh%\include;%hdir%\include /w /p %2 %3 > comp.log 2> warnings.log
IF ERRORLEVEL 1 GOTO COMPILEERRORS
@type comp.log
@type warnings.log
echo -O2 -e%1.exe -I%hdir%\include -I%bcdir%\include %1.c > b32.bc
%bcdir%\bin\bcc32 -M -c -v @b32.bc
:ENDCOMPILE
IF EXIST %1.rc %bcdir%\bin\brc32.exe -r -I%bcdir%\include -I%bcdir%\include\windows\sdk %1
echo %bcdir%\lib\c0w32.obj + > b32.bc
echo %1.obj, + >> b32.bc
echo %1.exe, + >> b32.bc
echo %1.map, + >> b32.bc
echo %fwh%\lib\Fivehx.lib %fwh%\lib\FiveHC.lib %fwh%\lib\libmysql.lib + >> b32.bc
echo %fwh%\lib\pgsql.lib %fwh%\lib\libpq.lib + >> b32.bc
echo %hdirl%\hbhpdf.lib + >> b32.bc
echo %hdirl%\libharu.lib + >> b32.bc
echo %hdirl%\png.lib + >> b32.bc
echo %hdirl%\rtl.lib + >> b32.bc
echo %hdirl%\vm.lib + >> b32.bc
echo %hdirl%\%GT%.lib + >> b32.bc
echo %hdirl%\lang.lib + >> b32.bc
echo %hdirl%\macro.lib + >> b32.bc
echo %hdirl%\rdd.lib + >> b32.bc
echo %hdirl%\dbfntx.lib + >> b32.bc
echo %hdirl%\dbfcdx.lib + >> b32.bc
echo %hdirl%\dbffpt.lib + >> b32.bc
echo %hdirl%\hbsix.lib + >> b32.bc
echo %hdirl%\debug.lib + >> b32.bc
echo %hdirl%\common.lib + >> b32.bc
echo %hdirl%\codepage.lib + >> b32.bc
echo %hdirl%\pp.lib + >> b32.bc
echo %hdirl%\pcrepos.lib + >> b32.bc
echo %hdirl%\ct.lib + >> b32.bc
echo %hdirl%\zlib.lib + >> b32.bc
echo %hdirl%\hbzip.lib + >> b32.bc
echo %hdirl%\libmisc.lib + >> b32.bc
echo %hdirl%\tip.lib + >> b32.bc
echo %hdirl%\hbzebra.lib + >> b32.bc
rem Uncomment these two lines to use Advantage RDD
rem echo %hdir%\lib\rddads.lib + >> b32.bc
rem echo %hdir%\lib\Ace32.lib + >> b32.bc
echo %bcdir%\lib\cw32.lib + >> b32.bc
echo %bcdir%\lib\import32.lib + >> b32.bc
echo %bcdir%\lib\uuid.lib + >> b32.bc
echo %bcdir%\lib\ws2_32.lib + >> b32.bc
echo %bcdir%\lib\psdk\odbc32.lib + >> b32.bc
echo %bcdir%\lib\psdk\rasapi32.lib + >> b32.bc
echo %bcdir%\lib\psdk\nddeapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\msimg32.lib + >> b32.bc
echo %bcdir%\lib\psdk\psapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\gdiplus.lib + >> b32.bc
echo %bcdir%\lib\psdk\iphlpapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\urlmon.lib + >> b32.bc
echo %bcdir%\lib\psdk\Uxtheme.lib + >> b32.bc
echo %bcdir%\lib\psdk\shell32.lib, >> b32.bc
IF EXIST %1.res echo %1.res >> b32.bc
rem uncomment this line to use the debugger and comment the following one
if %GT% == gtwin %bcdir%\bin\ilink32 -Gn -Tpe -s -v @b32.bc
IF ERRORLEVEL 1 GOTO LINKERROR
if %GT% == gtgui %bcdir%\bin\ilink32 -Gn -aa -Tpe -s -v @b32.bc
IF ERRORLEVEL 1 GOTO LINKERROR
ECHO * Application successfully built *
%1
GOTO EXIT
ECHO
rem delete temporary files
@del %1.c
:COMPILEERRORS
@type comp.log
ECHO * Compile errors *
GOTO EXIT
:LINKERROR
ECHO * Linking errors *
GOTO EXIT
:SINTAX
ECHO SYNTAX: Build [Program] {-- No especifiques la extensi?n PRG
ECHO {-- Don't specify .PRG extension
GOTO EXIT
:NOEXIST
ECHO The specified PRG %1 does not exist
:EXIT
Regards, saludos.
Re: BTNBMP MenuPop
Posted: Mon Sep 02, 2024 5:56 pm
by karinha
_, no tengo un FWH2310 para probar, pídele al Maestro Antônio un BUILDH.bat para FWH2310 con HARBOUR y BCC74 o BCC77.
Regards, saludos.