To Antonio

[Antonio Linares]

Lailton,

I am not quite sure about what you want to do, but you can try:

oMsgBar:bPainted = { | hDC | DrawBitmap( hDC, ... ) }

[lailton.webmaster]

where i need input it antonio ?

[lailton.webmaster]

Antonio estoy enviando lo arquivo

http://www.redstarsoft.net/files/barra.bmp
Isto es lo que quero en resultado final

http://www.redstarsoft.net/files/teste.zip
isto es como estas ate ahora.

gracias pela atencion.

[lailton.webmaster]

do u can help me with this

thanks

[lailton.webmaster]

HElpppppppp me

[Antonio Linares]

Code: Select all | Expand

#include "FiveWin.ch"

function Main()

   local oBmp, oWnd, oBar

   DEFINE BITMAP oBmp FILENAME "barra.bmp"

   DEFINE WINDOW oWnd

   SET MSGBAR OF oWnd TO "" 2007
   
   oWnd:oMsgbar:bPainted = { | hDC | DrawBitmap( hDC, oBmp:hBitmap, 1,  5 ),;
                                     DrawBitmap( hDC, oBmp:hBitmap, 1, 85 ) }

   ACTIVATE WINDOW oWnd
   
   oBmp:End()

return nil

[lailton.webmaster]

i need that this bitmap that u show in your picture UP
stay only of background of ::cMsg of messagebar

and other thing,,

i m trying use it

Code: Select all | Expand

DrawBitmap(ownd,  LoadBitmap( GetResources(), "FUNDO" ), 1,  5 ) 

but no show inside of windows OWND

only test more no show

[Antonio Linares]

You are missing:

ownd:hDC

[lailton.webmaster]

Antonio, i did it more no how imagem in ownd

Code: Select all | Expand

DEFINE BITMAP oBmp RESOURCE "FUNDOTEXTO" 
DEFINE WINDOW oWnd TITLE "FiveWin"  MENU BuildMenu()
DrawBitmap(ownd:hDC,  oBmp, 10,  10, 100, 100 ) 
ownd:oMsgbar:clockon()
ownd:oMsgbar:dateon()
ACTIVATE WINDOW oWnd

[Antonio Linares]

Lailton,

If you want to paint a bitmap on the window, then do it this way:

Code: Select all | Expand

DEFINE BITMAP oBmp RESOURCE "FUNDOTEXTO" 

DEFINE WINDOW oWnd TITLE "FiveWin"  MENU BuildMenu() 

ACTIVATE WINDOW oWnd ;
   ON PAINT DrawBitmap(ownd:hDC,  oBmp:hBitmap, 10,  10, 100, 100 )

[lailton.webmaster]

Perfect Antonio =)

Thanks so much.