No puedo adicionar el Texplorerbar al Outlook2003 (Resuelto)

[AIDA]

Hola

Toy tratando de usar el nuevo Texplorerbar en el Outlook

en mi programita tengo la Texplorerbar de Andres Reyes quiero estrenar la nueva de Fivewin pero por mas que le intento no me queda les pongo como tengo mi codigo con la
Texplorerbar de Andres

Saluditos

Code: Select all  Expand view  RUN

oExBar := TExplorerBar():New(oOutLook2003:aDialogs[ 1 ])

      oPanel := oExBar:AddPanel("ALTAS AUTOS" )
      oPanel:lSpecial := .T.
      oPanel:AddLink("Alta solicitud",         {|| ALTA_A() }     ,"16x16\new2.bmp")
      oPanel:AddLink("Alta de Folio Solicitud",{|| BUSCASOL1()}   ,"16x16\mget.bmp")
      oPanel:AddLink("Alta poliza",            {|| BUSCAPOL1()}   ,"16x16\inspect.bmp")
      oPanel:AddLink("Modificaciones",         {|| MODIFICAPOLIZA() }      ,"16x16\source.bmp")
      oPanel:AddLink("Pagos",                  {|| pagos() }      ,"16x16\Image1.bmp")

      oPanel := oExBar:AddPanel("BAJAS AUTOS" )
      oPanel:AddLink("Cancelaciones"          ,{||CACELA()}        ,"16x16\stop.bmp")
      oPanel:AddLink("Rehabilitaciónes"       ,{||EXCACELA()}      ,"16x16\favorite.bmp")
      oPanel:AddLink("Baja Total Poliza"      ,{||BUSCABORRAS()}   ,"16x16\delete.bmp")
      oPanel:AddLink("Baja Total Solicitud"   ,{||BUSCABORRASF()}  ,"16x16\delete.bmp")

      oPanel := oExBar:AddPanel("CONSULTAS" )
      oPanel:AddLink("No. de poliza",{|| BUSCAPOLIZA1()},"16x16\find3.bmp")
      oPanel:AddLink("Nombre",bClick,"16x16\find3.bmp")



       oExBar := TExplorerBar():New(oOutLook2003:aDialogs[ 2 ])


       oOutLook2003:aDialogs[2]: setcolor( CLR_WHITE, CLR_BLUE )



    oExBar := TExplorerBar():New(oOutLook2003:aDialogs[3])

    oOutLook2003:aDialogs[3]:setcolor( CLR_WHITE, CLR_BLUE )

    oPanel := oExBar:AddPanel("ALTAS VIDA" )
    oPanel:lSpecial := .T.
    oPanel:AddLink("Alta solicitud",         bClick   ,"16x16\new2.bmp")
    oPanel:AddLink("Alta de Folio Solicitud",bClick   ,"16x16\mget.bmp")
    oPanel:AddLink("Alta poliza",            bClick   ,"16x16\inspect.bmp")
    oPanel:AddLink("Modificaciones",         bClick   ,"16x16\source.bmp")
    oPanel:AddLink("Pagos",                  bClick   ,"16x16\Image1.bmp")

    oPanel := oExBar:AddPanel("BAJAS VIDA" )
    oPanel:AddLink("Cancelaciones"   ,bClick,"16x16\stop.bmp")
    oPanel:AddLink("Rehabilitaciónes",bClick,"16x16\favorite.bmp")
    oPanel:AddLink("Baja Total"      ,bClick,"16x16\delete.bmp")

    oPanel := oExBar:AddPanel("CONSULTAS" )
    oPanel:AddLink("No. de poliza",bClick,"16x16\find3.bmp")
    oPanel:AddLink("Nombre"       ,bClick,"16x16\find3.bmp")



 
   SetParent( oOutLook2003:hWnd, oApp:oWnd:hWnd )

   oApp:oWnd:oClient = nil

 

   @  00,00 SPLITTER oSplit ;
      VERTICAL _3DLOOK ;
      PREVIOUS CONTROLS oOutLook2003 ;
      HINDS CONTROLS oApp:oWnd:oWndClient ;
      SIZE 4, oApp:oWnd:nHeight - 70 PIXEL ;
      OF oApp:oWnd  COLOR nRgb(26,26,112)
            oSplit:lStatic:=.T.

         SetParent( oSplit:hWnd, oApp:oWnd:hWnd )


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

[Antonio Linares]

Aida,

Que error te da ? o como se ve ?

[AIDA]

HOLA

como comente me sale un error ya quite la LIB de Andres antes de compilar y el error que me sale es el siguiente

Code: Select all  Expand view  RUN

Application
===========
   Path and name: C:\FWH\promotoria\Polizarium.Exe (32 bits)
   Size: 1,096,704 bytes
   Time from start: 0 hours 0 mins 0 secs
   Error occurred at: 06/27/10, 22:58:22
   Error description: Error BASE/1082  Argument error: -
   Args:
     [   1] = N   590
     [   2] = O   TDIALOG

Stack Calls
===========
   Called from: .\source\classes\TEXPLBAR.PRG => TEXPLORERBAR:NEW(76)
   Called from: C:\FWH\PROMOT~1\PRG\Polizarium.PRG => MAIN(423)

System
======
   CPU type: Intel(R) Core(TM)2 Duo CPU     E7300  @ 2.66GHz 2666 Mhz
   Hardware memory: 2048 megs

   Free System resources: 90 %
        GDI    resources: 90 %
        User   resources: 90 %

   Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6715)
   Windows version: 6.1, Build 7600

   

