topic-5567

Posts: 366

Joined: Wed Aug 30, 2006 05:25 PM

Menus tipo office 2003 y XP
Posted: Sun Jan 14, 2007 04:21 AM

Leandro:

Te dejo lo que hace cada uno para que hagas tus pruebas

cClrDegrFin := LightColor(60,getsysColor(2)) // COLOR 1 DE LA BARRA VERTICAL
cClrDegrIni:= LightColor(230,cClrDegrFin) // COLOR 2 DE LA BARRA VERTICAL
cClrMenu := RGB(224, 255, 255) // COLOR DE FONDO DEL MENU
cClrMenuTxt:= CLR_BLACK // color del texto del menu sin seleccion
cClrSelFin:= RGB(255,238,194) // color de la barra de seleccion inferior
cClrSelIni:= RGB(255,238,194) // color de la barra de seleccion superior
cClrSelTxt:= CLR_BLACK // COLOR DEL TEXTO SELECCIONADO
cClrSelBor:= CLR_BLACK // COLOR DEL RECUADRO DE LA SELECCION DEL MENU

Saludos.

Ruben Fernandez

Gracias y Saludos

Ruben Fernandez - Uruguay

FWH 11.06, Harbour, Borland 5.82

leandro

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Gracias...
Posted: Sun Jan 14, 2007 02:19 PM

Amigo gracias..

Quedo comprendido...

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

George

Posts: 729

Joined: Tue Oct 18, 2005 06:49 PM

Menus tipo office 2003 y XP
Posted: Sun Jan 14, 2007 05:12 PM

Excelente contribucion!!!

Tengo un problema al tratar de compilarlo con xHarbour comercial:
xHarbour Builder Pro January 2007 + FWH 2.8 (Sep 2006)

LOS ARCHIVOS EN C NO COMPILAN

Alguna sugerencia. o Algun compañero que tenga el archivo .XBP para xBuilder?

Saludos

George

Armando Picon

Posts: 446

Joined: Mon Dec 26, 2005 09:11 PM

Menus tipo office 2003 y XP
Posted: Sun Jan 14, 2007 07:53 PM

He compilado el fuente en un archivo .LIB. Cuando intento utilizarlo como una libreria mas para mis aplicaciones no se genera el ejecutable. En el proceso se para con un mensaje de "too many MAP in fivehc" ... o algo parecido.

Inicialmente me parece que tiene conflicto con menu.c que se encuentra en la libreria de FWH... alguna otra cosa que pueda ser?

FWH + BCC582 + WorkShop 4.5 + Resource Hacker + Mingw
Mis nuevas herramientas
Comunicacion via WhatsApp (+51) 957549 665
Comunicación via Correo: apic1002002 at yahoo dot es; apic1002002@gmail.com

Rossine

Posts: 344

Joined: Tue Oct 11, 2005 11:33 AM

Menus tipo office 2003 y XP
Posted: Mon Jan 15, 2007 12:20 PM

Olá,

Para gerar o arquivo MENUS.OBJ para xharbour comercial (xacc) tive que fazer as mudanças abaixo. Procurem por "//"

Code: Select all Collapse

HB_FUNC ( _COLORMENU )
{
   HMENU      iMenu;
   MENUINFO   iMenuInfo ;
   COLORREF lColor = hb_parnl(2);
   BOOL  lSubMenu = hb_parl(3);
   HBITMAP himage ;
// HWND  himage ;

// himage = (HWND)LoadImage(0,hb_parc(4),IMAGE_BITMAP ,0,0,LR_LOADFROMFILE | LR_LOADMAP3DCOLORS | LR_LOADTRANSPARENT );
   himage = (HBITMAP)LoadImage(0,hb_parc(4),IMAGE_BITMAP ,0,0,LR_LOADFROMFILE | LR_LOADMAP3DCOLORS | LR_LOADTRANSPARENT );

   if (himage==NULL)
     {
//     himage = (HWND)LoadImage(GetModuleHandle(NULL),hb_parc(4),IMAGE_BITMAP ,0,0, LR_LOADMAP3DCOLORS	| LR_LOADTRANSPARENT );
       himage = (HBITMAP)LoadImage(GetModuleHandle(NULL),hb_parc(4),IMAGE_BITMAP ,0,0, LR_LOADMAP3DCOLORS	| LR_LOADTRANSPARENT );
     }

   iMenu              = GetMenu((HWND) _parnl(1));
   GetMenuInfo(iMenu, &iMenuInfo);
   iMenuInfo.cbSize   = sizeof(MENUINFO);

   if (lSubMenu)
    {
      iMenuInfo.fMask    = MIM_BACKGROUND | MIM_APPLYTOSUBMENUS ;
    }
   else
    {
      iMenuInfo.fMask    = MIM_BACKGROUND;
    }

   if (himage==NULL)
    {
       iMenuInfo.hbrBack = CreateSolidBrush(lColor);
    }
   else
    {
       iMenuInfo.hbrBack = CreatePatternBrush(himage);
    }

   SetMenuInfo(iMenu, &iMenuInfo);
   DrawMenuBar((HWND) _parnl(1));

}

