Bitmap

[pawelu]

Antonio,

I create bitmap from resource like this:

Code: Select all  Expand view  RUN

Function TestBmp ()

   Local oWnd := Nil

   Define Window oWnd
   @ 78, 20 BitMap oBmp Resource 'Info' Size 130, 78 Pixel
   Activate Window oWnd

Return .T.


Bitmap is not properly displayed. Bitmap size is about 10kB. I send for You original bitmap file and screen from PocketPC.

Regards
Pawel

[Antonio Linares]

Pawel,

The bitmap color located at the pixel 0, 0 is used to select the transparent color. As you are using black at 0, 0 in your bitmap, then all black color is made transparent.

Change your bitmap color at 0, 0, in example, like this:


and if you use the clause NOBORDER also:
@ 78, 20 BitMap Resource 'Info' Size 130, 78 Pixel NOBORDER

then it looks like this:

[pawelu]

Antonio,

thanks

Pawel