Marca de agua en xBrowse

[Ariel]

Hola a todos,

pues eso, tengo una imagen de fondo en un xbrowse y quiero darle una marca de agua, o sea que quede clara en el fondo, se puede hacer? como?
Saludos.

[karinha]

Look/Mira/olhar:

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=35033&p=208447&hilit=oBrw%3ASetBackGround#p208447


Saludos.

[Ariel]

Karina,
gracias por responder, esa es la idea con la diferencia que no me repita la imagen ni la ajuste al browse, sino que la deje en el tamaño original centrada.
Saludos.

[Marcelo Roggeri]

Ariel mira en samples, busque hasta que lo encontre hoy jaa xbwaterm.prg
Saludos
Marcelo

[karinha]

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=37270&p=222553&hilit=watermark#p222553

[Ariel]

Gracias a todos.

como lo indica el samples funciona lo que queria implementar, no lo vi disculpas.

Saludos.

[Marcelo Roggeri]

Buenisimo Ariel, si bien te lo pase por msg, lo postie por si le pasaba a algún otro compañero, esa es la idea del foro.
Un saludo a todos y también agradezco porque yo también estaba en esa búsqueda.
Marcelo

[Adolfredo Martinez]

Hola Amigos.

Tengo la versión Fwh19.05, como se llama el ejemplo que viene en sample, que no lo encuentro, corro el ejemplo de Mr Rao y no me sale la marca de agua.

[Marcelo Roggeri]

El archivo es xbwaterm.prg, no se a partir de que version esta disponible, deberias preguntarle a Antonio Linares
Saludos

[karinha]

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=37270&p=222553&hilit=watermark#p222553

Intente asi:

Code: Select all  Expand view  RUN

#include "fivewin.ch"

REQUEST DBFCDX

function Main()

   local oWnd, oBrw, oFont, aImage
   local nAlphaLevel := 64

   USE CUSTOMER NEW VIA "DBFCDX"

   DEFINE FONT oFont NAME "Calibri" SIZE 0,-15 BOLD

   DEFINE WINDOW oWnd

   oWnd:SetFont( oFont )

   // aqui -> informe el directório donde está el PNG.
   aImage   := oWnd:ReadImage( "c:\fwh1905\bitmaps\pngs\2.png", , .t. )

   @ 20,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oWnd ;
      DATASOURCE "CUSTOMER" AUTOCOLS NOBORDER CELL LINES

   WITH OBJECT oBrw
      :lTransparent  := .t.

      :bPaintBack := < |Self|
         FillRect( ::hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush )
         ::DrawImage( aImage, ::DataRect():aRect, nil, nil, nAlphaLevel )
         ::lTransparent := .t.
         return nil
         >
      //
      :CreateFromCode()
   END

   ACTIVATE WINDOW oWnd CENTERED
   RELEASE FONT oFont
   PalBmpFree( aImage )

return nil
 

[Adolfredo Martinez]

Gracias Karinha.

Perfecto, Tenia mal ubicado el directorio donde esta el PNG.

[nageswaragunupudi]

Version FWH1905