FiveTech Support Forums

#include "Fivewin.ch"
#include "Ribbon.ch"
  
Function Main()

   local oWnd, oRibbon
   local oGrupo, oBtn1, oBtn2, oQbtn1, oQbtn2, oQbtn3
   local oQck, oBtn
  
   SetBalloon( .T. ) 

   Define window ownd Title "Fivewin RibbonBar" 

   DEFINE RIBBONBAR oRibbon PROMPTS "Start","Edition","Tools","Themes","Help" OF oWnd ;
          HEIGHT 180 TOPMARGIN 60
   
   ADD GROUP oGrupo RIBBON oRibbon TO OPTION 1 PROMPT "Only a Group to Test" 
   
   @ 04,04 ADD BUTTON oBtn1 PROMPT "Testing 1" BITMAP "..\bitmaps\paste32.bmp";
           GROUP oGrupo SIZE 142,40 LEFT ;
           Action( oBtn := oRibbon:oQuickAcc:AddButton("..\bitmaps\16x16\calc.bmp",{|| MsgInfo("1")} ),;
                   oBtn:bRClicked := {| nRow, nCol, nFlags, oBtn | MenuQuickDelete( oBtn, oQck ) } )
           
   @ 45,04 ADD BUTTON oBtn2 PROMPT "Testing 2" BITMAP "..\bitmaps\stylechange32.bmp";
           GROUP oGrupo SIZE 142,40 LEFT;
           Action oRibbon:oQuickAcc:DelButton( ATail( oRibbon:oQuickAcc:aButtons ) )
   
   DEFINE QUICKBUTTON OF oRibbon ;
          BITMAP  "..\Bitmaps\16x16\fivetech.bmp", "..\Bitmaps\btnqcka.bmp", "..\Bitmaps\btnqckb.bmp", "..\Bitmaps\btnqckc.bmp" ;
          ACTION AbreMenu( oWnd ) 
          
   DEFINE QUICKACCESS oQck OF oRibbon 
   
   ADD BUTTON oQbtn1 QUICKACCESS oQck BITMAP "..\bitmaps\16x16\floppy.bmp"  ;
       ACTION MsgInfo("1")
       
   ADD BUTTON oQbtn2 QUICKACCESS oQck BITMAP "..\bitmaps\16x16\closeall.bmp"  ;
       ACTION MsgInfo("2")
       
   ADD BUTTON oQbtn3 QUICKACCESS oQck BITMAP "..\bitmaps\16x16\additem.bmp" ;
       ACTION MsgInfo("3")

   ADD BUTTON oQbtn3 QUICKACCESS oQck BITMAP "..\bitmaps\16x16\adddbf.bmp" ;
       ACTION MsgInfo("4")
    
   
   oBtn1:bRClicked := {| nRow, nCol, nFlags, oBtn | MenuQuickAdd( oBtn, oQck, "..\bitmaps\16x16\paste.bmp" ) }
   oBtn2:bRClicked := {| nRow, nCol, nFlags, oBtn | MenuQuickAdd( oBtn, oQck, , .T.) }
   
   AEval( oQck:aButtons, {|o| o:bRClicked := {| nRow, nCol, nFlags, oBtn | MenuQuickDelete( oBtn, oQck ) } } ) 
        
   
   oRibbon:nSeparation( 5 )
   
   SET MESSAGE OF oWnd TO "Sample Quick Button + Quick Access" CENTERED CLOCK KEYBOARD 2007
   Activate window ownd

Return Nil  


Function AbreMenu( oWindow )

 Local oMenu
 MENU oMenu POPUP 2007
    MENUITEM "Open"
    MENU
       MENUITEM "New"
       SEPARATOR
       MENUITEM "Other"
    ENDMENU
    MENUITEM "Save As..."
    MENU
       MENUITEM "DBF..."
       SEPARATOR
       MENUITEM "XML..."
    ENDMENU
    SEPARATOR
    MENUITEM "Close App..." Action oWindow:End()
 ENDMENU
 
ACTIVATE POPUP oMenu AT 48, 2 OF oWindow

return NIL

FUNCTION MenuQuickDelete( oBtn, oQuickAcc ) 
   Local oMenu
   
   MENU oMenu POPUP 2007
      MENUITEM "Remove QuickAccess" Action oQuickAcc:DelButton( oBtn )
   ENDMENU
   
   ACTIVATE POPUP oMenu AT oBtn:nHeight, oBtn:nLeft OF oQuickAcc:oRibbon
   
Return Nil

