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:
00531650
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.

Kevin,

Interesting. Here, however, rather than moving a picture, from what I understand, you're moving a window. Is this correct?

BTW, you could've done something interesting things with StretchBlt() in the below.:-)

>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
George

Ubi caritas et amor, deus ibi est
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform