Page 2 of 2
Re: Modernizar Outlook2003
Posted: Fri Mar 09, 2012 10:30 am
by 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.
Re: Modernizar Outlook2003
Posted: Mon Mar 12, 2012 3:13 pm
by 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 ??
Re: Modernizar Outlook2003
Posted: Thu Mar 29, 2012 2:33 pm
by pcordonet
Hola Antonio, estoy probando la nueva clase, tOutlook2010.
Me faltan las siguientes funciones:
Code: Select all
DrawTransparent
BMPOLARROW
BMPOLDOTS
Podria enviarmelas por email ?
perecordonet@gmail.com
Espero su respuesta.
Gracias
Pere
Re: Modernizar Outlook2003
Posted: Thu Mar 29, 2012 4:45 pm
by 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" )
Re: Modernizar Outlook2003
Posted: Thu Mar 29, 2012 4:47 pm
by Antonio Linares
Aqui tienes DrawTransparent():
Code: Select all
// (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
//----------------------------------------------------------------------------//
Re: Modernizar Outlook2003
Posted: Thu Mar 29, 2012 5:34 pm
by 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
Re: Modernizar Outlook2003
Posted: Thu Mar 29, 2012 5:42 pm
by Antonio Linares
Re: Modernizar Outlook2003
Posted: Fri Mar 30, 2012 7:44 am
by pcordonet
Muchas gracias Antonio
Ya funciona bién.