FiveTech Support Forums

ANTONIO,

I MADE 


 Local oBackBtn
   Local oBackstage
   Local aClrMenu1 := { { 0.5, RGB( 69, 124, 188 ), RGB( 41, 93, 171 ) }, { 0.5, RGB( 26, 64, 136 ), RGB( 56, 135, 191 ) } }
   Local aClrMenu2 := { { 0.5, RGB( 123, 178, 236 ), RGB( 71, 126, 205 ) }, { 0.5, RGB( 17, 78, 175 ), RGB( 128, 225, 255 ) } }
   Local  aMenuRibbon := { "Favoriti","Hardware","Software","Manuali","Prestiti","Magazzino","Utilità","Aiuto" }


  if ::obar != nil
      ::obar:End()
      ::obar = nil
    endif


   ::obar:=TRibbonBar():New(::oWndMain, aMenuRibbon,,,,125,26 )


   ::obar:nLeftMargin = 85
   ::obar:CalcPos()

    oBackBtn = TRBtn():New( 4, 0, 70, 20, "./../bitmaps/rbnmenu.bmp", { || ::obar:Backstage() }, ::obar,;
        ,,,,,, .T., .T.,,,,,, /*"POPUP"*/ , oBackstage,,,,,,,,,,,,, aClrMenu1, nRGB( 125, 172, 215 ),;
      nRGB( 65, 106, 189 ) )


   Add GROUP....


 //BACKSTAGE

     DEFINE BACKSTAGE oBackstage MAINWIDTH 300
    DEFINE BSSELECT OF oBackstage PROMPT "Test1" ACTION nBackstage1(oBackstage)
    DEFINE BSSELECT OF oBackstage PROMPT "Test2" ACTION Msginfo("Test2")
    SET BACKSTAGE oBackstage TO ::oBar

RETURN Self



Function nBackstage1(oBackstage)
   Local oDlgBack1
   DEFINE DIALOG  oDlgBack1 OF oBackstage

   @10,2 say "test" of  oDlgBack1



   ACTIVATE DIALOG  oDlgBack1 NOWAIT
  Return NIL