PC Toledo

Olá! esta function me da error
Qual erro?

Para compilar código escrito em linguagem C junto ao código xBase, o código C deve estar colocado entre as diretivas necessárias, como mostrado abaixo:
#pragma BEGINDUMP

HB_FUNC( HB_SHADOW )
{
if( hb_pcount() >= 4 )
hb_gtDrawShadow( hb_parni( 1 ...

Saludos al Forum

Cuando compilo con BCC76
esta function me da error


HB_FUNC( HB_SHADOW )
{
if( hb_pcount() >= 4 )
hb_gtDrawShadow( hb_parni( 1 ),
hb_parni( 2 ),
hb_parni( 3 ),
hb_parni( 4 ),
hb_parnidef( 5, 7 ) );
}

Bom Dia, Pessoal!

Estou tentando colocar sombra no menu também. Mas... onde devem ser feitas essas alterações? Em qual arquivo do Harbour 3.2 posso encontrar essa tal classe?

Agradecido!

Hola Gracias por tu aporte.

Ya coloque en mi prg el codigo de C hb_Shadow

en que parte coloco este codigo, o hay que modificar classe PopupMenu , esta clase es de Harbour me imagino
IF ::lShadowed
hb_Shadow( nTop, nLeft, ::nBottom, ::nRight )
ENDIF

Para testar as cores da função Hb_Shadow

Um pequeno teste:

@05,02 TO 10,20

HB_SHADOW(05,02,10,20, 100)

A função que faz a sombra é hb_Shadow() ela está definida na classe PopupMenu, você pode criar uma função de sobra diferente, para usar tem que
usar oPopUp2:shadowed( FALSE ) ou não definir porque o padrão é sem sombra.


IF ::lShadowed
hb_Shadow( nTop, nLeft, ::nBottom, ::nRight )
ENDIF


A ...

... color a la sombra

https://www.4shared.com/photo/uCSF8UWsfi/menusombra.html


LOCAL MENU_COLOR := "B/W,W+/R,W+/W,G+/R,B+/W+,B/W"

oTopBar := TopBarMenu():new( 03, 00, MaxCol() )
oPopUp1 := POPUPMENU():NEW()
oPopUp2 := POPUPMENU():NEW()

oTopBar:ColorSpec := MENU_COLOR
oPopUp1:ColorSpec ...

Olá!

Outra opção é usar as classes de criação de menus do próprio Harbour, como exemplificado no tópico TopBarMenu().

... HDIALOG:ACTIVATE(138)
Chamado por HWG_ROTINAS.PRG --> ABRE_WGG(656)
Chamado por TEL.PRG --> (b)MENU_CRIATELE(125)
Chamado por ttopbar.prg --> TOPBARMENU:EXECUTE(1082)
Chamado por ttopbar.prg --> TOPBARMENU:MODAL(741)
Chamado por ttopbar.prg --> MENUMODAL(98)
Chamado por TEL.PRG --> MENU_TELE(60 ...

... rtl/tbcolumn.prg:CREATE CLASS TBColumn
./src/rtl/pushbtn.prg:CREATE CLASS PushButton FUNCTION HBPushButton
./src/rtl/ttopbar.prg:CREATE CLASS TopBarMenu FUNCTION HBTopBarMenu
./src/rtl/radiobtn.prg:CREATE CLASS RadioButtn FUNCTION HBRadioButton
./src/rtl/tgethb.prg:CREATE CLASS hb_Get INHERIT Get ...

Pessoal implementei a mesma rotina e esta funcionando, porem só entra nas opções quando dou ENTER eu queria executar quando clicar no mouse.
alguma dica para fazer isso????

Complementando a informação do Jairo, veja esta mensagem:

https://pctoledo.org/forum/viewto ... 342#p90320

Tags: TopBarMenu, HBTopBarMenu

Abraços,

bom pessoal, estou tentando usar a TopBarMenu mas esta dando esse erro

C:/Users/FERNANDO/AppData/Local/Temp/hbmk_ba1ubr.dir/omainmenu.o:omainmenu.c:(.d
ata+0x98): undefined reference to `HB_FUN_TOPBARMENU'
collect2: ld returned 1 exit status
hbmk2[sgc]: Erro: Executando linkeditor. 1.

C:\SGCHB>

o ...

... os passos que o Toledo passou para o Mauricio Elias. Tudo ocorreu normalmente. O Sistema foi compilado.

Encontrei alguns problemas com:
- Menu: TopBarMenu() -> HBTopBarMenu()
- SWITCH -> CASE
Mas, resolvi sem muito trabalho!

Agora, estou com problema na verificação de um arquivo com atributo +H. No ...