Page 1 of 1
Marca de agua en xBrowse
Posted: Tue Oct 15, 2019 1:43 pm
by 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.
Re: Marca de agua en xBrowse
Posted: Tue Oct 15, 2019 1:55 pm
by karinha
Re: Marca de agua en xBrowse
Posted: Tue Oct 15, 2019 2:19 pm
by 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.
Re: Marca de agua en xBrowse
Posted: Tue Oct 15, 2019 8:22 pm
by Marcelo Roggeri
Ariel mira en samples, busque hasta que lo encontre hoy jaa xbwaterm.prg
Saludos
Marcelo
Re: Marca de agua en xBrowse
Posted: Tue Oct 15, 2019 8:40 pm
by karinha
Re: Marca de agua en xBrowse
Posted: Wed Oct 16, 2019 9:56 am
by Ariel
Gracias a todos.
como lo indica el samples funciona lo que queria implementar, no lo vi disculpas.
Saludos.
Re: Marca de agua en xBrowse
Posted: Wed Oct 16, 2019 12:10 pm
by 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
Re: Marca de agua en xBrowse
Posted: Wed Oct 23, 2019 1:46 pm
by 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.
Re: Marca de agua en xBrowse
Posted: Wed Oct 23, 2019 2:13 pm
by Marcelo Roggeri
El archivo es xbwaterm.prg, no se a partir de que version esta disponible, deberias preguntarle a Antonio Linares
Saludos
Re: Marca de agua en xBrowse
Posted: Wed Oct 23, 2019 2:37 pm
by karinha
http://forums.fivetechsupport.com/viewt ... rk#p222553
Intente asi:
Code: Select all
#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
Re: Marca de agua en xBrowse
Posted: Wed Oct 23, 2019 8:00 pm
by Adolfredo Martinez
Gracias Karinha.
Perfecto, Tenia mal ubicado el directorio donde esta el PNG.
Re: Marca de agua en xBrowse
Posted: Thu Oct 24, 2019 7:42 am
by nageswaragunupudi
Version FWH1905