Modernizar Outlook2003

[pcordonet]

Hola,

He visto que era culpa de EXPLORERBAR que no esta en la version 10.2

He quitado el trozo de codigo de EXPLORERBAR y me faltan estas funciones.

Creating object: Outlook2010.EXP
Creating library: Outlook2010.LIB
xLINK: error: Unresolved external symbol '_HB_FUN_BMPOLDOTS referenced from (toutlook2010.obj)'.
xLINK: error: Unresolved external symbol '_HB_FUN_DRAWTRANSPARENT referenced from (toutlook2010.obj)'.
xLINK: error: Unresolved external symbol '_HB_FUN_BMPOLARROW referenced from (toutlook2010.obj)'.
xLINK: fatal error: 3 unresolved external(s).

Es posible que me las envien?

perecordonet@gmail.com

Muchas gracias.

[pcordonet]

Creating object: Outlook2010.EXP
Creating library: Outlook2010.LIB
xLINK: error: Unresolved external symbol '_HB_FUN_BMPOLDOTS referenced from (toutlook2010.obj)'.
xLINK: error: Unresolved external symbol '_HB_FUN_DRAWTRANSPARENT referenced from (toutlook2010.obj)'.
xLINK: error: Unresolved external symbol '_HB_FUN_BMPOLARROW referenced from (toutlook2010.obj)'.
xLINK: fatal error: 3 unresolved external(s).

Antonio ??

[pcordonet]

Hola Antonio, estoy probando la nueva clase, tOutlook2010.

Me faltan las siguientes funciones:

Code: Select all  Expand view

DrawTransparent
BMPOLARROW
BMPOLDOTS
 

Podria enviarmelas por email ?

perecordonet@gmail.com

Espero su respuesta.
Gracias

Pere

[Antonio Linares]

Pere,

Las funciones BMPOLARROW() y BMPOLDOTS() las puedes implementar facilmente, solo tienen que devolver el handle de un bitmap, a dibujar.

Por ejemplo:

function BmpOlArrow()

return ReadBitmap( 0, "c:\fwh\bitmaps\olarrow.bmp" )

[Antonio Linares]

Aqui tienes DrawTransparent():

Code: Select all  Expand view

// (c) FiveTech Software 2010, all rights reserved

// Similar functions to DrawBitmap( hDC, hBmp, nRow, nCol )
// but using certain painting effects

#define TRANSPARENT         0x1   // 1

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

function DrawTransparent( hDC, hBmp, nRow, nCol )

   local hDCMem
   local hBmpOld
   local nZeroZeroClr

   hDCMem = CreateCompatibleDC( hDC )      
     
   // we can not get nZeroZeroClr from hDC is possible hDC are locked by other SelectObject
   // An application cannot select a bitmap into more than one device context at a time.  
   hBmpOld      = SelectObject( hDCMem, hBmp )
   nZeroZeroClr = GetPixel( hDCMem, 0, 0 )

   SelectObject( hDCMem, hBmpOld )
   DeleteDC( hDCMem )

   TransBmp( hBmp, nBmpWidth( hBmp ), nBmpHeight( hBmp ),;
             nZeroZeroClr, hDC, nCol, nRow, nBmpWidth( hBmp ), nBmpHeight( hBmp ) )

return nil

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

[pcordonet]

Muchas gracias Antonio.

Funciona bien, ahora lo unico que me falta es el archivo "olarrow.bmp".

Seria tan amable de colgarlo?

Gracias de nuevo.
Pere

[Antonio Linares]

Pere,

Aqui lo tienes:

http://minus.com/m1L2PYy1w/

[pcordonet]

Muchas gracias Antonio

Ya funciona bién.