Codejock and Harbour + FWH

[George]

Hi,
I'm trying to integrate the components of "Codejock Bar" into FWH. I tried the following code (found in the forum):

Code: Select all  Expand view

function Main ()
   PUBLIC oWnd, AOCRS, Orb, oTabFiles, oTabEdit, oTabBuild
   DEFINE WINDOW oWnd
   @ 0, 0 ACTIVEX AOCRS progid "Codejock.CommandBarsFrame.16.2.6" OF oWnd
   AOCRS: Do ("AttachToWindow" oWnd: hWnd)
   orb = AOCRS: Do ("AddRibbonBar", "fwh")
   oTabFiles = orb: InsertTab (0, "& Files")
   oTabEdit = orb: InsertTab (1, "& Edit")
   oTabBuild = orb: InsertTab (2, "& Build")
   oTabFiles: Groups: AddGroup ("Test 1", 0)
   oTabFiles: Groups: AddGroup ("Test 2", 1)
   ACTIVATE WINDOW oWnd
return nil

Initially the program runs correctly and displays a message that says that I'm Using The ActiveX (Trial version) of Codejock.
After that only a black stripe is displayed on screen instead of RibbonBar.

Any suggestion, or any sample, about how to use use Codejock components and FWH?


Regards,

George
Harbour August 2013
FWH ​​13.08
PellesC

[richard-service]

Hi
Look it