Variables in use
================
   Procedure     Type   Value
   ==========================
   TEXPLORERBAR:NEW
     Param   1:    O    Class: TDIALOG
     Local   1:    N    0
     Local   2:    N    240
     Local   3:    N    590
     Local   4:    O    Class: TDIALOG
     Local   5:    O    Class: TEXPLORERBAR
     Local   6:    U    
     Local   7:    O    Class: TEXPLORERBAR
     Local   8:    N    590
     Local   9:    O    Class: TDIALOG
     Local  10:    U    
     Local  11:    U    
   MAIN
     Local   1:    O    Class: TOUTLOOK2003
     Local   2:    U    
     Local   3:    U    
     Local   4:    U    
     Local   5:    U    
     Local   6:    U    
     Local   7:    U    
     Local   8:    U    
     Local   9:    U    
     Local  10:    U    
     Local  11:    U    
     Local  12:    U    
     Local  13:    U    
     Local  14:    U    
     Local  15:    U    
     Local  16:    U    
     Local  17:    U    
     Local  18:    U    
     Local  19:    U    
     Local  20:    U    
     Local  21:    U    
     Local  22:    B    {|| ... }
     Local  23:    U    
     Local  24:    U    
     Local  25:    U    
     Local  26:    O    Class: TFONT
     Local  27:    O    Class: TMENU
     Local  28:    O    Class: TMENU
     Local  29:    O    Class: TRIBBONBAR
     Local  30:    U    
     Local  31:    O    Class: TRBGROUP
     Local  32:    O    Class: TRBGROUP
     Local  33:    O    Class: TRBGROUP
     Local  34:    O    Class: TRBGROUP
     Local  35:    O    Class: TRBGROUP
     Local  36:    U    
     Local  37:    U    
     Local  38:    O    Class: TRBTN
     Local  39:    O    Class: TRBTN
     Local  40:    O    Class: TRBTN
     Local  41:    O    Class: TRBTN
     Local  42:    O    Class: TRBTN
     Local  43:    O    Class: TRBTN
     Local  44:    U    
     Local  45:    U    
     Local  46:    U    
     Local  47:    U    
     Local  48:    U    
     Local  49:    U    
     Local  50:    U    
     Local  51:    U    
     Local  52:    U    
     Local  53:    U    
     Local  54:    U    
     Local  55:    U    
     Local  56:    U    
     Local  57:    U    
     Local  58:    U    
     Local  59:    U    
     Local  60:    U    
     Local  61:    U    
     Local  62:    U    
     Local  63:    U    
     Local  64:    U    
     Local  65:    U    
     Local  66:    U    
     Local  67:    U    
     Local  68:    U    
     Local  69:    U    
     Local  70:    U    
     Local  71:    U    
     Local  72:    U    
     Local  73:    U    
     Local  74:    U    
     Local  75:    U    
     Local  76:    U    
     Local  77:    U    
     Local  78:    U    
     Local  79:    N    16775325
     Local  80:    C    "verce.mp3"
     Local  81:    U    

Linked RDDs
===========
   DBF
   DBFFPT
   DBFNTX
   DBFBLOB
   DBFCDX

