Sprites support for FiveWin

[Antonio Linares]

With AlphaBlending support

This is just a first prototype:
http://rapidshare.com/files/116638322/sprites.zip.html

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

   local oBmp, oWnd
   
   DEFINE BITMAP oBmp FILENAME "explorer.bmp"
   
   DEFINE WINDOW oWnd TITLE "Sprites in FiveWin"
   
   @ 2, 2 BUTTON "Sprite" SIZE 80, 20 ;
      ACTION DrawSprite( oWnd:hWnd, 0, 0, 300, 300, oBmp:hBitmap )
   
   ACTIVATE WINDOW oWnd
   
   oBmp:End()

return nil


[Patrick Mast]

Haha, love it!

I can already have ideas on where to use it

Patrick