Code: Select all  Expand view

    #include "FiveWin.ch"
     
    #define xtpControlError              0
    #define xtpControlButton             1
    #define xtpControlPopup              2
    #define xtpControlButtonPopup        3
    #define xtpControlSplitButtonPopup   4
    #define xtpControlComboBox           5
    #define xtpControlEdit               6
    #define xtpControlCustom             7
    #define xtpControlLabel              8
    #define xtpControlCheckBox           9
    #define xtpControlGallery           10
    #define xtpControlRadioButton       11
     
    #define xtpImageNormal               0
    #define xtpImageDisabled             1
    #define xtpImageHot                  2
    #define xtpImageChecked              3
    #define xtpImagePressed              4
     
     
    function Main()  
         
       local oWnd, oAct
       
       local oRb
       local oQA, oQBtn1, oQBtn2, oQBtn3
       local oSysButton, oControl, oPopupBar  
       
       local oStatusBar, oToolTipContext, oIcons
       local oTabFiles, oGroup1
       local oTabEdit, oGroup2
       local oTabBuild
       
       local aButtons := {}
       local oButton1, oButton2, oButton3, oButton4
       local oExitBtn, oExitBtn2
       local oBmp1, oBmp2, oBmp3, obmp4, obmp5, obmp6, obmp7, obmp8, obmp9
       
       DEFINE WINDOW oWnd TITLE "FWH Support Codejock ActiveX"
       
       oBmp1 := TBitmap():Define( , "..\bitmaps\16x16\new2.bmp", oWnd )
       oBmp2 := TBitmap():Define( , "..\bitmaps\16x16\open2.bmp", oWnd )
       oBmp3 := TBitmap():Define( , "..\bitmaps\alphabmp\explorer.bmp", oWnd )    
       oBmp4 := TBitmap():Define( , "..\bitmaps\32x32\open.bmp", oWnd )
       oBmp5 := TBitmap():Define( , "..\bitmaps\32x32\people.bmp", oWnd )
       oBmp6 := TBitmap():Define( , "..\bitmaps\32x32\keys.bmp", oWnd )
       oBmp7 := TBitmap():Define( , "..\bitmaps\32x32\quit.bmp", oWnd )
       oBmp8 := TBitmap():Define( , "..\bitmaps\16x16\copy.bmp", oWnd )
       oBmp9 := TBitmap():Define( , "..\bitmaps\16x16\info.bmp", oWnd )
       
       
       oAct := TActiveX():New( oWnd, "Codejock.CommandBarsFrame.12.1.1", 0, 0, 0, 0 )  
       
       //@ 0, 0 ACTIVEX oAct PROGID "Codejock.CommandBarsFrame.12.1.1" OF oWnd
     
       oAct:bOnEvent = { | cEvent, aParams, pParams | RibbonBarEvent( cEvent, aParams, pParams, aButtons, oWnd ) }
     
       oAct:Do( "AttachToWindow", oWnd:hWnd )
       
       oAct:Do( "EnableOffice2007Frame", .T. )
       oAct:Do( "VisualTheme", .T. )
     
               
       // ToolTipContext - Richard          
       oToolTipContext := TOleAuto():New( ActXPdisp( oAct:hActiveX ) )
       oToolTipContext := oToolTipContext:ToolTipContext()
       oToolTipContext:Style = 5  && xtpToolTipOffice2007
       oToolTipContext:ShowTitleAndDescription( .T., 0 )
       oToolTipContext:ShowImage( .T., 0 )
       oToolTipContext:SetMargin( 2, 2, 2, 2 )
       oToolTipContext:MaxTipWidth = 180
       
       // StatusBar-Richard
       oStatusBar := TOleAuto():New( ActXPdisp( oAct:hActiveX ) )
       oStatusBar:StatusBar:Visible = .T.
     
       oStatusBar:StatusBar:AddPane( 0 )
       oStatusBar:StatusBar:AddPane( 59137 )
       oStatusBar:StatusBar:AddPane( 59138 )
       oStatusBar:StatusBar:AddPane( 59139 )  
       oStatusBar:StatusBar:IdleText = "FWH support Codejock RibbonBar"      
       
       oIcons := oAct:Do( "icons" )  
       
       oIcons:AddBitmap( oBmp1:hBitmap,1,xtpImageNormal,.f. )
       oIcons:AddBitmap( oBmp2:hBitmap,2,xtpImageNormal,.f. )
       oIcons:AddBitmap( oBmp3:hBitmap,3,xtpImageNormal,.t. ) // 4th param, Bool to Alpha Channel Support  
       oIcons:AddBitmap( oBmp4:hBitmap,4,xtpImageNormal,.f. )
       oIcons:AddBitmap( oBmp5:hBitmap,5,xtpImageNormal,.f. )
       oIcons:AddBitmap( oBmp6:hBitmap,6,xtpImageNormal,.f. )
       oIcons:AddBitmap( oBmp7:hBitmap,7,xtpImageNormal,.f. )
       oIcons:AddBitmap( oBmp8:hBitmap,8,xtpImageNormal,.f. )
       oIcons:AddBitmap( oBmp9:hBitmap,9,xtpImageNormal,.f. )
       oIcons:LoadBitmap( "..\bitmaps\32x32\edit.bmp",4, xtpImageNormal)
       
       //oAct:Hide()
     
       // RibbonBar - Richard
       oRb = oAct:Do( "AddRibbonBar", "Ribbon Bar" )
       
       oRb:EnableDocking(64)
       oRb:EnableFrameTheme()              
       oRb:ShowQuickAccessBelowRibbon(.F.)
       oRb:ShowCaptionAlways(.T.)
       oRb:ShowQuickAccess(.T.)  
       oRb:ShowGripper()
       
       // QuickAccess - Richard  
       oQA:= oRb:QuickAccessControls()
       oQBtn1 := oQA:Add( 1, 1, "&New"         )
       oQBtn2 := oQA:Add( 1, 2, "&Save"        )
       oQBtn3 := oQA:Add( 1, 8, "&copy"        )
       oQA:Add( 1, 9, "&info"        )
       
       // Add SysButton - Richard
       oSysButton := oRb:AddSystemButton()
       oSysButton:IconId( 5 )
         
       oSysButton:CommandBar:Controls:Add( 1, 4, "&New"         )
       oSysbutton:CommandBar:Controls:Add( 1, 5, "&Open..."     )
       oSysbutton:CommandBar:Controls:Add( 1, 6, "&Save"        )
       oSysbutton:CommandBar:Controls:Add( 1, 6, "Save &As..."  )
       
       oControl := oSysButton:CommandBar:Controls:Add( 4, 5, "&Print")
       oControl:BeginGroup = .T.
       
       oPopupBar := TOleAuto():New( ActXPdisp( oAct:hActiveX ) )
              oPopupBar := oPopupBar:CreateCommandBar("CXTPRibbonSystemPopupBarPage")
     
              oControl:CommandBar = oPopupBar
              oControl := oPopupBar:Controls:Add( 8, 0, "Preview and print the document")
              oControl:Width = 296
              oControl:DefaultItem = .T.
              oControl:Style = 1  && xtpButtonCaption
              oPopupBar:DefaultButtonStyle = 5  && xtpButtonCaptionAndDescription
              oPopupBar:SetIconSize( 32, 32 )
              oPopupBar:ShowGripper = .F.
     
                 oPopupBar:Controls:Add( 1, 4, "Print Pre&view" )
              oPrnSetup = oPopupBar:Controls:Add( 1, 5, "Pr&int Setup..." )
                 oPopupBar:Controls:Add( 1, 6, "Print Pre&view" )
                 
       oSysbutton:CommandBar:Controls:Add( 1, 1230, "Prepare" )
       oSysbutton:CommandBar:Controls:Add( 1, 1235, "Send" )
       oSysbutton:CommandBar:Controls:Add( 1, 1230, "Publish" )
       oExitBtn2 = oSysbutton:CommandBar:Controls:Add( 1, 7, "Close" )
     
       oSysbutton:CommandBar:SetIconSize( 32, 32 )    
       
       
       // RibbonBar Table - Richard  
       oTabFiles = oRb:InsertTab( 0, "&Files" )
       
       oTabFiles_Grp1 = oTabFiles:Groups:AddGroup("&Clipboard", 0)
       oTabFiles_Grp1:ShowOptionButton = .T.
       
       // TabFiles Group ToolTip - Richard
       oTabFiles_Grp1:ControlGroupOption:Id = 1000
       oTabFiles_Grp1:ControlGroupOption:ToolTipText = "Clipboard"
       oTabFiles_Grp1:ControlGroupOption:DescriptionText = "Show clipboard dialog"
       oTabFiles_Grp1:ControlGroupOption:IconId(3)
         
       
       oPaste := oTabFiles_Grp1:Add( 4, 1, "&Paste")
        oPaste:CommandBar:Controls:Add( 1, 1, "&Paste" )
        oPaste:CommandBar:Controls:Add( 1, 2, "&Paste Special" )
       oButton1 = oTabFiles_Grp1:Add( xtpControlButton, 2, "&Cut" )
       oButton2 = oTabFiles_Grp1:Add( xtpControlButton, 3, "&Copy" )
             
       oBtn1 := oTabFiles_Grp1:Add(  1, 9, "Format")
       oBtn1:Enabled = .F.
       
       oBtn2 := oTabFiles_Grp1:Add(  1, 8, "Delete")
       oExitBtn := oTabFiles_Grp1:Add(  xtpControlButton, 7, "Exit")
               
       
       oTabFiles_Grp2 := oTabFiles:Groups:AddGroup( "&Font", 1)
     
       oButton3 = oTabFiles_Grp2:Add( xtpControlButton, 4, NIL )
       oButton4 = oTabfiles_Grp2:Add( xtpControlButton, 3, "" )
       oButton4:SetIconSize( 64,64 )
       oButton4:Width = 70
       oButton4:Height = 70
       
           
       oTabEdit  = oRb:InsertTab( 1, "&Edit" )  
       
       oTabBuild = oRb:InsertTab( 2, "&Build" )
       oTabBuild:Color = 5  
       oTable_Grp := oTabBuild:Groups:AddGroup( "&Show/Hide", 5025)
       oTable_Grp:Add( 9, 2807, "Ruler" )
       oTable_Grp:Add( 9, 2808, "GridLines" )
       oTable_Grp:Add( 9, 2809, "Properties" )
       oTable_Grp:Add( 9, 2810, "Document Map" )
       oTable_Grp:Add( 9, 2811, "Thumbnails" )
       oTable_Grp:Add( 9, 2812, "Document Action Bar" )
       
       oControlOptions := oRb:Controls:Add( 2, 0, "Options")
       oControlOptions:Flags = 1  && xtpFlagRightAlign
     
       oControl := oControlOptions:CommandBar:Controls:Add( 2, 0, "Styles")
       oControl:CommandBar:Controls:Add( 1, 3000, "Blue"   )
       oControl:CommandBar:Controls:Add( 1, 3001, "Black"  )
       oControl:CommandBar:Controls:Add( 1, 3003, "Silver" )
       oControl:CommandBar:Controls:Add( 1, 3002, "Aqua"   )
     
       oControlPopup := oControlOptions:CommandBar:Controls:Add( 2, 0, "Font", -1, .F.)
       oControlPopup:CommandBar:Controls:Add( 11, 32883, "System Default", -1, .F.)
     
       oControl := oControlPopup:CommandBar:Controls:Add( 11, 32884, "Normal", -1, .F.)
       oControl:BeginGroup = .T.
       oControlPopup:CommandBar:Controls:Add( 11, 32885, "Large", -1, .F.)
       oControlPopup:CommandBar:Controls:Add( 11, 32886, "Extra Large", -1, .F.)
     
       oControl := oControlPopup:CommandBar:Controls:Add( 1, 32887, "Auto Resize Icons", -1, .F.)
       oControl:BeginGroup = .T.
     
       oControlOptions:CommandBar:Controls:Add( 1, 3004, "Right To Left" )
       oControlOptions:CommandBar:Controls:Add( 1, 3005, "Animation" )
     
       oControlAbout := oRb:Controls:Add( 1, 4000, "&About")
       oControlAbout:Flags = 1  && xtpFlagRightAlign
         
       
       AAdd( aButtons, oButton1 )
       AAdd( aButtons, oButton2 )
       AADD( aButtons, oQBtn1 )
       AADD( aButtons, oQBtn2 )
       AADD( aButtons, oQBtn3 )  
       AADD( aButtons, oExitBtn )
       AADD( aButtons, oExitBtn2 )
       AADD( aButtons, oControlAbout )
       AADD( aButtons, oPrnSetup )
         
       
       oButton1:Caption = "FiveWin power!"
       oButton1:TooltipText = "Ribbonbar for FWH"
         
       ACTIVATE WINDOW oWnd
         
    return nil
     
    function RibbonBarEvent( cEvent, aParams, pParams, aButtons, oWnd )
     
       do case
          case cEvent == "Execute" .and. Len( aButtons ) > 0
               do case
                  case aButtons[ 1 ]:hObj == aParams[ 1 ]
                       MsgInfo( "Button 1" )
                       
                  case aButtons[ 2 ]:hObj == aParams[ 1 ]
                       MsgInfo( "Button 2" )
     
                  case aButtons[ 3 ]:hObj == aParams[ 1 ]
                       MsgInfo( "From Quick Access Button 1" )
     
                  case aButtons[ 4 ]:hObj == aParams[ 1 ]
                       MsgInfo( "From Quick Access Button 2" + CRLF + "FIVEWIN SHARING POWER" )
     
                  case aButtons[ 5 ]:hObj == aParams[ 1 ]
                       MsgInfo( "From Quick Access Button 3" )
                       
                  case aButtons[ 6 ]:hObj == aParams[ 1 ]
                       oWnd:End()      
                                   
                  case aButtons[ 7 ]:hObj == aParams[ 1 ]
                       oWnd:End()
                       
                  case aButtons[ 8 ]:hObj == aParams[ 1 ]
                       MsgInfo( "FWH's ActiveX Power support Codejock", "About Codejock" )      
                       
                  case aButtons[ 9 ]:hObj == aParams[ 1 ]
                       PrinterSetup()  
                       
                                                 
                       
               endcase        
       endcase        
       
    return nil
     
 

[George]

Thanks Richard.
Unfortunately this sample code does not work either.
All I get is the warning message that I'm using the trial version.
After clicking Yes or No button, the program closes.



Saludos,

George

[richard-service]

Hi
I just test codejock v15.0.1 work fine.

[George]

Richard,
I did recompile with xHarbour Pro + FWH 13.08 and now the ribbon is displayed:

However errors are displayed when I click ribbon bar buttons.

Code: Select all  Expand view

Application
===========
   Path and name: C:\___MTA64\RICHARD.EXE (32 bits)
   Size: 2,399,744 bytes
   Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20130617)
   FiveWin  Version: FWHX 13.07
   Windows version: 6.1, Build 7601 Service Pack 1

   Time from start: 0 hours 0 mins 4 secs
   Error occurred at: 01/26/14, 10:51:11
   Error description: Error BASE/1070  Argument error: ==
   Args:
     [   1] = N   171331776
     [   2] = O   171355984

Stack Calls
===========
   Called from: C:\___MTA64\Richard.prg => RIBBONBAREVENT( 253 )
   Called from: C:\___MTA64\Richard.prg => (b)MAIN( 60 )
   Called from: .\source\classes\ACTIVEX.PRG => TACTIVEX:ONEVENT( 141 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1003 )
   Called from: C:\___MTA64\Richard.prg => MAIN( 244 )

