FiveTech Software tech support forums

www.FiveTechSoft.com
https://forums.fivetechsupport.com/

Codejock RibbonBar primeras pruebas

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=15103

Page 6 of 7

Re: Codejock RibbonBar primeras pruebas

PostPosted: Fri Apr 17, 2009 10:07 am
by Antonio Linares
Rossine,

Has comparado el fichero HBWIN.lib que tu generas con el que nosotros proporcionamos ?

Compara tamaño y contenido.

Re: Codejock RibbonBar primeras pruebas

PostPosted: Sun Apr 26, 2009 1:07 pm
by goosfancito
Antonio,

Como hago (ya no me acuerdo de vb) para que me aparezca el codejock asi como lo tenes en el vb para inspeccionar?

Gracias.


Antonio Linares wrote:Inspeccionando facilmente las propiedades de CodeJock desde Microsoft Word (VBA) para aprenderlas :-)

Image

Re: Codejock RibbonBar primeras pruebas

PostPosted: Sun Apr 26, 2009 1:24 pm
by goosfancito
Espectacular. y te digo que me gustaría en algun momento ver mis app asi.


richard-service wrote:Hi All,

Finished.

Add Tab Group ToolTip+bitmap
Image

Show Button ToolTip+bitmap
Image

Change Tab Color
Image

Change Interface Color - Black
Image

Change Interface Color - Silver
Image

Change Interface Color - Aqua
Image

Code: Select all  Expand view

// FWH ActiveX Call Codejock Ocx Sample //
// Richard                              //

#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
 


Richard

Re: Codejock RibbonBar primeras pruebas

PostPosted: Mon Apr 27, 2009 12:16 am
by Rossine
Olá Antonio,

Has comparado el fichero HBWIN.lib que tu generas con el que nosotros proporcionamos ?
Compara tamaño y contenido.


Code: Select all  Expand view

hbwin.lib de FWH                296.182    08/04/2009    21:47     Harbour 1.1.0dev (Rev. 10434)
hbwin.lib de Harbour SVN        484.086    26/04/2009    20:34     Harbour 1.1.0dev (Rev. 10936)
 


Tenho muito interesse em usar o MSVC, visto que em testes comparativos com o BCC ele chega a ser quase o dobro mais veloz na execução que o BCC e sem falar que é mais atual que o BCC também :P .

Re: Codejock RibbonBar primeras pruebas

PostPosted: Fri May 15, 2009 12:19 pm
by mantonio_08
HOLA AMIGOS DEL FORO::

NO ME FUNCIONA EL MODO Q SE EXPLICA DE REGISTRAR EL ocx... ALGUIEN PODRIA DARME LUCES::

GRACIAS

el OCX.. corre de lujo.. esta muy bien

Re: Codejock RibbonBar primeras pruebas

PostPosted: Fri May 15, 2009 8:07 pm
by mantonio_08
el tema es que esto no funciona::

if ! IsActiveX( "Codejock.CommandBars.v13.0.0.Demo.ocx" )
RegisterServer( "Codejock.CommandBars.v13.0.0.Demo.ocx" )
endif

tampoco esto::

WinExec( "REGSVR32 " + cDestino + " /s" )

como se debe registrar el OCX desde Fwh...

ALGUIEN SABE

Re: Codejock RibbonBar primeras pruebas

PostPosted: Fri May 15, 2009 11:48 pm
by Cgallegoa
Code: Select all  Expand view
if ! IsActiveX( "Codejock.CommandBars.13.0.0.Demo" )
    RegisterServer( "Codejock.CommandBars.v13.0.0.Demo.ocx" )
endif

Debes indicarlo sin la "v" y sin ".ocx" cuando haces la consulta con IsActivex()
Si no está registrada, entonces la registras con RegisterServer() , agregando, ahora si, la "v" y ".ocx"

Saludos,

Carlos Gallego

Re: Codejock RibbonBar primeras pruebas

PostPosted: Sun May 17, 2009 11:21 pm
by mantonio_08
AMIGOS Y COLEGAS ESTOY TRATANDO DE APLICAR EL OCX.. DE CODEJ....

PERO EN ALGUNOS ASPECTOS NO ENTIENDO LA LOGICA PARA USAR DICHO OCX...

ALGUNO DE UDS. Q LO DOMINAN PODRIAN EXPLICARLO EN FORMA MAS BASICA::

GRACIAS::

Re: Codejock RibbonBar primeras pruebas

PostPosted: Tue May 19, 2009 1:54 am
by Ari
Olá,

Estou procurando uma forma de colocar a ACTION nos parametros do Button, sem ter que criar uma RibbonBarEvent.

Seria um codeblock ?, estou pesquisando o Help e não achei.

Ari

Re: Codejock RibbonBar primeras pruebas

PostPosted: Tue May 19, 2009 4:40 am
by Antonio Linares
Ari,

No puedes almacenar un codeblock en un dato de un ActiveX ni de un objeto OleAuto, ya que el codeblock es una estructura de datos propia de Harbour/xHarbour

Como mucho podrias almacenar su puntero como un numero, pero tendrías que bloquearlo desde harbour/xHarbour para que el recolector de basuras no lo elimine

Re: Codejock RibbonBar primeras pruebas

PostPosted: Tue May 19, 2009 1:31 pm
by Ari
Como deixar a RibbonBar no mesmo Skin ?

Image

Estou usando a RibbonBar 13.0.0 e SkiFrameWork 13.0.0

Ari

Menu MDI with RibbonBar

PostPosted: Sun May 24, 2009 8:04 pm
by Ari
Menu MDI junto com a RibbonBar ?

tem como ?

Ari

RibbonBar with SkinFrameWork

PostPosted: Sun May 24, 2009 8:05 pm
by Ari
Como deixar a RibbonBar com a Skin Theme em uso ?

Ari

Re: Codejock RibbonBar primeras pruebas

PostPosted: Mon May 25, 2009 2:57 pm
by Personal
atusBar := TOleAuto():New( ActXPdisp( oAct:hActiveX ) )
oStatusBar:StatusBar:Visible=.T.
oStatusBar:StatusBar:AddPane( 0 )
oStatusBar:StatusBar:IdleText = "xxx"

Demais parametros para ficar similar a msg nativa.
Image

Melhor seria alguma documentação para poder desvendar os parametros gerais.

Re: Codejock RibbonBar primeras pruebas

PostPosted: Thu May 28, 2009 2:42 pm
by mantonio_08
Colegas como comenta Ari::

oStatusBar := TOleAuto():New( ActXPdisp( oAct:hActiveX ) )
oStatusBar:StatusBar:Visible=.T.
oStatusBar:StatusBar:AddPane( 0 )
oStatusBar:StatusBar:IdleText = "xxx"

oStatusBar:StatusBar:AddPane( 59137 )
oStatusBar:StatusBar:AddPane( 59138 )
oStatusBar:StatusBar:AddPane( 59139 )

estos serian algunos otros..

pero como se controlarian los eventos de la statusbar ... AUN no encuentro la forma,, quisas alguno de los colegas mas adelantados SEPA..


Auna Ayudita:::

GRACIAS
All times are UTC
Page 6 of 7
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/