añadir soporte para png,jpg,etc en buttonb

Posts: 1516

Joined: Thu May 27, 2010 02:06 PM

añadir soporte para png,jpg,etc en buttonb
Posted: Thu Jun 18, 2015 08:42 AM

con estos cambios en le archivo buttonb.prg quedaria resuelto el uso de png y jpg ,etc en los buttonb
en new y redefine ...

Code (fw): Select all Collapse

   // nuevo
        ::hBitmap     := ::ReadPalBmpEx( ::cBitmap )[1]

     // antiguo
      //  ::hBitmap   = If( File( ::cBitmap ), ReadBitmap( 0, ::cBitmap ),;
      //                    LoadBitmap( GetResources(), ::cBitmap ) )

en LoadBitmap...

Code (fw): Select all Collapse

  if ValType( cBmpName ) == 'N'
      if IsGdiObject( cBmpName )
         ::hBitmap   := cBmpName
      endif
      ::cBitmap   := cValToChar( cBmpName )
   ELSE
     // nuevo
      ::hBitmap     := ::ReadPalBmpEx( ::cBitmap )[1]

   // viejo 
  // elseif File( cBmpName )
  //    ::hBitmap = ReadBitmap( 0, cBmpName )
  // else
   //   ::hBitmap = LoadBitmap( GetResources(), cBmpName )

   endif

FiveTech Support Forums

Continue the discussion