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.
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Marca de agua en xBrowse
Look/Mira/olhar:
http://forums.fivetechsupport.com/viewtopic.php?f=3&t=35033&p=208447&hilit=oBrw%3ASetBackGround#p208447
Saludos.
http://forums.fivetechsupport.com/viewtopic.php?f=3&t=35033&p=208447&hilit=oBrw%3ASetBackGround#p208447
Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
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.
Ariel mira en samples, busque hasta que lo encontre hoy jaa xbwaterm.prg
Saludos
Marcelo
FWH - Harbour - BCC7 - PellesC
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Gracias a todos.
como lo indica el samples funciona lo que queria implementar, no lo vi disculpas.
Saludos.
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
FWH - Harbour - BCC7 - PellesC
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.
El archivo es xbwaterm.prg, no se a partir de que version esta disponible, deberias preguntarle a Antonio Linares
Saludos
FWH - Harbour - BCC7 - PellesC
http://forums.fivetechsupport.com/viewtopic.php?f=3&t=37270&p=222553&hilit=watermark#p222553
Intente asi:
Intente asi:
#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 nilJoão Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Gracias Karinha.
Perfecto, Tenia mal ubicado el directorio donde esta el PNG.
Version FWH1905
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India