topic-17327

Board index FiveWin para Harbour/xHarbour tOutlook2003 & Imagen de Fondo

Posts: 297

Joined: Fri Apr 14, 2006 05:52 PM

tOutlook2003 & Imagen de Fondo
Posted: Wed Nov 11, 2009 10:14 AM

Buenos días foro, os pregunto a ver si me podeis echar una manita:

1) Tengo en mi aplicación incrustada la clase toutlook2003, ¿Sabéis si se puede cambiar un icono en tiempo de ejecución en dicha clase?. Es que uno de los botones de la clase es un apartado de alarmas, y por defecto tiene un icono. Cuando haya una alarma quiero que dicho icono cambie para que el usuario entre en dicha parte.

2) Le he instalado a mi cliente la aplicación en varias máquinas, y cada una tiene un monitor con una resolución distinta, con lo cual, la imagen de fondo (en JPG) en uno aparece bien pero en otro aparece como un mosaico. Creo que de esto había algo en el foro, pero no lo he encontrado. ¿Me podeís dar alguna pista de como ensanchar la imagen para que en todos los monitores aparezca bien?

Muchas gracias por todo.

Un Saludo,

Miguel A

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: tOutlook2003 & Imagen de Fondo
Posted: Thu Nov 19, 2009 02:25 AM

Mike,

1) Puedes cambiar el bitmap de un grupo de la siguiente forma:

Code (fw): Select all Collapse

oOutLook:aGroups[ n ]:oBitmap:SetBMP( cBmpResName ) // desde recursos ó

oOutLook:aGroups[ n ]:oBitmap:LoadBMP( cBmpName ) // desde un fichero

oOutLook:aGroups[ n ]:Paint()

2) Como estas pintando la imagen en la ventana ? Usas un objeto TImage ?
Por favor muestra el código que usas, gracias

regards, saludos

Antonio Linares
www.fivetechsoft.com

Mike Serra

Posts: 297

Joined: Fri Apr 14, 2006 05:52 PM

Re: tOutlook2003 & Imagen de Fondo
Posted: Thu Nov 19, 2009 09:38 AM

Como siempre, gracias Antonio por contestar.

1) Solucionado, se queda perfecto con lo indicado

2) Con respecto al segundo punto, lo he intentado sin exito de las siguientes formas:

Con un BRUSH

Code (fw): Select all Collapse

   
      ....
      ....
      define BRUSH obmp FILENAME ".\IMG\logosocial.bmp" of oWndPrincipal
    
    define window oWndPrincipal title oApplication:Title + " Empresa: " + oCompany:Nombre mdi menu BuildMenu() icon icono colors CLR_BLUE, RGB( 231,242,255 ) BRUSH obmp
      ....
      ....
      ....
    activate window oWndPrincipal maximized valid CloseAplicattion(2) on init (oApplication:oWnd:=oWndPrincipal, SearchAlarms())  ON RESIZE ( oSplit:Adjust(),;
                  WndLeft( oWndPrincipal:oWndClient:hWnd, oSplit:nRight + 1 ),;
                  WndWidth( oWndPrincipal:oWndClient:hWnd, oWndPrincipal:nWidth - oOutLook2003:nWidth + 80 ) )

Con una clase IMAGE

Code (fw): Select all Collapse

     ....
     ....
    define window oWndPrincipal title oApplication:Title + " Empresa: " + oCompany:Codigo + " - " + oCompany:Nombre mdi menu BuildMenu() icon icono colors CLR_BLUE, RGB( 231,242,255 )
        ....
        define image obmp FILENAME ".\IMG\logosocial.bmp" of oWndPrincipal
        
    oWndPrincipal:bPainted = { | hDC | BmpTiled( hDC,oBmp, oWndPrincipal ) }
        ....
    activate window oWndPrincipal maximized valid CloseAplicattion(2) on init (oApplication:oWnd:=oWndPrincipal, SearchAlarms())  ON RESIZE ( oSplit:Adjust(),;
                  WndLeft( oWndPrincipal:oWndClient:hWnd, oSplit:nRight + 1 ),;
                  WndWidth( oWndPrincipal:oWndClient:hWnd, oWndPrincipal:nWidth - oOutLook2003:nWidth + 80 ) )

Con la clase BITMAP

Code (fw): Select all Collapse

     ....   
    define window oWndPrincipal title oApplication:Title + " Empresa: " + oCompany:Codigo + " - " + oCompany:Nombre mdi menu BuildMenu() icon icono colors CLR_BLUE, RGB( 231,242,255 )
         define bitmap obmp FILENAME ".\IMG\logosocial.bmp" of oWndPrincipal
        
    ...
        oWndPrincipal:bPainted = { | hDC | BmpTiled( hDC,oBmp, oWndPrincipal ) }
      
    activate window oWndPrincipal maximized valid CloseAplicattion(2) on init (oApplication:oWnd:=oWndPrincipal, SearchAlarms())  ON RESIZE ( oSplit:Adjust(),;
                  WndLeft( oWndPrincipal:oWndClient:hWnd, oSplit:nRight + 1 ),;
                  WndWidth( oWndPrincipal:oWndClient:hWnd, oWndPrincipal:nWidth - oOutLook2003:nWidth + 80 ) )

El código de la función BmpTiled (para 2 y 3) es el siguiente:

Code (fw): Select all Collapse

function BmpTiled( hDC, oBmp, oWnd ) //BmpTiled(
    
local nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight()
local nRow := 0, nCol := 0, n
local nBmpWidth := oBmp:nWidth(), nBmpHeight := oBmp:nHeight()

while nRow < nHeight
nCol = 0
while nCol < nWidth
PalBmpDraw( hDC, nRow, nCol, oBmp:hBitmap )
nCol += nBmpWidth
end
nRow += nBmpHeight
end

return nil

Espero que me puedas ayudar.

Muchas Gracias por Todo.

Saludos

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: tOutlook2003 & Imagen de Fondo
Posted: Thu Nov 19, 2009 10:23 AM

Mike,

Hazlo asi:

Code (fw): Select all Collapse

#include "FiveWin.ch"

function Main()

   local oWnd, oBmp

   DEFINE BITMAP oBmp FILENAME "logo.bmp"

   DEFINE WINDOW oWnd MDI

   ACTIVATE WINDOW oWnd ;
      ON PAINT DrawBitmap( hDC, oBmp:hBitmap, 0, 0, oWnd:oWndClient:nWidth(), oWnd:oWndClient:nHeight() )
   
   oBmp:End()

return nil

regards, saludos

Antonio Linares
www.fivetechsoft.com

Mike Serra

Posts: 297

Joined: Fri Apr 14, 2006 05:52 PM

Re: tOutlook2003 & Imagen de Fondo
Posted: Thu Nov 19, 2009 01:11 PM

Funcionó perfectamente, muchisimas gracias Antonio

Saludos,

FiveTech Support Forums

Continue the discussion