ExplorerBar en Outlook2003

[Francisco Horta]

Buen dia foro,

Tengo el siguiente codigo:

Code: Select all  Expand view

   MENU oMenu
   ENDMENU

   DEFINE WINDOW oWnd FROM 1, 1 TO 400, 600 PIXEL ;
      TITLE cTitle ;
      MENU oMenu MDI

   SET MESSAGE OF oWnd TO cTitle KEYBOARD CLOCK DATE NOINSET

   DEFINE OUTLOOK2003 oLbx OF oWnd ;
          PROMPTS "Uno", "Dos", "Tres", "" ;
          BITMAPS "bitmaps\1.bmp", "bitmaps\2.bmp", "bitmaps\3.bmp"

         oWnd:oLeft = oLbx

         oLbx:nWidth := 200

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

   @ 0,200   SPLITTER oSplit1 ;
             VERTICAL ;
             PREVIOUS CONTROLS oLbx ;
             HINDS CONTROLS oWnd:oWndClient ;
             SIZE 4, 300  PIXEL ;
             OF oWnd ;
             _3DLOOK

  ACTIVATE WINDOW oWnd ;
       ON RESIZE ( oSplit1:nHeight := oWnd:nHeight )

return nil
 

Pinta bien la outlook y la explorerbar, el problema viene cuando redimensiono la ventana el pintado de la explorerbar no lo hace completo, adjunto imagen.
[img]

[/img]
Alguna solucion?
Gracias

[cnavarro]

Has probado en el RESIZE

oSplit1:AdjLeft()

[Francisco Horta]

Cristobal, (perdon)

Ya habia intentado con AdjLeft(), pero lo omiti porque no se ve los controles outlook y explorerebar, ni intentando con la redimension de ventana aparecen los controles, te adjunto imagen:
[img]

[/img]

[Antonio Linares]

Prueba con:

DEFINE OUTLOOK2003 oLbx OF oWnd:oWndClient ...

[cnavarro]

Francisco, es como te dice Antonio

Code: Select all  Expand view

#include "Fivewin.ch"
#include "Splitter.ch"
#include "OutLook.ch"



Function Main()

   local oWnd
   local oSplit1
   local oLbx
   local oExBar
   local oMenu
   local cTitle   := "Outlook 2003"

   MENU oMenu
   ENDMENU

   DEFINE WINDOW oWnd FROM 1, 1 TO 400, 600 PIXEL ;
      TITLE cTitle ;
      MENU oMenu MDI

   SET MESSAGE OF oWnd TO cTitle KEYBOARD CLOCK DATE NOINSET

   DEFINE OUTLOOK2003 oLbx OF oWnd:oWndClient ; //oWnd ;
          PROMPTS "Uno", "Dos", "Tres", "" ;
          BITMAPS "bitmaps\1.bmp", "bitmaps\2.bmp", "bitmaps\3.bmp"

         oLbx:nWidth := 200

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

   @ 0,201   SPLITTER oSplit1 ;
             VERTICAL ;
             PREVIOUS CONTROLS oLbx ;  //             HINDS CONTROLS oWnd:oWndClient ;
             SIZE 4, 300  PIXEL ;
             LEFT MARGIN 0 ;
             RIGHT MARGIN 80 ;
             ON CHANGE oSplit1:nHeight := oWnd:oWndClient:nHeight ;
             OF oWnd:oWndClient //oWnd //;             _3DLOOK

  ACTIVATE WINDOW oWnd ;
       ON RESIZE ( oSplit1:nHeight := oWnd:oWndClient:nHeight ) //, oSplit1:AdjLeft() )

return nil

 

[Francisco Horta]

Antonio,

Probando como indicas, desaparecen los controles
Probando como indica Cristobal tambien desparecen los controles y el splitter tiene un comportamiento raro, nomas se mueve la mitad superior de la barra.
[img]

[/img]
Gracias

[cnavarro]

En cuanto a que desaparecen los controles, no entiendo lo que quieres decir
En cuanto a lo de la mitad del splitter...
Copia el código anterior, modifica lo que te adjunto en este post y ejecútalo, a mi no me desaparecen los controles

