>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