FUNCTION MenuQuickAdd( oBtn, oQuickAcc, cName, lAdjust ) 
   Local oMenu, o
   
   DEFAULT cName := oBtn:cName
   DEFAULT lAdjust := .F.
   
   MENU oMenu POPUP 2007
      MENUITEM "Add to QuickAccess" ;
                ACTION ( oBtn:Cargo := oQuickAcc:AddButton( cName, oBtn:bAction, , lAdjust ),;
                         oBtn:Cargo:bRClicked := {| nRow, nCol, nFlags, oBtn | MenuQuickDelete( oBtn, oQuickAcc ) } );
                WHEN ( If( oBtn:Cargo == NIL, .T.,;
                           AScan( oQuickAcc:aButtons, {| oB | oB:hWnd == oBtn:Cargo:hWnd } ) == 0 ) )
            
   ENDMENU
   
   ACTIVATE POPUP oMenu AT oBtn:nHeight() + oBtn:nTop, oBtn:nLeft OF oBtn:oWnd
   
Return Nil

#include "FiveWin.ch"
#include "ribbon.ch"

//----------------------------------------------------------------------------//

function Main()

   local oGrupo, oQck, oBtn1, oRibbon, oWnd

   SetBalloon( .T. )

   DEFINE WINDOW oWnd FROM 1, 1 To 22, 75 ;
      TITLE "This is a MDI enviroment" MDI VSCROLL
   
   DEFINE RIBBONBAR oRibbon PROMPTS "Start","Edition","Tools","Themes","Help" OF oWnd ;
          HEIGHT 150 TOPMARGIN 60
   
   ADD GROUP oGrupo RIBBON oRibbon TO OPTION 1 PROMPT "Only a Group to Test" 
   
   @ 04,04 ADD BUTTON oBtn1 PROMPT "Add MdiChild" BITMAP "..\bitmaps\new3.bmp";
           GROUP oGrupo SIZE 142,40 LEFT ;
           ACTION CreateChild( oQck, oWnd )

   
   DEFINE QUICKBUTTON OF oRibbon ;
          BITMAP NIL, "..\Bitmaps\btnqcka.bmp", "..\Bitmaps\btnqckb.bmp", "..\Bitmaps\btnqckc.bmp" ;
          ACTION MsgInfo( "Informartion" )
          
   DEFINE QUICKACCESS oQck OF oRibbon 
   

   SET MESSAGE OF oWnd TO "A message bar"

   ACTIVATE WINDOW oWnd

return nil

//----------------------------------------------------------------------------//

function CreateChild( oQck, oWnd )

   local oChild, oQbtn1
   
   oChild = oWnd:ChildNew()
   oChild:bResized = {| nType | AddToQuick( nType, oChild, oQck, oWnd ) }
   oChild:bPostEnd   = {|| DelToQuick( oQck, oChild, oWnd ) }

return nil

function AddToQuick( nType, oChild, oQck, oWnd )
   local oBtn1 
   local oWndChild

   if oChild:Cargo == NIL 
      if nType == 2
         for each oWndChild in oWnd:oWndClient:aWnd
            ADD BUTTON oWndChild:Cargo QUICKACCESS oQck BITMAP "..\bitmaps\16x16\form.bmp"  ;
                ACTION oWndChild:SetFocus()
            oWndChild:Cargo:cToolTip = oWndChild:cTitle
         next
      endif  
   else 
      if nType == 1 .or. nType == 0
         if  AScan( oWnd:oWndClient:aWnd, {| oWndChild | IsZoomed( oWndChild:hWnd ) } ) == 0
            for each oWndChild in oWnd:oWndClient:aWnd
               oQck:DelButton( oWndChild:Cargo )
               oWndChild:Cargo = NIL
            next
         endif 
      endif
   endif
return nil      

//----------------------------------------------------------------------------//

function DelToQuick( oQck, oChild, oWnd )
   local oWndChild

   if Len( oQck:aButtons )  > 0
      oQck:DelButton( oChild:Cargo )
      // we need change the action in each button
      for each oWndChild in oWnd:oWndClient:aWnd
         // one button by mdichild
         oQck:aButtons[ oWndChild:__EnumIndex ]:bAction = {| | oWndChild:SetFocus() }
      next
   endif
   
return .T.
      
//----------------------------------------------------------------------------//

...
Menu oMenu 2007
EndMenu

DEFINE WINDOW oWnd FROM 1, 1 To 22, 75 ;
       TITLE "This is a MDI enviroment" MDI VSCROLL;
       MENU oMenu
....