Power Builder - Forma Irregular (Irregular shape)

   
Vista:

Forma Irregular (Irregular shape)

Publicado por Shirus (143 intervenciones) el 24/06/2010 19:07:37
Muchas gracias por su valiosa ayuda

Como puedo crear una ventana transparente, sin que la imagen
se ponga transparente.

O una ventana hueca, donde ponga una imagen (gif, png).

Referencia:

http://www.lawebdelprogramador.com/news/mostrar_new.php?id=73&texto=Power+Builder&n1=163213&n2=0&n3=0&n4=0&n5=0&n6=0&n7=0&n8=0&n9=0&n0=0

Lastimosamente el enlace que muestra aqui esta roto.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Forma Irregular (Irregular shape)

Publicado por JeinnerH (638 intervenciones) el 25/06/2010 16:57:30
Buscando en Internet encontré esto, pruebalo y me dices si funciona.

It is Possible you must use some API func

FUNCTION int CombineRgn( ulong hrgnDest, ulong hrgnSrc1, ulong hrgnSrc2, int
fnCombineMode ) LIBRARY "gdi32.dll"

FUNCTION long CreateEllipticRgn( long x1, long y1, long x2, long y2 )
LIBRARY "gdi32.dll"

FUNCTION long CreatePolygonRgn( POINT lppt[], int cPoints, int
fnPolyFillMode ) LIBRARY "gdi32.dll"

FUNCTION long CreateRectRgn( long x1, long y1, long x2, long y2 ) LIBRARY
"gdi32.dll"

FUNCTION int GetWindowRgn( ulong hWnd, REF long hRgn ) LIBRARY "user32.dll"

FUNCTION long SetWindowRgn( ulong hWnd, ulong hRgn, boolean bRedraw )
LIBRARY "user32.dll"

This is an example
Long x2, y2, ll_err
ULong hWnd

x2 = UnitsToPixels( this.Width, XUnitsToPixels! ) - 5
y2 = UnitsToPixels( this.Height, YUnitsToPixels! ) - 5
hWnd = Handle( this )
il_newRgn = CreateEllipticRgn( 5 , 5, x2, y2 )

SetWindowRgn( hWnd, il_newRgn, TRUE )
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Forma Irregular (Irregular shape)

Publicado por Rohher (143 intervenciones) el 25/06/2010 17:42:51
Hola JeinnerH, muchas gracias por tu ayuda, intente probar el codigo que me facilitas, primero poniendo el codigo que me mensionas en el open de la ventana y me indica que la sintaxis no es correcta, puse el codigo en el "Local External Function" nada mas las funciones y en la cuarta linea me indica que "point" es un tipo de dato ilegal apesar que lo comento me hace refencia el mismo error.

No se si estoy haciendo algo mal, ayudame por favor.

Muchas gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Forma Irregular (Irregular shape)

Publicado por JeinnerH (638 intervenciones) el 25/06/2010 18:43:31
Bueno, puedes crear una estructura como la que sigue:
$PBExportHeader$str_x_y.srs
global type str_x_y from structure
Long X
Long Y
end type

Y luego usas esa estructura en lugar del POINT
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar