topic-3773

Posts: 8

Joined: Tue Aug 01, 2006 05:16 AM

SAY EN BITMAP...
Posted: Wed Aug 02, 2006 05:07 AM

Hola foro!

, estoy empezando...

Tengo un problema al querer poner un say sobre un bitmap en una ventana. Me sale el fono del say en blanco como se muestra en la imagen. He modificado el codigo de testbmp.prg para realizar este ejemplo.

// Using bitmaps from resources

#include "FWCE.ch"

function Main()

local oWnd, oBmp, osay

DEFINE WINDOW oWnd TITLE "Bmp-Res"

@ 5,5 SAY osay var 'Prueba de texto sin fondo' OF OWND

@ 0, 0 BITMAP RESOURCE "users" ADJUST transparen

ACTIVATE WINDOW oWnd ;
ON CLICK MsgInfo( "click!" )

return nil

[img]http://img58.imageshack.us/img58/9974/textosinfondosobrebmppb9.th.jpg" alt="" loading="lazy">[/img]

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

SAY EN BITMAP...
Posted: Wed Aug 02, 2006 06:11 AM

Juan,

Hazlo así:

Code: Select all Collapse

#include "FWCE.ch"

function Main()

   local oWnd, oBmp

   DEFINE WINDOW oWnd TITLE "Test"

   @ 0, 0 BITMAP oBmp FILENAME CURDIR() + "\users.bmp" NOBORDER

   oBmp:lTransparent = .t.
   oBmp:bPainted = { || oBmp:Say( 2, 2, "Esto es una prueba", "W+", "B",,, .t. ) }

   ACTIVATE WINDOW oWnd ;
      ON CLICK MsgInfo( "click!" )

return nil

regards, saludos

Antonio Linares
www.fivetechsoft.com

Juan Zapata

Posts: 8

Joined: Tue Aug 01, 2006 05:16 AM

SAY EN BITMAP...
Posted: Wed Aug 02, 2006 06:53 AM

Ok. Antonio, muchas gracias. . Todo correcto.

Solo una cosa... Como puedo analizar mas a fondo todos los comandos, con los que trabajamos en fwppc, ya que tengo varios manuales y guia de programacion, pero cuando me asalta alguna duda de este tipo o como en la otra consulta del Boton transparente, siempre me encuentro con codigo nuevo que entonces intento analizar. ¿Existe otro manual?...

Otra vez gracias, Antonio.

FiveTech Support Forums

Continue the discussion