Salvar bitmap from resources transparent

[Ari]

Hello

I'm trying to record the bitmaps I have with transparent brackground, some and know how to do that?

I'll use it on the pages and there is a gray appearing in the background.

Code: Select all  Expand view  RUN

/*  ============================================================================== */
Function BmpTOFile( cNome, xhDC )
/*  ============================================================================== */
  local hDC, hDIB
  local cFile     := Lower("c:\xampp\htdocs\img\" + cNome + ".bmp")

  local cFileHtml := Lower('/img/'   + cNome + ".bmp")
 
  if File( cFile ) ; return Lower(cNome) ; Endif
 
  DEFAULT xhDC := 0
 
  if xhDC == 0
     hDC      := LoadBitMap( GetResources(), cNome )                    
  Else
     hDC      := xhDC
  Endif

  if empty( hDC ) ; return Lower(cNome) ; Endif
     
  hDIB        := DibFromBitmap( hDC, 255 )

  DibWrite( cFile, hDIB )
 
return Lower(cNome)