Ya esta lista la nueva version de menus con todas las correcciones a los bugs reportados por ustedes
[img] http://www.quark-costos.com/downloads/menu2.jpg
Saludos
Arturo
a) When I tried to change to prompt of the menu item using
oMenu:SetPrompt(..) or oMenu:cCaption(..) the gradiation effect is
lost and the system's default gray color with blue highlite is appearing.
b) When the menu are displayed in WIN98 the Hilite bar is painted from
the place where the Icon is ended at the right side and the bar is not
painted on the icon also. But is same functionality is working OK in
WinXp
but I do not see colorMenu() or colorSubMenu()
The gradient.obj file is getting linked but the linker doesn't see lightColor() for some reason.
@ECHO OFF
CLS
ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO ³ FiveWin for xHarbour 2.8 - September 2006 xHarbour development power ³Ü
ECHO ³ (c) FiveTech, 1993-2006 for Microsoft Windows 95/98/NT/2000/ME and XP ³Û
ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ
ECHO ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
if A%1 == A GOTO :SINTAX
if NOT EXIST %1.prg GOTO :NOEXIST
ECHO Compiling...
set hdir=c:\xharbour
set bcdir=c:\bcc55
%hdir%\bin\harbour %1 /n /i..\include;%hdir%\include /w /p %2 %3 > clip.log
%hdir%\bin\harbour menu /n /i..\include;%hdir%\include /w /p %2 %3 >> clip.log
%hdir%\bin\harbour menuitem /n /i..\include;%hdir%\include /w /p %2 %3 >> clip.log
%hdir%\bin\harbour pdmenu /n /i..\include;%hdir%\include /w /p %2 %3 >> clip.log
%hdir%\bin\harbour mru /n /i..\include;%hdir%\include /w /p %2 %3 >> clip.log
@type clip.log
IF ERRORLEVEL 1 PAUSE
IF ERRORLEVEL 1 GOTO EXIT
echo -O2 -e%1.exe -I%hdir%\include %1.c > b32.bc
echo -O2 -e%1.exe -I%hdir%\include menu.c >> b32.bc
echo -O2 -e%1.exe -I%hdir%\include menuitem.c >> b32.bc
echo -O2 -e%1.exe -I%hdir%\include pdmenu.c >> b32.bc
echo -O2 -e%1.exe -I%hdir%\include mru.c >> b32.bc
rem echo -O2 -e%1.exe -I%hdir%\include gradfill.c >> b32.bc
%bcdir%\bin\bcc32 -M -c -v @b32.bc
:ENDCOMPILE
IF EXIST %1.rc %bcdir%\bin\brc32 -r %1
echo c0w32.obj + > b32.bc
echo %1.obj + >> b32.bc
echo menu.obj + >> b32.bc
echo gradfill.obj + >> b32.bc
echo menu.obj + >> b32.bc
echo menus.obj + >> b32.bc
echo menuitem.obj + >> b32.bc
echo pdmenu.obj + >> b32.bc
echo mru.obj, + >> b32.bc
echo %1.exe, + >> b32.bc
echo %1.map, + >> b32.bc
echo c:\fwh\lib\Fivehx.lib c:\fwh\lib\FiveHC.lib + >> b32.bc
echo %hdir%\lib\rtl.lib + >> b32.bc
echo %hdir%\lib\vm.lib + >> b32.bc
echo %hdir%\lib\gtgui.lib + >> b32.bc
echo %hdir%\lib\lang.lib + >> b32.bc
echo %hdir%\lib\macro.lib + >> b32.bc
echo %hdir%\lib\rdd.lib + >> b32.bc
echo %hdir%\lib\dbfntx.lib + >> b32.bc
echo %hdir%\lib\dbfcdx.lib + >> b32.bc
echo %hdir%\lib\dbffpt.lib + >> b32.bc
echo %hdir%\lib\hbsix.lib + >> b32.bc
echo %hdir%\lib\debug.lib + >> b32.bc
echo %hdir%\lib\common.lib + >> b32.bc
echo %hdir%\lib\pp.lib + >> b32.bc
rem Uncomment these two lines to use Advantage RDD
echo %hdir%\lib\rddads.lib + >> b32.bc
echo %hdir%\lib\Ace32.lib + >> b32.bc
echo %bcdir%\lib\cw32.lib + >> b32.bc
echo %bcdir%\lib\import32.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\iphlpapi.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
rem %bcdir%\bin\ilink32 -Gn -Tpe -s -v @b32.bc
%bcdir%\bin\ilink32 -Gn -aa -Tpe -s -v @b32.bc
IF ERRORLEVEL 1 GOTO LINKERROR
ECHO * Application successfully built
rem %1
GOTO EXIT
ECHO
rem delete temporary files
@del %1.c
:LINKERROR
ECHO * There are 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
This style is 4 years old and old fashioned.
Let’s start with RibbonBar. That is Office style 2007!
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 27 guests