Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Arcade Game Written in VFP
Message
General information
Forum:
Visual FoxPro
Category:
Windows API functions
Miscellaneous
Thread ID:
00531577
Message ID:
00531645
Views:
21
Thanks for the reply!

I wrote a screen saver that moved an object around on the screen in a little know language called GFA Basic. This language allowed C code to be written right in with the basic code (ala .NET?). Here was some sample code that I was wondering if it could be run in VFP and if so what would I need to change.

gosub makememscreens()

** Main Loop
Do
Bitblt scratchbrd&,tx%,ty%,170,20,_dc(1),tx%,ty%,SRCCOPY
Put x%+3,y%+3,mask&,SRCAND
Put x%+3,y%+3,truck&,SRCINVERT
Bitblt scratchbrd&,x%,y%,240,240,_dc(1),x%,y%,SRCCOPY
Put x%,y%,partscene&,SRCCOPY
Freebmp partscene&
Get x%,y%,x%+240,y%+240,partscene&
Loop

Procedure makememscreens()
Peekevent
Setdc (_dc(2))
Freebmp scratchbrd&
scratchbrd& = Memdc(_dc(2))
~SelectPalette(scratchbrd&,pal&,0)
Freebmp scratchbmp&
scratchbmp& = Createbmp(_x,_y)
~SelectObject(scratchbrd&,scratchbmp&)
Bitblt _dc(2),0,0, _x,_y,scratchbrd&,0,0,SRCCOPY
Peekevent
Setdc (scratchbrd&)
Deffill 0
Peekevent
Setdc (_dc(2))
Return

-regards
Kevin Scott
kehvn@carolina.rr.com


Hey! It's not my fault. It's some General named Protection!
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform