FiveTech Support Forums

function RoundImage()

   local hBmp, cSave := "olga1.bmp"

   hBmp  := FW_MakeYourBitmap( 450, 450, <|hDC|
               FW_DrawImage( hDC, "c:\fwh\bitmaps\olga1.jpg", { 0,0,450,450 },,"C" ) //,,,"TL" )
               return nil
               >, .T. )

   ? nBmpWidth( hBmp ), nBmpHeight( hBmp )

   FW_SaveImage( hBmp, "c:\fwh\bitmaps\olga_round.png" )
   DeleteObject( hBmp )

   ximage( "c:\fwh\bitmaps\olga_round.png" ) // test the result

return nil