Ribbon Control and Progress OpenEdge 10.1A

/* SetWindowPos() Constans */
&GLOBAL-DEFINE SWP_NOSIZE     1
&GLOBAL-DEFINE SWP_NOMOVE     2
&GLOBAL-DEFINE SWP_NOZORDER   4
   
PROCEDURE AddRibbonBar :
DEFINE       VARIABLE  i_hWnd             AS INTEGER      NO-UNDO.
   RUN GetParent( h_Window:HWND, OUTPUT i_hWnd ). /* Get Windows-window */
  /* Move Progress-window 142 pixels down (= height of Ribbonbar) */
   RUN SetWindowPos( h_Window:HWND, 0, 0, 142, 0, 0, {&SWP_NOSIZE} + {&SWP_NOZORDER}, OUTPUT ig_Tmp).
   
   ch_CommandBars:AttachToWindow( i_hWnd ).
   ch_RibbonBar:EnableFrameTheme().
   
END PROCEDURE.
 
PROCEDURE GetParent EXTERNAL "user32.dll" :
   DEFINE INPUT   PARAMETER ch_Window AS LONG.
   DEFINE RETURN  PARAMETER ch_Parent AS LONG.
END PROCEDURE.

PROCEDURE SetWindowPos EXTERNAL "user32.dll" :
   DEFINE INPUT  PARAMETER hwnd            AS LONG.
   DEFINE INPUT  PARAMETER hwndInsertAfter AS LONG.
   DEFINE INPUT  PARAMETER x               AS LONG.
   DEFINE INPUT  PARAMETER y               AS LONG.
   DEFINE INPUT  PARAMETER cx              AS LONG.
   DEFINE INPUT  PARAMETER cy              AS LONG.
   DEFINE INPUT  PARAMETER fuFlags         AS LONG.
   DEFINE RETURN PARAMETER ReturnValue     AS LONG.
END PROCEDURE.
 

DEFINE VARIABLE   chPane AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE   ig_Tmp AS INTEGER    NO-UNDO.
DEFINE VARIABLE   cg_Tmp AS CHARACTER  NO-UNDO.
DEFINE VARIABLE   lg_Tmp AS LOGICAL    NO-UNDO.
DEFINE VARIABLE   i_hWnd AS INTEGER    NO-UNDO.
DEFINE VARIABLE   hFrame AS HANDLE     NO-UNDO.
ASSIGN hFrame = FRAME default-frame:HANDLE.
CREATE CONTROL-FRAME ocx_Toolbar
ASSIGN      FRAME        = hFrame
             ROW          = 1
             COLUMN       = 1
             HEIGHT       = 1
             WIDTH        = 1
             HIDDEN       = TRUE
             SENSITIVE    = TRUE.
ASSIGN ocx_Toolbar:NAME = "ocx_Toolbar":U
       cg_Tmp           = SEARCH( "ocx_toolbar.wrx":U )
       chocx_Toolbar    = ocx_Toolbar:COM-HANDLE
       lg_Tmp           = chocx_Toolbar:LoadControls(cg_Tmp,"ocx_CommandBars":U)
       ch_TBar          = chocx_Toolbar:CommandBars.
RUN GetParent( c-win:HWND, OUTPUT i_hWnd ). /* Get Windows-window */
RUN SetWindowPos( c-win:HWND, 0, 0, 142, 0, 0, {&SWP_NOSIZE} + {&SWP_NOZORDER}, OUTPUT ig_Tmp).
/*
To make the statusbar visible you also have to resize the Progress window.
Then you should remove {&SWP_NOSIZE} and give a width and height in the 
5th and 6th argument of SetWindowPos.
*/
ch_TBar:AttachToWindow( i_hWnd ).
ASSIGN RibbonBar = ch_TBar:AddRibbonBar("RibbonBar")
       chpane    = RibbonBar:AddSystemButton().
/* ch_TBar:LoadDesignerBars("test_form.xcb" ). /* if enabled it removes the windows buttons (?) */ */
ASSIGN RibbonBar:ShowQuickAccess = FALSE.
       chStatusbar               = ch_TBar:StatusBar.
       chpane                    = chStatusBar:AddPane(0).
RibbonBar:EnableFrameTheme().

 
DEFINE VARIABLE   chPane AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE   ig_Tmp AS INTEGER    NO-UNDO.
DEFINE VARIABLE   cg_Tmp AS CHARACTER  NO-UNDO.
DEFINE VARIABLE   lg_Tmp AS LOGICAL    NO-UNDO.
DEFINE VARIABLE   i_hWnd AS INTEGER    NO-UNDO.
DEFINE VARIABLE   hFrame AS HANDLE     NO-UNDO.
ASSIGN hFrame = FRAME default-frame:HANDLE.
CREATE CONTROL-FRAME ocx_Toolbar
ASSIGN      FRAME        = hFrame
            ROW          = 1
            COLUMN       = 1
            HEIGHT       = 1
            WIDTH        = 1
            HIDDEN       = TRUE
            SENSITIVE    = TRUE.
ASSIGN ocx_Toolbar:NAME = "ocx_Toolbar":U
       cg_Tmp           = SEARCH( "ocx_toolbar.wrx":U )
       chocx_Toolbar    = ocx_Toolbar:COM-HANDLE
       lg_Tmp           = chocx_Toolbar:LoadControls(cg_Tmp,"ocx_CommandBars":U)
       ch_TBar          = chocx_Toolbar:CommandBars.
       
RUN GetParent( c-win:HWND, OUTPUT i_hWnd ). /* Get Windows-window */
RUN SetWindowPos( c-win:HWND, 0, 0, 142, 0, 0, {&SWP_NOSIZE} + {&SWP_NOZORDER}, OUTPUT ig_Tmp).
ch_TBar:AttachToWindow( i_hWnd ).
/* Create ribbonbar */
ASSIGN RibbonBar                 = ch_TBar:AddRibbonBar("RibbonBar")
       chpane                    = RibbonBar:AddSystemButton()
       RibbonBar:ShowQuickAccess = FALSE.
       
ch_TBar:LoadDesignerBars("test_form.xcb" ).

/* Set statusbar */
ASSIGN chStatusbar                      = ch_TBar:StatusBar
       chStatusbar:Visible              = TRUE
       chpane                           = chStatusBar:AddPane(1)
       chpane:TEXT                      = "Hello world":U.
chStatusbar:SetPaneStyle( 1, 134217728).    /* Stretchable */
chStatusbar:AddPane( 59137 ). /* CAPS */
chStatusbar:AddPane( 59138 ). /* NUM  */
/* Enable theme */
RibbonBar:EnableFrameTheme().

 
PROCEDURE ocx_Toolbar.CommandBars.Resize :
DEFINE VARIABLE   i_Tmp AS INTEGER    NO-UNDO.
/* 
142 = height of ribbon
22  = height of statusbar
*/
RUN SetWindowPos( c-win:HWND, 0, 0, 0, c-win:WIDTH-PIXELS, c-win:HEIGHT-PIXELS - 142 - 22, {&SWP_NOMOVE} + {&SWP_NOZORDER}, OUTPUT i_Tmp).
 
END PROCEDURE.