DataBases in use
================

  1:    AUTOS                              RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
         35           45      .F.   .F.

     Indexes in use                        TagName
        => padr( alltrim( AUTOS->APELLIDO_P),2APELLIDO_P
           padr( alltrim( AUTOS->APELLIDO_M),2APELLIDO_M
           padr( alltrim( AUTOS->POLIZA ), 30 POLIZA_A
           str (AUTOS->FOLIO,10)              FOLIO_PC
           padr( alltrim( AUTOS->FOLIO_E),10) FOLIO_EM
           padr( alltrim( AUTOS->COMP),30)    CONPANIA_N

     Relations in use

  2:    VIDA                               RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
          1         1827      .F.   .F.

     Indexes in use                        TagName

     Relations in use

  3:    GMM                                RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
          1         2024      .F.   .F.

     Indexes in use                        TagName

     Relations in use

  4:    DANOS                              RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
          1         2009      .F.   .F.

     Indexes in use                        TagName

     Relations in use

  5:    FOLIADOR                           RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
          1            1      .F.   .F.

     Indexes in use                        TagName

     Relations in use

  6:    PASO                               RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
          1            1      .F.   .F.

     Indexes in use                        TagName

     Relations in use

  7:    COMPANIA                           RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
          6           19      .F.   .F.

     Indexes in use                        TagName
        => COMPANIA->NOMBRE                   COMPA

     Relations in use

  8:    MARCAS                             RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
          1           87      .F.   .F.

     Indexes in use                        TagName

     Relations in use

  9:    PAGOS                              RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
          5            5      .F.   .F.

     Indexes in use                        TagName
        => PADR( PAGOS->POLIZA, 20 )          PAGA

     Relations in use

 10:    CODIGO                             RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
      42964        42969      .F.   .F.

     Indexes in use                        TagName
        => CODIGO->CODIGO                     CODIGO

     Relations in use

 11:    CIUDAD                             RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
       2261         2426      .F.   .F.

     Indexes in use                        TagName
        => CIUDAD->NOMBRE                     CIUDAD

     Relations in use

 12: => ESTADO                             RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
         34           38      .F.   .F.

     Indexes in use                        TagName
        => ESTADO->CLAVE                      ESTADO

     Relations in use

Classes in use:
===============
     1 ERROR
     2 HASHENTRY
     3 HBCLASS
     4 HBOBJECT
     5 TSEGURITO
     6 TMENU
     7 TFONT
     8 TINI
     9 TWINDOW
    10 TMDIFRAME
    11 TBRUSH
    12 TMDICLIENT
    13 TMENUITEM
    14 TCONTROL
    15 TRIBBONBAR
    16 TRPANEL
    17 TRBGROUP
    18 TRBTN
    19 TOUTLOOK2003
    20 TOUTLOOK2003GROUP
    21 TDIALOG
    22 TEXPLORERBAR
    23 TREG32

Memory Analysis
===============
      238 Static variables

   Dynamic memory consume:
      Actual  Value:          0 bytes
      Highest Value:          0 bytes


[Antonio Linares]

Aida,

Como estás creando el control ExplorerBar ?

Por favor muestra el código que tienes en la línea:
Polizarium.PRG => MAIN(423)

gracias

[AIDA]

Hola Antonio

Code: Select all  Expand view  RUN

 AQUI ES LA LINEA 423    oExBar := TExplorerBar():New(oOutLook2003:aDialogs[ 1 ])

      oPanel := oExBar:AddPanel("ALTAS AUTOS" )
      oPanel:lSpecial := .T.
      oPanel:AddLink("Alta solicitud",         {|| ALTA_A() }     ,"16x16\new2.bmp")
      oPanel:AddLink("Alta de Folio Solicitud",{|| BUSCASOL1()}   ,"16x16\mget.bmp")
      oPanel:AddLink("Alta poliza",            {|| BUSCAPOL1()}   ,"16x16\inspect.bmp")
      oPanel:AddLink("Modificaciones",         {|| MODIFICAPOLIZA() }      ,"16x16\source.bmp")
      oPanel:AddLink("Pagos",                  {|| pagos() }      ,"16x16\Image1.bmp")

      oPanel := oExBar:AddPanel("BAJAS AUTOS" )
      oPanel:AddLink("Cancelaciones"          ,{||CACELA()}        ,"16x16\stop.bmp")
      oPanel:AddLink("Rehabilitaciónes"       ,{||EXCACELA()}      ,"16x16\favorite.bmp")
      oPanel:AddLink("Baja Total Poliza"      ,{||BUSCABORRAS()}   ,"16x16\delete.bmp")
      oPanel:AddLink("Baja Total Solicitud"   ,{||BUSCABORRASF()}  ,"16x16\delete.bmp")

      oPanel := oExBar:AddPanel("CONSULTAS" )
      oPanel:AddLink("No. de poliza",{|| BUSCAPOLIZA1()},"16x16\find3.bmp")
      oPanel:AddLink("Nombre",bClick,"16x16\find3.bmp")



       oExBar := TExplorerBar():New(oOutLook2003:aDialogs[ 2 ])


       oOutLook2003:aDialogs[2]: setcolor( CLR_WHITE, CLR_BLUE )



    oExBar := TExplorerBar():New(oOutLook2003:aDialogs[3])

    oOutLook2003:aDialogs[3]:setcolor( CLR_WHITE, CLR_BLUE )

    oPanel := oExBar:AddPanel("ALTAS VIDA" )
    oPanel:lSpecial := .T.
    oPanel:AddLink("Alta solicitud",         bClick   ,"16x16\new2.bmp")
    oPanel:AddLink("Alta de Folio Solicitud",bClick   ,"16x16\mget.bmp")
    oPanel:AddLink("Alta poliza",            bClick   ,"16x16\inspect.bmp")
    oPanel:AddLink("Modificaciones",         bClick   ,"16x16\source.bmp")
    oPanel:AddLink("Pagos",                  bClick   ,"16x16\Image1.bmp")

    oPanel := oExBar:AddPanel("BAJAS VIDA" )
    oPanel:AddLink("Cancelaciones"   ,bClick,"16x16\stop.bmp")
    oPanel:AddLink("Rehabilitaciónes",bClick,"16x16\favorite.bmp")
    oPanel:AddLink("Baja Total"      ,bClick,"16x16\delete.bmp")

    oPanel := oExBar:AddPanel("CONSULTAS" )
    oPanel:AddLink("No. de poliza",bClick,"16x16\find3.bmp")
    oPanel:AddLink("Nombre"       ,bClick,"16x16\find3.bmp")



 
   SetParent( oOutLook2003:hWnd, oApp:oWnd:hWnd )

   oApp:oWnd:oClient = nil

 

   @  00,00 SPLITTER oSplit ;
      VERTICAL _3DLOOK ;
      PREVIOUS CONTROLS oOutLook2003 ;
      HINDS CONTROLS oApp:oWnd:oWndClient ;
      SIZE 4, oApp:oWnd:nHeight - 70 PIXEL ;
      OF oApp:oWnd  COLOR nRgb(26,26,112)
            oSplit:lStatic:=.T.

         SetParent( oSplit:hWnd, oApp:oWnd:hWnd )

 

[Antonio Linares]

Aida,

Cambia esa línea de esta forma:

oExBar := TExplorerBar():New( 0, 600, 200, 800, oOutLook2003:aDialogs[ 1 ])

Fila, Columna, Ancho y Alto

[AIDA]

Hola

Pues no funciono me sale el siguiente error

Saluditos

Code: Select all  Expand view  RUN

Application
===========
   Path and name: C:\FWH\promotoria\Polizarium.Exe (32 bits)
   Size: 1,096,192 bytes
   Time from start: 0 hours 0 mins 1 secs
   Error occurred at: 06/28/10, 10:41:13
   Error description: Error BASE/1004  Class: 'NIL' has no exported method: NTOP
   Args:
     [   1] = U  

Stack Calls
===========
   Called from:  => NTOP(0)
   Called from: .\source\classes\TEXPLBAR.PRG => TEXPLORERBAR:CHECKSCROLL(138)
   Called from: .\source\classes\TEXPLBAR.PRG => TEXPLORERBAR:PARENTRESIZE(211)
   Called from: .\source\classes\TEXPLBAR.PRG => (b)TEXPLORERBAR:NEW(85)
   Called from: .\source\classes\WINDOW.PRG => TDIALOG:RESIZE(2102)
   Called from:  => TWINDOW:HANDLEEVENT(0)
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT(944)
   Called from: .\source\classes\WINDOW.PRG => _FWH(3391)
   Called from:  => WNDSETSIZE(0)
   Called from: .\source\classes\WINDOW.PRG => (b)TWINDOW:TWINDOW(601)
   Called from:  => TDIALOG:SETSIZE(0)
   Called from: C:\FWH\PROMOT~1\PRG\OUTL2003.PRG => TOUTLOOK2003:ADJUSTDIALOGS(404)
   Called from: C:\FWH\PROMOT~1\PRG\OUTL2003.PRG => (b)TOUTLOOK2003:NEW(73)
   Called from: .\source\classes\WINDOW.PRG => TOUTLOOK2003:RESIZE(2102)
   Called from:  => TWINDOW:HANDLEEVENT(0)
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1483)
   Called from: C:\FWH\PROMOT~1\PRG\OUTL2003.PRG => TOUTLOOK2003:HANDLEEVENT(345)
   Called from: .\source\classes\WINDOW.PRG => _FWH(3391)
   Called from:  => MOVEWINDOW(0)
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:MOVE(2430)
   Called from: .\source\classes\CONTROL.PRG => TOUTLOOK2003:MOVE(681)
   Called from: .\source\classes\SPLITTER.PRG => TSPLITTER:ADJUST(444)
   Called from: C:\FWH\PROMOT~1\PRG\Polizarium.PRG => (b)MAIN(1839)
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:RESIZE(2102)
   Called from: .\source\classes\MDIFRAME.PRG => TMDIFRAME:RESIZE(224)
   Called from: .\source\classes\TRIBBON.PRG => TRIBBONBAR:RESIZE(1070)
   Called from: .\source\classes\TRIBBON.PRG => TRIBBONBAR:HANDLEEVENT(951)
   Called from: .\source\classes\WINDOW.PRG => _FWH(3391)
   Called from:  => WNDADJTOP(0)
   Called from: .\source\classes\CONTROL.PRG => (b)TCONTROL:TCONTROL(123)
   Called from:  => TRIBBONBAR:ADJTOP(0)
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:RESIZE(2073)
   Called from: .\source\classes\MDIFRAME.PRG => TMDIFRAME:RESIZE(224)
   Called from:  => TMDIFRAME:HANDLEEVENT(0)
   Called from: .\source\classes\WINDOW.PRG => _FWH(3391)
   Called from:  => SHOWWINDOW(0)
   Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE(959)
   Called from: C:\FWH\PROMOT~1\PRG\Polizarium.PRG => MAIN(1839)

System
======
   CPU type: Intel(R) Core(TM)2 Duo CPU     E7300  @ 2.66GHz 2666 Mhz
   Hardware memory: 2048 megs

   Free System resources: 90 %
        GDI    resources: 90 %
        User   resources: 90 %

   Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6715)
   Windows version: 6.1, Build 7600


Variables in use
================
   Procedure     Type   Value
   ==========================
   NTOP
     Local   1:    A    Len:    0
     Local   2:    U    
     Local   3:    U    
   TEXPLORERBAR:CHECKSCROLL
     Param   1:    U    
     Local   1:    U    
     Local   2:    O    Class: TEXPLORERBAR
     Local   3:    U    
     Local   4:    U    
   TEXPLORERBAR:PARENTRESIZE
     Param   1:    N    0
     Param   2:    N    239
     Param   3:    N    458
     Local   1:    O    Class: TEXPLORERBAR
   (b)TEXPLORERBAR:NEW
     Param   1:    N    0
     Param   2:    N    239
     Param   3:    N    458
   TDIALOG:RESIZE
     Param   1:    N    0
     Param   2:    N    239
     Param   3:    N    458
     Local   1:    O    Class: TDIALOG
   TWINDOW:HANDLEEVENT
     Param   1:    N    5
     Param   2:    N    0
     Param   3:    N    30015727
   TDIALOG:HANDLEEVENT
     Param   1:    N    5
     Param   2:    N    0
     Param   3:    N    30015727
     Local   1:    O    Class: TDIALOG
   _FWH
     Param   1:    N    30015727
     Param   2:    N    5
     Param   3:    N    0
     Param   4:    N    30015727
     Param   5:    N    40
     Local   1:    O    Class: TDIALOG
   WNDSETSIZE
     Param   1:    N    1903688
     Param   2:    N    239
     Param   3:    N    458
     Param   4:    U    
   (b)TWINDOW:TWINDOW
     Param   1:    O    Class: TDIALOG
     Param   2:    N    239
     Param   3:    N    458
     Local   1:    U    
   TDIALOG:SETSIZE
     Param   1:    N    239
     Param   2:    N    458
   TOUTLOOK2003:ADJUSTDIALOGS
     Param   1:    N    239
     Param   2:    N    458
     Local   1:    O    Class: TOUTLOOK2003
     Local   2:    N    2
   (b)TOUTLOOK2003:NEW
     Param   1:    N    0
     Param   2:    N    239
     Param   3:    N    624
   TOUTLOOK2003:RESIZE
     Param   1:    N    0
     Param   2:    N    239
     Param   3:    N    624
     Local   1:    O    Class: TOUTLOOK2003
   TWINDOW:HANDLEEVENT
     Param   1:    N    5
     Param   2:    N    0
     Param   3:    N    40894703
   TCONTROL:HANDLEEVENT
     Param   1:    N    5
     Param   2:    N    0
     Param   3:    N    40894703
     Local   1:    O    Class: TOUTLOOK2003
     Local   2:    U    
   TOUTLOOK2003:HANDLEEVENT
     Param   1:    N    5
     Param   2:    N    0
     Param   3:    N    40894703
     Local   1:    O    Class: TOUTLOOK2003
   _FWH
     Param   1:    N    40894703
     Param   2:    N    5
     Param   3:    N    0
     Param   4:    N    40894703
     Param   5:    N    38
     Local   1:    O    Class: TOUTLOOK2003
   MOVEWINDOW
     Param   1:    N    2034780
     Param   2:    N    72
     Param   3:    N    0
     Param   4:    N    241
     Param   5:    N    626
     Param   6:    L    .T.
   TWINDOW:MOVE
     Param   1:    N    72
     Param   2:    N    0
     Param   3:    N    241
     Param   4:    N    626
     Param   5:    L    .T.
     Local   1:    O    Class: TOUTLOOK2003
   TOUTLOOK2003:MOVE
     Param   1:    N    72
     Param   2:    N    0
     Param   3:    N    241
     Param   4:    N    626
     Param   5:    L    .T.
     Local   1:    O    Class: TOUTLOOK2003
   TSPLITTER:ADJUST
     Local   1:    L    .T.
     Local   2:    L    .T.
     Local   3:    L    .T.
     Local   4:    L    .T.
     Local   5:    O    Class: TSPLITTER
     Local   6:    A    Len:    4
     Local   7:    O    Class: TOUTLOOK2003
     Local   8:    N    72
     Local   9:    N    0
     Local  10:    N    995
     Local  11:    N    626
     Local  12:    N    72
     Local  13:    N    0
     Local  14:    N    241
     Local  15:    N    626
     Local  16:    N    0
     Local  17:    N    0
   (b)MAIN
     Param   1:    N    0
     Param   2:    N    997
     Param   3:    N    71
   TWINDOW:RESIZE
     Param   1:    N    0
     Param   2:    N    997
     Param   3:    N    71
     Local   1:    O    Class: TMDIFRAME
   TMDIFRAME:RESIZE
     Param   1:    N    0
     Param   2:    N    997
     Param   3:    N    71
     Local   1:    O    Class: TMDIFRAME
     Local   2:    N    789828
     Local   3:    N    854770
     Local   4:    U    
     Local   5:    U    
   TRIBBONBAR:RESIZE
     Param   1:    N    0
     Param   2:    N    997
     Param   3:    N    71
     Local   1:    O    Class: TRIBBONBAR
     Local   2:    A    Len:    4
     Local   3:    N    921
     Local   4:    N    5
     Local   5:    N    3
     Local   6:    U    
     Local   7:    U    
     Local   8:    U    
     Local   9:    O    Class: TRPANEL
     Local  10:    O    Class: TRBGROUP
   TRIBBONBAR:HANDLEEVENT
     Param   1:    N    5
     Param   2:    N    0
     Param   3:    N    4654053
     Local   1:    O    Class: TRIBBONBAR
     Local   2:    N    5
   _FWH
     Param   1:    N    4654053
     Param   2:    N    5
     Param   3:    N    0
     Param   4:    N    4654053
     Param   5:    N    3
     Local   1:    O    Class: TRIBBONBAR
   WNDADJTOP
     Param   1:    N    789828
   (b)TCONTROL:TCONTROL
     Param   1:    O    Class: TRIBBONBAR
   TRIBBONBAR:ADJTOP
   TWINDOW:RESIZE
     Param   1:    N    0
     Param   2:    N    995
     Param   3:    N    721
     Local   1:    O    Class: TMDIFRAME
   TMDIFRAME:RESIZE
     Param   1:    N    0
     Param   2:    N    995
     Param   3:    N    721
     Local   1:    O    Class: TMDIFRAME
     Local   2:    N    789828
     Local   3:    N    854770
     Local   4:    U    
     Local   5:    U    
   TMDIFRAME:HANDLEEVENT
     Param   1:    N    5
     Param   2:    N    0
     Param   3:    N    47252451
   _FWH
     Param   1:    N    47252451
     Param   2:    N    5
     Param   3:    N    0
     Param   4:    N    47252451
     Param   5:    N    1
     Local   1:    O    Class: TMDIFRAME
   SHOWWINDOW
     Param   1:    N    4786964
     Param   2:    N    1
   TMDIFRAME:ACTIVATE
     Param   1:    C    "NORMAL"
     Param   2:    U    
     Param   3:    U    
     Param   4:    U    
     Param   5:    B    {|| ... }
     Param   6:    B    {|| ... }
     Param   7:    U    
     Param   8:    B    {|| ... }
     Param   9:    U    
     Param  10:    U    
     Param  11:    U    
     Param  12:    U    
     Param  13:    U    
     Param  14:    U    
     Param  15:    U    
     Param  16:    U    
     Param  17:    U    
     Param  18:    U    
     Param  19:    U    
     Local   1:    O    Class: TMDIFRAME
     Local   2:    U    
     Local   3:    U    
   MAIN
     Local   1:    O    Class: TOUTLOOK2003
     Local   2:    O    Class: TSPLITTER
     Local   3:    O    Class: TBRUSH
     Local   4:    O    Class: TFONT
     Local   5:    O    Class: TSPLITTER
     Local   6:    O    Class: TSPLITTER
     Local   7:    O    Class: TFOLDER
     Local   8:    C    " 28"
     Local   9:    C    "Junio"
     Local  10:    C    " 2010"
     Local  11:    U    
     Local  12:    C    "BLANCOS"
     Local  13:    O    Class: TSPLITTER
     Local  14:    O    Class: TGRAPH
     Local  15:    A    Len:    4
     Local  16:    O    Class: TEXPLORERBAR
     Local  17:    O    Class: TTASKPANEL
     Local  18:    O    Class: TFOLDER
     Local  19:    U    
     Local  20:    O    Class: TFOLDER
     Local  21:    U    
     Local  22:    B    {|| ... }
     Local  23:    O    Class: TBRUSH
     Local  24:    O    Class: TBRUSH
     Local  25:    O    Class: TBRUSH
     Local  26:    O    Class: TFONT
     Local  27:    O    Class: TMENU
     Local  28:    O    Class: TMENU
     Local  29:    O    Class: TRIBBONBAR
     Local  30:    U    
     Local  31:    O    Class: TRBGROUP
     Local  32:    O    Class: TRBGROUP
     Local  33:    O    Class: TRBGROUP
     Local  34:    O    Class: TRBGROUP
     Local  35:    O    Class: TRBGROUP
     Local  36:    U    
     Local  37:    O    Class: TBTNBMP
     Local  38:    O    Class: TRBTN
     Local  39:    O    Class: TRBTN
     Local  40:    O    Class: TRBTN
     Local  41:    O    Class: TRBTN
     Local  42:    O    Class: TRBTN
     Local  43:    O    Class: TRBTN
     Local  44:    U    
     Local  45:    U    
     Local  46:    U    
     Local  47:    U    
     Local  48:    U    
     Local  49:    U    
     Local  50:    U    
     Local  51:    U    
     Local  52:    U    
     Local  53:    U    
     Local  54:    U    
     Local  55:    U    
     Local  56:    U    
     Local  57:    U    
     Local  58:    U    
     Local  59:    U    
     Local  60:    U    
     Local  61:    U    
     Local  62:    U    
     Local  63:    U    
     Local  64:    U    
     Local  65:    U    
     Local  66:    U    
     Local  67:    U    
     Local  68:    U    
     Local  69:    U    
     Local  70:    U    
     Local  71:    U    
     Local  72:    U    
     Local  73:    C    "ima\01.jpg"
     Local  74:    U    
     Local  75:    U    
     Local  76:    A    Len:    2
     Local  77:    A    Len:    2
     Local  78:    U    
     Local  79:    N    16775325
     Local  80:    C    "verce.mp3"
     Local  81:    N    0

Linked RDDs
===========
   DBF
   DBFFPT
   DBFNTX
   DBFBLOB
   DBFCDX

DataBases in use
================

  1:    AUTOS                              RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
         35           45      .F.   .F.

     Indexes in use                        TagName
        => padr( alltrim( AUTOS->APELLIDO_P),2APELLIDO_P
           padr( alltrim( AUTOS->APELLIDO_M),2APELLIDO_M
           padr( alltrim( AUTOS->POLIZA ), 30,POLIZA_A
           str (AUTOS->FOLIO,10, " ")         FOLIO_PC
           padr( alltrim( AUTOS->FOLIO_E),10, FOLIO_EM
           padr( alltrim( AUTOS->COMP),30, " "CONPANIA_N
           padr( alltrim( AUTOS->COMP),30, " "COMPAPELL

     Relations in use

  2:    VIDA                               RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
          1         1827      .F.   .F.

     Indexes in use                        TagName

     Relations in use

  3: => GMM                                RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
          1         2024      .F.   .F.

     Indexes in use                        TagName

     Relations in use

  4:    DANOS                              RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
          1         2009      .F.   .F.

     Indexes in use                        TagName

     Relations in use

  5:    FOLIADOR                           RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
          1            1      .F.   .F.

     Indexes in use                        TagName

     Relations in use

  6:    PASO                               RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
          1            1      .F.   .F.

     Indexes in use                        TagName

     Relations in use

  7:    COMPANIA                           RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
          6           19      .F.   .F.

     Indexes in use                        TagName
        => COMPANIA->NOMBRE                   COMPA

     Relations in use

  8:    MARCAS                             RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
          1           87      .F.   .F.

     Indexes in use                        TagName

     Relations in use

  9:    PAGOS                              RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
          5            5      .F.   .F.

     Indexes in use                        TagName
        => PADR( PAGOS->POLIZA, 20, " " )     PAGA

     Relations in use

 10:    CODIGO                             RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
      42964        42969      .F.   .F.

     Indexes in use                        TagName
        => CODIGO->CODIGO                     CODIGO

     Relations in use

 11:    CIUDAD                             RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
       2261         2426      .F.   .F.

     Indexes in use                        TagName
        => CIUDAD->NOMBRE                     CIUDAD

     Relations in use

 12:    ESTADO                             RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
         34           38      .F.   .F.

     Indexes in use                        TagName
        => ESTADO->CLAVE                      ESTADO

     Relations in use

Classes in use:
===============
     1 ERROR
     2 HASHENTRY
     3 HBCLASS
     4 HBOBJECT
     5 TSEGURITO
     6 TMENU
     7 TFONT
     8 TINI
     9 TWINDOW
    10 TMDIFRAME
    11 TBRUSH
    12 TMDICLIENT
    13 TMENUITEM
    14 TCONTROL
    15 TRIBBONBAR
    16 TRPANEL
    17 TRBGROUP
    18 TRBTN
    19 TOUTLOOK2003
    20 TOUTLOOK2003GROUP
    21 TDIALOG
    22 TEXPLORERBAR
    23 TTASKPANEL
    24 TURLLINK
    25 TCURSOR
    26 TSPLITTER
    27 TFOLDER
    28 TXBROWSE
    29 TXBRWCOLUMN
    30 TSCROLLBAR
    31 TBTNBMP
    32 TSAY
    33 TMULTIGET
    34 TGRAPH
    35 TMSGBAR
    36 TRECT
    37 TMSGITEM
    38 TTIMER
    39 TREG32

Memory Analysis
===============
      238 Static variables

   Dynamic memory consume:
      Actual  Value:          0 bytes
      Highest Value:          0 bytes


[AIDA]

Pues le sigo buscando pero no le encuentro por donde arreglarle a ver si hoy tengo suerte

Saluditos

[AIDA]

Ya me di cuenta que el problema esta aqui pero a un no le entiendo mucho al codigito seguiré intentando

Code: Select all  Expand view  RUN

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

METHOD CheckScroll(oPanel, lRange ) CLASS TExplorerBar

   local nBottomPanel := oPanel:nTop + oPanel:nHeight
   local lVisible     := nBottomPanel > ::nHeight

   DEFAULT lRange := .T.

   __ChangeStyleWindow( ::oWnd:hWnd, WS_VSCROLL, GWL_STYLE, lVisible )

   if lAnd( GetWindowLong( ::oWnd:hWnd, GWL_STYLE ), WS_VSCROLL ) .and. lVisible
      if ::oWnd:oVScroll == NIL .and. lVisible
         DEFINE SCROLLBAR ::oWnd:oVScroll VERTICAL OF ::oWnd
         ::oVScroll           = ::oWnd:oVScroll
         ::nVPos              = ::oVScroll:GetPos()
         ::oVScroll:bGoDown   = {|| ::VScroll() }
         ::oVScroll:bGoUp     = {|| ::VScroll() }
         ::oVScroll:bPageUp   = {|| ::VScrollPgUp() }
         ::oVScroll:bPageDown = {|| ::VScrollPgDown() }
         ::oVScroll:bGoTop    = {|| ::VScroll() }
         ::oVScroll:bGoBottom = {|| ::VScroll() }
         ::oVScroll:bPos      = {|nPos| ::VScrollThumb( nPos ) }
         ::oVScroll:bTrack    = {|nPos| ::VScrollTrack( nPos ) }
      endif
   endif

   if ::oWnd:oVScroll != NIL .and. lRange
      ::oVScroll:SetPage( Max( 1, Int( nBottomPanel / ::nHeight ) ) )
      ::oVScroll:SetRange( 1, Max( 2, ( nBottomPanel - ::nHeight ) ) )
      ::nVPos            = ::oVScroll:GetPos()
      ::oVScroll:nPgStep = 20
   endif

return nil


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

[Antonio Linares]

Aida,

Parece que hay que modificar este método de esta forma:

Code: Select all  Expand view  RUN

METHOD ParentResize( nSizeType, nWidth, nHeight ) CLASS TExplorerBar

   if ! Empty( ::aPanels )
      ::CheckScroll( ATail( ::aPanels ) )
   endif

   if ::bParentResized != nil
      Eval( ::bParentResized, nSizeType, nWidth, nHeight )
   endif

return nil
 

[AIDA]

Hola

si me di cuenta que algo pasaba con aPanels

y algo similar intente con if ! Empty( ::aPanels ) ya no salio error pero tampoco pinta el texplorerbar y queda vacío el outlook

Saluditos

[Antonio Linares]

Aida,

Hemos modificado el ejemplo FWH\samples\Test2003.prg de esta forma:

Code: Select all  Expand view  RUN

// FWH Class TOutLook2003

#include "FiveWin.ch"
#include "Splitter.ch"

static lExit := .F.

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

function Main()

   local oWnd, oOutLook2003, oStatusBar, oSplit, cCombo, oRad, nValue := 1
   local oFont, oExBar, oPanel1, oPanel2, bClick := { | o | MsgInfo( o:GetText() ) }

   DEFINE WINDOW oWnd TITLE "FWH new Class TOutLook2003" MDI // ;
      // MENU BuildMenu()

   DEFINE OUTLOOK2003 oOutLook2003 OF oWnd ;
      PROMPTS "Mail", "Calendar", "Contacts", "" ;
      BITMAPS "..\bitmaps\mail.bmp", "..\bitmaps\calendar.bmp", "..\bitmaps\notes.bmp"
     
   oWnd:oLeft = nil // Because the splitter is going to control the resize  

   @ 0, 0 EXPLORERBAR oExBar OF oOutLook2003:aDialogs[ 1 ] ;
      SIZE oOutLook2003:aDialogs[ 1 ]:nWidth, oOutLook2003:aDialogs[ 1 ]:nHeight

   oPanel1 = oExBar:AddPanel( "One", "..\bitmaps\32x32\people.bmp" )
   oPanel1:lSpecial = .T.
   oPanel1:AddLink( "First item", bClick, "..\bitmaps\16x16\additem.bmp" )
   oPanel1:AddLink( "Second item", bClick, "..\bitmaps\16x16\copy.bmp" )
     
   oPanel2 = oExBar:AddPanel( "Two", "..\bitmaps\32x32\case.bmp" )
   oPanel2:AddLink( "First item", bClick, "..\bitmaps\16x16\adddbf.bmp" )
   oPanel2:AddLink( "Second item", bClick, "..\bitmaps\16x16\delete0.bmp" )
   oPanel2:AddLink( "Third item", bClick, "..\bitmaps\16x16\envelope.bmp" )
   oPanel2:AddLink( "Fourth item", bClick, "..\bitmaps\16x16\copy.bmp" )      
     
   @ 1, 1 COMBOBOX cCombo ITEMS { "January", "February", "March", "April", "May" } ;
      OF oOutLook2003:aDialogs[ 2 ] SIZE 170, 100
   
   DEFINE FONT oFont NAME "Arial" SIZE 0, -10
   
   @ 12, 10 SAY Date() OF oOutLook2003:aDialogs[ 2 ] SIZE 80, 20 FONT oFont
   
   @ 3, 1 RADIO oRad VAR nValue OF oOutLook2003:aDialogs[ 2 ] ;
      ITEMS "&Day", "&Week", "&Month" SIZE 100, 20
     
   oRad:SetFont( oFont )  

   @ 1, 2 BUTTON "New" OF oOutLook2003:aDialogs[ 3 ] SIZE 80, 22 ACTION BuildDlg()

   @ 3, 2 BUTTON "Edit" OF oOutLook2003:aDialogs[ 3 ] SIZE 80, 22 ACTION MsgInfo( "Edit" )  

   @ 5, 2 BUTTON "Search" OF oOutLook2003:aDialogs[ 3 ] SIZE 80, 22 ACTION MsgInfo( "Search" )  

   DEFINE STATUSBAR oStatusBar PROMPT "  FWH Class TOutLook2003" OF oWnd

   SetParent( oOutLook2003:hWnd, oWnd:hWnd )
   
   oWnd:oClient = nil
   
   @ 0, 191 SPLITTER oSplit ;
      VERTICAL _3DLOOK ;
      PREVIOUS CONTROLS oOutLook2003 ;
      HINDS CONTROLS oWnd:oWndClient ;
      SIZE 4, oWnd:nHeight - 70 PIXEL ;
      OF oWnd

   SetParent( oSplit:hWnd, oWnd:hWnd )

   ACTIVATE WINDOW oWnd ;
      ON RESIZE ( oSplit:Adjust(),;
                  WndLeft( oWnd:oWndClient:hWnd, oSplit:nRight + 1 ),;
                  WndWidth( oWnd:oWndClient:hWnd, oWnd:nWidth - oOutLook2003:nWidth - 23 ) ) ; // + 80
      VALID lExit := .T.

return nil

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

function BuildMenu()

   local oMenu
   
   MENU oMenu
      MENUITEM "&One"
      MENUITEM "&Two"
      MENUITEM "&Three"
   ENDMENU
   
return oMenu  

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

function BuildDlg()

   local oDlg, oOutL2003
   
   DEFINE DIALOG oDlg RESOURCE "Test"
   
   REDEFINE OUTLOOK2003 oOutL2003 ID 110 OF oDlg ;
      PROMPTS "One", "Two", "Three" ;
      BITMAPS "..\bitmaps\mail.bmp", "..\bitmaps\calendar.bmp", "..\bitmaps\notes.bmp" ;
      DIALOGS "Page1", "Page2", "Page3"

   REDEFINE BUTTON ID 110 OF oOutL2003:aDialogs[ 1 ] ACTION MsgInfo( "Click" )
     
   ACTIVATE DIALOG oDlg CENTERED
   
return nil      

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

function WinRun()

   while NoGPF()
      if lExit
         PostQuitMessage( 0 )
      endif  
   end
   
return nil        
               
//----------------------------------------------------------------------------//

#pragma BEGINDUMP

#include <windows.h>
#include <hbapi.h>

BOOL SysRefresh( void );

HB_FUNC( NOGPF )
{
   __try
   {
      hb_retl( SysRefresh() );
   }
   __except ( ( hb_retl( TRUE ), TRUE ) )
   {}
}

#pragma ENDDUMP 
 

Y el resultado ha funcionado bien

[AIDA]

Hola ahora si ya funciono


a si queda en el código

Gracias

Saluditos

Code: Select all  Expand view  RUN

@ 0, 0 EXPLORERBAR oExBar OF oOutLook2003:aDialogs[ 1 ] ;
      SIZE oOutLook2003:aDialogs[ 1 ]:nWidth, oOutLook2003:aDialogs[ 1 ]:nHeight

      oPanel = oExBar:AddPanel("ALTAS AUTOS", "IMA\auto.bmp" )
      oPanel:lSpecial = .T.
      oPanel:AddLink("Alta solicitud",         {|| ALTA_A() }     ,"16x16\new2.bmp")
      oPanel:AddLink("Alta de Folio Solicitud",{|| BUSCASOL1()}   ,"16x16\mget.bmp")
      oPanel:AddLink("Alta poliza",            {|| BUSCAPOL1()}   ,"16x16\inspect.bmp")
      oPanel:AddLink("Modificaciones",         {|| MODIFICAPOLIZA() }      ,"16x16\source.bmp")
      oPanel:AddLink("Pagos",                  {|| pagos() }      ,"16x16\Image1.bmp")

      oPanel = oExBar:AddPanel("BAJAS AUTOS" )
      oPanel:AddLink("Cancelaciones"          ,{||CACELA()}        ,"16x16\stop.bmp")
      oPanel:AddLink("Rehabilitaciónes"       ,{||EXCACELA()}      ,"16x16\favorite.bmp")
      oPanel:AddLink("Baja Total Poliza"      ,{||BUSCABORRAS()}   ,"16x16\delete.bmp")
      oPanel:AddLink("Baja Total Solicitud"   ,{||BUSCABORRASF()}  ,"16x16\delete.bmp")

      oPanel = oExBar:AddPanel("CONSULTAS" )
      oPanel:AddLink("No. de poliza",{|| BUSCAPOLIZA1()},"16x16\find3.bmp")
      oPanel:AddLink("Nombre",{||  ShowPopup()},"16x16\find3.bmp")
     

     @ 0, 0 EXPLORERBAR oExBar OF oOutLook2003:aDialogs[ 2 ] ;
      SIZE oOutLook2003:aDialogs[ 2 ]:nWidth, oOutLook2003:aDialogs[ 2 ]:nHeight

         oOutLook2003:aDialogs[2]: setcolor( CLR_WHITE, CLR_BLUE )


      oPanel = oExBar:AddPanel("G.M.M." )
      oPanel:lSpecial = .T.
      oPanel:AddLink("Alta solicitud",         bClick   ,"16x16\new2.bmp")
      oPanel:AddLink("Alta de Folio Solicitud",bClick   ,"16x16\mget.bmp")
      oPanel:AddLink("Alta poliza",            bClick   ,"16x16\inspect.bmp")
      oPanel:AddLink("Modificaciones",         bClick   ,"16x16\source.bmp")
      oPanel:AddLink("Pagos",                  bClick   ,"16x16\Image1.bmp")

      oPanel = oExBar:AddPanel("BAJAS VIDA" )
      oPanel:AddLink("Cancelaciones"   ,bClick,"16x16\stop.bmp")
      oPanel:AddLink("Rehabilitaciónes",bClick,"16x16\favorite.bmp")
      oPanel:AddLink("Baja Total"      ,bClick,"16x16\delete.bmp")

      oPanel = oExBar:AddPanel("CONSULTAS" )
      oPanel:AddLink("No. de poliza",bClick,"16x16\find3.bmp")
      oPanel:AddLink("Nombre"       ,bClick,"16x16\find3.bmp")


    @ 0, 0 EXPLORERBAR oExBar OF oOutLook2003:aDialogs[ 3 ] ;
      SIZE oOutLook2003:aDialogs[ 3 ]:nWidth, oOutLook2003:aDialogs[ 3 ]:nHeight

      oPanel = oExBar:AddPanel("ALTAS VIDA" )
      oPanel:lSpecial = .T.
      oPanel:AddLink("Alta solicitud",         bClick   ,"16x16\new2.bmp")
      oPanel:AddLink("Alta de Folio Solicitud",bClick   ,"16x16\mget.bmp")
      oPanel:AddLink("Alta poliza",            bClick   ,"16x16\inspect.bmp")
      oPanel:AddLink("Modificaciones",         bClick   ,"16x16\source.bmp")
      oPanel:AddLink("Pagos",                  bClick   ,"16x16\Image1.bmp")

      oPanel = oExBar:AddPanel("BAJAS VIDA" )
      oPanel:AddLink("Cancelaciones"   ,bClick,"16x16\stop.bmp")
      oPanel:AddLink("Rehabilitaciónes",bClick,"16x16\favorite.bmp")
      oPanel:AddLink("Baja Total"      ,bClick,"16x16\delete.bmp")

      oPanel = oExBar:AddPanel("CONSULTAS" )
      oPanel:AddLink("No. de poliza",bClick,"16x16\find3.bmp")
      oPanel:AddLink("Nombre"       ,bClick,"16x16\find3.bmp")



   SetParent( oOutLook2003:hWnd, oApp:oWnd:hWnd )

   oApp:oWnd:oClient = nil


   @  00,00 SPLITTER oSplit ;
      VERTICAL _3DLOOK ;
      PREVIOUS CONTROLS oOutLook2003 ;
      HINDS CONTROLS oApp:oWnd:oWndClient ;
      SIZE 4, oApp:oWnd:nHeight - 70 PIXEL ;
      OF oApp:oWnd  COLOR nRgb(26,26,112)
    oSplit:lStatic:=.T.

     SetParent( oSplit:hWnd, oApp:oWnd:hWnd )
 

[Antonio Linares]

Aida,

te quedó estupendo!

[Patricio Avalos Aguirre]

hola

Como se hace sin MDI si no con ribbon

aida:

Como haces que se encruste la ventana despues del ribbon?