FiveTech Software tech support forums

... the bitmap.

5. **`hAlphaLevel`**
- **Type:** Numeric
- **Description:** Stores the current alpha level (transparency) of the bitmap.

6. **`lBmpTransparent`**
- **Type:** Logical
- **Description:** Indicates whether the bitmap should be drawn with transparency. Default is `.T.` (true).

7 ...

... rounded corners. |
| `nRound` | Numeric | Radius for rounded corners. |
| `lEllipse` | Logical | Indicates if the button is elliptical. |
| `lBmpTransparent` | Logical | Indicates if the bitmap is transparent. |
| `oFontBold` | Object | Bold font object for the button text. |
| `oPopup` | Object ...

:addResource( 'FLAG' )
:bBmpData := {|| IIf( Empty( oData:produtocontado ), 0, 1 ) }
:lBmpStretch := .f.
:lBmpTransparent := .t.
:nDataBmpAlign := AL_CENTER
:nHeadStrAlign := AL_CENTER
:cHeader := 'Contado'
:nWidth := 50
:bStrData := {|| nil }
:cSortOrder := Nil

... oBrw:nRowDividerStyle := LINESTYLE_LIGHTGRAY
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROWMS
oBrw:aCols[2]:nEditType := TYPE_IMAGE
oBrw:aCols[2]:lBmpTransparent := .T.

oBrw:aCols[ 2 ]:addbmpfile("BITMAPS\yes.bmp" ) // from Disk
oBrw:aCols[ 2 ]:addbmpfile("BITMAPS\no.bmp" ) // from Disk
oBrw:aCols[ 2 ...

... sin necesidad de editar el archivo.

Investigando el conjunto de imágenes problemáticas, el problema es que la clase tiene la data ::lBmpTransparent como .t., y esa es la razón del pintado incorrecto.

Colocándola a .f. se pintan sin problema.

Probablemente la data tenga que tener por ...

nageswaragunupudi wrote:Add this setting
In the case of 2 color bitmaps (eg. black and white) we need to set lBmpTransparent to .F.

lBmpTransparent shouldn't be .F. by default ?

[[]]
Maurício Faria

Add this setting
oImage:lBmpTransparent := .f.
In the case of 2 color bitmaps (eg. black and white) we need to set lBmpTransparent to .F.

Hi, thanks.
Better !

But still not as good as other apps, and worst in the bottom of the image:

http://www.farmacia.net.br/PDP/PoorXImage2 ...

Add this setting
  oImage:lBmpTransparent := .f. 
In the case of 2 color bitmaps (eg. black and white) we need to set lBmpTransparent to .F.

Suggested code:
function TestXImage2Clr()   local oWnd, oImage   DEFINE WINDOW oWnd   @ 10,10 XIMAGE oImage ...

... 46;com/IMAGES/Grdpaint17.jpg

the test bbb.bmp
It looks like there is a border around that makes it transparent
I added -> oImage:lBmpTransparent := .F.
but no difference

http://www.pflegeplus.com/IMAGES/bbb.bmp

Funny and hard to understand as a test I reloaded this ...

You may get this problem in case of bitmaps with only 2 colors.

Please try
oCol:lBmpTransparent := .F.

... c_path2 + "Img64_" + ALLTRIM(STR(nCount[1])) + ".bmp" )

in xBrowse

WITH OBJECT:aCols[ 1 ]
:cDataType := 'F'
:nDataBmpAlign := AL_CENTER
:lBmpTransparent := .f.
//:lBmpTransparent := .t.
END

some of the created Bmp's

http://www.pflegeplus.com/IMAGES/Img48_2.bmp

http&#58 ...

Using non transparent images like Your drawing
maybe You need

@ 20,20 XIMAGE oImage SOURCE cFile SIZE -20,-20 OF oDlg
oImage:lBmpTransparent := .F.

otherwise it could show something like ( format JPG )
is showing transparent areas on the left upper corner


This is not relevant for EMF files ...

Marc,

by default :lBmpTransparent := .T.

Using non transparent images like Your drawing
maybe You need

@ 20,20 XIMAGE oImage SOURCE cFile SIZE -20,-20 OF oDlg
oImage:lBmpTransparent := .F.

otherwise it could show something like ( format JPG )
is showing transparent areas on the left upper ...

Silvio,

WITH OBJECT oApp():oGrid
:nRowHeight := 200
END

WITH OBJECT oApp():oGrid:aCols[ 1]
:cDataType := 'F'
:nWidth := 40
:nDataBmpAlign := AL_CENTER
:lBmpTransparent := .T.
END

regards
Uwe

... OBJECT oApp():oGrid
:nRowHeight := 200

WITH OBJECT oApp():oGrid:aCols[ 1]
:cDataType := 'F'
:nWidth := 40
:nDataBmpAlign := AL_CENTER
:lBmpTransparent := .T.

END


But It show a small image

https://i.postimg.cc/qMgGt9qC/ser.jpg


why ?

the original images are all Png ...