FiveTech Software tech support forums

Posted: **Wed Aug 02, 2006 5: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][img]http://img58.imageshack.us/img58/9974/textosinfondosobrebmppb9.th.jpg[/img][/img]

Posted: **Wed Aug 02, 2006 6:11 am**

Juan,

Hazlo así:

Code: Select all

#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

Posted: **Wed Aug 02, 2006 6: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 Software tech support forums

SAY EN BITMAP...

SAY EN BITMAP...