System
======
   CPU type: Intel(R) Core(TM) i7 CPU         870  @ 2.93GHz 75 Mhz
   Hardware memory: 8184 megs

   Free System resources: 90 %
        GDI    resources: 90 %
        User   resources: 90 %

   Windows total applications running: 7
      1 ,                                                                                                    
      2 , C:\PROGRA~2\CODEJO~1\ActiveX\XTREME~1.6(3\Bin\CODEJO~3.OCX                                          
      3 , C:\Windows\syswow64\SHLWAPI.dll                                                                    
      4 , C:\___MTA64\RICHARD.EXE                                                                            
      5 DDE Server Window, C:\Windows\syswow64\ole32.dll                                                                      
      6 Default IME, C:\Windows\syswow64\USER32.dll                                                                      
      7 GDI+ Window, C:\Windows\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.7601.18120_none_72d2e82386681b

It's possible the problem is related to using PellesC by xHarbour Pro.

When Using Harbour + FWH I get the following Error:

Code: Select all  Expand view

Application
===========
   Path and name: C:\___MTA64\RICHARD.EXE (32 bits)
   Size: 2,921,472 bytes
   Compiler version: Harbour 3.2.0dev (r1306132159)
   FiveWin  Version: FWH 13.07
   Windows version: 6.1, Build 7601 Service Pack 1

   Time from start: 0 hours 0 mins 1 secs
   Error occurred at: 01/26/14, 10:52:09
   Error description: (DOS Error -2147352562) WINOLE/1007  Argument error: VISUALTHEME
   Args:
     [   1] = L   .T.

Stack Calls
===========
   Called from:  => TOLEAUTO:VISUALTHEME( 0 )
   Called from:  => __OBJSENDMSG( 0 )
   Called from: .\source\classes\ACTIVEX.PRG => TACTIVEX:DO( 95 )
   Called from: richard.prg => MAIN( 65 )

System
======
   CPU type: Intel(R) Core(TM) i7 CPU         870  @ 2.93GHz 2950 Mhz
   Hardware memory: 8184 megs

   Free System resources: 90 %
        GDI    resources: 90 %
        User   resources: 90 %

   Windows total applications running: 6
      1 ,                                                                                                    
      2 , C:\PROGRA~2\CODEJO~1\ActiveX\XTREME~1.6(3\Bin\CODEJO~3.OCX                                          
      3 , C:\Windows\syswow64\SHLWAPI.dll                                                                    
      4 , C:\___MTA64\RICHARD.EXE                                                                            
      5 DDE Server Window, C:\Windows\syswow64\OLE32.DLL                                                                      
      6 GDI+ Window, C:\Windows\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.7601.18120_none_72d2e82386681b
 

Please see below my BAT file used with Harbour:

Code: Select all  Expand view

@ECHO OFF
CLS
ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO ³ FiveWin for Harbour 13.08 - Aug.  2013          Harbour development power  ³Ü
ECHO ³ (c) FiveTech, 1993-2013   for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7/8 ³Û
ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ
ECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

CLS

if A%1 == A GOTO :SINTAX
if NOT EXIST %1.prg GOTO :NOEXIST

set FWDIR=C:\FWH_13.08
set HBDIR=c:\harbour_aug13

rem echo on
rem pause "b"
set GT=gtgui

ECHO Compiling...

set hdir=%HBDIR%
set hdirl=%hdir%\lib
set fwh=%FWDIR%
set bcdir=c:\bcc582

rem echo on
rem pause "c"

%hdir%\bin\harbour %1 /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 @b32.bc
:ENDCOMPILE

IF EXIST %1.rc %bcdir%\bin\brc32 -r -I%bcdir%\include %1
rem IF EXIST %1.rc %vcdir%\bin\rc -r -d__FLAT__ %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\FiveH.lib %fwh%\lib\FiveHC.lib %fwh%\lib\libmysql.lib %fwh%\lib\libmysqld.lib %fwh%\lib\dolphin.lib + >> b32.bc
echo %hdirl%\hbwin.lib + >> b32.bc
echo %hdirl%\gtwin.lib + >> b32.bc
echo %hdirl%\gtgui.lib + >> b32.bc
echo %hdirl%\hbrtl.lib + >> b32.bc
echo %hdirl%\hbvm.lib + >> b32.bc
echo %hdirl%\hblang.lib + >> b32.bc
echo %hdirl%\hbmacro.lib + >> b32.bc
echo %hdirl%\hbrdd.lib + >> b32.bc
echo %hdirl%\rddntx.lib + >> b32.bc
echo %hdirl%\rddcdx.lib + >> b32.bc
echo %hdirl%\rddfpt.lib + >> b32.bc
echo %hdirl%\hbsix.lib + >> b32.bc
echo %hdirl%\hbdebug.lib + >> b32.bc
echo %hdirl%\hbcommon.lib + >> b32.bc
echo %hdirl%\hbpp.lib + >> b32.bc
echo %hdirl%\hbcpage.lib + >> b32.bc
echo %hdirl%\hbcplr.lib + >> b32.bc
echo %hdirl%\hbct.lib + >> b32.bc
echo %hdirl%\hbpcre.lib + >> b32.bc
echo %hdirl%\xhb.lib + >> b32.bc
echo %hdirl%\hbziparc.lib + >> b32.bc
echo %hdirl%\hbmzip.lib + >> b32.bc
echo %hdirl%\hbzlib.lib + >> b32.bc
echo %hdirl%\minizip.lib + >> b32.bc
echo %hdirl%\png.lib + >> b32.bc
echo %hdirl%\hbcurl.lib + >> b32.bc
echo %hdirl%\hbusrrdd.lib + >> b32.bc
echo %fwh%\lib\libcurl.lib + >> b32.bc

rem Uncomment these two lines to use Advantage RDD
rem echo %hdirl%\rddads.lib + >> b32.bc
rem echo %hdirl%\Ace32.lib + >> b32.bc

 echo rddads_harbour.lib + >> b32.bc
 echo Ace32.lib + >> b32.bc

rem echo %fwh%\lib\dolphin.lib + >> b32.bc
rem echo %fwh%\lib\libmysql.lib + >> b32.bc

echo %bcdir%\lib\cw32.lib + >> b32.bc
echo %bcdir%\lib\uuid.lib + >> b32.bc
echo %bcdir%\lib\import32.lib + >> b32.bc
echo %bcdir%\lib\ws2_32.lib + >> b32.bc
echo %bcdir%\lib\psdk\odbc32.lib + >> b32.bc
echo %bcdir%\lib\psdk\nddeapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\iphlpapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\msimg32.lib + >> b32.bc
echo %bcdir%\lib\psdk\psapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\rasapi32.lib + >> b32.bc
echo %bcdir%\lib\psdk\gdiplus.lib + >> b32.bc
echo %bcdir%\lib\psdk\shell32.lib, >> b32.bc

IF EXIST %1.res echo %1.res >> b32.bc
if %GT% == gtwin %bcdir%\bin\ilink32 -Gn -Tpe -s @b32.bc
IF ERRORLEVEL 1 GOTO LINKERROR
if %GT% == gtgui %bcdir%\bin\ilink32 -Gn -aa -Tpe -s @b32.bc
IF ERRORLEVEL 1 GOTO LINKERROR
ECHO * Application successfully built *

COPY MAIN.EXE MTA32.EXE

rem signtool.exe sign /fd sha256 %1.exe
%1
GOTO EXIT
ECHO

rem delete temporary files
@del %1.c

:COMPILEERRORS
@type comp.log
@type warnings.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

I will do some more testing. Thanks for your help.

Regards,

George

[richard-service]

Hi George
if you have any question, I will help you.

[RAMESHBABU]

Hi George,

Please Change like this

function RibbonBarEvent( cEvent, aParams, pParams, aButtons, oWnd )

do case
case cEvent == "Execute" .and. Len( aButtons ) > 0
do case
case aButtons[ 1 ]:hObj == aParams[ 1 ]:hObj
MsgInfo( "Button 1" )

case aButtons[ 2 ]:hObj == aParams[ 1 ]:hObj
MsgInfo( "Button 2" )

case aButtons[ 3 ]:hObj == aParams[ 1 ]:hObj
MsgInfo( "From Quick Access Button 1" )

case aButtons[ 4 ]:hObj == aParams[ 1 ]:hObj
MsgInfo( "From Quick Access Button 2" + CRLF + "FIVEWIN SHARING POWER" )

case aButtons[ 5 ]:hObj == aParams[ 1 ]:hObj
MsgInfo( "From Quick Access Button 3" )

case aButtons[ 6 ]:hObj == aParams[ 1 ]:hObj
oWnd:End()

case aButtons[ 7 ]:hObj == aParams[ 1 ]:hObj
oWnd:End()

case aButtons[ 8 ]:hObj == aParams[ 1 ]:hObj
MsgInfo( "FWH's ActiveX Power support Codejock", "About Codejock" )

case aButtons[ 9 ]:hObj == aParams[ 1 ]:hObj
PrinterSetup()


endcase
endcase

return nil

- Ramesh Babu P

[George]

Hi Ramesh,
After the changes I get when using harbour + FWH 13.08 the following message:

Code: Select all  Expand view

Application
===========
   Path and name: C:\FWH_13.08\samples\RICHARD1.exe (32 bits)
   Size: 2,921,984 bytes
   Compiler version: Harbour 3.2.0dev (r1306132159)
   FiveWin  Version: FWH 13.07
   Windows version: 6.1, Build 7601 Service Pack 1

   Time from start: 0 hours 0 mins 7 secs
   Error occurred at: 01/27/14, 09:14:13
   Error description: (DOS Error -2147352562) WINOLE/1007  Argument error: VISUALTHEME
   Args:
     [   1] = L   .T.

Stack Calls
===========
   Called from:  => TOLEAUTO:VISUALTHEME( 0 )
   Called from:  => __OBJSENDMSG( 0 )
   Called from: .\source\classes\ACTIVEX.PRG => TACTIVEX:DO( 95 )
   Called from: RICHARD1.prg => MAIN( 65 )

System
======
   CPU type: Intel(R) Core(TM) i7 CPU         870  @ 2.93GHz 2950 Mhz
   Hardware memory: 8184 megs

   Free System resources: 90 %
        GDI    resources: 90 %
        User   resources: 90 %

   Windows total applications running: 7
      1 ,                                                                                                    
      2 , C:\FWH_13.08\samples\RICHARD1.exe                                                                  
      3 , C:\PROGRA~2\CODEJO~1\ActiveX\XTREME~1.6(3\Bin\CODEJO~3.OCX                                          
      4 , C:\Windows\syswow64\SHLWAPI.dll                                                                    
      5 DDE Server Window, C:\Windows\syswow64\OLE32.DLL                                                                      
      6 GDI+ Window, C:\Windows\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.7601.18120_none_72d2e82386681b
      7 SYM_AVPAPP_WINDOW_NAME_{1BE293D4-E7AD-4314-B8C9-C088A7CC1E69}, C:\Users\GeorgeRM\AppData\Local\Temp\Codejock.SuitePro.ActiveX.Eval.16.2.6.dll

After commenting the line 65 oAct:Do( "VisualTheme", .T. ), the program compiles without error but the same result only displaying the message about Trial Codejock Version and then the program closes.

If compiling with xHarbour I get the error message: "Unresolved external '_hb_parns' ; after adding the C function:

Code: Select all  Expand view

#pragma BEGINDUMP

void * hb_parns( int i )
{
   return 0;
}

#pragma ENDDUMP
 

the program compiles without error but with the same result.
I read in the forum, a Richard message, that this is the usual behavior (only displaying a message), for demo version Codejock and Harbour + FWH.
http://forums.fivetechsupport.com/viewtopic.php?f=3&t=15102&p=78323&hilit=codejock+demo+only#p78323

Regards,

George