FiveTech Software tech support forums

www.FiveTechSoft.com
https://forums.fivetechsupport.com/

ExplorerBar en Outlook2003

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=32980

Page 1 of 1

ExplorerBar en Outlook2003

PostPosted: Wed Sep 21, 2016 4:33 pm
by 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]
Image
[/img]
Alguna solucion?
Gracias

Re: ExplorerBar en Outlook2003

PostPosted: Wed Sep 21, 2016 5:13 pm
by cnavarro
Has probado en el RESIZE

oSplit1:AdjLeft()

Re: ExplorerBar en Outlook2003

PostPosted: Wed Sep 21, 2016 6:14 pm
by 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]
Image
[/img]

Re: ExplorerBar en Outlook2003

PostPosted: Wed Sep 21, 2016 8:17 pm
by Antonio Linares
Prueba con:

DEFINE OUTLOOK2003 oLbx OF oWnd:oWndClient ...

Re: ExplorerBar en Outlook2003

PostPosted: Wed Sep 21, 2016 9:37 pm
by 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

 

Re: ExplorerBar en Outlook2003

PostPosted: Wed Sep 21, 2016 10:14 pm
by 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]
Image
[/img]
Gracias

Re: ExplorerBar en Outlook2003

PostPosted: Wed Sep 21, 2016 11:07 pm
by 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() )


 

Re: ExplorerBar en Outlook2003

PostPosted: Wed Sep 21, 2016 11:43 pm
by 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

Re: ExplorerBar en Outlook2003

PostPosted: Thu Sep 22, 2016 12:37 am
by cnavarro
"Una imagen vale más que mil palabras"

Image

Re: ExplorerBar en Outlook2003

PostPosted: Thu Sep 22, 2016 3:38 pm
by 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]
Image
[/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]
Image
[/img]

Utilizo fwh1502, xHarbour, Bcc7.0

Gracias

Re: ExplorerBar en Outlook2003

PostPosted: Thu Sep 22, 2016 4:48 pm
by acuellar
Francisco

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

Re: ExplorerBar en Outlook2003

PostPosted: Mon Sep 26, 2016 2:33 pm
by 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í:
Image

Re: ExplorerBar en Outlook2003

PostPosted: Mon Sep 26, 2016 2:44 pm
by MarioG
Descarga: http://codigo-base.blogspot.com.ar/2010/07/ttaskpanel-v10-for-fwh.html

Re: ExplorerBar en Outlook2003

PostPosted: Tue Sep 27, 2016 2:39 pm
by Francisco Horta
Mario,
Mi intencion es no usar librerias de Terceros, pero viendo la necesidad la reviso. ;)
Gracias
Saludos
All times are UTC
Page 1 of 1
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/