Pueden descargar de www.quark-costos.com
Felices fiestas
Saludos
Arturo Tamayo Daza
![Image](http://www.quark-costos.com/downloads/menus.jpg)
Silvio wrote:This is a good idea but .....
Paco's Menu is the best menu control Xp office
U can set from one to 14 style type menus
Code: Select all | Expand
Compiling...
c:\borland\bcc55\bin\bcc32 -M -c -v -Ic:\harbour\include MENUS.C
RMAKE 1.5 Copyright (c) 1989-1995 Computer Associates International, Inc.
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
MENUS.C:
Error E2141 MENUS.C 224: Declaration syntax error
*** 1 errors in Compile ***
Error RMAKE/R2001 Exit 1: 'c:\borland\bcc55\bin\bcc32 -M -c -v -Ic:\harbour\inc
lude MENUS.C'
Presione una tecla para continuar . . .
Code: Select all | Expand
c:\harbour\bin\harbour $< /O$@ /a /w /es1 /n /p /gc /ic:\harbour\include
.c.obj:
c:\borland\bcc55\bin\bcc32 -M -c -v -Ic:\harbour\include $<
Code: Select all | Expand
/*
#ifdef __HARBOUR__
CLIPPER MENUDRAWITEM( PARAMS ) // ( pDrawItemStruct, cPrompt, lTop, hBitmap )
#else
CLIPPER MENUDRAWIT( PARAMS ) // EM( pDrawItemStruct, cPrompt, lTop, hBitmap )
#endif
*/
Code: Select all | Expand
HARBOUR HB_FUN_ATMENUDRAWITEM( PARAMS ) // ( pDrawItemStruct, cPrompt, lTop, hBitmap,lSeparator,acolor )
{
LPDRAWITEMSTRUCT lpdis = ( LPDRAWITEMSTRUCT ) _parnl( 1 );
LPSTR szPrompt = _parc( 2 );
BOOL bTab = bStrAt( 9, szPrompt );
WORD wLen;
E outro seria, SETA PARA CIMA e SETA PARA BAIXO
é quando passo encima de um SEPARATOR, a proxima opção não é selecionada, preciso teclar duas vezes para poder selecionar a opção.
Code: Select all | Expand
nOR( MF_DISABLED, MF_OWNERDRAW, MF_GRAYED ) ,;
para:
nOR( MF_DISABLED, MF_OWNERDRAW, MF_GRAYED, MF_SEPARATOR ) ,;