topic-15538

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Transparent say over a bitmap
Posted: Sun May 10, 2009 07:34 PM

I would like to print a TRANSPARENT say over a BITMAP.
Is this possible?
Thanks in advance
Otto

@ 0,0 BITMAP oBmp FILENAME CURDIR() + "\bmp\Clip5.bmp" PIXEL   of oDlg  SIZE 60,38 
@ 0,0 say oSaydemo PROMPT cText of oBmp font oFontMedium CENTERED   PIXEL  SIZE 50,12
oSaydemo:SetText(cText)
oSayDemo:refresh()

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Transparent say over a bitmap
Posted: Mon May 11, 2009 12:06 AM

Otto,

Use oBmp:Say( ... ) instead of placing a SAY control on top of it.

regards, saludos

Antonio Linares
www.fivetechsoft.com

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: Transparent say over a bitmap
Posted: Mon May 11, 2009 07:56 AM

Hello Antonio,

thank you for your answer.
I tried yesterday with oBmp:Say before I tried using placing a SAY control on top.

Now as you suggested oBmp:Say I tried again but there are some problems:
I would like to use the oBmp as a kind of pointer to show where I have clicked.

1) I must hide and show the bmp
2) I have to clear the text

Attached I have my test code.
The problem is that you have to click twice to show the bitmap.

And could you please show me how to clear the oBmp:say or how to repaint the bmp without text?

Thanks in advance
Otto

Code (fw): Select all Collapse

#include "FWCE.ch"

STATIC oBmp
STATIC oPanArt_WG

function Main()
   local oWnd

   DEFINE WINDOW oWnd TITLE "Bmp-Res"
 
  
    @ 5, 24 BITMAP oBmp FILENAME CURDIR() + "\users.bmp" SIZE 80,20 PIXEL   NOBORDER
        oBmp:hide()
  
   
   ACTIVATE WINDOW oWnd ;
      ON CLICK    neu(oWnd)

return nil


function neu(oWnd)
 
 oBmp:Say(0, 0, "*"+time(),   , , , .T., .T. )  
 oBmp:show()
  
return nil

FiveTech Support Forums

Continue the discussion