Code: Select all  Expand view

   @ 0,201   SPLITTER oSplit1 ;
             VERTICAL ;
             PREVIOUS CONTROLS oLbx ;
             SIZE 4, oWnd:oWndClient:nHeight  PIXEL ;
             LEFT MARGIN 0 ;
             RIGHT MARGIN 80 ;
             ON CHANGE ( oSplit1:nHeight := oWnd:oWndClient:nHeight, oWnd:oWndClient:Refresh() ) ;
             OF oWnd:oWndClient //oWnd //;             _3DLOOK

  ACTIVATE WINDOW oWnd ;
       ON RESIZE ( oSplit1:nHeight := oWnd:oWndClient:nHeight ) //, oSplit1:AdjLeft() )


 

[horacio]

Probando el ejemplo de Cristobal me sucede lo mismo. No aparece el control. Será la versión ?. Mis herramientas son FWH 14.12, BCC582 Y Harbour 3.2

Saludos

[cnavarro]

"Una imagen vale más que mil palabras"

[Francisco Horta]

Cristobal,

Efectivamente se ve correcto como lo tienes, pero como comenta Horacio tal vez sean las versiones, tengo este codigo, y adjunto la imagen de como se ve, si aprecias el splitter se ve muy separado de donde termina la outllok2003 :

Code: Select all  Expand view

// Testing FiveWin splitter controls

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


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

function Main()

   local oWnd
   local oSplit1
   local oLbx
   local oExBar
   local oMenu
   local cTitle   := "Outlook 2003"
   local aRect := GetCoors(GetDeskTopWindow())


   MENU oMenu
   ENDMENU

   DEFINE WINDOW oWnd FROM 0, 0 TO 400, 600 PIXEL ;
      TITLE cTitle ;
      MENU oMenu MDI

   SET MESSAGE OF oWnd TO cTitle KEYBOARD CLOCK DATE NOINSET

   DEFINE OUTLOOK2003 oLbx OF oWnd ;
          PROMPTS "Uno", "Dos", "Tres", "" ;
          BITMAPS "bitmaps\catalogos.bmp", "bitmaps\printer.bmp", "bitmaps\utilerias.bmp"

         oLbx:nWidth := 200

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


   @ 0,201   SPLITTER oSplit1 ;
             VERTICAL ;
             PREVIOUS CONTROLS oLbx ;
             SIZE 4, oWnd:oWndClient:nHeight  PIXEL ;
             LEFT MARGIN 0 ;
             RIGHT MARGIN 80 ;
             ON CHANGE ( oSplit1:nHeight := oWnd:oWndClient:nHeight, oWnd:oWndClient:Refresh() ) ;
             OF oWnd:oWndClient


  ACTIVATE WINDOW oWnd ;
       ON RESIZE ( oSplit1:nHeight := oWnd:oWndClient:nHeight )

return nil

 

[img]

[/img]

En cambio si a esta parte del codigo, le cambio su contenedor asi :
DEFINE OUTLOOK2003 oLbx OF oWnd:oWndClient

El control Outlook2003 no se ve, adjunto imagen y creo a esto tambien es a lo que se refiere Horacio:
[img]

[/img]

Utilizo fwh1502, xHarbour, Bcc7.0

Gracias

[acuellar]

Francisco

Porque no intenta con OUTLOOK2010
Da mejor aspecto y está mejorada.

[MarioG]

Francisco;
Dada la version de FWH que usás,tenés disponible esta clase free: TTaskpanel
Este es el foro: http://codigo-base.el-foro.net
(Te lo puedo enviar, porque no recuerdo de donde lo baje)

Se ve así:

[MarioG]

Descarga: http://codigo-base.blogspot.com.ar/2010/07/ttaskpanel-v10-for-fwh.html

[Francisco Horta]

Mario,
Mi intencion es no usar librerias de Terceros, pero viendo la necesidad la reviso.
Gracias
Saludos