(FB^3 Release 7 fr)
Hello,
I have a probleme with Pictures in Appearance Runtime :
I can't draw a Picture in another position than the creation
position when there is a scroll button un the window.
All is ok without scroll button or in Standard Runtime.
Where is my mistake ?
Alain.
#if ndef _appearanceRuntime
compile shutdown "Ce programme doit être compilé avec le Runtime Appearance."
#endif
local fn faitPict
dim rctPict.8;0,t,l,b,r
dim@ ImageHndl&
setrect(rctPict,50,50,150,150)
color _zGreen
picture on(l,t)-(r,b)
paintrect(rctPict)
picture off,ImageHndl&
color _zBlack
picture,ImageHndl&
picture(0,0),ImageHndl&
picture(200,50),ImageHndl&
kill picture ImageHndl&
locate 15,15:print "clic pour continuer"
do
until fn button
end fn
dim rectFen as rect
setrect(rectFen,40,600,400,800)
WINDOW 1,"no scroll button ---> 3 images",@rectFen,_docZoom_updateVisRgn
fn faitPict
delay 1000
cls
window close 1
WINDOW 1,"scroll button --> 1 image !!!!!!!!!!",@rectFen,_docZoom_updateVisRgn
SCROLL BUTTON 1,,,,,,_scrollVert
fn faitPict
end
--
_________________________________________________________________
A. Wrobel *GREGUM-UMR ESO, Université du Maine*Tel:02-43-83-35-44
_________________________________________________________________