Es un primer prototipo:
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