Bonjour Yousfi,
Your example works very well for me. Thank you very much.
>vfp form is a container that can be scrolled if form.scrollbars=2.
>to be scrolled the picture must have dimensions>form (important).
>try this demo
>
>PUBLIC oform
>oform=NEWOBJECT("scroller")
>oform.Show
>RETURN
>
>*
>DEFINE CLASS scroller AS form
> Top = 0
> Left = 0
> Height = 233
> Width = 358
> ScrollBars = 3
> Caption = "Form1"
> Name = "Form1"
>
> ADD OBJECT image1 AS image WITH ;
> Picture = "ledwallpaper_ybenameur.bmp", ;
> Stretch = 2, ;
> Height = 1000, ;
> Left = 0, ;
> Top = 2, ;
> Width = 2000, ;
> Name = "Image1"
> procedure init
>local m.xpict
>m.xpict=getpict()
>if empty(m.xpict)
>return .f.
>endi
>thisform.image1.picture=m.xpict
>
>ENDDEFINE
>*
>*-- EndDefine: scroller
>
>>
>you can also design a container with scrollbars as described in this link for ex:
http://www.sweetpotatosoftware.com/blog/index.php/2005/08/27/visual-foxpro-scrollbar-classes/>you can found many other examples in my blog.
>
http://yousfi.over-blog.com/2015/12/testing-a-vfp-scrollbar-container-class-application.html>
http://yousfi.over-blog.com/2017/11/scrolling-containers-with-pure-and-simple-vfp-solutions.html>
http://yousfi.over-blog.com/2017/11/scrolling-containers-with-flatscrollbar.html
"The creative process is nothing but a series of crises." Isaac Bashevis Singer
"My experience is that as soon as people are old enough to know better, they don't know anything at all." Oscar Wilde
"If a nation values anything more than freedom, it will lose its freedom; and the irony of it is that if it is comfort or money that it values more, it will lose that too." W.Somerset Maugham
