FiveTech Support Forums

HB_FUNC( GDIPLUSISEMPTYGRAPHICS)
{
   Graphics * graphics = ( Graphics * ) hb_parnl( 1 );
   
   hb_retl( ( BOOL )   graphics->IsClipEmpty() ) ;
  
}

//----------------------------------------------------------------------------//

HB_FUNC( GDIPLUSSETSMOOTHINGGRAPHICS )
{
   Graphics * graphics = ( Graphics * ) hb_parnl( 1 );
   int nType =  hb_parni( 2 );
     
   switch (nType){
    
    case 1:
      graphics->SetSmoothingMode( SmoothingModeNone ) ;
    case 2:
     graphics->SetSmoothingMode( SmoothingModeDefault );
    case 3:
     graphics->SetSmoothingMode(  SmoothingModeHighSpeed );  
    case 4:
     graphics->SetSmoothingMode(  SmoothingModeHighQuality );     
    case 5:
     graphics->SetSmoothingMode(  SmoothingModeAntiAlias );   
  
    }   
         
}
//----------------------------------------------------------------------------//

HB_FUNC( GDIPLUSIMAGECREATETHUMB )
{ 
  Bitmap * newImage = ( Bitmap * ) hb_parnl( 1 );
  int nWidth =  hb_parni( 2 );
  int nHeight = hb_parni( 3 );
 
  Image * hThumb = newImage->GetThumbnailImage( nWidth , nHeight, NULL, NULL );
  
  hb_retnl( ( HB_LONG ) hThumb );
   
  }

//----------------------------------------------------------------------------//

HB_FUNC( GDIPLUSCREATEHBITMAPIMAGE )
{ 
 HBITMAP    handle;
    int         error;
    
 Bitmap * newImage = ( Bitmap * ) hb_parnl( 1 );
 error =  newImage->GetHBITMAP( Color( 0,0,0 ), &handle );
  
    if ( error != 0 )
    {  
  hb_retnl( ( HB_LONG ) NULL ); 
}

 hb_retnl( ( HB_LONG ) handle );

}

//----------------------------------------------------------------------------//

HB_FUNC( GDIPLUSGETWIDTHBITMAP)
{
  Bitmap * newImage = ( Bitmap * ) hb_parnl( 1 );
  hb_retnl( ( HB_LONG )  newImage->GetWidth() );
}

HB_FUNC( GDIPLUSGETHEIGHTBITMAP)
{
  Bitmap * newImage = ( Bitmap * ) hb_parnl( 1 );
  hb_retnl( ( HB_LONG )  newImage->GetHeight());
}

HB_FUNC( GDIPLUSCREATEBITMAPFROMSTREAM )
{ 
      
     IStream *pStream = NULL;
     HGLOBAL m_hBuffer = GlobalAlloc(GMEM_MOVEABLE, 0);
    
     
  // HGLOBAL m_hBuffer  = GlobalAlloc(GMEM_FIXED, IMAGE_SIZE);
            
   if (CreateStreamOnHGlobal(m_hBuffer, FALSE, &pStream ) != S_OK )
   {
        GlobalFree( m_hBuffer );
        hb_retl ( (bool) FALSE  );
    }
    
   size_t size = GlobalSize(m_hBuffer);
   FILE *f;
   f = fopen("app.bmp", "rb");
   
   if( f == NULL)
    MessageBox( GetActiveWindow(), "fallo", "No carga la imagen", 0x30 );
  
  
   fread( m_hBuffer,1,size,f);
      
   fclose(f);
   
    GlobalFree( m_hBuffer );
 
   // create Bitmap
   Bitmap* bitmap = new Bitmap( pStream );
   //    Bitmap* bitmap = new Bitmap( L"app.bmp" );
 
    hb_retnl( ( HB_LONG ) bitmap );
    
}

METHOD CreateHbitmap( ) INLINE  GdiPlusCreateHBitmapImage( ::hBmp  )  //devuelve un hbitmap GDI normal 
METHOD getWidth()  INLINE GdiPlusGetWidthBitmap( ::hbmp ) 
 METHOD getHeight() INLINE GdiPlusGetHeightBitmap( ::hbmp ) 

METHOD CreateThumbnail( nWidth, nHeight ) CLASS GDIBmp
local oThumb:= gdiBmp():new()
local hImage
local nRatio
  if Empty( nHeight )
     nRatio := ::getWidth()/::getHeight()
     nHeight := nWidth * nRatio
  endif
  hImage := GdiPlusImageCreateThumb( ::hbmp, nWidth, nHeight )
  oThumb:hBmp := hImage
Return oThumb


//----------------------------------------------------------------------------//

Function GDIPlusSaveThumbnail( cImageIni, cImageEnd , nWhidth, nHeight )

local cExtIni := Upper(cFileExt( cImageIni ))
local oImage:= GDIBmp():New( cImageIni )
local oThumb
local nScan
 if( nScan:= aScan( oImage:aExtIni, cExtIni )) == 0 
    Msginfo( " el archivo "+ cImageIni + " tiene un formato no soportado") 
    return .f.
 endif 

 oThumb:= oImage:CreateThumbmail( nWhidth, nHeight )
 oThumb:Save( cImageEnd )
 
oImage:Destroy()
oThumb:Destroy()

return .t.

function Main()

   local oWnd
   local oImage 

   DEFINE WINDOW oWnd TITLE "Testing GDI+ Class" FROM 5,5 TO 600, 800 PIXEL
   
   @ 3, 38 BITMAP oimage File "hola" size 120,120 of oWnd // cargamos la imagen en vacio.

   ACTIVATE WINDOW oWnd ;
      ON PAINT Gditest(  oImage )

return nil

function Gditest(  oImage )
  
   local cfile:= cGetfile("escoge una imagen")  // funciona también con png 
//  local cFile := "c:\fwh\bitmaps\pngs\image6.png"

   local obmp:= gdiBmp():new( cFile )
  oImage:hBitmap := obmp:CreateHbitmap( )  
  oImage:HasAlpha()
  oimage:refresh()

 Return nil