topic-23469

Posts: 111

Joined: Sat Jan 30, 2010 08:35 AM

Re: Modernizar Outlook2003
Posted: Fri Mar 09, 2012 10:30 AM

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

Posts: 111

Joined: Sat Jan 30, 2010 08:35 AM

Re: Modernizar Outlook2003
Posted: Mon Mar 12, 2012 03:13 PM

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

Posts: 111

Joined: Sat Jan 30, 2010 08:35 AM

Re: Modernizar Outlook2003
Posted: Thu Mar 29, 2012 02:33 PM

Hola Antonio, estoy probando la nueva clase, tOutlook2010.

Me faltan las siguientes funciones:

Code (fw): Select all Collapse

DrawTransparent
BMPOLARROW
BMPOLDOTS

Podria enviarmelas por email ?

perecordonet@gmail.com

Espero su respuesta.
Gracias

Pere

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Modernizar Outlook2003
Posted: Thu Mar 29, 2012 04:45 PM

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" )

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Modernizar Outlook2003
Posted: Thu Mar 29, 2012 04:47 PM

Aqui tienes DrawTransparent():

Code (fw): Select all Collapse

// (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

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

pcordonet

Posts: 111

Joined: Sat Jan 30, 2010 08:35 AM

Re: Modernizar Outlook2003
Posted: Thu Mar 29, 2012 05:34 PM

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

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Modernizar Outlook2003
Posted: Thu Mar 29, 2012 05:42 PM

Pere,

Aqui lo tienes:

http://minus.com/m1L2PYy1w/

regards, saludos

Antonio Linares
www.fivetechsoft.com

pcordonet

Posts: 111

Joined: Sat Jan 30, 2010 08:35 AM

Re: Modernizar Outlook2003
Posted: Fri Mar 30, 2012 07:44 AM

Muchas gracias Antonio

Ya funciona bién.

FiveTech Support Forums

Continue the discussion