[futurebasic] Basic appearance, pict & scroll button

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : November 2002 : Group Archive : Group : All Groups

From: Alain Wrobel <wrobel@...>
Date: Wed, 20 Nov 2002 14:23:44 +0100
(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
_________________________________________________________________