FiveTech Support Forums

Hola Amigos:

Como puedo poner un Fondo (Logo) en la pantalla principal, puede ser un BMP.

Uso Clipper 5.3b, FW2.4 y Blinker 7.0.

Saludos,
Miguel

Asi es una forma de hacerlo:::

@0,0 BITMAP oBmp FILE "bmp\fondo.bmp" OF oWnd:oWndClient();
PIXEL NOBORDER SIZE 1034,768

debes declarar LOCAL oBmp

Hola Amigo:

Muchas gracias por tu ayuda.

Saludos,
Miguel


[quote="A&C"]Asi es una forma de hacerlo:::

@0,0 BITMAP oBmp FILE "bmp\fondo.bmp" OF oWnd:oWndClient();
PIXEL NOBORDER SIZE 1034,768

debes declarar LOCAL oBmp

Hola, yo lo tengo para que además de mostrar un logo, éste se ajuste en tamaño en proporción al tamaño de la ventana de la aplicación y además siempre esté centrado en ella.

Lo hago así:

DEFINE WINDOW oWnd ..
..
oWnd:bResized := {|| Inilogo() }

ACTIVATE WINDOW oWnd ON INIT Inilogo() ...

Esta es la función Inilogo:

function IniLogo()
local aclirect := getclientRect(oWnd:hWnd)

if valtype(oBmplogo) = 'O'
oBmpLogo:End()
endif
@ -100, -100 BITMAP oBmplogo RESOURCE 'LOGO' ADJUST OF oWnd PIXEL NO BORDER

oBmpLogo:nTop := int( (aclirect[3]/2) - (int( (int( aclirect[4]36/100 )oBmpLogo:nHeight)/oBmpLogo:nWidth )/2) )
oBmpLogo:nLeft := int( (aclirect[4]/2) - (int( aclirect[4]36/100 )/2) )
oBmpLogo:nHeight := int( (int( aclirect[4]36/100 )oBmpLogo:nHeight)/oBmpLogo:nWidth )
oBmpLogo:nWidth := int( aclirect[4]36/100 )
oBmpLogo:Refresh()

return nil

Saludos

Miguel,

En samples\fivegen\fivegen.prg tienes un ejemplo de como poner un logo centrado ó en mosaico:

Revisa fivegen.prg para ver el código de la función BmpTiled()

Antonio:

Muchas Gracias,

Saludos,

Miguel

Antonio Linares wrote:Miguel,

En samples\fivegen\fivegen.prg tienes un ejemplo de como poner un logo centrado ó en mosaico:

Code: Select all Collapse

   if ! Empty( ::oBmpLogo ) .or. ! Empty( ::oBmpTiled )
      ::oWnd:bPainted = { | hDC | If( ::oBmpTiled != nil,;
                                  BmpTiled( hDC, ::oWnd, ::oBmpTiled ),),;
                                  If( ::oBmpLogo != nil,;
                                  PalBmpDraw( hDC,;
                                  ::oWnd:nHeight() / 2 - ;
                                  ::oBmpLogo:nHeight() / 2 - 50,;
                                  ::oWnd:nWidth() / 2 - ;
                                  ::oBmpLogo:nWidth() / 2,;
                                  ::oBmpLogo:hBitmap ),) }
   endif

Revisa fivegen.prg para ver el código de la función BmpTiled()

Sebastian:

Muchas Gracias por tu ayuda.

Saludos,

Miguel

Sebastián Almirón wrote:Hola, yo lo tengo para que además de mostrar un logo, éste se ajuste en tamaño en proporción al tamaño de la ventana de la aplicación y además siempre esté centrado en ella.

Lo hago así:

DEFINE WINDOW oWnd ..
..
oWnd:bResized := {|| Inilogo() }

ACTIVATE WINDOW oWnd ON INIT Inilogo() ...

Esta es la función Inilogo:

function IniLogo()
local aclirect := getclientRect(oWnd:hWnd)

if valtype(oBmplogo) = 'O'
oBmpLogo:End()
endif
@ -100, -100 BITMAP oBmplogo RESOURCE 'LOGO' ADJUST OF oWnd PIXEL NO BORDER

oBmpLogo:nTop := int( (aclirect[3]/2) - (int( (int( aclirect[4]*36/100 )*oBmpLogo:nHeight)/oBmpLogo:nWidth )/2) )
oBmpLogo:nLeft := int( (aclirect[4]/2) - (int( aclirect[4]*36/100 )/2) )
oBmpLogo:nHeight := int( (int( aclirect[4]*36/100 )*oBmpLogo:nHeight)/oBmpLogo:nWidth )
oBmpLogo:nWidth := int( aclirect[4]*36/100 )
oBmpLogo:Refresh()

return nil


Saludos