Abraços,

Rossine.

Obrigado, Regards, Saludos

Rossine.

Harbour and Harbour++

Kleyber

Posts: 581

Joined: Tue Oct 11, 2005 11:28 AM

Menus tipo office 2003 y XP
Posted: Mon Jan 15, 2007 05:19 PM

Arturo,

 Excelente trabajo!!! He bajado y me funciona al pelo!!! Gracias por tu contribuición.

Saludos,

Kleyber Derick

FWH / xHb / xDevStudio / SQLLIB

George

Posts: 729

Joined: Tue Oct 18, 2005 06:49 PM

Menus tipo office 2003 y XP
Posted: Mon Jan 15, 2007 06:12 PM

Kleyber,

No puedo hacer compilar con xBuilderW (XHarbour Professional) los archivos Menus.c y gradfill.c; Trate la solucion mas arriba expuesta por Rossine pero no me funciono

Puedes compartir con el foro el archivo XBP y los "obj" de menus.c y gradfill.c?

Saludos

George

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Menus tipo office 2003 y XP
Posted: Tue Jan 16, 2007 02:08 PM

Estimados

Como puedo colocar el color GRAY cuando un ítem esta disable
este lo pone con color negro

saludos
Patricio

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

Kleyber

Posts: 581

Joined: Tue Oct 11, 2005 11:28 AM

Menus tipo office 2003 y XP
Posted: Wed Jan 17, 2007 02:17 AM

George,

La verdad es que no uso xHB comercial y por esto no tengo un archivo XHP para enviarte. Pero creo que en este mismo post, en el de inglés, he visto un contenido de un XHP para la compilación en xHB comercial. Quizas te sirva.

Saludos,

Kleyber Derick

FWH / xHb / xDevStudio / SQLLIB

George

Posts: 729

Joined: Tue Oct 18, 2005 06:49 PM

Menus tipo office 2003 y XP
Posted: Wed Jan 17, 2007 02:51 AM

Kleyber,

Ya trate con el archivo de Rossine para xBuilderW, pero los archivos en C, no los puedo compilar. Trate tambien con Harbour y me da error al tratar de compilar menus.c y gradfill.c.

Te agradeciera si puedes enviarme los archivos menus.obj gradfill.obj

Saludos

George

Hernan Diego Ceccarelli

Posts: 84

Joined: Fri Oct 07, 2005 04:51 PM

Menus tipo office 2003 y XP
Posted: Wed Jan 17, 2007 03:28 PM

Muy buen trabajo , voy a mirarlo con detenimiento.

Hernan

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Menus tipo office 2003 y XP
Posted: Wed Jan 17, 2007 04:03 PM

Que colores se usa para que quede desabilitados los menos, si es posible hacerlo?

Saludos
Patricio

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

Kleyber

Posts: 581

Joined: Tue Oct 11, 2005 11:28 AM

Menus tipo office 2003 y XP
Posted: Wed Jan 17, 2007 06:19 PM

George,

Ya trate con el archivo de Rossine para xBuilderW, pero los archivos en C, no los puedo compilar. Trate tambien con Harbour y me da error al tratar de compilar menus.c y gradfill.c.

Cuales son los errores?

Saludos,

Kleyber Derick

FWH / xHb / xDevStudio / SQLLIB

George

Posts: 729

Joined: Tue Oct 18, 2005 06:49 PM

Menus tipo office 2003 y XP
Posted: Wed Jan 17, 2007 07:32 PM

Kleyber,

Cuando uso Harbour me da el siguiente error:
Error: 'C:\MENU_XP\MENU.OBJ' contains invalid OMF record, type 0x4c <possibly COFF>. Fijate aqui se detiene en "menu.prg" no en "menus.c"

Cuando uso xHarbour Professional, con el archivo XBP posteado por Rossine, se detiene la compilacion cuando trata de de compilar menus.c

Saludos

George

TecniSoftware

Posts: 244

Joined: Fri Oct 28, 2005 06:29 PM

color de opciones desabilitadas
Posted: Wed Jan 17, 2007 08:52 PM

Para el color de las opciones desabilitadas yo modifiqué lo siquiente:

en el fuente pdmenu.prg, la funcion MenuDrawItem() al final

antes de :
atMenuDrawItem( pDrawItemStruct, cPrompt, lTop, hBmp, lSeparator, acolors )

habria que poner:
lActive := oItem:lActive
aColors[2] := If( !lActive, GetSysColor( 3 ), oMenu:nClrText )

entones el texto de las opciones desabilitadas queda mas clarito.

Salu2!
Alejandro Cebolido
Buenos Aires, Argentina.

Alejandro Cebolido

Buenos Aires, Argentina

FiveTech Support Forums