FiveTech Support Forums

   @ 46, 55 ADD BUTTON oBtn4 GROUP oGr BITMAP "..\bitmaps\paste16.BMP" ;
     SIZE 70, 20 PROMPT "Paste"  MOSTLEFT round ;
     action pastes( oWnd )


function pastes( oWnd )
    local oPanel
    oPanel := TPanel():New(,,,, oWnd)
    msginfo( "mm" )
    oPanel:Hide()
    msginfo( "mm" )
return

   ::Register()

   if ! Empty( ::oWnd:hWnd )
      ::Create()
      ::oWnd:AddControl( Self )
      if ::oWnd:oBrush != nil
         ::SetBrush( ::oWnd:oBrush ) // este linea
      endif
   else
      ::oWnd:DefControl( Self )
   endif

    oPanel := TPanel():New(,,,, oWnd)
    oPanel:Hide()

   @ 0,0 XBROWSE oBrw OF oPanel                 ;
         FIELDS   (cAliasTablas)->cod_tabla, ;                                                                  //1
                        (cAliasTablas)->Nom_tabla ;                                                                 //2
            HEADERS "Código", "Descripción" ;
            JUSTIFY AL_LEFT,AL_LEFT ;
         ALIAS (cAliasTablas)               ;
            CELL LINES AUTOSORT

    WITH OBJECT oBrw

Function Main()

   local oRibbon
    local oQbtn1, oQbtn2, oQbtn3
   local oQck, oBtn
    local OmENU2, OiCO, oPanel, oItem
    local hBorland

    SetKey( VK_F6, { || VerPosibleError() } )

   SetBalloon( .T. )
    hBorland := LoadLibrary( "SYSTEM\BWCC32.DLL" )
    BWCCRegister(GetResources())
    HB_LANGSELECT( 'ES' )

   DEFINE WINDOW oWnd TITLE "Sistema Administrativo Comercial"

    oRibbon := BuildRibbonBar( oWnd )

//---------------------------------------------------------------------------------------------------------------*/
    DEFINE QUICKBUTTON OF oRibbon ;
          BITMAP "c:\fwh\bitmaps\16x16\fivetech.bmp", "c:\fwh\bitmaps\btnqcka.bmp", "c:\fwh\bitmaps\btnqckb.bmp", "c:\fwh\bitmaps\btnqckc.bmp" ;
          ACTION AbreMenu( oWnd )

   DEFINE QUICKACCESS oQck OF oRibbon

   ADD BUTTON oQbtn1 QUICKACCESS oQck BITMAP "c:\fwh\bitmaps\16x16\floppy.bmp"  ;
       ACTION MsgInfo("1")

   ADD BUTTON oQbtn2 QUICKACCESS oQck BITMAP "c:\fwh\bitmaps\16x16\closeall.bmp"  ;
       ACTION MsgInfo("2")

   ADD BUTTON oQbtn3 QUICKACCESS oQck BITMAP "c:\fwh\bitmaps\16x16\additem.bmp" ;
       ACTION MsgInfo("3")

   ADD BUTTON oQbtn3 QUICKACCESS oQck BITMAP "c:\fwh\bitmaps\16x16\adddbf.bmp" ;
       ACTION MsgInfo("4")

   AEval( oQck:aButtons, {|o| o:bRClicked := {| nRow, nCol, nFlags, oBtn | MenuQuickDelete( oBtn, oQck ) } } )

   oRibbon:nSeparation( 4 )

   SET MESSAGE OF oWnd TO "Sistema Administrativo Comercial" NOINSET 2007 //CENTERED CLOCK KEYBOARD 2007
    DEFINE MSGITEM oItem OF oWnd:oMsgBar SIZE 23 BITMAP "BTN_RESPALDO" TOOLTIP "Ver Usuarios en Linea" ACTION (MsgInfo("Ver Usuarios"))
    DEFINE MSGITEM oItem OF oWnd:oMsgBar SIZE 23 BITMAP "BTN_SALIR" TOOLTIP "Activar Calendario" ACTION (FwCalendar())

   ACTIVATE WINDOW ownd MAXIMIZED

Return Nil